darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* ld-bootstrap/bootstrap.exp: Pass cmp output through

Browse source 
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.
This commit is contained in:
Ian Lance Taylor 1994-11-28 16:26:30 +00:00
parent 2245d757d7
commit 6294d8d0a5
2 changed files with 32 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
ld/testsuite/ChangeLog
View file

@ -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

43
ld/testsuite/config/default.exp
View file

@ -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
@ -36,32 +43,6 @@ proc ld_version {} {
default_ld_version $ld
}
#
# 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
#