diff options
| -rw-r--r-- | gdb/testsuite/gdb.pascal/print.exp | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.pascal/types.exp | 6 |
2 files changed, 2 insertions, 10 deletions
diff --git a/gdb/testsuite/gdb.pascal/print.exp b/gdb/testsuite/gdb.pascal/print.exp index d3f28e2..2d665c3 100644 --- a/gdb/testsuite/gdb.pascal/print.exp +++ b/gdb/testsuite/gdb.pascal/print.exp @@ -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 diff --git a/gdb/testsuite/gdb.pascal/types.exp b/gdb/testsuite/gdb.pascal/types.exp index 1bf013c..af2d31e 100644 --- a/gdb/testsuite/gdb.pascal/types.exp +++ b/gdb/testsuite/gdb.pascal/types.exp @@ -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 |