espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-09-10 23:57:03 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gdb.base/callfuncs.exp: Fix indentation.

Browse Source 
* lib/gdb.exp(gdb_expect): Set remote_suppress_flag if
	suppress_flag has been set.
	(gdb_step_for_stub): Check for gdb,use_breakpoint_for_stub
	target feature.
This commit is contained in:
Bob Manson
1997-09-17 05:24:14 +00:00
parent a183753d92
commit f33e31a61a
2 changed files with 70 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,12 @@
Tue Sep 16 22:21:48 1997 Bob Manson <manson@charmed.cygnus.com>
* gdb.base/callfuncs.exp: Fix indentation.
* lib/gdb.exp(gdb_expect): Set remote_suppress_flag if
suppress_flag has been set.
(gdb_step_for_stub): Check for gdb,use_breakpoint_for_stub
target feature.
Mon Sep 15 15:43:17 1997 Bob Manson <manson@charmed.cygnus.com>
* gdb.stabs/weird.exp: Don't start gdb 'til after we've compiled

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

@ -879,7 +879,24 @@ proc gdb_expect { args } {
}
}
}
global suppress_flag;
global remote_suppress_flag;
if [info exists remote_suppress_flag] {
set old_val $remote_suppress_flag;
}
if [info exists suppress_flag] {
if { $suppress_flag } {
set remote_suppress_flag 1;
}
}
set code [catch {uplevel remote_expect host $gtimeout $expcode} string];
if [info exists old_val] {
set remote_suppress_flag $old_val;
} else {
if [info exists remote_suppress_flag] {
unset remote_suppress_flag;
}
}
if {$code == 1} {
global errorInfo errorCode;
@ -1048,6 +1065,7 @@ proc setup_xfail_format { format } {
proc gdb_step_for_stub { } {
global gdb_prompt;
if ![target_info exists gdb,use_breakpoint_for_stub] {
if [target_info exists gdb_stub_step_command] {
set command [target_info gdb_stub_step_command];
} else {
@ -1059,7 +1077,21 @@ proc gdb_step_for_stub { } {
-re "(main.* at |.*in .*start).*$gdb_prompt" {
return;
}
-re "libgloss/\[a-z\]*\[0-9\]*/stub.c" {
-re ".*$gdb_prompt" {
incr tries;
if { $tries == 5 } {
fail "stepping out of breakpoint function";
return;
}
send_gdb "${command}\n";
exp_continue;
}
default {
fail "stepping out of breakpoint function";
return;
}
}
}
send_gdb "where\n";
gdb_expect {
-re "main\[^\r\n\]*at \(\[^:]+\):\(\[0-9\]+\)" {
@ -1088,18 +1120,3 @@ proc gdb_step_for_stub { } {
default {}
}
}
-re ".*$gdb_prompt" {
incr tries;
if { $tries == 5 } {
fail "stepping out of breakpoint function";
return;
}
send_gdb "${command}\n";
exp_continue;
}
default {
fail "stepping out of breakpoint function";
return;
}
}
}