mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-03-07 13:39:43 +08:00
dd06d4d688
Add both board option and environment variable which enables gdbserver
debug and sends it to the file gdbserver.debug, located in the output
directory for the current test. Document this.
Add support for the environment variable in the Makefile.
The testsuite can be run with gdbserver debug enabled in the following way:
make check GDBSERVER_DEBUG=all
Disable tspeed.exp when debugging to prevent the log file filling
many gigabytes then timing out.
gdb/testsuite/ChangeLog:
* Makefile.in: Pass through GDBSERVER_DEBUG.
* README (Testsuite Parameters): Add GDBSERVER_DEBUG.
(gdbserver,debug): Add board setting.
* gdb.trace/tspeed.exp: Skip when debugging.
* lib/gdb.exp (gdbserver_debug_enabled): New procedure.
* lib/gdbserver-support.exp: Likewise
169 lines
3.9 KiB
Plaintext
169 lines
3.9 KiB
Plaintext
# Copyright 2011-2019 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/>.
|
|
|
|
load_lib "trace-support.exp"
|
|
|
|
if {[skip_shlib_tests]} {
|
|
return 0
|
|
}
|
|
|
|
# Do not run if gdbsever debug is enabled - the output file is many Gb.
|
|
if [gdbserver_debug_enabled] {
|
|
return 0
|
|
}
|
|
|
|
standard_testfile
|
|
set executable $testfile
|
|
|
|
# Check that the target supports trace.
|
|
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
|
|
untested "failed to compile"
|
|
return -1
|
|
}
|
|
|
|
clean_restart ${testfile}
|
|
|
|
if ![runto_main] {
|
|
fail "can't run to main to check for trace support"
|
|
return -1
|
|
}
|
|
|
|
if ![gdb_target_supports_trace] {
|
|
unsupported "target does not support trace"
|
|
return -1
|
|
}
|
|
|
|
# Compile the test case with the in-process agent library.
|
|
set ipalib [get_in_proc_agent]
|
|
|
|
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
|
|
executable [concat {debug c} shlib=$ipalib]] != "" } {
|
|
untested "failed to compile"
|
|
return -1
|
|
}
|
|
|
|
# Typically we need a little extra time for this test.
|
|
set timeout 180
|
|
|
|
set ws "\[\r\n\t \]+"
|
|
set cr "\[\r\n\]+"
|
|
|
|
#
|
|
# Utility procs
|
|
#
|
|
|
|
proc prepare_for_trace_test {} {
|
|
global executable
|
|
global ipalib
|
|
|
|
clean_restart $executable
|
|
gdb_load_shlib $ipalib
|
|
|
|
runto_main
|
|
|
|
set testline [gdb_get_line_number "set pre-run breakpoint here"]
|
|
|
|
gdb_test "break $testline" ".*" ""
|
|
|
|
set testline [gdb_get_line_number "set post-run breakpoint here"]
|
|
|
|
gdb_test "break $testline" ".*" ""
|
|
}
|
|
|
|
proc run_trace_experiment {} {
|
|
|
|
gdb_test "continue" \
|
|
".*Breakpoint \[0-9\]+, main .*" \
|
|
"advance to trace begin"
|
|
|
|
gdb_test_no_output "tstart" "start trace experiment"
|
|
|
|
gdb_test "continue" \
|
|
".*Breakpoint \[0-9\]+, main .*" \
|
|
"advance through tracing"
|
|
|
|
gdb_test "tstatus" ".*Trace .*" "check on trace status"
|
|
|
|
gdb_test "tstop" "" ""
|
|
}
|
|
|
|
proc gdb_slow_trace_speed_test { } {
|
|
|
|
gdb_delete_tracepoints
|
|
|
|
gdb_test "print iters = init_iters" ".* = .*"
|
|
|
|
set testline [gdb_get_line_number "set tracepoint here"]
|
|
|
|
gdb_test "trace $testline if (globfoo != 12 && globfoo2 == 45)" \
|
|
"Tracepoint \[0-9\]+ at .*" \
|
|
"set slow tracepoint"
|
|
|
|
# Begin the test.
|
|
run_trace_experiment
|
|
}
|
|
|
|
proc gdb_fast_trace_speed_test { } {
|
|
global gdb_prompt
|
|
|
|
gdb_delete_tracepoints
|
|
|
|
gdb_test "print iters = init_iters" ".* = .*"
|
|
|
|
set run_ftrace 0
|
|
|
|
set testline [gdb_get_line_number "set tracepoint here"]
|
|
|
|
gdb_test_multiple "ftrace $testline if (globfoo != 12 && globfoo2 == 45)" \
|
|
"set conditional fast tracepoint" {
|
|
-re "Fast tracepoint \[0-9\]+ at .*\r\n$gdb_prompt $" {
|
|
pass "set conditional fast tracepoint, done"
|
|
set run_ftrace 1
|
|
}
|
|
-re "May not have a fast tracepoint at .*\r\n$gdb_prompt $" {
|
|
pass "set conditional fast tracepoint, not allowed at line"
|
|
}
|
|
}
|
|
|
|
# If the fast tracepoint couldn't be set, don't bother with the run.
|
|
if { $run_ftrace == 1 } then {
|
|
|
|
# Begin the test.
|
|
run_trace_experiment
|
|
}
|
|
}
|
|
|
|
proc gdb_trace_collection_test {} {
|
|
|
|
prepare_for_trace_test
|
|
|
|
gdb_slow_trace_speed_test
|
|
|
|
gdb_fast_trace_speed_test
|
|
}
|
|
|
|
clean_restart $executable
|
|
gdb_load_shlib $ipalib
|
|
|
|
runto_main
|
|
|
|
if { ![gdb_target_supports_trace] } then {
|
|
unsupported "current target does not support trace"
|
|
return 1
|
|
}
|
|
|
|
# Body of test encased in a proc so we can return prematurely.
|
|
gdb_trace_collection_test
|