* gdb.base/default.exp: Don't set match_max.
authorBob Manson <manson@cygnus>
Fri, 7 Mar 1997 22:00:02 +0000 (22:00 +0000)
committerBob Manson <manson@cygnus>
Fri, 7 Mar 1997 22:00:02 +0000 (22:00 +0000)
* gdb.base/help.exp: Ditto.
* gdb.base/list.exp: Ditto.
* gdb.base/signals.exp: Ditto.

* config/monitor.exp(gdb_load): If gdb,use_standard_load is
set, use remote_ld to download the testcase instead of
the GDB loader.

gdb/testsuite/ChangeLog
gdb/testsuite/config/monitor.exp

index a8f53346eab9c1e3386b7c52f22868868cac94bb..229996f6a52c6f0b9beedaf6fb662057dc4b612d 100644 (file)
@@ -1,3 +1,14 @@
+Fri Mar  7 13:48:30 1997  Bob Manson  <manson@charmed.cygnus.com>
+
+       * gdb.base/default.exp: Don't set match_max.
+       * gdb.base/help.exp: Ditto.
+       * gdb.base/list.exp: Ditto.
+       * gdb.base/signals.exp: Ditto.
+
+       * config/monitor.exp(gdb_load): If gdb,use_standard_load is
+       set, use remote_ld to download the testcase instead of
+       the GDB loader.
+
 Wed Mar  5 00:00:43 1997  Bob Manson  <manson@charmed.cygnus.com>
 
        * config/vr5000.exp: New file.
index 59f86f0aa7bf63d25f391104d8a34e027326b493..3fcee9474b43de072f329b0e0c20d8c244e07156 100644 (file)
@@ -101,10 +101,28 @@ proc gdb_load { arg } {
     global timeout
 
     for { set j 1; } { $j <= 2 } {incr j; } {
+       if [target_info exists gdb,use_standard_load] {
+           gdb_test "target exec" "No exec file now." "" ".*Kill it.*y or n.*" "y"
+           remote_push_conn host;
+           set state [remote_ld target $arg];
+           remote_close target;
+           remote_pop_conn host;
+           if { $state != "pass" } {
+               perror "Couldn't load file into GDB."
+               return -1;
+           }
+           if { $arg != "" } {
+               if [gdb_file_cmd $arg] { return -1 }
+           }
+           gdb_target_monitor;
+           gdb_test "list main" ".*" ""
+           verbose "Loaded $arg into $GDB\n";
+           return 1;
+       }
+
        if { $arg != "" } {
            if [gdb_file_cmd $arg] { return -1 }
        }
-       
        gdb_target_monitor
 
        if [is_remote host] {