From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21569 invoked by alias); 25 Jun 2012 20:28:20 -0000 Received: (qmail 21560 invoked by uid 22791); 25 Jun 2012 20:28:19 -0000 X-SWARE-Spam-Status: No, hits=-6.5 required=5.0 tests=AWL,BAYES_00,KHOP_RCVD_UNTRUST,RCVD_IN_DNSWL_HI,RCVD_IN_HOSTKARMA_W,SPF_HELO_PASS,T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Mon, 25 Jun 2012 20:28:07 +0000 Received: from int-mx11.intmail.prod.int.phx2.redhat.com (int-mx11.intmail.prod.int.phx2.redhat.com [10.5.11.24]) by mx1.redhat.com (8.14.4/8.14.4) with ESMTP id q5PKS7je027477 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Mon, 25 Jun 2012 16:28:07 -0400 Received: from barimba (ovpn01.gateway.prod.ext.phx2.redhat.com [10.5.9.1]) by int-mx11.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP id q5PKS5I4014452 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES128-SHA bits=128 verify=NO); Mon, 25 Jun 2012 16:28:06 -0400 From: Tom Tromey To: gdb-patches@sourceware.org Subject: FYI: clean up gdb.modula2 Date: Mon, 25 Jun 2012 20:28:00 -0000 Message-ID: <87mx3rb0h6.fsf@fleche.redhat.com> MIME-Version: 1.0 Content-Type: text/plain Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org X-SW-Source: 2012-06/txt/msg00783.txt.bz2 I'm checking this in. This changes gdb.modula2 to use standard_testfile and prepare_for_testing. Regtested on x86-64 Fedora 16. Tom 2012-06-25 Tom Tromey * gdb.modula2/unbounded-array.exp: Use standard_testfile, prepare_for_testing. Index: gdb.modula2/unbounded-array.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.modula2/unbounded-array.exp,v retrieving revision 1.8 diff -u -r1.8 unbounded-array.exp --- gdb.modula2/unbounded-array.exp 16 Jan 2012 16:21:51 -0000 1.8 +++ gdb.modula2/unbounded-array.exp 25 Jun 2012 20:27:14 -0000 @@ -17,20 +17,13 @@ # the elements of an unbounded array using the Modula-2 language mode of # gdb. -set testfile "unbounded1" -set srcfile ${testfile}.c -set binfile ${objdir}/${subdir}/${testfile} +standard_testfile unbounded1.c -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug quiet}] != "" } { - untested "Couldn't compile ${srcfile}" +if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug quiet}]} { + untested $testfile.exp return -1 } -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} - if ![runto foo] then { perror "couldn't run to breakpoint foo" continue