-# Copyright 1998-2015 Free Software Foundation, Inc.
+# Copyright 1998-2020 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
gdb_start
standard_testfile actions.c
+if ![gdb_trace_common_supports_arch] {
+ unsupported "no trace-common.h support for arch"
+ return -1
+}
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested report.exp
+ executable {debug nowarnings nopie}] != "" } {
+ untested "failed to compile"
return -1
}
gdb_load $binfile
gdb_reinitialize_dir $srcdir/$subdir
if { ![gdb_target_supports_trace] } then {
- unsupported "Current target does not support trace"
+ unsupported "current target does not support trace"
return 1
}
set gdb_recursion_test_baseline [gdb_find_recursion_test_baseline $srcfile]
if { $gdb_recursion_test_baseline == -1 } {
- fail "Could not find gdb_recursion_test function"
+ fail "could not find gdb_recursion_test function"
return
}
}
-re ".*$gdb_prompt $" {
if { ($testline1 == 0) || ($testline2 == 0) || ($testline3 == 0) || ($testline4 == 0) || ($testline5 == 0) || ($testline6 == 0) } {
- untested report.exp
+ untested "unexpected testline values"
set return_me 1
all tests in this module will fail."
}
}
default {
- untested report.exp
+ untested "couldn't match pattern"
set return_me 1
all tests in this module will fail."
}
"$tdp4" \
"collect \$locs" "^$"
-if [is_amd64_regs_target] {
- set fpreg "rbp"
- set spreg "rsp"
- set pcreg "rip"
-} elseif [is_x86_like_target] {
- set fpreg "ebp"
- set spreg "esp"
- set pcreg "eip"
-} elseif [is_aarch64_target] {
- set fpreg "x29"
- set spreg "sp"
- set pcreg "pc"
-} else {
- set fpreg "fp"
- set spreg "sp"
- set pcreg "pc"
-}
-
gdb_trace_setactions "9.x: setup TP to collect stack memory" \
"$tdp5" \
"collect \$$fpreg, \*\(void \*\*\) \$$spreg @ 64" "^$"
gdb_test "tstart" ".*" ""
-gdb_test "break end" ".*" ""
+gdb_breakpoint "end" qualified
gdb_test "continue" \
"Continuing.*Breakpoint $decimal, end.*" \
"run trace experiment"
# There is always a thread of an inferior, either a live one or
# a faked one.
- gdb_test "info threads" "\\* ${decimal} (process|Thread) ${decimal}\[ \t\].*"
- gdb_test "info inferiors" "\\* 1 process ${decimal} \[ \t\]+${binfile}.*"
+ gdb_test "info threads" "\\* ${decimal} (process|Thread) \[0-9\.\]+\[ \t\].*"
+ gdb_test "info inferiors" "\\* 1 process ${decimal} \[ \t\]+\[^\r\n\]*\[ \t\]+${binfile}.*"
}
}