diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 18:49:37 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 18:49:37 +0000 |
| commit | e1c9bc4803d7f9037547d6a330de2253cbe43637 (patch) | |
| tree | 48a88ba2089ec47038622ab9d73a847c5bf80eef | |
| parent | 0c03486012deb9a27787ff22ca73276d3f7f8601 (diff) | |
| download | gcc-e1c9bc4803d7f9037547d6a330de2253cbe43637.tar.gz | |
* sinfo.adb: Define Associated_Node to overlap Entity field. Cleanup.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46558 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sinfo.adb | 26 |
2 files changed, 29 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c302afa307f..7fe5186d5a8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2001-10-26 Robert Dewar <dewar@gnat.com> + + * sinfo.adb: Define Associated_Node to overlap Entity field. Cleanup. + 2001-10-26 Richard Kenner <kenner@gnat.com> * gmem.c (__gnat_gmem_read_next): Properly check for EOF diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index fb96678b814..931c9914528 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.314 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -228,6 +228,18 @@ package body Sinfo is return Flag15 (N); end Assignment_OK; + function Associated_Node + (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; + function At_End_Proc (N : Node_Id) return Node_Id is begin @@ -2573,6 +2585,18 @@ package body Sinfo is Set_Flag15 (N, Val); end Set_Assignment_OK; + procedure Set_Associated_Node + (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; + procedure Set_At_End_Proc (N : Node_Id; Val : Node_Id) is begin |