diff options
Diffstat (limited to 'gcc/ada/atree.adb')
| -rw-r--r-- | gcc/ada/atree.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index 40a27a1fb74..a6105e2c427 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -2532,6 +2532,12 @@ package body Atree is return Node_Id (Nodes.Table (N + 5).Field7); end Node31; + function Node32 (N : Node_Id) return Node_Id is + begin + pragma Assert (Nkind (N) in N_Entity); + return Node_Id (Nodes.Table (N + 5).Field8); + end Node32; + function List1 (N : Node_Id) return List_Id is begin pragma Assert (N <= Nodes.Last); @@ -5243,6 +5249,12 @@ package body Atree is Nodes.Table (N + 5).Field7 := Union_Id (Val); end Set_Node31; + procedure Set_Node32 (N : Node_Id; Val : Node_Id) is + begin + pragma Assert (Nkind (N) in N_Entity); + Nodes.Table (N + 5).Field8 := Union_Id (Val); + end Set_Node32; + procedure Set_List1 (N : Node_Id; Val : List_Id) is begin pragma Assert (N <= Nodes.Last); |