This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Fix assertions in sinfo.adb
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Fix assertions in sinfo.adb
- From: bosch at gnat dot com
- Date: Tue, 30 Oct 2001 19:49:32 -0500 (EST)
Fix assertions. Tested on GNU Linux/x86.
-Geert
2001-10-30 Geert Bosch <bosch@gnat.com>
* sinfo.adb (Associated_Node, Set_Associated_Node): Do not check for
Freeze_Entity.
*** sinfo.adb Fri Oct 26 14:47:08 2001
--- sinfo.adb Tue Oct 16 10:55:46 2001
***************
*** 232,241 ****
(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 = 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;
--- 232,240 ----
(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 = N_Aggregate
or else NT (N).Nkind = N_Extension_Aggregate
or else NT (N).Nkind = N_Selected_Component);
return Node4 (N);
end Associated_Node;
***************
*** 2589,2598 ****
(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 = 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;
--- 2588,2596 ----
(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 = N_Aggregate
or else NT (N).Nkind = N_Extension_Aggregate
or else NT (N).Nkind = N_Selected_Component);
Set_Node4 (N, Val); -- semantic field, no parent set
end Set_Associated_Node;