diff options
| author | Geert Bosch <bosch@gnat.com> | 2001-10-31 01:49:13 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-31 01:49:13 +0100 |
| commit | 81fa2d3951b2d950802c37a5cf03fa23ad9d8789 (patch) | |
| tree | 6fa99c7f125166b313210363d13d637e26ba1f64 /gcc | |
| parent | 18e1f2bd67da8877099783f42634d8692bd80ec9 (diff) | |
| download | gcc-81fa2d3951b2d950802c37a5cf03fa23ad9d8789.zip gcc-81fa2d3951b2d950802c37a5cf03fa23ad9d8789.tar.gz gcc-81fa2d3951b2d950802c37a5cf03fa23ad9d8789.tar.bz2 | |
(Associated_Node, [...]): Do not check for Freeze_Entity.
* (Associated_Node, Set_Associated_Node): Do not check for
Freeze_Entity.
From-SVN: r46666
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sinfo.adb | 6 |
2 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f12211e..d088d1e 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 931c991..e3bda4b 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; |