diff options
Diffstat (limited to 'gcc/ada/atree.adb')
-rw-r--r-- | gcc/ada/atree.adb | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index 870d7ff..973bdde 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -828,6 +828,7 @@ package body Atree is end case; Set_Chars (New_Ent, Chars (E)); + -- Set_Comes_From_Source (New_Ent, Comes_From_Source (E)); return New_Ent; end Copy_Entity; @@ -2905,6 +2906,16 @@ package body Atree is return List_Id (Nodes.Table (N + 4).Field7); end List25; + function List38 (N : Node_Id) return List_Id is + begin + return List_Id (Nodes.Table (N + 6).Field8); + end List38; + + function List39 (N : Node_Id) return List_Id is + begin + return List_Id (Nodes.Table (N + 6).Field9); + end List39; + function Elist1 (N : Node_Id) return Elist_Id is pragma Assert (N <= Nodes.Last); Value : constant Union_Id := Nodes.Table (N).Field1; @@ -5758,6 +5769,18 @@ package body Atree is Nodes.Table (N + 4).Field7 := Union_Id (Val); end Set_List25; + procedure Set_List38 (N : Node_Id; Val : List_Id) is + begin + pragma Assert (Nkind (N) in N_Entity); + Nodes.Table (N + 6).Field8 := Union_Id (Val); + end Set_List38; + + procedure Set_List39 (N : Node_Id; Val : List_Id) is + begin + pragma Assert (Nkind (N) in N_Entity); + Nodes.Table (N + 6).Field9 := Union_Id (Val); + end Set_List39; + procedure Set_Elist1 (N : Node_Id; Val : Elist_Id) is begin Nodes.Table (N).Field1 := Union_Id (Val); |