From 836b6c10cd4b48c2729f91685a795050eae39f4f Mon Sep 17 00:00:00 2001
From: Tom Tromey <tom@tromey.com>
Date: Wed, 25 Jan 2023 10:06:20 -0700
Subject: 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 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
-- 
cgit v1.1