From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from simark.ca by simark.ca with LMTP id b6bVKwMT4Ggs+h0AWB0awg (envelope-from ) for ; Fri, 03 Oct 2025 14:16:35 -0400 Authentication-Results: simark.ca; dkim=pass (2048-bit key; secure) header.d=adacore.com header.i=@adacore.com header.a=rsa-sha256 header.s=google header.b=KidEUSlE; dkim-atps=neutral Received: by simark.ca (Postfix, from userid 112) id A31EA1E047; Fri, 03 Oct 2025 14:16:35 -0400 (EDT) X-Spam-Checker-Version: SpamAssassin 4.0.1 (2024-03-25) on simark.ca X-Spam-Level: X-Spam-Status: No, score=-2.4 required=5.0 tests=ARC_SIGNED,ARC_VALID,BAYES_00, DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,MAILING_LIST_MULTI, RCVD_IN_DNSWL_MED,RCVD_IN_VALIDITY_CERTIFIED_BLOCKED, RCVD_IN_VALIDITY_RPBL_BLOCKED,RCVD_IN_VALIDITY_SAFE_BLOCKED autolearn=ham autolearn_force=no version=4.0.1 Received: from server2.sourceware.org (server2.sourceware.org [8.43.85.97]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange x25519 server-signature ECDSA (prime256v1) server-digest SHA256) (No client certificate requested) by simark.ca (Postfix) with ESMTPS id 9AEF21E047 for ; Fri, 03 Oct 2025 14:16:34 -0400 (EDT) Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 350C83857B94 for ; Fri, 3 Oct 2025 18:16:34 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 350C83857B94 Authentication-Results: sourceware.org; dkim=pass (2048-bit key, secure) header.d=adacore.com header.i=@adacore.com header.a=rsa-sha256 header.s=google header.b=KidEUSlE Received: from mail-io1-xd36.google.com (mail-io1-xd36.google.com [IPv6:2607:f8b0:4864:20::d36]) by sourceware.org (Postfix) with ESMTPS id A4C563858C83 for ; Fri, 3 Oct 2025 18:15:57 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org A4C563858C83 Authentication-Results: sourceware.org; dmarc=pass (p=quarantine dis=none) header.from=adacore.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=adacore.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org A4C563858C83 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2607:f8b0:4864:20::d36 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1759515357; cv=none; b=e8enGtJ5WsXRNxzOUlDlLaxZVxomH6ur7yAvLTNw029I5HUJto1HnbZxNacHkihOW3zK6NAleNUJooNV7Op7e6CXgQmSycmnv6jlYd4H7WLTKnKvYjwZAs87zKyN7U4zSH6/PrK29niYz7RCC8pjc8DOezeJq2il/X2wdfv2jbE= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1759515357; c=relaxed/simple; bh=xzOetsan5W4wPCJQ4sO1GbRSeHmr7qh/t2QWFFkBJJE=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=uJXyyicZPed8v8Jihxoj9EoGQOwsE1AhHBoHSJRb9khH70itXtbjPS5zAwio28Ri8Vm9jsOqtVEvYUnDYyrEKLJrChNQ5uoHtKpFlJA14cKAyeAq8zJbE/l4sIf2S6E9uDkix3YoCYa/32KbPjRfjjQEmOtMciSyQNNA0ZViVvQ= ARC-Authentication-Results: i=1; server2.sourceware.org DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org A4C563858C83 Received: by mail-io1-xd36.google.com with SMTP id ca18e2360f4ac-93607aec358so69726439f.0 for ; Fri, 03 Oct 2025 11:15:57 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; t=1759515357; x=1760120157; darn=sourceware.org; h=content-transfer-encoding:mime-version:message-id:date:subject:cc :to:from:from:to:cc:subject:date:message-id:reply-to; bh=JNPISOcXNunqfIQD6KcOPgdN5+4Ii1wXAIgTacKa2dU=; b=KidEUSlElNTy2TvX0OIG213t9SeQI1+IJGXdOUXHrTypqdrrCetW748c+2Bp/gUfR/ sQD6ET0FUNL6vbZl3thTN/4MForqzanuHmVA21n+eubj+WX0PO4rJ3eq08Rjz5Gv4/eM Yqy4ROrBPQoqIZmqcS44+s10YoZTTKnCfppu8INSujeIb24dWzzr++6f+z4O8XJq0AVd B6cBkM521AqLECcNyBck8N6ym32Csxt08Igm81Xo+bqHfkdCZ6M1ri1hr33pJrDF6n93 RmzvTvChhdEoma1wRZzaEVaIhz24mN3PSRQtls1sHS/+4IC6p7bsW5DQcs2FxYe1qlLm 75Og== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1759515357; x=1760120157; h=content-transfer-encoding:mime-version:message-id:date:subject:cc :to:from:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=JNPISOcXNunqfIQD6KcOPgdN5+4Ii1wXAIgTacKa2dU=; b=vhCbMkMMT39iEcrAczQU33kl+8tzTorx9DFaG2aCCDtDLWppLt/5Bp1YQ4qowoWdVq Jjo/zyXcDE3gg8NPmp6T/DWY6C6vORqt0EGkYtHrZmlc5oakZ3464BCuuuph3huZGv8y CJSuNYJIM6BNK7QrdcGd3I8R2PaZPfmALZ4o4EeupsIfMtMJPi+VSnmAFpQVsot1dmW/ q5kZXliNgq2mI+yZSxP7t0o8JoO0jVDSRe9afeQxcTTyf/QCRHKbc0zmaNDaPnK3MpUM kn90rdd6ELRTqY0bcVoD0k2DWTJX0LK3pKKPnp1AVe+1IE3Zh1iYpOfV+hsoLrwG31/w 2KOA== X-Gm-Message-State: AOJu0Yyw+PjywcPIlZh3sAwS4Ma0/0wPilXnRUoJD7WmmQbngXhQSKsp k5E76SGPcjOhcGopd/Jj60Y9uH7Gh51V7NbRLTRCt7GGpM4v708/0zy3hseMplcFHT3spkMRMUj Dczo= X-Gm-Gg: ASbGncvB7Gv6Ke1Qc5Nqo0Zct/jinjCUTj3gELD+p9T2TuqKcE0rePKR2MUmyb8e3w2 zyHPNzV6uhSq5iXKObHspv8nia5BjvhdBXjTFE2sWdDKf3W6Z8j30/pwwTOjZ977X+l0pdBGiF+ slivZeLotWTR8OyrLBCjb5y7sMpIIxHZn5STmiAMfhdKqbLjTLO27/pT1JhMwodSkOomA3+aVPd 0xpEUMHCJfZSQY5gcmPyEK+c5JsUcvRXRRnBC9jBrzFvbb2EV82aIYQ48lW0tCLw6hnIX8yNtC+ vfzpsOa8woNTBc0Wws9bms2YllBiyElR6K7wFVLl/TefxUywcF+Oo4TdIbMSa+3Vzp4CRTmLVIk f1a1nxfRiWREDJmLjGQeGzZ+WxX/Yi2S7pS1SbEEZwcbrPinav8OTjAlB9mWt0CVyJdo0SDA9P8 pY X-Google-Smtp-Source: AGHT+IF/wCwd4NJENH1vAszuFPZQY3YQVfa0PUYd6fvmBP4+sa5/NpERsSxYDXQAESht8VEKSDYwRA== X-Received: by 2002:a05:6602:600f:b0:929:c5e6:c237 with SMTP id ca18e2360f4ac-93b9697b986mr527241739f.8.1759515356670; Fri, 03 Oct 2025 11:15:56 -0700 (PDT) Received: from bapiya (97-122-110-68.hlrn.qwest.net. [97.122.110.68]) by smtp.gmail.com with ESMTPSA id ca18e2360f4ac-93a88961d74sm212927939f.22.2025.10.03.11.15.56 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 03 Oct 2025 11:15:56 -0700 (PDT) From: Tom Tromey To: gdb-patches@sourceware.org Cc: Tom Tromey Subject: [PATCH] More "return" cleanup in gdb.ada Date: Fri, 3 Oct 2025 12:15:54 -0600 Message-ID: <20251003181554.2763633-1-tromey@adacore.com> X-Mailer: git-send-email 2.51.0 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.30 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: gdb-patches-bounces~public-inbox=simark.ca@sourceware.org I found some more spots in gdb.ada where a "return" has a value but does not need one. This patch cleans these up. Most of these would be eliminated by the old "critical" idea, if I ever got around to finishing that... --- gdb/testsuite/gdb.ada/array_return.exp | 2 +- gdb/testsuite/gdb.ada/bp_inlined_func.exp | 2 +- gdb/testsuite/gdb.ada/catch_assert_if.exp | 2 +- gdb/testsuite/gdb.ada/catch_ex.exp | 6 +++--- gdb/testsuite/gdb.ada/catch_ex_std.exp | 2 +- gdb/testsuite/gdb.ada/excep_handle.exp | 2 +- gdb/testsuite/gdb.ada/funcall_ref.exp | 2 +- gdb/testsuite/gdb.ada/info_exc.exp | 2 +- gdb/testsuite/gdb.ada/mi_catch_assert.exp | 2 +- gdb/testsuite/gdb.ada/mi_catch_ex.exp | 4 ++-- gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp | 4 ++-- gdb/testsuite/gdb.ada/mi_dyn_arr.exp | 2 +- gdb/testsuite/gdb.ada/mi_exc_info.exp | 2 +- gdb/testsuite/gdb.ada/mi_interface.exp | 2 +- gdb/testsuite/gdb.ada/mi_prot.exp | 2 +- gdb/testsuite/gdb.ada/mi_ref_changeable.exp | 2 +- gdb/testsuite/gdb.ada/mi_string_access.exp | 2 +- gdb/testsuite/gdb.ada/mi_task_arg.exp | 2 +- gdb/testsuite/gdb.ada/mi_task_info.exp | 2 +- gdb/testsuite/gdb.ada/mi_var_access.exp | 2 +- gdb/testsuite/gdb.ada/mi_var_array.exp | 2 +- gdb/testsuite/gdb.ada/mi_var_union.exp | 2 +- gdb/testsuite/gdb.ada/mi_variant.exp | 2 +- gdb/testsuite/gdb.ada/str_ref_cmp.exp | 2 +- 24 files changed, 28 insertions(+), 28 deletions(-) diff --git a/gdb/testsuite/gdb.ada/array_return.exp b/gdb/testsuite/gdb.ada/array_return.exp index a27c8f324c8..21a75d8c4fa 100644 --- a/gdb/testsuite/gdb.ada/array_return.exp +++ b/gdb/testsuite/gdb.ada/array_return.exp @@ -34,7 +34,7 @@ clean_restart ${testfile} # Start the inferior if {![runto_main]} { - return 0 + return } # Create a breakpoint in each function from which we want to test diff --git a/gdb/testsuite/gdb.ada/bp_inlined_func.exp b/gdb/testsuite/gdb.ada/bp_inlined_func.exp index 4d772ff1f23..3bab85a126d 100644 --- a/gdb/testsuite/gdb.ada/bp_inlined_func.exp +++ b/gdb/testsuite/gdb.ada/bp_inlined_func.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} if {![runto_main]} { - return 0 + return } # Check that inserting breakpoint on read_small inlined function inserts diff --git a/gdb/testsuite/gdb.ada/catch_assert_if.exp b/gdb/testsuite/gdb.ada/catch_assert_if.exp index 2ac47d14bd4..eca657f869e 100644 --- a/gdb/testsuite/gdb.ada/catch_assert_if.exp +++ b/gdb/testsuite/gdb.ada/catch_assert_if.exp @@ -35,7 +35,7 @@ set sp "\[ \t\]*" # - continue, the program exits. if {![runto_main]} { - return 0 + return } gdb_test "catch assert if Global_Var = 2" \ diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp index 5ac06ca70e7..34f32022541 100644 --- a/gdb/testsuite/gdb.ada/catch_ex.exp +++ b/gdb/testsuite/gdb.ada/catch_ex.exp @@ -41,7 +41,7 @@ set catch_exception_info \ #################################### if {![runto_main]} { - return 0 + return } gdb_test "catch exception" \ @@ -79,7 +79,7 @@ gdb_test "continue" \ # - continue, the program exits. if {![runto_main]} { - return 0 + return } gdb_test "catch exception Program_Error" \ @@ -139,7 +139,7 @@ gdb_test "continue" \ # the program. if {![runto_main]} { - return 0 + return } gdb_test "tcatch exception" \ diff --git a/gdb/testsuite/gdb.ada/catch_ex_std.exp b/gdb/testsuite/gdb.ada/catch_ex_std.exp index fb12c76ad5f..d1f17f872f3 100644 --- a/gdb/testsuite/gdb.ada/catch_ex_std.exp +++ b/gdb/testsuite/gdb.ada/catch_ex_std.exp @@ -66,7 +66,7 @@ clean_restart ${testfile} gdb_load_shlib $sofile if {![runto_main]} { - return 0 + return } gdb_test "catch exception some_kind_of_error" \ diff --git a/gdb/testsuite/gdb.ada/excep_handle.exp b/gdb/testsuite/gdb.ada/excep_handle.exp index 624725d9047..40047f4f640 100644 --- a/gdb/testsuite/gdb.ada/excep_handle.exp +++ b/gdb/testsuite/gdb.ada/excep_handle.exp @@ -41,7 +41,7 @@ set catchpoint_storage_error_msg \ "Catchpoint $decimal, exception at $hex in foo \\\(\\\).*at .*foo.adb:$decimal$eol$decimal$sp$when Storage_Error =>" if {![runto_main]} { - return 0 + return } ############################################ diff --git a/gdb/testsuite/gdb.ada/funcall_ref.exp b/gdb/testsuite/gdb.ada/funcall_ref.exp index cc34a0b5c89..8e6bbc6c38a 100644 --- a/gdb/testsuite/gdb.ada/funcall_ref.exp +++ b/gdb/testsuite/gdb.ada/funcall_ref.exp @@ -81,7 +81,7 @@ foreach_gnat_encoding scenario flags {all minimal} { } if { $supported == 0 } { - return 0 + return } gdb_test "p get(\"Hello world!\")" \ diff --git a/gdb/testsuite/gdb.ada/info_exc.exp b/gdb/testsuite/gdb.ada/info_exc.exp index ab2d95c3c72..b3ed9959a28 100644 --- a/gdb/testsuite/gdb.ada/info_exc.exp +++ b/gdb/testsuite/gdb.ada/info_exc.exp @@ -26,7 +26,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } clean_restart ${testfile} if {![runto_main]} { - return 0 + return } gdb_test "info exceptions" \ diff --git a/gdb/testsuite/gdb.ada/mi_catch_assert.exp b/gdb/testsuite/gdb.ada/mi_catch_assert.exp index 8fa02bd54b1..d011ca58da2 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_assert.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_assert.exp @@ -39,7 +39,7 @@ mi_clean_restart $::testfile # - continue, the program exits. if {[mi_runto_main] < 0} { - return 0 + return } mi_gdb_test "-catch-assert -c \"Global_Var = 2\"" \ diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex.exp b/gdb/testsuite/gdb.ada/mi_catch_ex.exp index 5b2fddc6eed..974da0d72c9 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_ex.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_ex.exp @@ -38,7 +38,7 @@ mi_clean_restart $::testfile with_test_prefix "scenario 1" { if {[mi_runto_main] < 0} { - return 0 + return } } @@ -96,7 +96,7 @@ continue_to_exception \ with_test_prefix "scenario 2" { mi_delete_breakpoints if {[mi_runto_main] < 0} { - return 0 + return } } diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp b/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp index b4251ab1f3d..f853f6bb561 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp @@ -34,7 +34,7 @@ mi_clean_restart $::testfile with_test_prefix "scenario 1" { if {[mi_runto_main] < 0} { - return 0 + return } } @@ -86,7 +86,7 @@ continue_to_exception_handler \ with_test_prefix "scenario 2" { mi_delete_breakpoints if {[mi_runto_main] < 0} { - return 0 + return } } diff --git a/gdb/testsuite/gdb.ada/mi_dyn_arr.exp b/gdb/testsuite/gdb.ada/mi_dyn_arr.exp index c96d0952917..6dded2520a3 100644 --- a/gdb/testsuite/gdb.ada/mi_dyn_arr.exp +++ b/gdb/testsuite/gdb.ada/mi_dyn_arr.exp @@ -29,7 +29,7 @@ set MIFLAGS "-i=mi" mi_clean_restart $::testfile if {[mi_runto_main] < 0} { - return 0 + return } set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] diff --git a/gdb/testsuite/gdb.ada/mi_exc_info.exp b/gdb/testsuite/gdb.ada/mi_exc_info.exp index 92279739deb..5358fcfa92d 100644 --- a/gdb/testsuite/gdb.ada/mi_exc_info.exp +++ b/gdb/testsuite/gdb.ada/mi_exc_info.exp @@ -29,7 +29,7 @@ set MIFLAGS "-i=mi" mi_clean_restart $::testfile if {[mi_runto_main] < 0} { - return 0 + return } mi_delete_breakpoints diff --git a/gdb/testsuite/gdb.ada/mi_interface.exp b/gdb/testsuite/gdb.ada/mi_interface.exp index e74db357968..e638f9717e0 100644 --- a/gdb/testsuite/gdb.ada/mi_interface.exp +++ b/gdb/testsuite/gdb.ada/mi_interface.exp @@ -31,7 +31,7 @@ set MIFLAGS "-i=mi" mi_clean_restart $::testfile if {[mi_runto_main] < 0} { - return 0 + return } set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo.adb] diff --git a/gdb/testsuite/gdb.ada/mi_prot.exp b/gdb/testsuite/gdb.ada/mi_prot.exp index ba0c3110b1b..5e3f160e322 100644 --- a/gdb/testsuite/gdb.ada/mi_prot.exp +++ b/gdb/testsuite/gdb.ada/mi_prot.exp @@ -31,7 +31,7 @@ set MIFLAGS "-i=mi" mi_clean_restart $::testfile if {[mi_runto_main] < 0} { - return 0 + return } mi_delete_breakpoints diff --git a/gdb/testsuite/gdb.ada/mi_ref_changeable.exp b/gdb/testsuite/gdb.ada/mi_ref_changeable.exp index 86bab640a5b..a2813d42dff 100644 --- a/gdb/testsuite/gdb.ada/mi_ref_changeable.exp +++ b/gdb/testsuite/gdb.ada/mi_ref_changeable.exp @@ -29,7 +29,7 @@ set MIFLAGS "-i=mi" mi_clean_restart $::testfile if {[mi_runto_main] < 0} { - return 0 + return } # Continue until STOP_1, and create a varobj for variables "A" and "B". diff --git a/gdb/testsuite/gdb.ada/mi_string_access.exp b/gdb/testsuite/gdb.ada/mi_string_access.exp index cbed8285892..3a54e94bd86 100644 --- a/gdb/testsuite/gdb.ada/mi_string_access.exp +++ b/gdb/testsuite/gdb.ada/mi_string_access.exp @@ -32,7 +32,7 @@ foreach_gnat_encoding scenario flags {all minimal} { mi_clean_restart $::testfile-$scenario if {[mi_runto_main] < 0} { - return 0 + return } set bp_location [gdb_get_line_number "STOP" ${testdir}/bar.adb] diff --git a/gdb/testsuite/gdb.ada/mi_task_arg.exp b/gdb/testsuite/gdb.ada/mi_task_arg.exp index 54534e82789..31ef7d0dbeb 100644 --- a/gdb/testsuite/gdb.ada/mi_task_arg.exp +++ b/gdb/testsuite/gdb.ada/mi_task_arg.exp @@ -34,7 +34,7 @@ if {[mi_clean_restart $::testfile]} { mi_gdb_test "-gdb-set debug-file-directory \"\"" ".*" if {![mi_runto "task_switch.break_me"]} { - return 0 + return } # Verify that "-stack-list-arguments" does not cause the debugger to diff --git a/gdb/testsuite/gdb.ada/mi_task_info.exp b/gdb/testsuite/gdb.ada/mi_task_info.exp index c69af43f145..3b1a37e306a 100644 --- a/gdb/testsuite/gdb.ada/mi_task_info.exp +++ b/gdb/testsuite/gdb.ada/mi_task_info.exp @@ -35,7 +35,7 @@ if {[mi_clean_restart $::testfile]} { #################################### if {![mi_runto "task_switch.break_me"]} { - return 0 + return } set ada_task_info_hdr \ diff --git a/gdb/testsuite/gdb.ada/mi_var_access.exp b/gdb/testsuite/gdb.ada/mi_var_access.exp index 50b90f1edaa..72a7f36a01d 100644 --- a/gdb/testsuite/gdb.ada/mi_var_access.exp +++ b/gdb/testsuite/gdb.ada/mi_var_access.exp @@ -29,7 +29,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != "" } { mi_clean_restart $::testfile if {[mi_runto_main] < 0} { - return 0 + return } set bp_location [gdb_get_line_number "STOP" ${testdir}/mi_access.adb] diff --git a/gdb/testsuite/gdb.ada/mi_var_array.exp b/gdb/testsuite/gdb.ada/mi_var_array.exp index d8b565d2a79..15a01a503f6 100644 --- a/gdb/testsuite/gdb.ada/mi_var_array.exp +++ b/gdb/testsuite/gdb.ada/mi_var_array.exp @@ -32,7 +32,7 @@ foreach_gnat_encoding scenario flags {none all minimal} { mi_clean_restart $::testfile-$scenario if {[mi_runto_main] < 0} { - return 0 + return } set bp_location [gdb_get_line_number "STOP" ${testdir}/bar.adb] diff --git a/gdb/testsuite/gdb.ada/mi_var_union.exp b/gdb/testsuite/gdb.ada/mi_var_union.exp index 0cc792c07f9..9ae020f7995 100644 --- a/gdb/testsuite/gdb.ada/mi_var_union.exp +++ b/gdb/testsuite/gdb.ada/mi_var_union.exp @@ -34,7 +34,7 @@ foreach_gnat_encoding scenario flags {none all minimal} { mi_clean_restart $::testfile-$scenario if {[mi_runto_main] < 0} { - return 0 + return } set bp_location [gdb_get_line_number "STOP" ${testdir}/bar.adb] diff --git a/gdb/testsuite/gdb.ada/mi_variant.exp b/gdb/testsuite/gdb.ada/mi_variant.exp index 4ad9a6ce165..6622cb1ff9d 100644 --- a/gdb/testsuite/gdb.ada/mi_variant.exp +++ b/gdb/testsuite/gdb.ada/mi_variant.exp @@ -33,7 +33,7 @@ foreach_gnat_encoding scenario flags {none all minimal} { mi_clean_restart $::testfile-$scenario if {[mi_runto_main] < 0} { - return 0 + return } set bp_location [gdb_get_line_number "STOP" ${testdir}/pkg.adb] diff --git a/gdb/testsuite/gdb.ada/str_ref_cmp.exp b/gdb/testsuite/gdb.ada/str_ref_cmp.exp index fa3370ffa36..a3362bffaa7 100644 --- a/gdb/testsuite/gdb.ada/str_ref_cmp.exp +++ b/gdb/testsuite/gdb.ada/str_ref_cmp.exp @@ -34,7 +34,7 @@ gdb_test_multiple {print "a" = "a"} $test { -re " = false\r\n$gdb_prompt $" { kfail ada/12607 $test untested ${testdir}.exp - return 0 + return } -re " = true\r\n$gdb_prompt $" { pass $test base-commit: 19ae4f3f4a9bef8c986b7509e5ddf903c34189ed -- 2.51.0