From 836b6c10cd4b48c2729f91685a795050eae39f4f Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 25 Jan 2023 10:06:20 -0700 Subject: [PATCH] Use clean_restart in gdb.pascal 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(-) diff --git a/gdb/testsuite/gdb.pascal/print.exp b/gdb/testsuite/gdb.pascal/print.exp index d3f28e2fbd4..2d665c30661 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 1bf013cab0f..af2d31e36d5 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 -- 2.30.2