-# Copyright 2008-2013 Free Software Foundation, Inc.
+# Copyright 2008-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
standard_testfile .c ur1.c
-if { [prepare_for_testing $testfile.exp $testfile \
+if { [prepare_for_testing "failed to prepare" $testfile \
[list $srcfile $srcfile2]] } {
return -1
}
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
set bp_location7 [gdb_get_line_number "set breakpoint 7 here"]
-set bp_location9 [gdb_get_line_number "set breakpoint 9 here" "$srcfile2"]
+set bp_location8 [gdb_get_line_number "set breakpoint 8 here" "$srcfile2"]
set bp_location19 [gdb_get_line_number "set breakpoint 19 here"]
set bp_location20 [gdb_get_line_number "set breakpoint 20 here"]
set bp_location21 [gdb_get_line_number "set breakpoint 21 here"]
if [supports_process_record] {
# Activate process record/replay
- gdb_test_no_output "record" "Turn on process record"
+ gdb_test_no_output "record" "turn on process record"
}
# Verify that plain vanilla "until <location>" works.
# Advance up to factorial, outer invocation
#
-gdb_test "advance factorial" \
- "factorial .value=6..*$srcfile:$bp_location7.*" \
- "advance to factorial"
+gdb_test_multiple "advance factorial" "" {
+ -wrap -re "factorial .value=6..*$srcfile:$bp_location7.*" {
+ pass $gdb_test_name
+ }
+ -wrap -re "Process record does not support instruction 0xfae64 at.*" {
+ kfail "gdb/25038" $gdb_test_name
+ return -1
+ }
+}
# At this point, 'until' should continue the inferior up to when all the
# inner invocations of factorial() are completed and we are back at this
# Finish out to main scope
#
gdb_test "finish" \
- " in main .*$srcfile:$bp_location1.*" \
+ "main .*$srcfile:.*" \
"finish to main"
# Advance to a function called by main (marker2)
#
gdb_test "advance marker2" \
- "marker2 .a=43.*$srcfile2:$bp_location9.*" \
+ "marker2 .a=43.*$srcfile2:$bp_location8.*" \
"advance to marker2"
# Now issue an until with another function, not called by the current
#
gdb_test "advance marker2" \
- "marker2 .a=43.*$srcfile2:$bp_location9.*" \
+ "marker2 .a=43.*$srcfile2:$bp_location8.*" \
"reverse-advance to marker2"
# Finish out to main scope (backward)