This is the mail archive of the
binutils@sourceware.org
mailing list for the binutils project.
[PATCH] Allow MIPS small commons in ld elfcomm testcase
- From: Thiemo Seufer <ths at networkno dot de>
- To: binutils at sourceware dot org
- Date: Fri, 11 Aug 2006 15:03:30 +0100
- Subject: [PATCH] Allow MIPS small commons in ld elfcomm testcase
Hello All,
I applied the appended patch, it extends the elfcomm testcase to
allow MIPS small commons.
Thiemo
2006-08-11 Thiemo Seufer <ths@mips.com>
* ld-elfcomm/elfcomm.exp (dump_common1): Extend regexp to match also
MIPS small commons.
Index: ld/testsuite/ld-elfcomm/elfcomm.exp
===================================================================
RCS file: /cvs/src/src/ld/testsuite/ld-elfcomm/elfcomm.exp,v
retrieving revision 1.10
diff -u -p -r1.10 elfcomm.exp
--- ld/testsuite/ld-elfcomm/elfcomm.exp 12 May 2005 07:32:05 -0000 1.10
+++ ld/testsuite/ld-elfcomm/elfcomm.exp 11 Aug 2006 13:56:04 -0000
@@ -45,7 +45,7 @@ proc dump_common1 { testname } {
send_log "$READELF -s tmpdir/common1.o | grep foo\n"
catch "exec $READELF -s tmpdir/common1.o | grep foo" exec_output
- if { ![regexp "(\[ \]*)(\[0-9\]+):(\[ \]*)(\[0\]*)80(\[ \]+)4(\[ \]+)OBJECT(\[ \]+)GLOBAL(\[ \]+)DEFAULT(\[ \]+)(PRC\\\[0xff03\\\]|COM)(\[ \]+)_?foo2" $exec_output]
+ if { ![regexp "(\[ \]*)(\[0-9\]+):(\[ \]*)(\[0\]*)80(\[ \]+)4(\[ \]+)OBJECT(\[ \]+)GLOBAL(\[ \]+)DEFAULT(\[ \]+)(PRC\\\[0xff03\\\]|COM|SCOM)(\[ \]+)_?foo2" $exec_output]
|| ![regexp "(\[ \]*)(\[0-9\]+):(\[ \]*)(\[0-9\]+)(\[ \]+)21(\[ \]+)OBJECT(\[ \]+)GLOBAL(\[ \]+)DEFAULT(\[ \]+)(\[0-9\]+)(\[ \]+)_?foo1" $exec_output] } {
send_log "$exec_output\n"
verbose $exec_output