From: Alan Modra <amodra@gmail.com>
Date: Thu, 31 Jan 2002 03:57:52 +0000 (+0000)
Subject: 	* ld-scripts/crossref.exp: Allow foo to have a leading dot.
X-Git-Tag: binutils-2_12-branchpoint~205
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=dbc37f892b730f7fb0177770be3e3eb67ad36149;p=platform%2Fupstream%2Fbinutils.git

	* 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.
---

diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 2035cbc..eff1c9a 100644
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2002-01-31  Alan Modra  <amodra@bigpond.net.au>
+
+	* 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.
+
 2002-01-29  Chris Demetriou  <cgd@broadcom.com>
 
 	* ld-mips-elf/emrelocs-eb.d: New file to test --embedded-relocs.
diff --git a/ld/testsuite/ld-scripts/cross1.t b/ld/testsuite/ld-scripts/cross1.t
index 7636b78..11efa13 100644
--- a/ld/testsuite/ld-scripts/cross1.t
+++ b/ld/testsuite/ld-scripts/cross1.t
@@ -2,6 +2,7 @@ NOCROSSREFS ( .text .data )
 SECTIONS
 {
   .toc  : { *(.toc) }
+  .opd  : { *(.opd) }
   .text : { tmpdir/cross1.o }
   .data : { tmpdir/cross2.o }
 }
diff --git a/ld/testsuite/ld-scripts/crossref.exp b/ld/testsuite/ld-scripts/crossref.exp
index a2ba5ce..da5d7ba 100644
--- a/ld/testsuite/ld-scripts/crossref.exp
+++ b/ld/testsuite/ld-scripts/crossref.exp
@@ -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
diff --git a/ld/testsuite/ld-undefined/undefined.exp b/ld/testsuite/ld-undefined/undefined.exp
index e47a201..0829b01 100644
--- a/ld/testsuite/ld-undefined/undefined.exp
+++ b/ld/testsuite/ld-undefined/undefined.exp
@@ -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
diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp
index 841b14b..06583e5 100644
--- a/ld/testsuite/lib/ld-lib.exp
+++ b/ld/testsuite/lib/ld-lib.exp
@@ -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