darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-12-14 15:50:34 +00:00
Code Issues Actions 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
Show Stats 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>
* lib/gdb.exp(gdb_expect): Look for gdb,timeout target
feature.
* config/proelf.exp: New entry.
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 } {
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];
if [info exists oldt] {
set timeout oldt
}
if {$code == 1} {
return -code error -errorinfo $errorInfo -errorcode $errorCode $string