From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-17963-listarch-gdb-patches=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 12222 invoked by alias); 22 Aug 2002 20:56:58 -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 12215 invoked from network); 22 Aug 2002 20:56:58 -0000
Received: from unknown (HELO valrhona.uglyboxes.com) (64.1.192.220)
  by sources.redhat.com with SMTP; 22 Aug 2002 20:56:58 -0000
Received: from localhost.localdomain (IDENT:4/0OPcEo4ufbShq906EkAA+JMCR5x4Ts@localhost.localdomain [127.0.0.1])
	by valrhona.uglyboxes.com (8.11.6/8.11.6) with ESMTP id g7MKxcp08675
	for <gdb-patches@sources.redhat.com>; Thu, 22 Aug 2002 13:59:39 -0700
Date: Thu, 22 Aug 2002 14:09:00 -0000
From: Keith Seitz <keiths@redhat.com>
X-X-Sender: keiths@valrhona.uglyboxes.com
To: gdb-patches@sources.redhat.com
Subject: [RFA/MI testsuite] add expect_out global
Message-ID: <Pine.LNX.4.44.0208221357450.1410-100000@valrhona.uglyboxes.com>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-SW-Source: 2002-08/txt/msg00713.txt.bz2

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

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 {