From 81fa2d3951b2d950802c37a5cf03fa23ad9d8789 Mon Sep 17 00:00:00 2001 From: Geert Bosch Date: Wed, 31 Oct 2001 01:49:13 +0100 Subject: [PATCH] (Associated_Node, [...]): Do not check for Freeze_Entity. * (Associated_Node, Set_Associated_Node): Do not check for Freeze_Entity. From-SVN: r46666 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/sinfo.adb | 6 ++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f12211edf15..d088d1ebfbc 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2001-10-30 Geert Bosch + + * (Associated_Node, Set_Associated_Node): Do not check for + Freeze_Entity. + 2001-10-30 Robert Dewar * a-reatim.ads: Minor reformatting diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 931c9914528..e3bda4bd4ea 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -232,10 +232,9 @@ package body Sinfo is (N : Node_Id) return Node_Id is begin pragma Assert (False - or else NT (N).Nkind in N_Has_Entity + or else NT (N).Nkind in N_Has_Entity or else NT (N).Nkind = N_Aggregate or else NT (N).Nkind = N_Extension_Aggregate - or else NT (N).Nkind = N_Freeze_Entity or else NT (N).Nkind = N_Selected_Component); return Node4 (N); end Associated_Node; @@ -2589,10 +2588,9 @@ package body Sinfo is (N : Node_Id; Val : Node_Id) is begin pragma Assert (False - or else NT (N).Nkind in N_Has_Entity + or else NT (N).Nkind in N_Has_Entity or else NT (N).Nkind = N_Aggregate or else NT (N).Nkind = N_Extension_Aggregate - or else NT (N).Nkind = N_Freeze_Entity or else NT (N).Nkind = N_Selected_Component); Set_Node4 (N, Val); -- semantic field, no parent set end Set_Associated_Node;