@@ -1843,7 +1843,9 @@ package body Sem_Attr is
if Nkind (P) = N_Aspect_Specification then
return P_Type = Entity (P);
- elsif Nkind (P) in N_Declaration then
+ -- Prevent the search from going too far
+
+ elsif Is_Body_Or_Package_Declaration (P) then
return False;
end if;
@@ -1037,11 +1037,19 @@ package body Sem_Ch13 is
Parent_Type : Entity_Id;
+ Save_In_Spec_Expression : constant Boolean := In_Spec_Expression;
+
begin
-- Ensure Expr is analyzed so that e.g. all types are properly
- -- resolved for Find_Type_Reference.
+ -- resolved for Find_Type_Reference. We preanalyze this expression
+ -- as a spec expression (to avoid recursive freezing), while skipping
+ -- resolution (to not fold type self-references, e.g. T'Last).
- Analyze (Expr);
+ In_Spec_Expression := True;
+
+ Preanalyze (Expr);
+
+ In_Spec_Expression := Save_In_Spec_Expression;
-- A self-referential aspect is illegal if it forces freezing the
-- entity before the corresponding aspect has been analyzed.
From: Piotr Trojanek <trojanek@adacore.com> When the expression of aspect Default_Component_Value includes a declare expression with current type instance, we attempted to recursively froze that type, which itself caused an infinite recursion, because we didn't properly manage the scope of declare expression. This patch fixes both the detection of the current type instance and analysis of the expression that caused recursive freezing. gcc/ada/ * sem_attr.adb (In_Aspect_Specification): Use the standard condition that works correctly with declare expressions. * sem_ch13.adb (Analyze_Aspects_At_Freeze_Point): Replace ordinary analysis with preanalysis of spec expressions. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/sem_attr.adb | 4 +++- gcc/ada/sem_ch13.adb | 12 ++++++++++-- 2 files changed, 13 insertions(+), 3 deletions(-)