From patchwork Tue Nov 15 10:42:19 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Andrew Burgess X-Patchwork-Id: 60632 Return-Path: X-Original-To: patchwork@sourceware.org Delivered-To: patchwork@sourceware.org Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 08BCC3894C27 for ; Tue, 15 Nov 2022 10:43:17 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 08BCC3894C27 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=sourceware.org; s=default; t=1668508997; bh=4BopEZPNVK7omzMM4IHK30wGWNZruuLsKpGUYAvW0KE=; h=To:Cc:Subject:Date:In-Reply-To:References:List-Id: List-Unsubscribe:List-Archive:List-Post:List-Help:List-Subscribe: From:Reply-To:From; b=LHtMVX7l6Zw5b9I03aNRchNIgdxUdhrYyUG7AqIGbFpJT3MCcHkuxO9qj4v4ZiuzQ tWR28W1jS4XJXvRoFaWDyUIQqUs9UyMj5O2JqKHdb5DK+VzpreZWLJAE/FBY8tlBYG yLA0mxPSUjfkI3oVqvUwYUCeKMwjtuMy+ro3rusc= X-Original-To: gdb-patches@sourceware.org Delivered-To: gdb-patches@sourceware.org Received: from us-smtp-delivery-124.mimecast.com (us-smtp-delivery-124.mimecast.com [170.10.133.124]) by sourceware.org (Postfix) with ESMTPS id 677C2388CC12 for ; Tue, 15 Nov 2022 10:42:47 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 677C2388CC12 Received: from mail-qk1-f198.google.com (mail-qk1-f198.google.com [209.85.222.198]) by relay.mimecast.com with ESMTP with STARTTLS (version=TLSv1.3, cipher=TLS_AES_128_GCM_SHA256) id us-mta-98-K-OSYqbIN0eqXn80fSjQFQ-1; Tue, 15 Nov 2022 05:42:43 -0500 X-MC-Unique: K-OSYqbIN0eqXn80fSjQFQ-1 Received: by mail-qk1-f198.google.com with SMTP id az31-20020a05620a171f00b006fa2cc1b0bfso13415883qkb.23 for ; Tue, 15 Nov 2022 02:42:41 -0800 (PST) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:x-gm-message-state:from:to:cc :subject:date:message-id:reply-to; bh=4BopEZPNVK7omzMM4IHK30wGWNZruuLsKpGUYAvW0KE=; b=J2/hBGHNJM/Vy/BqS0OhrYqAq88WZsVJ8ijTYHqHpBITb2G5dNJaHunjkVW4KG/NV6 jV9GikUfwsf0AEXSNs7z3XdoysirAgLqBCZ1tFUgZtsulxcE5U5dAAbqPmLwQV7B1vFv EoZPEjlPzWZ1VVPQOgwE/nebDDQrOuQhPrkkVt3CQmBcISU0qYrItlEQyfm8pJrKxwd0 TjUKN8CBUDpf3FHPzFammo5C9UfGqgke4lwAUGUt3Zf9dlO5aP+4Eh727+1OMGegpGFv xOmoPMjnRucA/nZuL+fekX4ga0f9Uqa6a2+sw5NquDmej5hu5YNvDrFecy4osEgpx9DK EQAg== X-Gm-Message-State: ANoB5pngt+TEXJeX0jYpSW6QI7uqqRGafu5uzvkCFRlDyt6+pRheCNAg uSDt5eITBVY+2Gr7SGIy79RvWY5qKmzaSJEkV+LeGZIOCjeb9MfamaRJFttgah8t2n8JNNClifY 0vF4OwfBkG3O9JVZPRQ13a9v9cLzN7U36FlyLql6JP+Ie9kR/XCjsbyJMidPwRjCQLhEZK+aAcw == X-Received: by 2002:a37:b446:0:b0:6fa:1745:46ee with SMTP id d67-20020a37b446000000b006fa174546eemr14564438qkf.163.1668508960232; Tue, 15 Nov 2022 02:42:40 -0800 (PST) X-Google-Smtp-Source: AA0mqf6KlS46lSVVU0MS/N/WZK9uK5Y9b37c82vy/4u+xgh3SamFGOlXBhmNgJE7KHelqL3rBfL17Q== X-Received: by 2002:a37:b446:0:b0:6fa:1745:46ee with SMTP id d67-20020a37b446000000b006fa174546eemr14564413qkf.163.1668508959451; Tue, 15 Nov 2022 02:42:39 -0800 (PST) Received: from localhost ([31.111.84.238]) by smtp.gmail.com with ESMTPSA id h21-20020ac846d5000000b003a4f22c6507sm7025763qto.48.2022.11.15.02.42.38 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 15 Nov 2022 02:42:39 -0800 (PST) To: gdb-patches@sourceware.org Cc: Andrew Burgess Subject: [PATCH 02/14] gdb/testsuite: remove use of then keyword from gdb.ada/*.exp Date: Tue, 15 Nov 2022 10:42:19 +0000 Message-Id: X-Mailer: git-send-email 2.25.4 In-Reply-To: References: MIME-Version: 1.0 X-Mimecast-Spam-Score: 0 X-Mimecast-Originator: redhat.com X-Spam-Status: No, score=-11.6 required=5.0 tests=BAYES_00, DKIMWL_WL_HIGH, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, RCVD_IN_DNSWL_NONE, RCVD_IN_MSPIKE_H2, SPF_HELO_NONE, SPF_NONE, TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-Patchwork-Original-From: Andrew Burgess via Gdb-patches From: Andrew Burgess Reply-To: Andrew Burgess Errors-To: gdb-patches-bounces+patchwork=sourceware.org@sourceware.org Sender: "Gdb-patches" The canonical form of 'if' in modern TCL is 'if {} {}'. But there's still a bunch of places in the testsuite where we make use of the 'then' keyword, and sometimes these get copies into new tests, which just spreads poor practice. This commit removes all use of the 'then' keyword from the gdb.ada/ test script directory. There should be no changes in what is tested after this commit. --- gdb/testsuite/gdb.ada/O2_float_param.exp | 2 +- gdb/testsuite/gdb.ada/access_tagged_param.exp | 2 +- gdb/testsuite/gdb.ada/addr_arith.exp | 2 +- gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp | 2 +- gdb/testsuite/gdb.ada/arr_arr.exp | 2 +- gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp | 2 +- gdb/testsuite/gdb.ada/array_bounds.exp | 2 +- gdb/testsuite/gdb.ada/array_return.exp | 4 ++-- gdb/testsuite/gdb.ada/arrayptr.exp | 2 +- gdb/testsuite/gdb.ada/bp_c_mixed_case.exp | 2 +- gdb/testsuite/gdb.ada/bp_inlined_func.exp | 2 +- gdb/testsuite/gdb.ada/call_pn.exp | 2 +- gdb/testsuite/gdb.ada/catch_assert_if.exp | 4 ++-- gdb/testsuite/gdb.ada/catch_ex.exp | 6 +++--- gdb/testsuite/gdb.ada/catch_ex_std.exp | 2 +- gdb/testsuite/gdb.ada/convvar_comp.exp | 2 +- gdb/testsuite/gdb.ada/disc_arr_bound.exp | 2 +- gdb/testsuite/gdb.ada/discrete-char.exp | 2 +- gdb/testsuite/gdb.ada/dot_all.exp | 2 +- gdb/testsuite/gdb.ada/dyn_loc.exp | 2 +- gdb/testsuite/gdb.ada/dyn_stride.exp | 2 +- gdb/testsuite/gdb.ada/excep_handle.exp | 2 +- gdb/testsuite/gdb.ada/frame_args.exp | 2 +- gdb/testsuite/gdb.ada/fun_in_declare.exp | 2 +- gdb/testsuite/gdb.ada/ghost.exp | 2 +- gdb/testsuite/gdb.ada/info_addr_mixed_case.exp | 2 +- gdb/testsuite/gdb.ada/info_auto_lang.exp | 2 +- gdb/testsuite/gdb.ada/info_exc.exp | 2 +- gdb/testsuite/gdb.ada/local-enum.exp | 2 +- gdb/testsuite/gdb.ada/mi_catch_assert.exp | 2 +- gdb/testsuite/gdb.ada/mi_catch_ex.exp | 2 +- gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp | 2 +- gdb/testsuite/gdb.ada/mi_ex_cond.exp | 2 +- gdb/testsuite/gdb.ada/mi_task_arg.exp | 2 +- gdb/testsuite/gdb.ada/mi_task_info.exp | 2 +- gdb/testsuite/gdb.ada/minsyms.exp | 2 +- gdb/testsuite/gdb.ada/mod_from_name.exp | 2 +- gdb/testsuite/gdb.ada/optim_drec.exp | 2 +- gdb/testsuite/gdb.ada/ptype_tagged_param.exp | 2 +- gdb/testsuite/gdb.ada/rec_comp.exp | 2 +- gdb/testsuite/gdb.ada/rec_return.exp | 2 +- gdb/testsuite/gdb.ada/ref_param.exp | 2 +- gdb/testsuite/gdb.ada/scalar_storage.exp | 2 +- gdb/testsuite/gdb.ada/set_wstr.exp | 2 +- gdb/testsuite/gdb.ada/small_reg_param.exp | 2 +- gdb/testsuite/gdb.ada/str_uninit.exp | 2 +- gdb/testsuite/gdb.ada/taft_type.exp | 2 +- gdb/testsuite/gdb.ada/task_switch_in_core.exp | 2 +- gdb/testsuite/gdb.ada/varsize_limit.exp | 2 +- gdb/testsuite/gdb.ada/whatis_array_val.exp | 2 +- gdb/testsuite/gdb.ada/widewide.exp | 2 +- 51 files changed, 55 insertions(+), 55 deletions(-) diff --git a/gdb/testsuite/gdb.ada/O2_float_param.exp b/gdb/testsuite/gdb.ada/O2_float_param.exp index 062a27572f5..f34dc86b0bc 100644 --- a/gdb/testsuite/gdb.ada/O2_float_param.exp +++ b/gdb/testsuite/gdb.ada/O2_float_param.exp @@ -20,7 +20,7 @@ if { [skip_ada_tests] } { return -1 } standard_ada_testfile foo set have_xfail 0 -if { [is_aarch64_target] } then { +if {[is_aarch64_target]} { if { [gcc_major_version] <= 8 } { set have_xfail 1 } diff --git a/gdb/testsuite/gdb.ada/access_tagged_param.exp b/gdb/testsuite/gdb.ada/access_tagged_param.exp index 931c7fb12a9..2103e4b5390 100644 --- a/gdb/testsuite/gdb.ada/access_tagged_param.exp +++ b/gdb/testsuite/gdb.ada/access_tagged_param.exp @@ -28,7 +28,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } clean_restart ${testfile} -if ![runto "foo"] then { +if {![runto "foo"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/addr_arith.exp b/gdb/testsuite/gdb.ada/addr_arith.exp index 35a45c9f7c7..4e3059fcfae 100644 --- a/gdb/testsuite/gdb.ada/addr_arith.exp +++ b/gdb/testsuite/gdb.ada/addr_arith.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo_na07_019.adb] -if ![runto "foo_na07_019.adb:$bp_location" ] then { +if {![runto "foo_na07_019.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp index 0e20c5c4b2d..ac720ffa4d3 100644 --- a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp +++ b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "BREAK" ${testdir}/enum_with_gap_main.adb] -if ![runto "enum_with_gap_main.adb:$bp_location" ] then { +if {![runto "enum_with_gap_main.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/arr_arr.exp b/gdb/testsuite/gdb.ada/arr_arr.exp index 390a518c0c1..488eb006789 100644 --- a/gdb/testsuite/gdb.ada/arr_arr.exp +++ b/gdb/testsuite/gdb.ada/arr_arr.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] -if ![runto "foo.adb:$bp_location" ] then { +if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp index f2c9451e0a9..3a6785fb095 100644 --- a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp +++ b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp @@ -29,7 +29,7 @@ foreach_with_prefix scenario {all minimal} { clean_restart ${testfile}-${scenario} set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo_q418_043.adb] - if ![runto "foo_q418_043.adb:$bp_location" ] then { + if {![runto "foo_q418_043.adb:$bp_location"]} { perror "Couldn't run ${testfile}-${scenario}" return } diff --git a/gdb/testsuite/gdb.ada/array_bounds.exp b/gdb/testsuite/gdb.ada/array_bounds.exp index f6a39ccf6b6..b68e448747e 100644 --- a/gdb/testsuite/gdb.ada/array_bounds.exp +++ b/gdb/testsuite/gdb.ada/array_bounds.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/bar.adb] -if ![runto "bar.adb:$bp_location" ] then { +if {![runto "bar.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/array_return.exp b/gdb/testsuite/gdb.ada/array_return.exp index 38127cc5e1b..97ba3bc4e59 100644 --- a/gdb/testsuite/gdb.ada/array_return.exp +++ b/gdb/testsuite/gdb.ada/array_return.exp @@ -27,7 +27,7 @@ clean_restart ${testfile} # Start the inferior -if ![runto_main] then { +if {![runto_main]} { return 0 } @@ -68,7 +68,7 @@ gdb_test "cont" \ # Instead, it is returned using the struct convention, and the debugger # unfortunately cannot find the address of the result. The following # test is therefore expected to fail for all hppa targets except hppa64. -if { ! [istarget "hppa*64*-*-*"] } then { +if {![istarget "hppa*64*-*-*"]} { setup_xfail "hppa*-*-*" } diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp index 6f9e2cd51a3..d8429c4413b 100644 --- a/gdb/testsuite/gdb.ada/arrayptr.exp +++ b/gdb/testsuite/gdb.ada/arrayptr.exp @@ -29,7 +29,7 @@ foreach_with_prefix scenario {all minimal} { clean_restart ${testfile}-${scenario} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] - if ![runto "foo.adb:$bp_location" ] then { + if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}-${scenario}" return } diff --git a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp index b6dd272a79c..d6eb9f5534c 100644 --- a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp +++ b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp @@ -46,7 +46,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $options] != "" } { clean_restart ${testfile} -if ![runto "foo_h731_021"] then { +if {![runto "foo_h731_021"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/bp_inlined_func.exp b/gdb/testsuite/gdb.ada/bp_inlined_func.exp index 076e8c2425f..be13bc26516 100644 --- a/gdb/testsuite/gdb.ada/bp_inlined_func.exp +++ b/gdb/testsuite/gdb.ada/bp_inlined_func.exp @@ -25,7 +25,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/call_pn.exp b/gdb/testsuite/gdb.ada/call_pn.exp index 6b403d4d4e7..c4f81245f92 100644 --- a/gdb/testsuite/gdb.ada/call_pn.exp +++ b/gdb/testsuite/gdb.ada/call_pn.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] -if ![runto "foo.adb:$bp_location" ] then { +if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/catch_assert_if.exp b/gdb/testsuite/gdb.ada/catch_assert_if.exp index 76a09b6c75c..0f0ec4ddfe9 100644 --- a/gdb/testsuite/gdb.ada/catch_assert_if.exp +++ b/gdb/testsuite/gdb.ada/catch_assert_if.exp @@ -32,7 +32,7 @@ clean_restart ${testfile} set eol "\[\r\n\]+" set sp "\[ \t\]*" -if ![runto_main] then { +if {![runto_main]} { return 0 } @@ -60,7 +60,7 @@ gdb_test_multiple "catch exception" $msg { # - continue, we should see the second failed assertion # - continue, the program exits. -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp index 0da75d17578..d8fa04015fd 100644 --- a/gdb/testsuite/gdb.ada/catch_ex.exp +++ b/gdb/testsuite/gdb.ada/catch_ex.exp @@ -40,7 +40,7 @@ set catch_exception_info \ # 1. Try catching all exceptions. # #################################### -if ![runto_main] then { +if {![runto_main]} { return 0 } @@ -88,7 +88,7 @@ gdb_test "continue" \ # - continue, we should see the unhandled Constrait_Error exception # - continue, the program exits. -if ![runto_main] then { +if {![runto_main]} { return 0 } @@ -148,7 +148,7 @@ gdb_test "continue" \ # at any of the other exceptions that are being raised inside # the program. -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/catch_ex_std.exp b/gdb/testsuite/gdb.ada/catch_ex_std.exp index 2d201a77717..4d6f2a91c19 100644 --- a/gdb/testsuite/gdb.ada/catch_ex_std.exp +++ b/gdb/testsuite/gdb.ada/catch_ex_std.exp @@ -67,7 +67,7 @@ clean_restart ${testfile} # loaded for remote targets. gdb_load_shlib $sofile -if {![runto_main]} then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/convvar_comp.exp b/gdb/testsuite/gdb.ada/convvar_comp.exp index 1923bd785c7..6908bc2da4f 100644 --- a/gdb/testsuite/gdb.ada/convvar_comp.exp +++ b/gdb/testsuite/gdb.ada/convvar_comp.exp @@ -25,7 +25,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} -if ![runto "break_me" ] then { +if {![runto "break_me"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/disc_arr_bound.exp b/gdb/testsuite/gdb.ada/disc_arr_bound.exp index 53dc30b0379..8cbfe5d3276 100644 --- a/gdb/testsuite/gdb.ada/disc_arr_bound.exp +++ b/gdb/testsuite/gdb.ada/disc_arr_bound.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo_n612_026.adb] -if ![runto "foo_n612_026.adb:$bp_location" ] then { +if {![runto "foo_n612_026.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/discrete-char.exp b/gdb/testsuite/gdb.ada/discrete-char.exp index 762b3def4b9..1d380e4d597 100644 --- a/gdb/testsuite/gdb.ada/discrete-char.exp +++ b/gdb/testsuite/gdb.ada/discrete-char.exp @@ -28,7 +28,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} { clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/main.adb] -if {![runto "main.adb:$bp_location"]} then { +if {![runto "main.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/dot_all.exp b/gdb/testsuite/gdb.ada/dot_all.exp index c1f60f8ee2a..6064a7d505b 100644 --- a/gdb/testsuite/gdb.ada/dot_all.exp +++ b/gdb/testsuite/gdb.ada/dot_all.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] -if ![runto "foo.adb:$bp_location" ] then { +if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/dyn_loc.exp b/gdb/testsuite/gdb.ada/dyn_loc.exp index 46c7edb71aa..d2cf68d1dc7 100644 --- a/gdb/testsuite/gdb.ada/dyn_loc.exp +++ b/gdb/testsuite/gdb.ada/dyn_loc.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "BREAK" ${testdir}/pack.adb] -if ![runto "pack.adb:$bp_location" ] then { +if {![runto "pack.adb:$bp_location"]} { return -1 } diff --git a/gdb/testsuite/gdb.ada/dyn_stride.exp b/gdb/testsuite/gdb.ada/dyn_stride.exp index d9e6c6ae0d3..dad3f0c0cbd 100644 --- a/gdb/testsuite/gdb.ada/dyn_stride.exp +++ b/gdb/testsuite/gdb.ada/dyn_stride.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] -if ![runto "foo.adb:$bp_location" ] then { +if {![runto "foo.adb:$bp_location"]} { return -1 } diff --git a/gdb/testsuite/gdb.ada/excep_handle.exp b/gdb/testsuite/gdb.ada/excep_handle.exp index 9475dd607a4..ddc1886b59d 100644 --- a/gdb/testsuite/gdb.ada/excep_handle.exp +++ b/gdb/testsuite/gdb.ada/excep_handle.exp @@ -44,7 +44,7 @@ set catchpoint_storage_error_msg \ # Check that runtime supports catchpoint. # ############################################ -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/frame_args.exp b/gdb/testsuite/gdb.ada/frame_args.exp index 1a37c79f072..9961780ad39 100644 --- a/gdb/testsuite/gdb.ada/frame_args.exp +++ b/gdb/testsuite/gdb.ada/frame_args.exp @@ -30,7 +30,7 @@ set any_addr "0x\[0-9a-zA-Z\]+" set eol "\[\r\n\]+" set sp "\[ \t\]*" -if ![runto break_me] then { +if {![runto break_me]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/fun_in_declare.exp b/gdb/testsuite/gdb.ada/fun_in_declare.exp index 38802409bb1..4b30a777895 100644 --- a/gdb/testsuite/gdb.ada/fun_in_declare.exp +++ b/gdb/testsuite/gdb.ada/fun_in_declare.exp @@ -25,7 +25,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} -if ![runto_main] then { +if {![runto_main]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/ghost.exp b/gdb/testsuite/gdb.ada/ghost.exp index ece03dbe2f8..93ab507e337 100644 --- a/gdb/testsuite/gdb.ada/ghost.exp +++ b/gdb/testsuite/gdb.ada/ghost.exp @@ -27,7 +27,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != "" } { clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/main.adb] -if ![runto "main.adb:$bp_location" ] then { +if {![runto "main.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp index 0a63873df24..d512ef42651 100644 --- a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp +++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] -if ![runto "foo.adb:$bp_location" ] then { +if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/info_auto_lang.exp b/gdb/testsuite/gdb.ada/info_auto_lang.exp index af882f7d8d2..9e17cf6c028 100644 --- a/gdb/testsuite/gdb.ada/info_auto_lang.exp +++ b/gdb/testsuite/gdb.ada/info_auto_lang.exp @@ -45,7 +45,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/some_c.c] -if ![runto "some_c.c:$bp_location"] then { +if {![runto "some_c.c:$bp_location"]} { return } diff --git a/gdb/testsuite/gdb.ada/info_exc.exp b/gdb/testsuite/gdb.ada/info_exc.exp index 4e0059ad3dc..c0a9e4dea53 100644 --- a/gdb/testsuite/gdb.ada/info_exc.exp +++ b/gdb/testsuite/gdb.ada/info_exc.exp @@ -25,7 +25,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } clean_restart ${testfile} -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/local-enum.exp b/gdb/testsuite/gdb.ada/local-enum.exp index 99bc0c94b8a..908ee73b899 100644 --- a/gdb/testsuite/gdb.ada/local-enum.exp +++ b/gdb/testsuite/gdb.ada/local-enum.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} { clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/local.adb] -if ![runto "local.adb:$bp_location" ] then { +if {![runto "local.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/mi_catch_assert.exp b/gdb/testsuite/gdb.ada/mi_catch_assert.exp index e586b4d7cd5..d34938fa181 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_assert.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_assert.exp @@ -34,7 +34,7 @@ set sp "\[ \t\]*" clean_restart ${testfile} -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex.exp b/gdb/testsuite/gdb.ada/mi_catch_ex.exp index aeb3c388c56..3258476be56 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_ex.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_ex.exp @@ -34,7 +34,7 @@ set eol "\[\r\n\]+" clean_restart ${testfile} -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp b/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp index 5a8e6cd71ce..9ca6688d430 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp @@ -33,7 +33,7 @@ set eol "\[\r\n\]+" clean_restart ${testfile} -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/mi_ex_cond.exp b/gdb/testsuite/gdb.ada/mi_ex_cond.exp index 4de08dc6592..ddf9e0bbea7 100644 --- a/gdb/testsuite/gdb.ada/mi_ex_cond.exp +++ b/gdb/testsuite/gdb.ada/mi_ex_cond.exp @@ -34,7 +34,7 @@ set eol "\[\r\n\]+" clean_restart ${testfile} -if ![runto_main] then { +if {![runto_main]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/mi_task_arg.exp b/gdb/testsuite/gdb.ada/mi_task_arg.exp index 4713fda62fd..d80dfd47015 100644 --- a/gdb/testsuite/gdb.ada/mi_task_arg.exp +++ b/gdb/testsuite/gdb.ada/mi_task_arg.exp @@ -38,7 +38,7 @@ mi_gdb_load ${binfile} # This test won't work properly if system debuginfo is installed. mi_gdb_test "-gdb-set debug-file-directory \"\"" ".*" -if ![mi_runto "task_switch.break_me"] then { +if {![mi_runto "task_switch.break_me"]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/mi_task_info.exp b/gdb/testsuite/gdb.ada/mi_task_info.exp index 2a2a91d537e..62d0b834dca 100644 --- a/gdb/testsuite/gdb.ada/mi_task_info.exp +++ b/gdb/testsuite/gdb.ada/mi_task_info.exp @@ -39,7 +39,7 @@ mi_gdb_load ${binfile} # 1. Try catching all exceptions. # #################################### -if ![mi_runto "task_switch.break_me"] then { +if {![mi_runto "task_switch.break_me"]} { return 0 } diff --git a/gdb/testsuite/gdb.ada/minsyms.exp b/gdb/testsuite/gdb.ada/minsyms.exp index 1382f8ccdd8..7ce2d814475 100644 --- a/gdb/testsuite/gdb.ada/minsyms.exp +++ b/gdb/testsuite/gdb.ada/minsyms.exp @@ -25,7 +25,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable ""] != "" } { clean_restart ${testfile} -if ![runto "_ada_foo_qb07_057" ] then { +if {![runto "_ada_foo_qb07_057"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/mod_from_name.exp b/gdb/testsuite/gdb.ada/mod_from_name.exp index 009e32d4dd1..8eb61565ff4 100644 --- a/gdb/testsuite/gdb.ada/mod_from_name.exp +++ b/gdb/testsuite/gdb.ada/mod_from_name.exp @@ -29,7 +29,7 @@ foreach_with_prefix scenario {all minimal} { clean_restart ${testfile}-${scenario} set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] - if ![runto "foo.adb:$bp_location" ] then { + if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}-${scenario}" return } diff --git a/gdb/testsuite/gdb.ada/optim_drec.exp b/gdb/testsuite/gdb.ada/optim_drec.exp index cccec6c2267..823156cd804 100644 --- a/gdb/testsuite/gdb.ada/optim_drec.exp +++ b/gdb/testsuite/gdb.ada/optim_drec.exp @@ -25,7 +25,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} -if ![runto "foo" ] then { +if {![runto "foo"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/ptype_tagged_param.exp b/gdb/testsuite/gdb.ada/ptype_tagged_param.exp index 3a4a84a22ce..116748ab184 100644 --- a/gdb/testsuite/gdb.ada/ptype_tagged_param.exp +++ b/gdb/testsuite/gdb.ada/ptype_tagged_param.exp @@ -27,7 +27,7 @@ set has_runtime_debug_info [gnat_runtime_has_debug_info] clean_restart ${testfile} -if ![runto "pck.adb:20" ] then { +if {![runto "pck.adb:20"]} { return -1 } diff --git a/gdb/testsuite/gdb.ada/rec_comp.exp b/gdb/testsuite/gdb.ada/rec_comp.exp index 9205a26548c..342fe3a0e07 100644 --- a/gdb/testsuite/gdb.ada/rec_comp.exp +++ b/gdb/testsuite/gdb.ada/rec_comp.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/bar_o203_012.adb] -if ![runto "bar_o203_012.adb:$bp_location" ] then { +if {![runto "bar_o203_012.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/rec_return.exp index b68537ee41c..723244fc576 100644 --- a/gdb/testsuite/gdb.ada/rec_return.exp +++ b/gdb/testsuite/gdb.ada/rec_return.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] -if ![runto "foo.adb:$bp_location" ] then { +if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/ref_param.exp b/gdb/testsuite/gdb.ada/ref_param.exp index 56347932564..871e755ff39 100644 --- a/gdb/testsuite/gdb.ada/ref_param.exp +++ b/gdb/testsuite/gdb.ada/ref_param.exp @@ -25,7 +25,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} -if ![runto pck.adb:20] then { +if {![runto pck.adb:20]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/scalar_storage.exp b/gdb/testsuite/gdb.ada/scalar_storage.exp index 8180e6e8bb1..106413e9528 100644 --- a/gdb/testsuite/gdb.ada/scalar_storage.exp +++ b/gdb/testsuite/gdb.ada/scalar_storage.exp @@ -29,7 +29,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/storage.adb] -if ![runto "storage.adb:$bp_location" ] then { +if {![runto "storage.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/set_wstr.exp b/gdb/testsuite/gdb.ada/set_wstr.exp index 9e58df25352..97a683dd37a 100644 --- a/gdb/testsuite/gdb.ada/set_wstr.exp +++ b/gdb/testsuite/gdb.ada/set_wstr.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/a.adb] -if ![runto "a.adb:$bp_location" ] then { +if {![runto "a.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/small_reg_param.exp b/gdb/testsuite/gdb.ada/small_reg_param.exp index a07843d2596..cb3c3bf4b4d 100644 --- a/gdb/testsuite/gdb.ada/small_reg_param.exp +++ b/gdb/testsuite/gdb.ada/small_reg_param.exp @@ -25,7 +25,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug optimize=- clean_restart ${testfile} -if ![runto_main] then { +if {![runto_main]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/str_uninit.exp b/gdb/testsuite/gdb.ada/str_uninit.exp index cda1439d48b..96862909e87 100644 --- a/gdb/testsuite/gdb.ada/str_uninit.exp +++ b/gdb/testsuite/gdb.ada/str_uninit.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/parse.adb] -if ![runto "parse.adb:$bp_location" ] then { +if {![runto "parse.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/taft_type.exp b/gdb/testsuite/gdb.ada/taft_type.exp index 10c6f477e9c..a791cd179a6 100644 --- a/gdb/testsuite/gdb.ada/taft_type.exp +++ b/gdb/testsuite/gdb.ada/taft_type.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/p.adb] -if ![runto "p.adb:$bp_location" ] then { +if {![runto "p.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/task_switch_in_core.exp b/gdb/testsuite/gdb.ada/task_switch_in_core.exp index 02d60cd20e6..7a56693e656 100644 --- a/gdb/testsuite/gdb.ada/task_switch_in_core.exp +++ b/gdb/testsuite/gdb.ada/task_switch_in_core.exp @@ -30,7 +30,7 @@ clean_restart ${testfile} # testcase is to generate this core file, so we can then exercise # task-switching when debugging from core files. -if { ![runto request_for_crash ]} then { +if {![runto request_for_crash]} { untested "couldn't run to Request_For_Crash" return -1 } diff --git a/gdb/testsuite/gdb.ada/varsize_limit.exp b/gdb/testsuite/gdb.ada/varsize_limit.exp index 5cd6d1adbd6..af5a394f38b 100644 --- a/gdb/testsuite/gdb.ada/varsize_limit.exp +++ b/gdb/testsuite/gdb.ada/varsize_limit.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/vsizelim.adb] -if ![runto "vsizelim.adb:$bp_location" ] then { +if {![runto "vsizelim.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/whatis_array_val.exp b/gdb/testsuite/gdb.ada/whatis_array_val.exp index 69f90e1f22b..eadd6ed2da2 100644 --- a/gdb/testsuite/gdb.ada/whatis_array_val.exp +++ b/gdb/testsuite/gdb.ada/whatis_array_val.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] -if ![runto "foo.adb:$bp_location" ] then { +if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/widewide.exp b/gdb/testsuite/gdb.ada/widewide.exp index 56c9e12abd2..34f5967ec04 100644 --- a/gdb/testsuite/gdb.ada/widewide.exp +++ b/gdb/testsuite/gdb.ada/widewide.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] -if ![runto "foo.adb:$bp_location" ] then { +if {![runto "foo.adb:$bp_location"]} { perror "Couldn't run ${testfile}" return }