+2020-05-01 Tom de Vries <tdevries@suse.de>
+
+ * gdb.ada/operator_bp.exp: Allow more than required amount of
+ breakpoint.
+
2020-05-01 Tom de Vries <tdevries@suse.de>
* gdb.reverse/until-reverse.c (main): Fix Wunused-result warning.
# Set breakpoints for all operators, using just the operator name in quotes.
+set bp_re "Breakpoint $decimal at $hex"
foreach op { "+" "-" } {
set op_re [string_to_regexp $op]
- gdb_test "break \"$op\"" \
- "Breakpoint $decimal at $hex: \"$op_re\"\. \\(2 locations\\)"
+ gdb_test "break \"$op\"" "$bp_re: \"$op_re\"\. \\($decimal locations\\).*"
}
foreach op { "*" "/" "mod" "rem" "**" "<" "<=" ">" ">=" "=" "and" "or" "xor" "&" "abs" "not"} {
set op_re [string_to_regexp $op]
- gdb_test "break \"$op\"" \
- "Breakpoint $decimal at $hex: file .*ops.adb, line $decimal."
+ gdb_test_multiple "break \"$op\"" "" {
+ -re -wrap "$bp_re: file .*ops.adb, line $decimal." {
+ pass $gdb_test_name
+ }
+ -re -wrap "$bp_re: \"$op_re\"\. \\($decimal locations\\).*" {
+ pass $gdb_test_name
+ }
+ }
}
# Make sure we stop correctly in each operator function.