From patchwork Thu Apr 27 16:32:05 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tom Tromey X-Patchwork-Id: 68392 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 9032F3856DC0 for ; Thu, 27 Apr 2023 16:32:42 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 9032F3856DC0 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=sourceware.org; s=default; t=1682613162; bh=VZirNAqHs6WF/2BRKvpiMvGNyZrDq0c2pTbhMZbtFTU=; h=To:Cc:Subject:Date:List-Id:List-Unsubscribe:List-Archive: List-Post:List-Help:List-Subscribe:From:Reply-To:From; b=VVJaiFaXWBTxdWSqRg0zlbIsVHHxUuSOkT8l1jJN6BbpuMWEcTKLaF03f0xdBgWGN 9fHCsBrUZGInku9Dq0Ljt9LEHeVVPQEXETaNN9MQ86eJGob7jc1c2ZOd2uxuOAG2qp vyTCxabSsLZf1B78PdJXFj/kiq4OHX/mA056GoEk= X-Original-To: gdb-patches@sourceware.org Delivered-To: gdb-patches@sourceware.org Received: from mail-io1-xd33.google.com (mail-io1-xd33.google.com [IPv6:2607:f8b0:4864:20::d33]) by sourceware.org (Postfix) with ESMTPS id E7B0A3858D33 for ; Thu, 27 Apr 2023 16:32:16 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org E7B0A3858D33 Received: by mail-io1-xd33.google.com with SMTP id ca18e2360f4ac-760ecf3424bso204336939f.2 for ; Thu, 27 Apr 2023 09:32:16 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1682613136; x=1685205136; 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=VZirNAqHs6WF/2BRKvpiMvGNyZrDq0c2pTbhMZbtFTU=; b=AAm1tA1X7deM3lfUcOmNHcH8wjH+Zs5OUssdJEGFAbPrTz8mUKemzOIEJjkbJgnaWK WvY6jF2SP0QvPqCN7vhaohSfja8tHLsdlSTc0+0I5r2mBaRC3yugSFuRZ/iDCvp5WMrn rI5PBvBztAXq6yXKIXDYJOx8dfvC7pNrJLWWYljJ3/RwAojxLiT7XpQTINj0HruRYZXI r0f7Dl38EDS93MwinLHWZjGOnzwuJ7QccUkdLIEz1E2pqp00TK1dF/tXCFuJ2gyQAOBO 7ciHCuiclEkfuH0l6TlGQJ2kS4f02aKz+Vk3hLSTxdhqZjyUzWeDEllnu6JMY9Dojo4F 26ew== X-Gm-Message-State: AC+VfDy1nAc3TuFbhFnze6Pat5OHXCjc428HJe928U64P5k8hz8QDYzV ViMnuprJm7qlxGA6ssN9qEQN06qKTFDV8DzFdXM0IQ== X-Google-Smtp-Source: ACHHUZ7tCpUtDqi9yJb41I4TgaejaELCelTSi77WKC+L8WWEYMD7XTUTpel8hPNa/WSAb/A58D8Klg== X-Received: by 2002:a92:cd43:0:b0:32f:210b:b114 with SMTP id v3-20020a92cd43000000b0032f210bb114mr1859227ilq.2.1682613136096; Thu, 27 Apr 2023 09:32:16 -0700 (PDT) Received: from localhost.localdomain (71-211-191-82.hlrn.qwest.net. [71.211.191.82]) by smtp.gmail.com with ESMTPSA id 124-20020a021182000000b0040fad7eb910sm5900245jaf.176.2023.04.27.09.32.15 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 27 Apr 2023 09:32:15 -0700 (PDT) To: gdb-patches@sourceware.org Cc: Tom Tromey Subject: [pushed] Avoid some compiler warnings in gdb.ada Date: Thu, 27 Apr 2023 10:32:05 -0600 Message-Id: <20230427163205.3031287-1-tromey@adacore.com> X-Mailer: git-send-email 2.39.1 MIME-Version: 1.0 X-Spam-Status: No, score=-11.3 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, KAM_SHORT, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, TXREP, T_SCC_BODY_TEXT_LINE 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: Tom Tromey via Gdb-patches From: Tom Tromey Reply-To: Tom Tromey Errors-To: gdb-patches-bounces+patchwork=sourceware.org@sourceware.org Sender: "Gdb-patches" Running gdb.ada/verylong.exp shows a warning from the Ada compiler: prog.adb:16:11: warning: file name does not match unit name, should be "main.adb" [enabled by default] This patch fixes the problem, and another similar one in unchecked_union.exp. --- gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb | 4 ++-- gdb/testsuite/gdb.ada/verylong/prog.adb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb b/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb index c3bccb69696..502c1da37bc 100644 --- a/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb +++ b/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb @@ -16,7 +16,7 @@ with System; with Pck; use Pck; -procedure Foo is +procedure Unchecked_Union is type Key is (Alpha, Beta, Omega); type Inner(Disc : Key := Omega) is record @@ -52,4 +52,4 @@ procedure Foo is begin Do_Nothing (Value'Address); -- BREAK -end Foo; +end Unchecked_Union; diff --git a/gdb/testsuite/gdb.ada/verylong/prog.adb b/gdb/testsuite/gdb.ada/verylong/prog.adb index 766419d0a4f..63fba1d2d3a 100644 --- a/gdb/testsuite/gdb.ada/verylong/prog.adb +++ b/gdb/testsuite/gdb.ada/verylong/prog.adb @@ -13,8 +13,8 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see . -procedure Main is +procedure Prog is X : Long_Long_Long_Integer := Long_Long_Long_Integer'Last; begin null; -- START -end Main; +end Prog;