diff options
| author | Bob Manson <manson@cygnus> | 1997-06-14 16:25:14 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-06-14 16:25:14 +0000 |
| commit | 45c795f7c00faa2707e5c76357ae5fdbf5480c53 (patch) | |
| tree | 221d9b1f8b7ea55b528380461e43c0c0070ead14 /gdb | |
| parent | 90154aff574da0f2497ef2fceda7bb4a5715e5a8 (diff) | |
| download | gdb-45c795f7c00faa2707e5c76357ae5fdbf5480c53.zip gdb-45c795f7c00faa2707e5c76357ae5fdbf5480c53.tar.gz gdb-45c795f7c00faa2707e5c76357ae5fdbf5480c53.tar.bz2 | |
* config/monitor.exp(gdb_load): Fix typo in regexp.
Fixes last night's tcl error mesages.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/config/monitor.exp | 29 |
2 files changed, 21 insertions, 12 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index c89e4d7..a789a0a 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +Sat Jun 14 09:23:26 1997 Bob Manson <manson@charmed.cygnus.com> + + * config/monitor.exp(gdb_load): Fix typo in regexp. + Thu Jun 12 20:57:12 1997 Bob Manson <manson@charmed.cygnus.com> * gdb.base/funcargs.exp: Remove spurious suppress tests call. diff --git a/gdb/testsuite/config/monitor.exp b/gdb/testsuite/config/monitor.exp index 242e98d..d99a997 100644 --- a/gdb/testsuite/config/monitor.exp +++ b/gdb/testsuite/config/monitor.exp @@ -56,7 +56,7 @@ proc gdb_target_monitor { exec_file } { send_gdb "y\n"; exp_continue; } - -re ".*Couldn't establish connection to remote.*$gdb_prompt" { + -re "Couldn't establish connection to remote.*$gdb_prompt" { verbose "Connection failed"; } -re "Remote MIPS debugging.*$gdb_prompt" { @@ -114,7 +114,7 @@ proc gdb_load { arg } { if { $arg == "" } { send_gdb "info files\n"; gdb_expect { - -re "Symbols from \"([^\"]+)\"" { + -re "Symbols from \"(\[^\"\]+)\"" { set arg $expect_out(1,string); exp_continue; } @@ -140,13 +140,16 @@ proc gdb_load { arg } { return 0; } } else { - if [is_remote host] { - # FIXME: - set arg a.out; - } if [gdb_target_monitor $arg] { return -1 } + if [is_remote host] { + # FIXME: Multiple downloads. bleah. + set farg [remote_download host $arg]; + } else { + set farg $arg; + } + if { $arg != "" && [target_info exists gdb_sect_offset] } { set textoff [target_info gdb_sect_offset]; send_gdb "sect .text $textoff\n"; @@ -173,26 +176,28 @@ proc gdb_load { arg } { } } - verbose "Loading $arg" + verbose "Loading $farg" if [target_info exists gdb_load_offset] { - set command "load $arg [target_info gdb_load_offset]\n"; + set command "load $farg [target_info gdb_load_offset]\n"; } else { - set command "load $arg\n"; + set command "load $farg\n"; } send_gdb $command; - set timeout 1000 + set timeout 1200 verbose "Timeout is now $timeout seconds" 2 gdb_expect { -re "\[Ff\]ailed.*$gdb_prompt $" { verbose "load failed"; } + -re "Timeout reading from remote.*$gdb_prompt" { + } -re "$gdb_prompt $" { - verbose "Loaded $arg into $GDB\n" + verbose "Loaded $farg into $GDB\n" return 0; } timeout { if { $verbose > 1 } { - perror "Timed out trying to load $arg." + perror "Timed out trying to load $farg." } } } |