From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 23990 invoked by alias); 31 Jan 2002 04:01:21 -0000 Mailing-List: contact binutils-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: binutils-owner@sources.redhat.com Received: (qmail 23879 invoked from network); 31 Jan 2002 04:01:17 -0000 Received: from unknown (HELO mta03ps.bigpond.com) (144.135.25.135) by sources.redhat.com with SMTP; 31 Jan 2002 04:01:17 -0000 Received: from bubble.local ([144.135.25.87]) by mta03ps.bigpond.com (Netscape Messaging Server 4.15) with SMTP id GQSBI100.3YP for ; Thu, 31 Jan 2002 14:08:25 +1000 Received: from CPE-144-136-176-14.sa.bigpond.net.au ([144.136.176.14]) by psmam07.mailsvc.email.bigpond.com(MailRouter V3.0h 125/1394002); 31 Jan 2002 14:01:14 Received: (qmail 4253 invoked by uid 179); 31 Jan 2002 04:01:14 -0000 Date: Wed, 30 Jan 2002 20:43:00 -0000 From: Alan Modra To: binutils@sources.redhat.com Subject: ld testsuite tweaks Message-ID: <20020131040114.GK16187@bubble.sa.bigpond.net.au> Mail-Followup-To: binutils@sources.redhat.com Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.3.25i X-SW-Source: 2002-01/txt/msg00669.txt.bz2 Fixes fallout from 2002-01-25 Alan Modra * ldmisc.c (demangle): Put back dots when string not demangled. ld/testsuite/ChangeLog * ld-scripts/crossref.exp: Allow foo to have a leading dot. * ld-scripts/cross1.t: Add .opd. * ld-undefined/undefined.exp: Allow leading dot on sym names. * lib/ld-lib.exp (default_ld_nm): Strip leading dots from syms. -- Alan Modra IBM OzLabs - Linux Technology Centre Index: ld/testsuite/ld-scripts/cross1.t =================================================================== RCS file: /cvs/src/src/ld/testsuite/ld-scripts/cross1.t,v retrieving revision 1.2 diff -u -p -r1.2 cross1.t --- cross1.t 2001/08/27 10:49:55 1.2 +++ cross1.t 2002/01/31 03:54:39 @@ -2,6 +2,7 @@ NOCROSSREFS ( .text .data ) SECTIONS { .toc : { *(.toc) } + .opd : { *(.opd) } .text : { tmpdir/cross1.o } .data : { tmpdir/cross2.o } } Index: ld/testsuite/ld-scripts/crossref.exp =================================================================== RCS file: /cvs/src/src/ld/testsuite/ld-scripts/crossref.exp,v retrieving revision 1.5 diff -u -p -r1.5 crossref.exp --- crossref.exp 2001/03/13 06:14:28 1.5 +++ crossref.exp 2002/01/31 03:54:39 @@ -54,7 +54,7 @@ if [string match "" $exec_output] then { fail $test1 } else { verbose -log "$exec_output" - if [regexp "prohibited cross reference from .* to `foo' in" $exec_output] { + if [regexp "prohibited cross reference from .* to `.*foo' in" $exec_output] { pass $test1 } else { fail $test1 Index: ld/testsuite/ld-undefined/undefined.exp =================================================================== RCS file: /cvs/src/src/ld/testsuite/ld-undefined/undefined.exp,v retrieving revision 1.10 diff -u -p -r1.10 undefined.exp --- undefined.exp 2001/06/12 16:02:13 1.10 +++ undefined.exp 2002/01/31 03:54:39 @@ -61,7 +61,7 @@ proc checkund { string testname } { } } -set mu "undefined reference to `this_function_is_not_defined'" +set mu "undefined reference to `*this_function_is_not_defined'" checkund $mu $testund # ARM PE defaults to using stabs debugging, which we can't handle for @@ -94,7 +94,7 @@ setup_xfail "sh-*-*" # Just doesn't work for PA ELF. No clue why. setup_xfail "hppa*-*-*elf*" -set ml "undefined.c:9: undefined reference to `this_function_is_not_defined'" +set ml "undefined.c:9: undefined reference to `*this_function_is_not_defined'" # With targets that use elf/dwarf2, such as the arm-elf and thumb-elf # toolchains, the code in bfd/elf.c:_bfd_elf_find_nearest_line() is called # in order to locate the file name/line number where the undefined Index: ld/testsuite/lib/ld-lib.exp =================================================================== RCS file: /cvs/src/src/ld/testsuite/lib/ld-lib.exp,v retrieving revision 1.12 diff -u -p -r1.12 ld-lib.exp --- ld-lib.exp 2001/10/14 16:03:53 1.12 +++ ld-lib.exp 2002/01/31 03:54:41 @@ -307,7 +307,7 @@ proc default_ld_nm { nm nmflags object } set file [open tmpdir/nm.out r] while { [gets $file line] != -1 } { verbose "$line" 2 - if [regexp "^(\[0-9a-fA-F\]+) \[a-zA-Z0-9\] (.+)$" $line whole value name] { + if [regexp "^(\[0-9a-fA-F\]+) \[a-zA-Z0-9\] \\.*(.+)$" $line whole value name] { set name [string trimleft $name "_"] verbose "Setting nm_output($name) to 0x$value" 2 set nm_output($name) 0x$value