From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 5339 invoked by alias); 6 Apr 2005 21:41:13 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 5330 invoked from network); 6 Apr 2005 21:41:10 -0000 Received: from unknown (HELO e35.co.us.ibm.com) (32.97.110.133) by sourceware.org with SMTP; 6 Apr 2005 21:41:10 -0000 Received: from d03relay05.boulder.ibm.com (d03relay05.boulder.ibm.com [9.17.195.107]) by e35.co.us.ibm.com (8.12.10/8.12.9) with ESMTP id j36LfALg193712 for ; Wed, 6 Apr 2005 17:41:10 -0400 Received: from d03av01.boulder.ibm.com (d03av01.boulder.ibm.com [9.17.195.167]) by d03relay05.boulder.ibm.com (8.12.10/NCO/VER6.6) with ESMTP id j36Lf9cC175126 for ; Wed, 6 Apr 2005 15:41:09 -0600 Received: from d03av01.boulder.ibm.com (loopback [127.0.0.1]) by d03av01.boulder.ibm.com (8.12.11/8.12.11) with ESMTP id j36Lf9xA015973 for ; Wed, 6 Apr 2005 15:41:09 -0600 Received: from dyn9047022123-009047022128.beaverton.ibm.com (dyn9047022123-009047022128.beaverton.ibm.com [9.47.22.128]) by d03av01.boulder.ibm.com (8.12.11/8.12.11) with ESMTP id j36Lf8mT015948; Wed, 6 Apr 2005 15:41:09 -0600 From: Paul Gilliam Reply-To: pgilliam@us.ibm.com To: gdb-patches@sources.redhat.com Subject: [commit] In testsuite, make 'test_compiler_info' work like 'istarget' Date: Wed, 06 Apr 2005 21:41:00 -0000 User-Agent: KMail/1.6.2 Cc: Daniel Jacobowitz References: <200504061408.50092.pgilliam@us.ibm.com> <20050406211452.GA23375@nevyn.them.org> In-Reply-To: <20050406211452.GA23375@nevyn.them.org> MIME-Version: 1.0 Content-Disposition: inline Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Message-Id: <200504061438.34917.pgilliam@us.ibm.com> X-SW-Source: 2005-04/txt/msg00061.txt.bz2 I made one tiny change to fit in with the ohter entries in the ChangeLog. Here is the patch I committed: 2005-04-06 Paul Gilliam * lib/gdb.exp (test_compiler_info): Return compiler_info if no arguments are given. Index: lib/gdb.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/lib/gdb.exp,v retrieving revision 1.58 diff -c -3 -p -r1.58 gdb.exp *** lib/gdb.exp 10 Sep 2004 01:04:59 -0000 1.58 --- lib/gdb.exp 6 Apr 2005 20:38:35 -0000 *************** proc get_compiler_info {binfile args} { *** 1293,1298 **** --- 1293,1309 ---- proc test_compiler_info { compiler } { global compiler_info + + # if no arg, return the compiler_info string + + if [string match "" $compiler] { + if [info exists compiler_info] { + return $compiler_info + } else { + perror "No compiler info found." + } + } + return [string match $compiler $compiler_info] }