aboutsummaryrefslogtreecommitdiff
path: root/ld/testsuite/config
diff options
context:
space:
mode:
authorIan Lance Taylor <ian@airs.com>1994-11-28 16:26:30 +0000
committerIan Lance Taylor <ian@airs.com>1994-11-28 16:26:30 +0000
commit6294d8d0a5b0a90819efdd54a610b0be6c2d3d9c (patch)
tree4cd8e16bdc83d4625943a7862788447f93135036 /ld/testsuite/config
parent2245d757d710118e04476e6b32abc0a3b457545a (diff)
downloadgdb-6294d8d0a5b0a90819efdd54a610b0be6c2d3d9c.zip
gdb-6294d8d0a5b0a90819efdd54a610b0be6c2d3d9c.tar.gz
gdb-6294d8d0a5b0a90819efdd54a610b0be6c2d3d9c.tar.bz2
* ld-bootstrap/bootstrap.exp: Pass cmp output through
prune_system_crud. * ld-cdtest/cdtest.exp: Pass diff output through prune_system_crud. * ld-shared/shared.exp: Likewise. * config/default.exp: Remove unused and useless proc ld_load.
Diffstat (limited to 'ld/testsuite/config')
-rw-r--r--ld/testsuite/config/default.exp43
1 files changed, 12 insertions, 31 deletions
diff --git a/ld/testsuite/config/default.exp b/ld/testsuite/config/default.exp
index bdf3b08..4558ebc 100644
--- a/ld/testsuite/config/default.exp
+++ b/ld/testsuite/config/default.exp
@@ -1,6 +1,5 @@
-#
-# Expect script for LD Regression Tests
-# Copyright (C) 1993 Free Software Foundation
+# Basic expect script for LD Regression Tests
+# Copyright (C) 1993,1994 Free Software Foundation
#
# This file is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -16,8 +15,6 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#
-# $Id$
-#
# Written by Jeffrey Wheat (cassidy@cygnus.com)
#
@@ -25,6 +22,16 @@ if ![info exists ld] then {
set ld [findfile $objdir/ld.new $objdir/ld.new [transform ld]]
}
+if ![info exists as] then {
+ set as [findfile $base_dir/../gas/as.new $base_dir/../gas/as.new [transform as]]
+}
+
+if ![info exists nm] then {
+ set nm [findfile $base_dir/../binutils/nm.new $base_dir/../binutils/nm.new [transform nm]]
+}
+
+if ![file isdirectory tmpdir] {catch "exec mkdir tmpdir" status}
+
# load the utility procedures
load_lib ld.exp
@@ -37,32 +44,6 @@ proc ld_version {} {
}
#
-# ld_load
-# load the program, for now, we just execute it
-#
-proc ld_load { target1 target2 } {
- global exec_output
-
- if ![file exists $target1] then {
- unresolved "$target1 does not exist."
- }
-
- if ![file exists $target2] then {
- unresolved "$target2 does not exist."
- }
-
- set status [catch "exec cmp $target1 $target2" exec_output]
- verbose "### COMPARE $target1 $target2\n"
- if ![string match "" $exec_output] then {
- send_log "$exec_output\n"
- verbose "$exec_output" 1
- return 1
- } else {
- return 0
- }
-}
-
-#
# ld_exit -- just a stub for ld
#
proc ld_exit {} {