Index: gdb/testsuite/gdb.base/watch-cond-infcall.exp |
diff --git a/gdb/testsuite/gdb.base/watch-cond-infcall.exp b/gdb/testsuite/gdb.base/watch-cond-infcall.exp |
index 8b81453766b6f9f61949d8e4dc0925f28e9185a2..1c83da56591c0c95cab586211a7f2f787f1ab1e9 100644 |
--- a/gdb/testsuite/gdb.base/watch-cond-infcall.exp |
+++ b/gdb/testsuite/gdb.base/watch-cond-infcall.exp |
@@ -25,12 +25,8 @@ if { [build_executable ${testfile}.exp ${testfile} ${testfile}.c {debug}] } { |
return -1 |
} |
-proc test_watchpoint { hw teststr } { |
+proc test_watchpoint { hw } { |
global testfile |
- global pf_prefix |
- |
- set old_pf_prefix $pf_prefix |
- lappend pf_prefix "$teststr:" |
clean_restart ${testfile} |
@@ -50,12 +46,10 @@ proc test_watchpoint { hw teststr } { |
gdb_test "continue" \ |
"atchpoint \[0-9\]+: var\r\n\r\nOld value = 0\r\nNew value = 1\r\n.*watchpoint-stop.*" \ |
"continue" |
- |
- set pf_prefix $old_pf_prefix |
} |
if { ![target_info exists gdb,no_hardware_watchpoints] } { |
- test_watchpoint 1 "hw" |
+ with_test_prefix "hw" { test_watchpoint 1 } |
} |
-test_watchpoint 0 "sw" |
+with_test_prefix "sw" { test_watchpoint 0 } |