From patchwork Fri Aug 2 07:11:32 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: =?utf-8?q?Marc_Poulhi=C3=A8s?= X-Patchwork-Id: 1968210 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@legolas.ozlabs.org Authentication-Results: legolas.ozlabs.org; dkim=pass (2048-bit key; secure) header.d=adacore.com header.i=@adacore.com header.a=rsa-sha256 header.s=google header.b=gMx3xiV1; dkim-atps=neutral Authentication-Results: legolas.ozlabs.org; spf=pass (sender SPF authorized) smtp.mailfrom=gcc.gnu.org (client-ip=2620:52:3:1:0:246e:9693:128c; helo=server2.sourceware.org; envelope-from=gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org; receiver=patchwork.ozlabs.org) Received: from server2.sourceware.org (server2.sourceware.org [IPv6:2620:52:3:1:0:246e:9693:128c]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (secp384r1) server-digest SHA384) (No client certificate requested) by legolas.ozlabs.org (Postfix) with ESMTPS id 4WZxzq2L6Jz1yYq for ; Fri, 2 Aug 2024 17:19:51 +1000 (AEST) Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 670E5385EC55 for ; Fri, 2 Aug 2024 07:19:49 +0000 (GMT) X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mail-wm1-x334.google.com (mail-wm1-x334.google.com [IPv6:2a00:1450:4864:20::334]) by sourceware.org (Postfix) with ESMTPS id 5CA8F385ED4F for ; Fri, 2 Aug 2024 07:12:36 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 5CA8F385ED4F 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 5CA8F385ED4F Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2a00:1450:4864:20::334 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1722582761; cv=none; b=kKjPK1vJYJozZHOBn9qocjaMWmeF1DV1D7WRPkijwv5h7H7bdDNseGSpvdFIpbpTeGINcW1wNjZOQG389UE1flUDJt08jWmvBgQdoM8TXUpTotaGDjtLo933S/+QR3LjSuBabJN7kfPvlCzTO9yQLxqz9ie005loEWgFUKBUOYk= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1722582761; c=relaxed/simple; bh=7lBPPensJngVPwg7rmmVrXYjlPEmuINSwxclHyk5d6A=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=ND4t5/w7lI71EvGrhgYO/K0haZSHnxwhv1v5JVS0ajUVwijgbbsQMpaOmhqw0FPAiCVIg3vM3Y8hBaxGjFWRcV/RMvjusDtDDdc/QVrZ1QGo4X8TVkBxTnXvxi1ukN6J+1iPsWzMaYSJbPUjD5y2R5eUyV2LJZQgQ+7VHFnZ/pg= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-wm1-x334.google.com with SMTP id 5b1f17b1804b1-428e0d18666so11803855e9.3 for ; Fri, 02 Aug 2024 00:12:36 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; t=1722582755; x=1723187555; darn=gcc.gnu.org; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:from:to:cc:subject:date :message-id:reply-to; bh=3Mx9UsnJ1Nax+rI42bEBMXVMPEvZU+SPF8Q9mLWHawY=; b=gMx3xiV1tMub23SgyVCVcmtpcfy1K4Pr+klmlDR3/DOXvcvVqnwulL85UEu1/hfOSl TDewskExYRVrNegZ38Tq2dPLrcXN/ZPbOXzT+3ir7aaWdp6XFjmCr35L9/0sMkOIsPHP gu71uImCi5qTygYWGFTjS5ZP1fOxcQ074YnTHaTKxv5PyMbRZ6FaS77qJcZD5dMZQ2KS iCIq39POjEmmpXC9P9Z/5WwonsXVVhnqKt7cvClNwYqFxkjqnxkP+lxZkFnS0QM0EZ4y J0PjuA+Xsrmt9R9t0PH/GKePyREZ6KdPCxpJj/WcXESnC7NHu1wA9oheYY9kgRbLxnIN a/SQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1722582755; x=1723187555; 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=3Mx9UsnJ1Nax+rI42bEBMXVMPEvZU+SPF8Q9mLWHawY=; b=gdcOMdeTl1lctvoEVSPudue2OaTF/FEXYLGrJvw/aSZ/o69RIrimfZ8giBcxG9k81l giiOuX//EKb3R84J/nBwUAorK2BiIWbT6JxD3nGPnOe9+Bg5k3fNat6ARfTTAHt3HyqD nCKDvDlX/X9GSt2Bdej0jWcA40ndy15Iu+ZkRVTXWIdN97C2X0N67RdBMz/2xA9TNUxd D2jsuOlcf1Up8sdKGfg7kTa95s60oeJdtZ9cVIkvPFLTjtHXl4V3xRgHTkSjpKNZpF2d Feip4mv/wadw9wyZSb8L2CH0W1fGkl20NN1dlVu+qM/C8SvFsq7IBxdL8LriT4PssJ84 KZDQ== X-Gm-Message-State: AOJu0YywMT3LdtYDs7i+n7kjRRU3E2u7YQ5UmIINxJwmX+cfiJ2vssPC nLksgJxCAXEtfcvLiAXDRQT1uanb/cGF7mgPps8K4uEPvNlelvvuhAbeo83Ry+sk3/nJQlJCjve Wkg== X-Google-Smtp-Source: AGHT+IE2NSseRLcZDGA3J7h7JiWE1lI6OibQmBl9lpL+K0fHDYJwtIAItB6Mk5lrq0OwqjT1Hp7BUA== X-Received: by 2002:a05:600c:1c8a:b0:426:61af:e1d6 with SMTP id 5b1f17b1804b1-428e6b7be7dmr16800725e9.29.1722582755037; Fri, 02 Aug 2024 00:12:35 -0700 (PDT) Received: from localhost.localdomain ([2001:861:3382:1a90:b6aa:4751:9ea1:da1e]) by smtp.gmail.com with ESMTPSA id ffacd0b85a97d-36bbd059932sm1195770f8f.69.2024.08.02.00.12.34 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 02 Aug 2024 00:12:34 -0700 (PDT) From: =?utf-8?q?Marc_Poulhi=C3=A8s?= To: gcc-patches@gcc.gnu.org Cc: Richard Kenner Subject: [COMMITTED 15/26] ada: Remove unreferenced procedure Date: Fri, 2 Aug 2024 09:11:32 +0200 Message-ID: <20240802071210.413366-15-poulhies@adacore.com> X-Mailer: git-send-email 2.45.2 In-Reply-To: <20240802071210.413366-1-poulhies@adacore.com> References: <20240802071210.413366-1-poulhies@adacore.com> MIME-Version: 1.0 X-Spam-Status: No, score=-13.3 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, KAM_ASCII_DIVIDERS, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, 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: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.30 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org From: Richard Kenner gcc/ada/ * exp_ch4.adb (Generate_Temporary): Remove unused procedure. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/exp_ch4.adb | 43 ------------------------------------------- 1 file changed, 43 deletions(-) diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 371cb118243..18ec7125cc1 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -10816,49 +10816,6 @@ package body Exp_Ch4 is Expr : Node_Id; Ityp : Entity_Id; - procedure Generate_Temporary; - -- Generate a temporary to facilitate in the C backend the code - -- generation of the unchecked conversion since the size of the - -- source type may differ from the size of the target type. - - ------------------------ - -- Generate_Temporary -- - ------------------------ - - procedure Generate_Temporary is - begin - if Esize (Etype (Expr)) < Esize (Etype (Ityp)) then - declare - Exp_Type : constant Entity_Id := Ityp; - Def_Id : constant Entity_Id := - Make_Temporary (Loc, 'R', Expr); - E : Node_Id; - Res : Node_Id; - - begin - Set_Is_Internal (Def_Id); - Set_Etype (Def_Id, Exp_Type); - Res := New_Occurrence_Of (Def_Id, Loc); - - E := - Make_Object_Declaration (Loc, - Defining_Identifier => Def_Id, - Object_Definition => New_Occurrence_Of - (Exp_Type, Loc), - Constant_Present => True, - Expression => Relocate_Node (Expr)); - - Set_Assignment_OK (E); - Insert_Action (Expr, E); - - Set_Assignment_OK (Res, Assignment_OK (Expr)); - - Rewrite (Expr, Res); - Analyze_And_Resolve (Expr, Exp_Type); - end; - end if; - end Generate_Temporary; - -- Start of processing for Discrete_Range_Check begin