From patchwork Fri Oct 25 09:10:52 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: 2002088 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=ar27smN1; 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 4XZcjM4HL0z1xxG for ; Fri, 25 Oct 2024 20:21:27 +1100 (AEDT) Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 92C273858CDB for ; Fri, 25 Oct 2024 09:21:25 +0000 (GMT) X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mail-lf1-x130.google.com (mail-lf1-x130.google.com [IPv6:2a00:1450:4864:20::130]) by sourceware.org (Postfix) with ESMTPS id 405343858D34 for ; Fri, 25 Oct 2024 09:11:49 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 405343858D34 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 405343858D34 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2a00:1450:4864:20::130 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1729847515; cv=none; b=C4zyRHK0F/FWxDmPYAXAjDfuZt0G87IUk1wopPRxWCxmio1CSDIYSLHOkNIxDaAzQif3AOOXRSkJJ0lHONC4B7EaX9PxnBu4ZFzxYPEvxnMfBqlxfrf5BDkehfa145v6HWandrWt+qKG8hSnwFMkHxRo1rSA16rfYi+YSgAv6r8= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1729847515; c=relaxed/simple; bh=EjIXT55GxNYhbBtYVhmcXwM/qmVyKbV3HAFUtwe3MGs=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=YBLd4z8q8BMll5yp7n95OtovGbi0doE6VC+wgS2LOwskFlIbiDwJuk2hh7k6gaQPUoV3vGn4KrvTN/QqtaqtRutPRi9wzL3AUmMkzM3mav+Lt3X55sU70ZgejbP/03AHFHrJ4w4Sj70qj4V53LyaG8H2SxcivHOdTCwujmjCs9E= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-lf1-x130.google.com with SMTP id 2adb3069b0e04-539f72c913aso2363115e87.1 for ; Fri, 25 Oct 2024 02:11:49 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; t=1729847508; x=1730452308; 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=dhQGzXI9g752CjGoJ/d3l0B3MJD45RoxzkvC+AK0W1U=; b=ar27smN1oHXRwUiSagGyNboaazAzJDWKdJ25ICkicqZvZlOlri2Bx/yj1J79y2KrrW Cy9FePodmWmuOviTTwbOofm72B+hZUEEkE1vPobZef+Ws4RoS9JO18jD/IQo5AR8lbSE rc6/Re8d/xRotoBFe5Uv1ZhOGSC8uto/AteROMZqMxTknUx7FXZUU8AgZBEzjjKRWUp3 9wlEpSfhCPlaaAEMH3NgsTn1c42nZtWh5KsQH2WNLDyslm5xhDzgnooDemJsA5VIQphm OW9Si2m6g8BITCGCERJSwAS4Rmf4BGpIc+TXmpkhnU7HJIV3ZMkFtjUVGxCO0XmLvaV6 oFlg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1729847508; x=1730452308; 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=dhQGzXI9g752CjGoJ/d3l0B3MJD45RoxzkvC+AK0W1U=; b=IbHzySXI5pccdLF6FXHWYrIOC/WWzZySNOsEUGsXOzrATW0YbTC7Yfad5oecBOOVR6 e2xXx3eXXm98cUlykLOsQul09B0gWdMrjqc4ETxINoN9PleacFQBXH6jeOo3XmgIOXcZ cbETfKtM0n39ykZdQzRrmO5HG+qvHUuKifRYy1Qp9vI+ehuvOAKEcmXRyeXJpWpsCTmi lKsy8i7d+m5XmAySgWy39jPEeIY24qDGpb9puabrxaNTo9TpdpAKeMZbxr9qKGRz6c+b ISMD/fNN5PaJNKgGHjPwUPAfYWMrZyDJiqlaun8OKcSuzb5a35VaSO2idshQKx/SWNOx D19w== X-Gm-Message-State: AOJu0YzZ4p15Z7r6s8rQUozOaoqO+BbS3kP3kpf8adz7h+z/y8zgLQYD SQRYuz6e7+DS3dwT5CNIcm9YvpTx+t1WMzFM1D4V1NJ2PMU+rqrNVXEXDUd3pZoWunR8PkFXU/g = X-Google-Smtp-Source: AGHT+IGfSo7SaawgeCROag6I83iqTrJVb3pORCdZ+cGK3zF5jbczZlQxYkkI6ApSLaagsTgvun5KNA== X-Received: by 2002:a05:6512:224e:b0:539:8df0:4d3f with SMTP id 2adb3069b0e04-53b23e8eb2fmr3576301e87.40.1729847507628; Fri, 25 Oct 2024 02:11:47 -0700 (PDT) Received: from localhost.localdomain ([2001:861:3382:1a90:2626:b78c:6271:6c01]) by smtp.gmail.com with ESMTPSA id ffacd0b85a97d-38058b47aa8sm1013079f8f.51.2024.10.25.02.11.46 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 25 Oct 2024 02:11:47 -0700 (PDT) From: =?utf-8?q?Marc_Poulhi=C3=A8s?= To: gcc-patches@gcc.gnu.org Cc: Eric Botcazou Subject: [COMMITTED 23/35] ada: Small adjustments to commentary after latest change Date: Fri, 25 Oct 2024 11:10:52 +0200 Message-ID: <20241025091107.485741-23-poulhies@adacore.com> X-Mailer: git-send-email 2.43.0 In-Reply-To: <20241025091107.485741-1-poulhies@adacore.com> References: <20241025091107.485741-1-poulhies@adacore.com> MIME-Version: 1.0 X-Spam-Status: No, score=-13.6 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, 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: Eric Botcazou This removes the enumeration of the various cases in the comment associated with the declaration of In_Expanded_Body to prevent synchronization issues. gcc/ada/ChangeLog: * freeze.adb (Freeze_Expression.In_Expanded_Body): Tweak comments. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/freeze.adb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 101cf4740e3..9c14e1f1a70 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -8341,10 +8341,9 @@ package body Freeze is function In_Expanded_Body (N : Node_Id) return Boolean; -- Given an N_Handled_Sequence_Of_Statements node, determines whether it - -- is the statement sequence of an expander-generated subprogram: body - -- created for an expression function, for a predicate function, an init - -- proc, a stream subprogram, or a renaming as body. If so, this is not - -- a freezing context and the entity will be frozen at a later point. + -- is the statement sequence of an expander-generated subprogram body or + -- of a renaming_as_body. If so, this is not a freezing context and the + -- entity will be frozen at a later point. function Has_Decl_In_List (E : Entity_Id; @@ -8464,8 +8463,8 @@ package body Freeze is else Id := Defining_Unit_Name (Specification (P)); - -- The following are expander-created bodies, or bodies that - -- are not freeze points. + -- This is the body of a Type-Specific Support routine or the one + -- generated for a renaming_as_body. if Nkind (Id) = N_Defining_Identifier and then (Is_Init_Proc (Id)