From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-11387-listarch-gdb-patches=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 31166 invoked by alias); 19 Dec 2001 07:09:07 -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 31109 invoked from network); 19 Dec 2001 07:08:57 -0000
Received: from unknown (HELO zwingli.cygnus.com) (208.245.165.35)
  by sources.redhat.com with SMTP; 19 Dec 2001 07:08:57 -0000
Received: by zwingli.cygnus.com (Postfix, from userid 442)
	id EE0625E9D8; Wed, 19 Dec 2001 02:10:08 -0500 (EST)
From: Jim Blandy <jimb@zwingli.cygnus.com>
To: gdb-patches@sources.redhat.com
Subject: RFA: fix start symbol matching again
Message-Id: <20011219071008.EE0625E9D8@zwingli.cygnus.com>
Date: Tue, 18 Dec 2001 23:09:00 -0000
X-SW-Source: 2001-12/txt/msg00454.txt.bz2


If the comment isn't clear, let me know.  It's a little late, and I'm
not writing very well.

2001-12-19  Jim Blandy  <jimb@redhat.com>

	* gdb.asm/asm-source.exp (info symbol): Take another shot at
	anchoring the pattern matching the entry point symbol's name.

Index: gdb/testsuite/gdb.asm/asm-source.exp
===================================================================
RCS file: /cvs/cvsfiles/devo/gdb/testsuite/gdb.asm/asm-source.exp,v
retrieving revision 1.24
diff -c -r1.24 asm-source.exp
*** gdb/testsuite/gdb.asm/asm-source.exp	2001/12/17 14:57:49	1.24
--- gdb/testsuite/gdb.asm/asm-source.exp	2001/12/19 07:06:11
***************
*** 159,171 ****
  set entry_symbol ""
  send_gdb "info symbol 0x$entry_point\n"
  gdb_expect {
!     -re "info symbol 0x$entry_point\[\r\n\]*" {
! 	exp_continue
!     }
!     -re "^(.*) in section .*$gdb_prompt $" {
!         # It's important to anchor the pattern above at the beginning
!         # of the line.  Without that carat, the (.*) may end up
!         # matching the empty string.
  	set entry_symbol $expect_out(1,string)
  	pass "info symbol"
      }
--- 159,172 ----
  set entry_symbol ""
  send_gdb "info symbol 0x$entry_point\n"
  gdb_expect {
!     -re "info symbol 0x$entry_point\[\r\n\]+(\[^\r\n\]*) in section .*$gdb_prompt $" {
!         # We match the echoed `info symbol' command here, to help us
!         # reliably identify the beginning of the start symbol in its
!         # output.  We have to start matching exactly at the beginning
!         # of the line, no earlier or later.  You might think we could
!         # just use '^', but unfortunately, in expect, '^' matches the
!         # beginning of the unmatched input, not necessarily the
!         # beginning of a line.
  	set entry_symbol $expect_out(1,string)
  	pass "info symbol"
      }