FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gdb/

Browse source 
* cli/cli-script.c (process_next_line): Handle 'stepping'.

	gdb/testsuite/
	* gdb.trace/while-dyn.exp (executable): New variable.
	(binfile): Use it.
	(test_while_stepping): New function.  Move most tests here.  Call
	it once for each of the while-stepping, stepping and ws aliases.
This commit is contained in:
Pedro Alves 2010-03-28 18:00:57 +00:00
parent 69f6c109fa
commit d350db3834
4 changed files with 58 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

4
gdb/ChangeLog
View file

@ -1,3 +1,7 @@
2010-03-28 Pedro Alves <pedro@codesourcery.com>
* cli/cli-script.c (process_next_line): Handle 'stepping'.
2010-03-26 Stan Shebs <stan@codesourcery.com> 2010-03-26 Stan Shebs <stan@codesourcery.com>
* tracepoint.c (disconnect_or_stop_tracing): Get out of tfind mode. * tracepoint.c (disconnect_or_stop_tracing): Get out of tfind mode.

3
gdb/cli/cli-script.c
View file

@ -932,7 +932,8 @@ process_next_line (char *p, struct command_line **command, int parse_commands,
/* Check for while, if, break, continue, etc and build a new command /* Check for while, if, break, continue, etc and build a new command
line structure for them. */ line structure for them. */
if ((p_end - p >= 14 && !strncmp (p, "while-stepping", 14)) if ((p_end - p >= 14 && !strncmp (p, "while-stepping", 14))
|| (p_end -p >= 2 && !strncmp (p, "ws", 2))) || (p_end - p >= 8 && !strncmp (p, "stepping", 8))
|| (p_end - p >= 2 && !strncmp (p, "ws", 2)))
{ {
/* Because validate_actionline and encode_action lookup /* Because validate_actionline and encode_action lookup
command's line as command, we need the line to command's line as command, we need the line to

7
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,10 @@
2010-03-28 Pedro Alves <pedro@codesourcery.com>
* gdb.trace/while-dyn.exp (executable): New variable.
(binfile): Use it.
(test_while_stepping): New function. Move most tests here. Call
it once for each of the while-stepping, stepping and ws aliases.
2010-03-26 Ulrich Weigand <Ulrich.Weigand@de.ibm.com> 2010-03-26 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
* gdb.cp/inherit.exp (test_ptype_si): XFAIL test for GCC versions * gdb.cp/inherit.exp (test_ptype_si): XFAIL test for GCC versions

74
gdb/testsuite/gdb.trace/while-dyn.exp
View file

@ -29,7 +29,8 @@ gdb_start
set testfile "actions" set testfile "actions"
set srcfile $testfile.c set srcfile $testfile.c
set binfile $objdir/$subdir/while-dyn set executable while-dyn
set binfile $objdir/$subdir/$executable
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \ if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
executable {debug nowarnings}] != "" } { executable {debug nowarnings}] != "" } {
untested while-dyn.exp untested while-dyn.exp
@ -46,23 +47,12 @@ gdb_reinitialize_dir $srcdir/$subdir
if { ![gdb_target_supports_trace] } then { if { ![gdb_target_supports_trace] } then {
pass "Current target does not support trace" pass "Current target does not support trace"
return 1; return 1;
} }
# If testing on a remote host, download the source file.
# remote_download host $srcdir/$subdir/$srcfile
# #
# test while-stepping dynamically (live target) # test while-stepping dynamically (live target)
# #
## verify number of trace frames collected matches stepcount
gdb_delete_tracepoints
gdb_test "trace gdb_c_test" \
"Tracepoint $decimal at .*" \
"Set tracepoint at gdb_c_test"
if [istarget "x86_64-*"] then { if [istarget "x86_64-*"] then {
set fpreg "\$rbp" set fpreg "\$rbp"
} elseif [istarget "i?86-*"] then { } elseif [istarget "i?86-*"] then {
@ -71,33 +61,59 @@ if [istarget "x86_64-*"] then {
set fpreg "\$fp" set fpreg "\$fp"
} }
gdb_trace_setactions "5.12: define while-stepping <stepcount>" \ proc test_while_stepping { while_stepping } {
global fpreg
global decimal
global gdb_prompt
global executable
clean_restart $executable
gdb_test "tstop" "" ""
gdb_test "tfind none" "" ""
runto_main
## verify number of trace frames collected matches stepcount
gdb_delete_tracepoints
gdb_test "trace gdb_c_test" \
"Tracepoint $decimal at .*" \
"$while_stepping: Set tracepoint at gdb_c_test"
gdb_trace_setactions "5.12: define $while_stepping <stepcount>" \
"" \ "" \
"collect $fpreg" "^$" \ "collect $fpreg" "^$" \
"while-stepping 5" "^$" \ "$while_stepping 5" "^$" \
"collect p" "^$" \ "collect p" "^$" \
"end" "^$" \ "end" "^$" \
"end" "" "end" ""
gdb_test "tstart" "" "" gdb_test "tstart" "" ""
gdb_test "break end" "" "" gdb_test "break end" "" ""
gdb_test "continue" \ gdb_test "continue" \
"Continuing.*Breakpoint $decimal, end.*" \ "Continuing.*Breakpoint $decimal, end.*" \
"run trace experiment" "$while_stepping: run trace experiment"
gdb_test "tstop" "" "" gdb_test "tstop" "" ""
gdb_tfind_test "5.12: frame 5 should be the last one collected" "5" "5" gdb_tfind_test "$while_stepping: frame 5 should be the last one collected" "5" "5"
send_gdb "tfind 6\n" set test "$while_stepping: trace stopped after 5 stepping frames"
gdb_expect { gdb_test_multiple "tfind 6" "$test" {
-re "failed to find.*$gdb_prompt $" { -re "failed to find.*$gdb_prompt $" {
pass "5.12: trace stopped after 5 stepping frames" pass "$test"
} }
-re ".*$gdb_prompt $" { -re ".*$gdb_prompt $" {
fail "5.12: trace stopped after 5 stepping frames" fail "$test"
}
} }
gdb_test "tfind none" "" ""
} }
gdb_test "tfind none" "" "" # Test all while-stepping aliases.
test_while_stepping "while-stepping"
test_while_stepping "stepping"
test_while_stepping "ws"