FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

From-SVN: r46666
This commit is contained in:
Geert Bosch 2001-10-31 01:49:13 +01:00 • committed by Geert Bosch
parent 18e1f2bd67
commit 81fa2d3951
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

@ -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

6
gcc/ada/sinfo.adb
View file

@ -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;