mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2025-01-09 13:40:47 +00:00
btrace: non-stop
Support non-stop mode in record btrace. gdb/ * record-btrace.c (record_btrace_open): Remove non_stop check. * NEWS: Announce that record btrace supports non-stop mode. testsuite/ * gdb.btrace/non-stop.c: New. * gdb.btrace/non-stop.exp: New.
This commit is contained in:
Markus Metzger
parent
d1988021e3
commit
cbb55fa7a1
@ -1,3 +1,8 @@
|
||||
2015-09-18 Markus Metzger <markus.t.metzger@intel.com>
|
||||
|
||||
* record-btrace.c (record_btrace_open): Remove non_stop check.
|
||||
* NEWS: Announce that record btrace supports non-stop mode.
|
||||
|
||||
2015-09-18 Markus Metzger <markus.t.metzger@intel.com>
|
||||
|
||||
* infrun.c (handle_inferior_event_1): Switch to the eventing thread
|
||||
|
||||
2
gdb/NEWS
2
gdb/NEWS
@ -3,6 +3,8 @@
|
||||
|
||||
*** Changes since GDB 7.10
|
||||
|
||||
* Record btrace now supports non-stop mode.
|
||||
|
||||
* Support for tracepoints on aarch64-linux was added in GDBserver.
|
||||
|
||||
* The 'record instruction-history' command now indicates speculative execution
|
||||
|
||||
@ -216,9 +216,6 @@ record_btrace_open (const char *args, int from_tty)
|
||||
if (!target_has_execution)
|
||||
error (_("The program is not being run."));
|
||||
|
||||
if (non_stop)
|
||||
error (_("Record btrace can't debug inferior in non-stop mode."));
|
||||
|
||||
gdb_assert (record_btrace_thread_observer == NULL);
|
||||
|
||||
disable_chain = make_cleanup (null_cleanup, NULL);
|
||||
|
||||
@ -1,3 +1,8 @@
|
||||
2015-09-18 Markus Metzger <markus.t.metzger@intel.com>
|
||||
|
||||
* gdb.btrace/non-stop.c: New.
|
||||
* gdb.btrace/non-stop.exp: New.
|
||||
|
||||
2015-09-17 Pierre Langlois <pierre.langlois@arm.com>
|
||||
Yao Qi <yao.qi@linaro.org>
|
||||
|
||||
|
||||
45
gdb/testsuite/gdb.btrace/non-stop.c
Normal file
45
gdb/testsuite/gdb.btrace/non-stop.c
Normal file
@ -0,0 +1,45 @@
|
||||
/* This testcase is part of GDB, the GNU debugger.
|
||||
|
||||
Copyright 2015 Free Software Foundation, Inc.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
||||
|
||||
#include <pthread.h>
|
||||
|
||||
static int global;
|
||||
|
||||
static void *
|
||||
test (void *arg)
|
||||
{
|
||||
unsigned int i;
|
||||
|
||||
i = 0; /* bp.1 */
|
||||
for (; i < 10; ++i) global += i; /* loop */
|
||||
|
||||
return arg; /* bp.2 */
|
||||
}
|
||||
|
||||
int
|
||||
main (void)
|
||||
{
|
||||
pthread_t th;
|
||||
|
||||
pthread_create (&th, NULL, test, NULL);
|
||||
|
||||
test (NULL);
|
||||
|
||||
pthread_join (th, NULL);
|
||||
|
||||
return 0; /* bp.3 */
|
||||
}
|
||||
245
gdb/testsuite/gdb.btrace/non-stop.exp
Normal file
245
gdb/testsuite/gdb.btrace/non-stop.exp
Normal file
@ -0,0 +1,245 @@
|
||||
# This testcase is part of GDB, the GNU debugger.
|
||||
#
|
||||
# Copyright 2015 Free Software Foundation, Inc.
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
# check for btrace support
|
||||
if { [skip_btrace_tests] } { return -1 }
|
||||
|
||||
|
||||
# start inferior
|
||||
standard_testfile
|
||||
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" "$binfile" executable {debug}] != "" } {
|
||||
return -1
|
||||
}
|
||||
clean_restart $testfile
|
||||
|
||||
gdb_test_no_output "set non-stop on"
|
||||
|
||||
if ![runto_main] {
|
||||
return -1
|
||||
}
|
||||
|
||||
# set up breakpoints
|
||||
set bp_1 [gdb_get_line_number "bp.1" $srcfile]
|
||||
set bp_2 [gdb_get_line_number "bp.2" $srcfile]
|
||||
set bp_3 [gdb_get_line_number "bp.3" $srcfile]
|
||||
|
||||
gdb_breakpoint $bp_1
|
||||
gdb_breakpoint $bp_2
|
||||
|
||||
# get the line number containing most of the trace
|
||||
set loop [gdb_get_line_number "loop" $srcfile]
|
||||
|
||||
# a stop on the above line as reported by GDB
|
||||
set loop_line "$loop\[^\\\r\\\n\]*/\\\* loop \\\*/"
|
||||
|
||||
# make sure $line matches the full expected output per thread.
|
||||
# and let's hope that GDB never mixes the output from different threads.
|
||||
proc gdb_cont_to { threads cmd line nthreads } {
|
||||
global gdb_prompt
|
||||
set full_cmd "thread apply $threads $cmd"
|
||||
|
||||
# consume the prompt. since we started the command in the background,
|
||||
# the prompt precedes any further output except some errors.
|
||||
gdb_test_multiple "$full_cmd &" "$full_cmd: prompt" {
|
||||
-re "$gdb_prompt " {
|
||||
pass "$full_cmd: prompt"
|
||||
}
|
||||
}
|
||||
|
||||
# now check for the expected line - one per thread.
|
||||
for {set i 0} {$i < $nthreads} {incr i} {
|
||||
set test "$full_cmd: thread $i"
|
||||
|
||||
gdb_test_multiple "" $test {
|
||||
-re "$line\[^\\\r\\\n\]*\r\n" {
|
||||
pass $test
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
proc gdb_cont_to_bp_line { line threads nthreads } {
|
||||
gdb_cont_to $threads "continue" \
|
||||
[multi_line \
|
||||
"Breakpoint\[^\\\r\\\n\]*$line" \
|
||||
"\[^\\\r\\\n\]*" \
|
||||
] \
|
||||
$nthreads
|
||||
}
|
||||
|
||||
proc gdb_cont_to_no_history { threads cmd nthreads } {
|
||||
gdb_cont_to $threads $cmd \
|
||||
[multi_line \
|
||||
"No more reverse-execution history\." \
|
||||
"\[^\\\r\\\n\]*" \
|
||||
"\[^\\\r\\\n\]*" \
|
||||
] \
|
||||
$nthreads
|
||||
}
|
||||
|
||||
# trace the code between the two breakpoints
|
||||
gdb_cont_to_bp_line "$srcfile:$bp_1" all 2
|
||||
gdb_test_no_output "record btrace"
|
||||
gdb_cont_to_bp_line "$srcfile:$bp_2" all 2
|
||||
|
||||
# we don't need those breakpoints any longer.
|
||||
# they will only disturb our stepping.
|
||||
delete_breakpoints
|
||||
|
||||
# show the threads - this is useful for debugging fails
|
||||
gdb_test "thread apply all info rec" ".*"
|
||||
gdb_test "info threads" ".*"
|
||||
|
||||
with_test_prefix "navigate" {
|
||||
gdb_test "thread apply 1 record goto 2" "$loop_line"
|
||||
gdb_test "thread apply 2 record goto 4" "$loop_line"
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 2\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 4\."
|
||||
|
||||
gdb_test "thread apply all record goto 5" "$loop_line"
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 5\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 5\."
|
||||
}
|
||||
|
||||
with_test_prefix "step" {
|
||||
with_test_prefix "thread 1" {
|
||||
gdb_test "thread apply 1 stepi 2" "$loop_line"
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 7\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 5\."
|
||||
}
|
||||
|
||||
with_test_prefix "thread 2" {
|
||||
gdb_test "thread apply 2 stepi 3" "$loop_line"
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 7\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 8\."
|
||||
}
|
||||
|
||||
with_test_prefix "all" {
|
||||
gdb_cont_to all "stepi 4" "$loop_line" 2
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 11\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 12\."
|
||||
}
|
||||
}
|
||||
|
||||
with_test_prefix "reverse-step" {
|
||||
with_test_prefix "thread 1" {
|
||||
gdb_test "thread apply 1 reverse-stepi 2" "$loop_line"
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 9\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 12\."
|
||||
}
|
||||
|
||||
with_test_prefix "thread 2" {
|
||||
gdb_test "thread apply 2 reverse-stepi 3" "$loop_line"
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 9\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 9\."
|
||||
}
|
||||
|
||||
with_test_prefix "all" {
|
||||
gdb_cont_to all "reverse-stepi 4" "$loop_line" 2
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 5\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 5\."
|
||||
}
|
||||
}
|
||||
|
||||
with_test_prefix "continue" {
|
||||
with_test_prefix "thread 1" {
|
||||
gdb_cont_to_no_history 1 "continue" 1
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Recorded \[0-9\]+ instructions \[^\\\r\\\n\]*"
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 5\."
|
||||
|
||||
gdb_cont_to_no_history 1 "reverse-continue" 1
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 1\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 5\."
|
||||
}
|
||||
|
||||
with_test_prefix "thread 2" {
|
||||
gdb_cont_to_no_history 2 "continue" 1
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 1\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Recorded \[0-9\]+ instructions \[^\\\r\\\n\]*"
|
||||
|
||||
gdb_cont_to_no_history 2 "reverse-continue" 1
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 1\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 1\."
|
||||
}
|
||||
}
|
||||
|
||||
# a thread may only resume if no thread is still replaying
|
||||
with_test_prefix "no progress" {
|
||||
with_test_prefix "thread 1" {
|
||||
gdb_test "thread apply 1 record goto end" ".*"
|
||||
gdb_test "thread apply 2 record goto begin" ".*"
|
||||
|
||||
gdb_cont_to_no_history 1 "continue" 1
|
||||
gdb_cont_to_no_history 1 "step" 1
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Recorded \[0-9\]+ instructions \[^\\\r\\\n\]*"
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Replay in progress\. At instruction 1\."
|
||||
}
|
||||
|
||||
with_test_prefix "thread 2" {
|
||||
gdb_test "thread apply 1 record goto begin" ".*"
|
||||
gdb_test "thread apply 2 record goto end" ".*"
|
||||
|
||||
gdb_cont_to_no_history 2 "continue" 1
|
||||
gdb_cont_to_no_history 2 "step" 1
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Replay in progress\. At instruction 1\."
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Recorded \[0-9\]+ instructions \[^\\\r\\\n\]*"
|
||||
}
|
||||
|
||||
with_test_prefix "all" {
|
||||
gdb_test "thread apply all record goto begin" ".*"
|
||||
|
||||
gdb_cont_to_no_history all "continue" 2
|
||||
gdb_test "thread apply 1 info record" \
|
||||
".*Recorded \[0-9\]+ instructions \[^\\\r\\\n\]*"
|
||||
gdb_test "thread apply 2 info record" \
|
||||
".*Recorded \[0-9\]+ instructions \[^\\\r\\\n\]*"
|
||||
}
|
||||
}
|
||||
|
||||
# now that both threads stopped replaying we may resume recording
|
||||
with_test_prefix "cont to end" {
|
||||
gdb_breakpoint $bp_3
|
||||
gdb_cont_to_bp_line "$srcfile:$bp_3" all 1
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user