| Index: gdb/testsuite/gdb.base/recpar.exp
|
| diff --git a/gdb/testsuite/gdb.base/watchpoint-delete.exp b/gdb/testsuite/gdb.base/recpar.exp
|
| similarity index 57%
|
| copy from gdb/testsuite/gdb.base/watchpoint-delete.exp
|
| copy to gdb/testsuite/gdb.base/recpar.exp
|
| index 0c5deaad7a08969946d2dd44d57c660bc8b45def..6dd466bb4e80aeb1363bedab93491927bfad1bfd 100644
|
| --- a/gdb/testsuite/gdb.base/watchpoint-delete.exp
|
| +++ b/gdb/testsuite/gdb.base/recpar.exp
|
| @@ -1,5 +1,5 @@
|
| -# Copyright 2010-2012 Free Software Foundation, Inc.
|
| -
|
| +# Copyright (C) 2012 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
|
| @@ -13,26 +13,30 @@
|
| # You should have received a copy of the GNU General Public License
|
| # along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
| -set testfile "watchpoint-delete"
|
| +set testfile recpar
|
| set srcfile ${testfile}.c
|
| -set binfile ${objdir}/${subdir}/${testfile}
|
| -
|
| if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } {
|
| - untested ${testfile}.exp
|
| return -1
|
| }
|
|
|
| -# It is more compatible this way.
|
| -gdb_test_no_output "set can-use-hw-watchpoints 0"
|
| -
|
| if ![runto_main] {
|
| + untested ${testfile}.exp
|
| return -1
|
| }
|
|
|
| -# Ensure there is a parent frame to create related bp_watchpoint_scope.
|
| -gdb_breakpoint [gdb_get_line_number "break-here"]
|
| -gdb_continue_to_breakpoint "break-here" ".* break-here .*"
|
| +gdb_test "break $srcfile:[gdb_get_line_number BREAK $srcfile] if n == 3" \
|
| + "Breakpoint $decimal at $hex: file .*recpar\\.c, line $decimal\\."
|
| +
|
| +gdb_test "continue" \
|
| + "Breakpoint .* foo \\(n=3\\) at .*$srcfile:$decimal.*"
|
| +
|
| +gdb_test "backtrace" \
|
| + "#0 +foo \\(n=3\\).*\r\n#1.* foo \\(n=4\\).*\r\n#2.* foo \\(n=5\\).*#3.* main \\(\\).*"
|
|
|
| -gdb_test "watch x" {Watchpoint [0-9]+: x}
|
| +gdb_test "frame 2" \
|
| + "#2 .* foo \\(n=5\\) .*"
|
|
|
| -gdb_test_no_output {delete $bpnum}
|
| +# In the currently selected frame, n=5, and thus foo::val should be 5
|
| +# as well.
|
| +gdb_test "print foo::val" \
|
| + " = 5"
|
|
|