diff options
| author | Tom Tromey <tom@tromey.com> | 2023-01-25 10:06:20 -0700 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2023-01-26 18:28:31 -0700 |
| commit | 836b6c10cd4b48c2729f91685a795050eae39f4f (patch) | |
| tree | 98d355525ff52b97ed853042f24762c1ce42e588 | |
| parent | 3ad2b4af38e38e10166906f5238db098c886e1f9 (diff) | |
| download | gdb-836b6c10cd4b48c2729f91685a795050eae39f4f.zip gdb-836b6c10cd4b48c2729f91685a795050eae39f4f.tar.gz gdb-836b6c10cd4b48c2729f91685a795050eae39f4f.tar.bz2 | |
Use clean_restart in gdb.pascal
Change gdb.pascal to use clean_restart more consistently.
| -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 |