From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-12982-listarch-gdb-patches=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 23285 invoked by alias); 21 Feb 2002 19:04:42 -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 23195 invoked from network); 21 Feb 2002 19:04:35 -0000
Received: from unknown (HELO cygnus.com) (205.180.230.5)
  by sources.redhat.com with SMTP; 21 Feb 2002 19:04:35 -0000
Received: from redhat.com (notinuse.cygnus.com [205.180.231.12])
	by runyon.cygnus.com (8.8.7-cygnus/8.8.7) with ESMTP id LAA19641;
	Thu, 21 Feb 2002 11:04:32 -0800 (PST)
Message-ID: <3C7542CF.A82DFC33@redhat.com>
Date: Thu, 21 Feb 2002 11:04:00 -0000
From: Michael Snyder <msnyder@redhat.com>
Organization: Red Hat, Inc.
X-Mailer: Mozilla 4.76 [en] (X11; U; Linux 2.4.2-2smp i686)
X-Accept-Language: en
MIME-Version: 1.0
To: Jim Blandy <jimb@cygnus.com>
CC: gdb-patches@sources.redhat.com, fnasser@redhat.com
Subject: Re: RFA: parse output from `info sources' one filename at a time
References: <20020214001154.0A7605E9DE@zwingli.cygnus.com>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-SW-Source: 2002-02/txt/msg00597.txt.bz2

Jim Blandy wrote:
> 
> This eliminates an `ERROR' when the test is run under Linux.  The
> output from `info sources' includes all the shared library source
> files, making it so long that it overflows Expect's buffer.

Not the maintainer, but I recommend acceptance.


> 
> 2002-02-13  Jim Blandy  <jimb@redhat.com>
> 
>         * gdb.asm/asm-source.exp: Parse the output from `info sources' one
>         filename at a time, and watch for the ones we want to see.
> 
> Index: gdb/testsuite/gdb.asm/asm-source.exp
> ===================================================================
> RCS file: /cvs/src/src/gdb/testsuite/gdb.asm/asm-source.exp,v
> retrieving revision 1.17
> diff -c -r1.17 asm-source.exp
> *** gdb/testsuite/gdb.asm/asm-source.exp        2002/01/18 00:13:00     1.17
> --- gdb/testsuite/gdb.asm/asm-source.exp        2002/02/14 00:05:30
> ***************
> *** 202,211 ****
>         "Current source file is .*asmsrc2.s.*Source language is asm.*" \
>         "info source asmsrc2.s"
> 
> ! # Try 'info sources'
> ! gdb_test "info sources" \
> !       "Source files .*asmsrc\[12\].s.*asmsrc\[12\].s.*" \
> !       "info sources"
> 
>   # Try 'info line'
>   gdb_test "info line" \
> --- 202,238 ----
>         "Current source file is .*asmsrc2.s.*Source language is asm.*" \
>         "info source asmsrc2.s"
> 
> ! # Try 'info sources'.  This can produce a lot of output on systems
> ! # with dynamic linking, where the system's shared libc was compiled
> ! # with debugging info; for example, on Linux, this produces 47kb of
> ! # output.  So we consume it as we go.
> ! send_gdb "info sources\n"
> ! set seen_asmsrc_1 0
> ! set seen_asmsrc_2 0
> ! gdb_expect {
> !     -re "^\[^,\]*asmsrc1.s(, |\[\r\n\]+)" {
> !         set seen_asmsrc_1 1
> !         exp_continue
> !     }
> !     -re "^\[^,\]*asmsrc2.s(, |\[\r\n\]+)" {
> !         set seen_asmsrc_2 1
> !         exp_continue
> !     }
> !     -re ", " {
> !         exp_continue
> !     }
> !     -re "$gdb_prompt $" {
> !         if {$seen_asmsrc_1 && $seen_asmsrc_2} {
> !             pass "info sources"
> !         } else {
> !             fail "info sources"
> !         }
> !     }
> !     timeout {
> !             fail "info sources (timeout)"
> !     }
> ! }
> !
> 
>   # Try 'info line'
>   gdb_test "info line" \