diff options
Diffstat (limited to 'gcc/ada/atree.ads')
-rw-r--r-- | gcc/ada/atree.ads | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 06e06de..904c637 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -193,8 +193,8 @@ package Atree is -- Uint6 Synonym for Field6 typed as Uint (Empty = Uint_0) -- Similar definitions for Field7 to Field28 (and Node7-Node28, - -- Elist7-Elist28, Uint7-Uint28, Ureal7-Ureal28). Note that not all - -- these functions are defined, only the ones that are actually used. + -- Elist7-Elist28, Uint7-Uint28, Ureal7-Ureal28). Note that not all these + -- functions are defined, only the ones that are actually used. function Last_Node_Id return Node_Id; pragma Inline (Last_Node_Id); @@ -1112,6 +1112,9 @@ package Atree is function Elist8 (N : Node_Id) return Elist_Id; pragma Inline (Elist8); + function Elist10 (N : Node_Id) return Elist_Id; + pragma Inline (Elist10); + function Elist13 (N : Node_Id) return Elist_Id; pragma Inline (Elist13); @@ -2172,6 +2175,9 @@ package Atree is procedure Set_Elist8 (N : Node_Id; Val : Elist_Id); pragma Inline (Set_Elist8); + procedure Set_Elist10 (N : Node_Id; Val : Elist_Id); + pragma Inline (Set_Elist10); + procedure Set_Elist13 (N : Node_Id; Val : Elist_Id); pragma Inline (Set_Elist13); |