diff options
| author | Bob Manson <manson@cygnus> | 1997-03-07 22:00:02 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-03-07 22:00:02 +0000 |
| commit | 60450e30e9c2fb8623d6bcffe2b2d94d44265d5c (patch) | |
| tree | 93d245892debb6f1589550a63aad9c57bc443cc9 /gdb/testsuite/config/monitor.exp | |
| parent | ccd0e5e29df894a1aaa0eb3bac336194b60142f8 (diff) | |
| download | binutils-gdb-60450e30e9c2fb8623d6bcffe2b2d94d44265d5c.tar.gz | |
* 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.
Diffstat (limited to 'gdb/testsuite/config/monitor.exp')
| -rw-r--r-- | gdb/testsuite/config/monitor.exp | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/gdb/testsuite/config/monitor.exp b/gdb/testsuite/config/monitor.exp index 59f86f0aa7b..3fcee9474b4 100644 --- a/gdb/testsuite/config/monitor.exp +++ b/gdb/testsuite/config/monitor.exp @@ -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] { |