This is the mail archive of the
binutils@sources.redhat.com
mailing list for the binutils project.
Fix elfcomm.exp for targets with USER_LABEL_PREFIX == "_"
- From: Joern Rennecke <joern dot rennecke at superh dot com>
- To: binutils at sources dot redhat dot com
- Cc: Nick Clifton <nickc at redhat dot com>
- Date: Thu, 24 Apr 2003 19:59:18 +0100
- Subject: Fix elfcomm.exp for targets with USER_LABEL_PREFIX == "_"
- Organization: SuperH UK Ltd.
--
--------------------------
SuperH (UK) Ltd.
2410 Aztec West / Almondsbury / BRISTOL / BS32 4QX
T:+44 1454 465658
2003-04-24 J"orn Rennecke <joern dot rennecke at superh dot com>
* ld-elfcomm/elfcomm.exp: Allow symbols to have '_' prepended.
Index: elfcomm.exp
===================================================================
RCS file: /cvs/src/src/ld/testsuite/ld-elfcomm/elfcomm.exp,v
retrieving revision 1.3
diff -p -r1.3 elfcomm.exp
*** elfcomm.exp 22 Apr 2003 15:00:02 -0000 1.3
--- elfcomm.exp 24 Apr 2003 18:55:43 -0000
*************** proc dump_common1 { testname } {
*** 39,46 ****
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(\[ \]+)COM(\[ \]+)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
fail $testname
--- 39,46 ----
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(\[ \]+)COM(\[ \]+)_?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
fail $testname
*************** if { [ld_simple_link $ld tmpdir/common1.
*** 65,72 ****
return
}
! if { ![regexp "Warning: alignment (\[0-9\]+) of symbol \`foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output]
! || ![regexp "Warning: size of symbol \`foo1\' changed from 2 in tmpdir/common1a.o to 21 in tmpdir/common1b.o" $link_output] } {
fail "$test1 (warning 1)"
} else {
pass "$test1 (warning 1)"
--- 65,72 ----
return
}
! if { ![regexp "Warning: alignment (\[0-9\]+) of symbol \`_?foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output]
! || ![regexp "Warning: size of symbol \`_?foo1\' changed from 2 in tmpdir/common1a.o to 21 in tmpdir/common1b.o" $link_output] } {
fail "$test1 (warning 1)"
} else {
pass "$test1 (warning 1)"
*************** if { [ld_simple_link $ld tmpdir/common1.
*** 81,87 ****
return
}
! if { ![regexp "Warning: alignment (\[0-9\]+) of symbol \`foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output] } {
fail "$test1 (warning 2)"
} else {
pass "$test1 (warning 2)"
--- 81,87 ----
return
}
! if { ![regexp "Warning: alignment (\[0-9\]+) of symbol \`_?foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output] } {
fail "$test1 (warning 2)"
} else {
pass "$test1 (warning 2)"