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