* lib/gdb.exp: Close connection to remote host if gdb doesn't
initialize. (default_gdb_init): New procedure; allow gdb_init to be overridden by a target configuration file. (gdb_expect): Pass the timeout to remote_expect. * config/dos.exp(dos_wait): Add timeout parameter. * lib/remote.exp(remote_expect): Add timeout parameter. (remote_wait): Ditto. (standard_wait): Ditto. Also give up if the program outputs more than 512,000 bytes. * config/vxworks.exp: Use timeout parameter instead of setting timeout variable. * config/dos.exp: Ditto. * config/ddb.exp: Ditto. * lib/mondfe.exp: Ditto. * lib/rlogin.exp: Ditto. * lib/telnet.exp: Ditto. * config/base68k.exp: Ditto. * config/i386-bozo.exp: Ditto. * config/gdb-comm.exp: Ditto. * config/gdb_stub.exp: Ditto. * config/i960.exp: Ditto. * config/ddb-ether.exp: Ditto. * config/sim.exp: Ditto. * lib/g++.exp(g++_init): Use g++_include_flags instead of making up the includes ourselves.
This commit is contained in:
parent
c1292d9ba9
commit
77f3ac77b5
|
@ -1,5 +1,11 @@
|
|||
Sat Jun 14 09:23:26 1997 Bob Manson <manson@charmed.cygnus.com>
|
||||
|
||||
* lib/gdb.exp: Close connection to remote host if gdb doesn't
|
||||
initialize.
|
||||
(default_gdb_init): New procedure; allow gdb_init to be overridden
|
||||
by a target configuration file.
|
||||
(gdb_expect): Pass the timeout to remote_expect.
|
||||
|
||||
* config/monitor.exp(gdb_load): Fix typo in regexp.
|
||||
|
||||
Thu Jun 12 20:57:12 1997 Bob Manson <manson@charmed.cygnus.com>
|
||||
|
|
|
@ -198,6 +198,8 @@ proc gdb_run_cmd {args} {
|
|||
-re "No symbol.*context.*$gdb_prompt $" {}
|
||||
-re "The program is not being run.*$gdb_prompt $" {
|
||||
gdb_load "";
|
||||
send_gdb "jump *$start\n";
|
||||
exp_continue;
|
||||
}
|
||||
timeout { perror "Jump to start() failed (timeout)"; return }
|
||||
}
|
||||
|
@ -739,8 +741,8 @@ proc default_gdb_start { } {
|
|||
return -1
|
||||
}
|
||||
timeout {
|
||||
|
||||
perror "(timeout) GDB never initialized after $timeout seconds."
|
||||
remote_close host;
|
||||
return -1
|
||||
}
|
||||
}
|
||||
|
@ -865,7 +867,7 @@ proc gdb_expect { args } {
|
|||
set timeout [target_info gdb,timeout];
|
||||
}
|
||||
}
|
||||
set code [catch {uplevel remote_expect host $args} string];
|
||||
set code [catch {uplevel remote_expect host $timeout $args} string];
|
||||
if [target_info exists gdb,timeout] {
|
||||
if [info exists oldt] {
|
||||
set timeout $oldt
|
||||
|
@ -940,7 +942,7 @@ proc gdb_continue { function } {
|
|||
return [gdb_test "continue" ".*Breakpoint $decimal, $function .*" "continue to $function"];
|
||||
}
|
||||
|
||||
proc gdb_init { args } {
|
||||
proc default_gdb_init { args } {
|
||||
gdb_stop_suppressing_tests;
|
||||
|
||||
# Uh, this is lame. Really, really, really lame. But there's this *one*
|
||||
|
@ -957,6 +959,10 @@ proc gdb_init { args } {
|
|||
}
|
||||
}
|
||||
|
||||
proc gdb_init { args } {
|
||||
return [default_gdb_init];
|
||||
}
|
||||
|
||||
proc gdb_finish { } {
|
||||
gdb_exit;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue