* config/udi-gdb.exp (gdb_load): Use "file", not "load" command,

since "run" automatically loads if necessary.

gdb/testsuite/ChangeLog

@@ -1,5 +1,8 @@
 Sun Feb  6 15:36:13 1994  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
+	* config/udi-gdb.exp (gdb_load): Use "file", not "load" command,
+	since "run" automatically loads if necessary.
+
 	* config/udi-gdb.exp (gdb_start): Don't send "set args main" to
 	GDB.  GDB doesn't work that way (not anymore at least) on UDI.
 	* gdb.t01/run.exp: Don't pass extra first argument for UDI.

gdb/testsuite/config/udi-gdb.exp

@@ -42,39 +42,17 @@ proc gdb_version {} {
 }
 
 #
-# gdb_load -- load a file into the GDB. 
+# gdb_load -- load a file into the debugger.
-#             Returns a 0 if there was an error,
+#             return a -1 if anything goes wrong.
-#                       1 if it load successfully.
 #
 proc gdb_load { arg } {
     global verbose
     global loadpath
     global loadfile
-    global prompt
-    global spawn_id
     global GDB
-    global expect_out
+    global prompt
 
-    send "load $arg\n"
+    return [gdb_file_cmd $arg]
-    verbose "Loading $arg into $GDB"
-    expect {
-	-re "Loading.*\.text.*\.data.*\.bss.*Reading symbols from $arg.+done.*$prompt $" {
-	    verbose "Loaded $arg into $GDB"
-	    return 1
-	}
-	-re "$prompt $" {
-	    error "Couldn't load $arg into $GDB."
-	    return 0
-	}
-	timeout {
-		error "Timed out trying to load $arg."
-	    return 0
-	}
-    }
-    if [info exists expect_out(buffer)] then {
-	send_log $expect_out(buffer)
-    }
-    return 0
 }
 
 #