https://gcc.gnu.org/g:0992435c0f264567d31be43cc8f87b20f9967667

commit r16-2005-g0992435c0f264567d31be43cc8f87b20f9967667
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Tue Jun 17 14:20:40 2025 +0200

    ada: Remove leftover from rework of aspect representation
    
    This patch removes some comments and object definitions that referred to
    a hacky use of the Entity field that had been removed by the latest
    rework of the internal representation of aspects.
    
    gcc/ada/ChangeLog:
    
            * sem_ch13.adb (Check_Aspect_At_Freeze_Point): Remove obsolete bits.

Diff:
---
 gcc/ada/sem_ch13.adb | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index d080e307542c..09372a43e52c 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -11407,24 +11407,16 @@ package body Sem_Ch13 is
    ----------------------------------
 
    procedure Check_Aspect_At_Freeze_Point (ASN : Node_Id) is
-      Ident : constant Node_Id := Identifier (ASN);
-      --  Identifier (use Entity field to save expression)
-
       Expr : constant Node_Id := Expression (ASN);
-      --  For cases where using Entity (Identifier) doesn't work
 
-      A_Id : constant Aspect_Id := Get_Aspect_Id (Chars (Ident));
+      A_Id : constant Aspect_Id := Get_Aspect_Id (Chars (Identifier (ASN)));
 
       T : Entity_Id := Empty;
       --  Type required for preanalyze call
 
    begin
-      --  On entry to this procedure, Entity (Ident) contains a copy of the
-      --  original expression from the aspect, saved for this purpose.
-
-      --  On exit from this procedure Entity (Ident) is unchanged, still
-      --  containing that copy, but Expression (Ident) is a preanalyzed copy
-      --  of the expression, preanalyzed just after the freeze point.
+      --  On exit from this procedure, Expression (ASN) is a copy of the
+      --  original expression, preanalyzed just after the freeze point.
 
       --  Make a copy of the expression to be preanalyzed

Reply via email to