This is the mail archive of the
binutils@sources.redhat.com
mailing list for the binutils project.
Committed, ld-elfcomm/elfcomm.exp: Use $READELF, not readelf.
- From: Hans-Peter Nilsson <hans-peter dot nilsson at axis dot com>
- To: binutils at sources dot redhat dot com
- Date: Wed, 18 Jun 2003 05:38:33 +0200
- Subject: Committed, ld-elfcomm/elfcomm.exp: Use $READELF, not readelf.
Found running ld tests with cross gcc+binutils configured for
cris-axis-linux-gnu on a system with an old readelf. Committed as
obvious.
* ld-elfcomm/elfcomm.exp (dump_common1): Use $READELF, not plain
readelf as found using default path.
Index: ld-elfcomm/elfcomm.exp
===================================================================
RCS file: /cvs/src/src/ld/testsuite/ld-elfcomm/elfcomm.exp,v
retrieving revision 1.6
diff -p -c -r1.6 elfcomm.exp
*** ld-elfcomm/elfcomm.exp 3 Jun 2003 15:28:36 -0000 1.6
--- ld-elfcomm/elfcomm.exp 18 Jun 2003 01:03:41 -0000
*************** if { [which $CC] == 0 } {
*** 41,49 ****
proc dump_common1 { testname } {
global exec_output
! 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"
--- 41,50 ----
proc dump_common1 { testname } {
global exec_output
+ global READELF
! 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"
brgds, H-P