From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-18229-listarch-gdb-patches=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 5784 invoked by alias); 29 Aug 2002 15:20:59 -0000
Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sources.redhat.com>
List-Help: <mailto:gdb-patches-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: gdb-patches-owner@sources.redhat.com
Received: (qmail 5774 invoked from network); 29 Aug 2002 15:20:58 -0000
Received: from unknown (HELO localhost.redhat.com) (66.30.197.194)
  by sources.redhat.com with SMTP; 29 Aug 2002 15:20:58 -0000
Received: by localhost.redhat.com (Postfix, from userid 469)
	id EAD04108F6; Thu, 29 Aug 2002 11:18:45 -0400 (EDT)
From: Elena Zannoni <ezannoni@redhat.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Message-ID: <15726.15189.346472.673358@localhost.redhat.com>
Date: Thu, 29 Aug 2002 08:32:00 -0000
To: Keith Seitz <keiths@redhat.com>
Cc: gdb-patches@sources.redhat.com
Subject: Re: [RFA/MI testsuite] add expect_out global
In-Reply-To: <Pine.LNX.4.44.0208221357450.1410-100000@valrhona.uglyboxes.com>
References: <Pine.LNX.4.44.0208221357450.1410-100000@valrhona.uglyboxes.com>
X-SW-Source: 2002-08/txt/msg00979.txt.bz2

Keith Seitz writes:
 > Hi,
 > 
 > The following simple patches will allow callers of mi_gdb_test to access 
 > the variable expect_out. Without this, expect_out will only be accessible 
 > in mi_gdb_test, which does test writers little good.
 > 
 > Keith

OK.

Elena


 > 
 > ChangeLog
 > 2002-08-22  Keith Seitz  <keiths@redhat.com>
 > 
 >         * lib/mi-support.exp (mi_gdb_test): Add global declaration
 >         for expect_out, which will enable callers to access it.
 > 
 > Patch
 > Index: testsuite/lib/mi-support.exp
 > ===================================================================
 > RCS file: /cvs/src/src/gdb/testsuite/lib/mi-support.exp,v
 > retrieving revision 1.13
 > diff -p -r1.13 mi-support.exp
 > *** testsuite/lib/mi-support.exp	12 Nov 2001 19:44:28 -0000	1.13
 > --- testsuite/lib/mi-support.exp	22 Aug 2002 20:56:23 -0000
 > *************** proc mi_gdb_load { arg } {
 > *** 382,388 ****
 >   proc mi_gdb_test { args } {
 >       global verbose
 >       global mi_gdb_prompt
 > !     global GDB
 >       upvar timeout timeout
 >   
 >       if [llength $args]>2 then {
 > --- 382,388 ----
 >   proc mi_gdb_test { args } {
 >       global verbose
 >       global mi_gdb_prompt
 > !     global GDB expect_out
 >       upvar timeout timeout
 >   
 >       if [llength $args]>2 then {