diff options
| author | Ian Lance Taylor <ian@airs.com> | 1994-11-28 16:26:30 +0000 |
|---|---|---|
| committer | Ian Lance Taylor <ian@airs.com> | 1994-11-28 16:26:30 +0000 |
| commit | 6294d8d0a5b0a90819efdd54a610b0be6c2d3d9c (patch) | |
| tree | 4cd8e16bdc83d4625943a7862788447f93135036 /ld/testsuite | |
| parent | 2245d757d710118e04476e6b32abc0a3b457545a (diff) | |
| download | fsf-binutils-gdb-6294d8d0a5b0a90819efdd54a610b0be6c2d3d9c.zip fsf-binutils-gdb-6294d8d0a5b0a90819efdd54a610b0be6c2d3d9c.tar.gz fsf-binutils-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')
| -rw-r--r-- | ld/testsuite/ChangeLog | 20 | ||||
| -rw-r--r-- | ld/testsuite/config/default.exp | 43 |
2 files changed, 32 insertions, 31 deletions
diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog index 5656208..feda8a0 100644 --- a/ld/testsuite/ChangeLog +++ b/ld/testsuite/ChangeLog @@ -1,3 +1,23 @@ +Mon Nov 28 11:24:36 1994 Ian Lance Taylor <ian@sanguine.cygnus.com> + + * 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. + +Sun Oct 30 13:02:34 1994 Ian Lance Taylor <ian@sanguine.cygnus.com> + + * lib/ld.exp (default_ld_compile): Remove the output file before + compiling. + + * ld-shared/shared.exp: Move common test code into a procedure. + Add tests for compiling the non shared code PIC. + * ld-shared/main.c (main): Call main_called, and print the result. + * ld-shared/shared.dat: Adjust accordingly. + Thu Oct 27 17:30:12 1994 Ian Lance Taylor <ian@sanguine.cygnus.com> * ld-shared: New directory, with new files to test generating ELF 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 {} { |