New files for ld testsuites

2 files changed, 110 insertions, 0 deletions

diff --git a/ld/testsuite/config/.Sanitize b/ld/testsuite/config/.Sanitize
new file mode 100644
index 0000000..291f4a9
--- /dev/null
+++ b/ld/testsuite/config/.Sanitize
@@ -0,0 +1,35 @@
+# .Sanitize for ld dejagnu testsuites
+
+# Each directory to survive it's way into a release will need a file
+# like this one called "./.Sanitize".  All keyword lines must exist,
+# and must exist in the order specified by this file.  Each directory
+# in the tree will be processed, top down, in the following order.
+
+# Hash started lines like this one are comments and will be deleted
+# before anything else is done.  Blank lines will also be squashed
+# out.
+
+# The lines between the "Do-first:" line and the "Things-to-keep:"
+# line are executed as a /bin/sh shell script before anything else is
+# done in this directory.
+
+Do-first:
+
+# All files listed between the "Things-to-keep:" line and the
+# "Do-last:" line will be kept.  All other files will be removed.
+# Directories listed in this section will have their own Sanitize
+# called.  Directories not listed will be removed in their entirety
+# with rm -rf.
+
+Things-to-keep:
+
+unix-ld.exp
+
+Things-to-lose:
+
+# The lines between the "Do-last:" line and the end of the file
+# are executed as a /bin/sh shell script after everything else is
+# done.
+
+Do-last:
+# eof
diff --git a/ld/testsuite/config/unix-ld.exp b/ld/testsuite/config/unix-ld.exp
new file mode 100644
index 0000000..9776938
--- /dev/null
+++ b/ld/testsuite/config/unix-ld.exp
@@ -0,0 +1,75 @@
+#
+# Expect script for LD Regression Tests
+#   Copyright (C) 1993 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+#
+#	$Id$
+#
+# Written by Jeffrey Wheat (cassidy@cygnus.com)
+#
+
+set ld $objdir/ld.new
+
+# load the utility procedures
+load_lib ld.exp
+
+#
+# ld_version -- extract and print the version number of ld compiler (GCC)
+#
+proc ld_version {} {
+    global ld
+    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
+#
+proc ld_exit {} {
+}
+
+#
+# ld_start 
+#	relink the linker
+#
+proc ld_start { ld target } {
+    default_ld_start $ld $target
+}