espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-26 22:07:58 +08:00
Code Issues 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
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> Thu Jun 12 20:57:12 1997 Bob Manson <manson@charmed.cygnus.com>
* gdb.base/funcargs.exp: Remove spurious suppress tests call. * 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"; send_gdb "y\n";
exp_continue; exp_continue;
} }
-re ".*Couldn't establish connection to remote.*$gdb_prompt" { -re "Couldn't establish connection to remote.*$gdb_prompt" {
verbose "Connection failed"; verbose "Connection failed";
} }
-re "Remote MIPS debugging.*$gdb_prompt" { -re "Remote MIPS debugging.*$gdb_prompt" {
@ -114,7 +114,7 @@ proc gdb_load { arg } {
if { $arg == "" } { if { $arg == "" } {
send_gdb "info files\n"; send_gdb "info files\n";
gdb_expect { gdb_expect {
-re "Symbols from \"([^\"]+)\"" { -re "Symbols from \"(\[^\"\]+)\"" {
set arg $expect_out(1,string); set arg $expect_out(1,string);
exp_continue; exp_continue;
} }
@ -140,13 +140,16 @@ proc gdb_load { arg } {
return 0; return 0;
} }
} else { } else {
if [is_remote host] {
# FIXME:
set arg a.out;
}
if [gdb_target_monitor $arg] { return -1 } 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] } { if { $arg != "" && [target_info exists gdb_sect_offset] } {
set textoff [target_info gdb_sect_offset]; set textoff [target_info gdb_sect_offset];
send_gdb "sect .text $textoff\n"; 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] { 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 { } else {
set command "load $arg\n"; set command "load $farg\n";
} }
send_gdb $command; send_gdb $command;
set timeout 1000 set timeout 1200
verbose "Timeout is now $timeout seconds" 2 verbose "Timeout is now $timeout seconds" 2
gdb_expect { gdb_expect {
-re "\[Ff\]ailed.*$gdb_prompt $" { -re "\[Ff\]ailed.*$gdb_prompt $" {
verbose "load failed"; verbose "load failed";
} }
-re "Timeout reading from remote.*$gdb_prompt" {
}
-re "$gdb_prompt $" { -re "$gdb_prompt $" {
verbose "Loaded $arg into $GDB\n" verbose "Loaded $farg into $GDB\n"
return 0; return 0;
} }
timeout { timeout {
if { $verbose > 1 } { if { $verbose > 1 } {
perror "Timed out trying to load $arg." perror "Timed out trying to load $farg."
} }
} }
} }