* (Associated_Node, Set_Associated_Node): Do not check for

	Freeze_Entity.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46666 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f12211e..d088d1e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-30  Geert Bosch <bosch@gnat.com>
+
+       * (Associated_Node, Set_Associated_Node): Do not check for 
+       Freeze_Entity.
+
 2001-10-30  Robert Dewar <dewar@gnat.com>
 
        * a-reatim.ads: Minor reformatting

diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb
index 931c991..e3bda4b 100644 (file)
--- 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;