[09/27] Use clean_restart in gdb.pascal
Commit Message
Change gdb.pascal to use clean_restart more consistently.
---
gdb/testsuite/gdb.pascal/print.exp | 6 +-----
gdb/testsuite/gdb.pascal/types.exp | 6 +-----
2 files changed, 2 insertions(+), 10 deletions(-)
@@ -57,11 +57,7 @@ proc test_float_rejected {} {
test_print_reject "p 1.1ll"
}
-# Start with a fresh gdb.
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
+clean_restart
if [set_lang_pascal] {
test_float_accepted
@@ -68,11 +68,7 @@ proc test_float_literal_types_accepted {} {
gdb_test "pt 10E20" "type = double"
}
-# Start with a fresh gdb.
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
+clean_restart
if {[set_lang_pascal]} {
test_integer_literal_types_accepted