(Associated_Node, [...]): Do not check for Freeze_Entity.

	* (Associated_Node, Set_Associated_Node): Do not check for
	Freeze_Entity.

From-SVN: r46666

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f12211edf15738302f73f2c423712b6092b1537c..d088d1ebfbcc07785cf33d825fe7456703057849 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 931c9914528fea20356f6dbb353e2fb38c2aaf9f..e3bda4bd4ea505b560939d4cd629cfe42fcb56e0 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;