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

* gdb.base/setvar.exp(test_set): Don't bother printing a PASS/FAIL

Browse Source 
for each individual variable set.
This commit is contained in:
Bob Manson
1997-02-21 00:21:34 +00:00
parent 38ee47dc4a
commit eb659148ad
2 changed files with 27 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gdb/testsuite/ChangeLog
View File

@ -1,5 +1,8 @@
Thu Feb 20 13:57:01 1997 Bob Manson <manson@charmed.cygnus.com> Thu Feb 20 13:57:01 1997 Bob Manson <manson@charmed.cygnus.com>
* gdb.base/setvar.exp(test_set): Don't bother printing a PASS/FAIL
for each individual variable set.
* gdb.base/exprs.exp(test_expr): Make sure each test gets a unique * gdb.base/exprs.exp(test_expr): Make sure each test gets a unique
name. name.

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

@ -164,13 +164,26 @@ proc gdb_run_cmd {args} {
set spawn_id $gdb_spawn_id set spawn_id $gdb_spawn_id
if [target_info exists use_gdb_stub] { if [target_info exists use_gdb_stub] {
send_gdb "jump *start\n" if [target_info exists gdb,start_symbol] {
set start [target_info gdb,start_symbol];
} else {
set start "start";
}
send_gdb "jump *$start\n"
expect { expect {
-re "Continuing at \[^\r\n\]*\[\r\n\]" { -re "Continuing at \[^\r\n\]*\[\r\n\]" {
if ![target_info exists gdb_stub] { if ![target_info exists gdb_stub] {
return; return;
} }
} }
-re "No symbol \"start\" in current.*$gdb_prompt $" {
send_gdb "jump *_start\n";
exp_continue;
}
-re "No symbol \"_start\" in current.*$gdb_prompt $" {
perror "Can't find start symbol to run in gdb_run";
return;
}
-re "Line.* Jump anyway.*y or n. $" { -re "Line.* Jump anyway.*y or n. $" {
send_gdb "y\n" send_gdb "y\n"
exp_continue; exp_continue;
@ -848,6 +861,16 @@ proc gdb_continue { function } {
return [gdb_test "continue" ".*Breakpoint $decimal, $function .*" "continue to $function"]; return [gdb_test "continue" ".*Breakpoint $decimal, $function .*" "continue to $function"];
} }
proc gdb_init { args } {
if { [llength $args] > 0 } {
global pf_prefix
set file [lindex $args 0];
set pf_prefix "[file tail [file dirname $file]]/[file tail $file]:";
}
}
proc gdb_finish { } { proc gdb_finish { } {
gdb_exit; gdb_exit;
} }