This is the mail archive of the
binutils@sources.redhat.com
mailing list for the binutils project.
ld testsuite tweaks
- From: Alan Modra <amodra at bigpond dot net dot au>
- To: binutils at sources dot redhat dot com
- Date: Thu, 31 Jan 2002 14:31:14 +1030
- Subject: ld testsuite tweaks
Fixes fallout from
2002-01-25 Alan Modra <amodra@bigpond.net.au>
* 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