aboutsummaryrefslogtreecommitdiff
path: root/binutils/testsuite
diff options
context:
space:
mode:
authorIan Lance Taylor <ian@airs.com>1995-10-02 19:58:43 +0000
committerIan Lance Taylor <ian@airs.com>1995-10-02 19:58:43 +0000
commit0efc22188b8566c30852ea15f09dae900ecd6117 (patch)
tree868b786bbd836b6805ce07179f20762b8a13529d /binutils/testsuite
parent8b57093d333cf48e3b2fab6e0067a4f0fc788866 (diff)
downloadgdb-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/ChangeLog11
-rw-r--r--binutils/testsuite/binutils-all/.Sanitize1
-rw-r--r--binutils/testsuite/binutils-all/nm.exp30
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"