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

[deliverable/binutils-gdb.git] / gdb / testsuite / config / udi-gdb.exp

diff --git a/gdb/testsuite/config/udi-gdb.exp b/gdb/testsuite/config/udi-gdb.exp
index 0a78b3117c14eeff97eadc5f4d499c61f9716bc0..e12ed6f2f2a3f7dbfb7baa6dcc18f59b25ba8566 100644 (file)
--- a/gdb/testsuite/config/udi-gdb.exp
+++ b/gdb/testsuite/config/udi-gdb.exp
@@ -41,20 +41,6 @@ proc gdb_version {} {
     default_gdb_version
 }
 
-#
-# gdb_load -- load a file into the debugger.
-#             return a -1 if anything goes wrong.
-#
-proc gdb_load { arg } {
-    global verbose
-    global loadpath
-    global loadfile
-    global GDB
-    global prompt
-
-    return [gdb_file_cmd $arg]
-}
-
 #
 # gdb_target_udi
 # Set gdb to the desired UDI target
@@ -94,6 +80,22 @@ proc gdb_target_udi { } {
     set timeout 10
 }
 
+#
+# gdb_load -- load a file into the debugger.
+#             return a -1 if anything goes wrong.
+#
+proc gdb_load { arg } {
+    global verbose
+    global loadpath
+    global loadfile
+    global GDB
+    global prompt
+
+    if [gdb_file_cmd $arg] then { return -1 }
+
+    gdb_target_udi
+}
+
 #
 # gdb_start -- start GDB running. This assumes that there the
 #              UDICONF enviroment variable is set.