espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-23 19:50:13 +08:00
Code Issues Packages Projects Releases Wiki Activity

* lib/gdb.exp(gdb_expect): Look for gdb,timeout target

Browse Source 
feature.
This commit is contained in:
Bob Manson
1997-05-23 06:05:12 +00:00
parent de8ea54f90
commit c55809ce2d
2 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gdb/testsuite/ChangeLog
View File

@ -1,5 +1,8 @@
Thu May 22 18:51:32 1997 Bob Manson <manson@charmed.cygnus.com> Thu May 22 18:51:32 1997 Bob Manson <manson@charmed.cygnus.com>
* lib/gdb.exp(gdb_expect): Look for gdb,timeout target
feature.
* config/proelf.exp: New entry. * config/proelf.exp: New entry.
Wed May 21 21:23:16 1997 Bob Manson <manson@charmed.cygnus.com> Wed May 21 21:23:16 1997 Bob Manson <manson@charmed.cygnus.com>

8
gdb/testsuite/lib/gdb.exp
View File

@ -854,7 +854,15 @@ proc send_gdb { string } {
# #
proc gdb_expect { args } { proc gdb_expect { args } {
upvar timeout timeout
if [target_info exists gdb,timeout] {
set oldt $timeout
set timeout [target_info gdb,timeout];
}
set code [catch {uplevel remote_expect host $args} string]; set code [catch {uplevel remote_expect host $args} string];
if [info exists oldt] {
set timeout oldt
}
if {$code == 1} { if {$code == 1} {
return -code error -errorinfo $errorInfo -errorcode $errorCode $string return -code error -errorinfo $errorInfo -errorcode $errorCode $string