diff options
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 46 |
1 files changed, 29 insertions, 17 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index f8d2278..9791e20 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2003, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -170,10 +170,8 @@ package body Sinfo is (N : Node_Id) return Boolean is begin pragma Assert (False - or else NT (N).Nkind = N_Component_Declaration - or else NT (N).Nkind = N_Constrained_Array_Definition - or else NT (N).Nkind = N_Object_Declaration - or else NT (N).Nkind = N_Unconstrained_Array_Definition); + or else NT (N).Nkind = N_Component_Definition + or else NT (N).Nkind = N_Object_Declaration); return Flag4 (N); end Aliased_Present; @@ -376,6 +374,16 @@ package body Sinfo is return List3 (N); end Component_Clauses; + function Component_Definition + (N : Node_Id) return Node_Id is + begin + pragma Assert (False + or else NT (N).Nkind = N_Component_Declaration + or else NT (N).Nkind = N_Constrained_Array_Definition + or else NT (N).Nkind = N_Unconstrained_Array_Definition); + return Node4 (N); + end Component_Definition; + function Component_Items (N : Node_Id) return List_Id is begin @@ -2293,12 +2301,10 @@ package body Sinfo is begin pragma Assert (False or else NT (N).Nkind = N_Access_To_Object_Definition - or else NT (N).Nkind = N_Component_Declaration - or else NT (N).Nkind = N_Constrained_Array_Definition + or else NT (N).Nkind = N_Component_Definition or else NT (N).Nkind = N_Derived_Type_Definition or else NT (N).Nkind = N_Private_Extension_Declaration - or else NT (N).Nkind = N_Subtype_Declaration - or else NT (N).Nkind = N_Unconstrained_Array_Definition); + or else NT (N).Nkind = N_Subtype_Declaration); return Node5 (N); end Subtype_Indication; @@ -2612,10 +2618,8 @@ package body Sinfo is (N : Node_Id; Val : Boolean := True) is begin pragma Assert (False - or else NT (N).Nkind = N_Component_Declaration - or else NT (N).Nkind = N_Constrained_Array_Definition - or else NT (N).Nkind = N_Object_Declaration - or else NT (N).Nkind = N_Unconstrained_Array_Definition); + or else NT (N).Nkind = N_Component_Definition + or else NT (N).Nkind = N_Object_Declaration); Set_Flag4 (N, Val); end Set_Aliased_Present; @@ -2818,6 +2822,16 @@ package body Sinfo is Set_List3_With_Parent (N, Val); end Set_Component_Clauses; + procedure Set_Component_Definition + (N : Node_Id; Val : Node_Id) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Component_Declaration + or else NT (N).Nkind = N_Constrained_Array_Definition + or else NT (N).Nkind = N_Unconstrained_Array_Definition); + Set_Node4_With_Parent (N, Val); + end Set_Component_Definition; + procedure Set_Component_Items (N : Node_Id; Val : List_Id) is begin @@ -4725,12 +4739,10 @@ package body Sinfo is begin pragma Assert (False or else NT (N).Nkind = N_Access_To_Object_Definition - or else NT (N).Nkind = N_Component_Declaration - or else NT (N).Nkind = N_Constrained_Array_Definition + or else NT (N).Nkind = N_Component_Definition or else NT (N).Nkind = N_Derived_Type_Definition or else NT (N).Nkind = N_Private_Extension_Declaration - or else NT (N).Nkind = N_Subtype_Declaration - or else NT (N).Nkind = N_Unconstrained_Array_Definition); + or else NT (N).Nkind = N_Subtype_Declaration); Set_Node5_With_Parent (N, Val); end Set_Subtype_Indication; |