diff options
author | Ian Lance Taylor <ian@airs.com> | 1995-10-02 19:58:43 +0000 |
---|---|---|
committer | Ian Lance Taylor <ian@airs.com> | 1995-10-02 19:58:43 +0000 |
commit | 0efc22188b8566c30852ea15f09dae900ecd6117 (patch) | |
tree | 868b786bbd836b6805ce07179f20762b8a13529d /binutils/testsuite | |
parent | 8b57093d333cf48e3b2fab6e0067a4f0fc788866 (diff) | |
download | gdb-0efc22188b8566c30852ea15f09dae900ecd6117.zip gdb-0efc22188b8566c30852ea15f09dae900ecd6117.tar.gz gdb-0efc22188b8566c30852ea15f09dae900ecd6117.tar.bz2 |
* binutils-all/ar.exp: New file.
* binutils-all/bintest.s: Make text_symbol and data_symbol global.
Add new static symbols static_text_symbol and static_data_symbol.
* binutils-all/nm.exp: Adjust accordingly.
* config/default.exp (AR): Set if not set.
(binutils_remove): New procedure.
* lib/utils-lib.exp (default_binutils_run): Call
prune_system_crud on program output. Use verbose -log instead of
both verbose and send_log.
(default_binutils_remove): New procedure.
Diffstat (limited to 'binutils/testsuite')
-rw-r--r-- | binutils/testsuite/ChangeLog | 11 | ||||
-rw-r--r-- | binutils/testsuite/binutils-all/.Sanitize | 1 | ||||
-rw-r--r-- | binutils/testsuite/binutils-all/nm.exp | 30 |
3 files changed, 30 insertions, 12 deletions
diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog index 207538c..eae2413 100644 --- a/binutils/testsuite/ChangeLog +++ b/binutils/testsuite/ChangeLog @@ -1,5 +1,16 @@ Mon Oct 2 12:41:48 1995 Ian Lance Taylor <ian@cygnus.com> + * binutils-all/ar.exp: New file. + * binutils-all/bintest.s: Make text_symbol and data_symbol global. + Add new static symbols static_text_symbol and static_data_symbol. + * binutils-all/nm.exp: Adjust accordingly. + * config/default.exp (AR): Set if not set. + (binutils_remove): New procedure. + * lib/utils-lib.exp (default_binutils_run): Call + prune_system_crud on program output. Use verbose -log instead of + both verbose and send_log. + (default_binutils_remove): New procedure. + * lib/utils-lib.exp (default_binutils_assemble): Call prune_system_crud on assembler output. diff --git a/binutils/testsuite/binutils-all/.Sanitize b/binutils/testsuite/binutils-all/.Sanitize index 3b2c4f0..ec92ab7 100644 --- a/binutils/testsuite/binutils-all/.Sanitize +++ b/binutils/testsuite/binutils-all/.Sanitize @@ -23,6 +23,7 @@ Do-first: Things-to-keep: +ar.exp bintest.s hppa nm.exp diff --git a/binutils/testsuite/binutils-all/nm.exp b/binutils/testsuite/binutils-all/nm.exp index 2abc9df..dca351b 100644 --- a/binutils/testsuite/binutils-all/nm.exp +++ b/binutils/testsuite/binutils-all/nm.exp @@ -12,7 +12,7 @@ # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # Please email any bugs, comments, and/or additions to this file to: # bug-dejagnu@prep.ai.mit.edu @@ -38,24 +38,28 @@ if {![binutils_assemble $AS $srcdir$subdir/bintest.s tmpdir/bintest.o]} then { # stores most symbols twice, which messes up the nm output. setup_xfail "alpha*-*-osf*" "alpha*-*-netware*" setup_xfail "mips*-*-ultrix*" "mips*-*-ecoff*" "mips*-*-irix4*" -setup_xfail "mips*-*-riscos*" "mips*-*-sysv3*" +setup_xfail "mips*-*-riscos*" "mips*-*-sysv3*" "mips*-sony-bsd*" set got [binutils_run $NM "$NMFLAGS tmpdir/bintest.o"] if [info exists vars] then { unset vars } -while {[regexp "(\[a-zA-Z\]) (\[a-z\]*_symbol)(.*)" $got all type symbol rest]} { +while {[regexp "(\[a-zA-Z\]) (\[a-z_\]*_symbol)(.*)" $got all type symbol rest]} { set vars($symbol) $type set got $rest } if {![info exists vars(text_symbol)] \ - || $vars(text_symbol) != "t" \ + || $vars(text_symbol) != "T" \ || ![info exists vars(data_symbol)] \ - || $vars(data_symbol) != "d" \ + || $vars(data_symbol) != "D" \ || ![info exists vars(common_symbol)] \ || $vars(common_symbol) != "C" \ || ![info exists vars(external_symbol)] \ - || $vars(external_symbol) != "U"} then { + || $vars(external_symbol) != "U" \ + || ![info exists vars(static_text_symbol)] \ + || $vars(static_text_symbol) != "t" \ + || ![info exists vars(static_data_symbol)] \ + || $vars(static_data_symbol) != "d"} { fail "nm (no arguments)" } else { pass "nm (no arguments)" @@ -66,15 +70,17 @@ if {![info exists vars(text_symbol)] \ set got [binutils_run $NM "$NMFLAGS -g tmpdir/bintest.o"] if [info exists vars] then { unset vars } -while {[regexp "(\[a-z\]*_symbol)(.*)" $got all symbol rest]} { +while {[regexp "(\[a-z_\]*_symbol)(.*)" $got all symbol rest]} { set vars($symbol) 1 set got $rest } -if {[info exists vars(text_symbol)] \ - || [info exists vars(data_symbol)] \ +if {![info exists vars(text_symbol)] \ + || ![info exists vars(data_symbol)] \ || ![info exists vars(common_symbol)] \ - || ![info exists vars(external_symbol)]} then { + || ![info exists vars(external_symbol)] \ + || [info exists vars(static_text_symbol)] \ + || [info exists vars(static_data_symbol)]} { fail "nm -g" } else { pass "nm -g" @@ -86,11 +92,11 @@ if {[info exists vars(text_symbol)] \ # stores most symbols twice, which messes up the nm output. setup_xfail "alpha*-*-osf*" "alpha*-*-netware*" setup_xfail "mips*-*-ultrix*" "mips*-*-ecoff*" "mips*-*-irix4*" -setup_xfail "mips*-*-riscos*" "mips*-*-sysv3*" +setup_xfail "mips*-*-riscos*" "mips*-*-sysv3*" "mips*-sony-bsd*" set got [binutils_run $NM "$NMFLAGS -P tmpdir/bintest.o"] -set want "common_symbol C \[0\]*4.*data_symbol d \[0-9a-fA-F\]*.*external_symbol U.*text_symbol t \[0-9a-fA-F\]*" +set want "common_symbol C \[0\]*4.*data_symbol D \[0-9a-fA-F\]*.*external_symbol U.*static_data_symbol d \[0-9a-fA-F\]*.*static_text_symbol t \[0-9a-fA-F\]*.*text_symbol T \[0-9a-fA-F\]*" if [regexp $want $got] then { pass "nm -P" |