From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2126) id E60183858D38; Fri, 27 Jan 2023 01:29:30 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org E60183858D38 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=sourceware.org; s=default; t=1674782970; bh=5KBSC6OT5UmxuQlb2O0DeKn0u82LuU+X040FluKrEGM=; h=From:To:Subject:Date:From; b=nOo3xK5H2W3aDV6hnsLegPT7RuQMfwi1FSsQv0P9K0vsGbfm8322D8DyK0LrSrMsd tu01P3kj/7UMExEQB0scdoLx104l4tFoS7d1PKd7NeUuBULbKk9hl2UqHd8ExuuKyn lY18NOccEaZAq9//mzl1MNjGhUPFH1xV1e8M/HWc= Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable From: Tom Tromey To: gdb-cvs@sourceware.org Subject: [binutils-gdb] Use clean_restart in gdb.pascal X-Act-Checkin: binutils-gdb X-Git-Author: Tom Tromey X-Git-Refname: refs/heads/master X-Git-Oldrev: 3ad2b4af38e38e10166906f5238db098c886e1f9 X-Git-Newrev: 836b6c10cd4b48c2729f91685a795050eae39f4f Message-Id: <20230127012930.E60183858D38@sourceware.org> Date: Fri, 27 Jan 2023 01:29:30 +0000 (GMT) List-Id: https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3D836b6c10cd4b= 48c2729f91685a795050eae39f4f commit 836b6c10cd4b48c2729f91685a795050eae39f4f Author: Tom Tromey Date: Wed Jan 25 10:06:20 2023 -0700 Use clean_restart in gdb.pascal =20 Change gdb.pascal to use clean_restart more consistently. Diff: --- 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" } =20 -# Start with a fresh gdb. - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir +clean_restart =20 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 =3D double" } =20 -# Start with a fresh gdb. - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir +clean_restart =20 if {[set_lang_pascal]} { test_integer_literal_types_accepted