From: Geert Bosch <bosch@gnat.com>
Date: Wed, 31 Oct 2001 00:49:13 +0000 (+0100)
Subject: (Associated_Node, [...]): Do not check for Freeze_Entity.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=81fa2d3951b2d950802c37a5cf03fa23ad9d8789;p=gcc.git

(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 f12211edf15..d088d1ebfbc 100644
--- 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 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;