gdb/testsuite/

* gdb.base/store.exp (check_set): Import gdb_prompt.
	(continue to wack_${t}): Make it to conditional gdb_test_multiple.
	(${prefix}; next ${t}): Hide its name, handle it conditionally now.
This commit is contained in:
Jan Kratochvil 2012-07-16 19:17:54 +00:00
parent 8f04399994
commit 263a0f8c38
2 changed files with 21 additions and 4 deletions

View File

@ -1,3 +1,9 @@
2012-07-16 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.base/store.exp (check_set): Import gdb_prompt.
(continue to wack_${t}): Make it to conditional gdb_test_multiple.
(${prefix}; next ${t}): Hide its name, handle it conditionally now.
2012-07-16 Jan Kratochvil <jan.kratochvil@redhat.com>
PR 11914

View File

@ -48,12 +48,23 @@ if ![runto_main] then {
#
proc check_set { t l r new add } {
global gdb_prompt
set prefix "var ${t} l"
gdb_test "tbreak wack_${t}"
gdb_test "continue" "register ${t} l = u, r = v;" \
"continue to wack_${t}"
gdb_test "next" "l = add_${t} .l, r.;" \
"${prefix}; next ${t}"
set test "continue to wack_${t}"
gdb_test_multiple "continue" $test {
-re "register ${t} l = u, r = v;\r\n$gdb_prompt $" {
# See GCC PR debug/53948.
send_gdb "next\n"
exp_continue
}
-re "l = add_${t} .l, r.;\r\n$gdb_prompt $" {
pass $test
}
}
gdb_test "print l" " = ${l}" \
"${prefix}; print old l, expecting ${l}"
gdb_test "print r" " = ${r}" \