gdb_test "if value == 5\np/x 0xfeedface\nelse\np/x 0xdeadbeef\nend" \
"\\\$\[0-9\]* = 0xfeedface" \
"progvar_simple_if_test #2"
- gdb_stop_suppressing_tests;
+ gdb_stop_suppressing_tests
}
proc progvar_simple_while_test {} {
gdb_test "while value > 0\np/x 0xfeedface\nset value -= 1\nend" \
"\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface" \
"progvar_simple_while_test #1"
- gdb_stop_suppressing_tests;
+ gdb_stop_suppressing_tests
}
proc progvar_complex_if_while_test {} {
gdb_test "while value > 0\nset value -= 1\nif \(value % 2\) == 1\np/x 0xdeadbeef\nelse\np/x 0xfeedface\nend\nend" \
"\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface" \
"progvar_complex_if_while_test #1"
- gdb_stop_suppressing_tests;
+ gdb_stop_suppressing_tests
}
proc if_while_breakpoint_command_test {} {
gdb_test "info break" \
"while.*set.*if.*p/x.*else.*p/x.*end.*" \
"info break in if_while_breakpoint_command_test"
- gdb_stop_suppressing_tests;
+ gdb_stop_suppressing_tests
}
# Test that we can run the inferior from breakpoint commands.
"Continuing.*.*.*Breakpoint \[0-9\]*, factorial \\(value=5\\).*at.*\[0-9\]*\[ \]*if \\(value > 1\\) \{.*\[0-9\]*\[ \]*value \\*= factorial \\(value - 1\\);.*" \
"continue in infrun_breakpoint_command_test"
- gdb_stop_suppressing_tests;
+ gdb_stop_suppressing_tests
}
proc breakpoint_command_test {} {
"Breakpoint \[0-9\]*, factorial.*Now the value is 5" \
"continue in breakpoint_command_test"
gdb_test "print value" " = 5" "print value in breakpoint_command_test"
- gdb_stop_suppressing_tests;
+ gdb_stop_suppressing_tests
}
# Test a simple user defined command (with arguments)
timeout { fail "(timeout) 3 commands in test_command_prompt_position" }
}
- gdb_stop_suppressing_tests;
+ gdb_stop_suppressing_tests
}