darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-01-27 03:54:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* config/monitor.exp(gdb_load): Fix typo in regexp.

Browse Source 
Fixes last night's tcl error mesages.
This commit is contained in:
Bob Manson 1997-06-14 16:25:14 +00:00
parent 90154aff57
commit 45c795f7c0
2 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gdb/testsuite/ChangeLog
View File

@ -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.

29
gdb/testsuite/config/monitor.exp
View File

@ -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."
}
}
}