diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 56562084074..feda8a0dc1a 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 bdf3b0872ce..4558ebcf6e2 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
 
@@ -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
 #