diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-24 17:30:08 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-24 17:30:08 +0100 |
commit | 32bba3c9d848935dbec4b070093574a34b0817a4 (patch) | |
tree | 6aec8ad587cff01ba9f05b72d71f56e0fad6ff70 /gcc/ada/atree.ads | |
parent | 97027f64df2958e3ec51605c7e2c6f892d2235bb (diff) | |
download | gcc-32bba3c9d848935dbec4b070093574a34b0817a4.zip gcc-32bba3c9d848935dbec4b070093574a34b0817a4.tar.gz gcc-32bba3c9d848935dbec4b070093574a34b0817a4.tar.bz2 |
[multiple changes]
2014-02-24 Robert Dewar <dewar@adacore.com>
* sinfo.ads, sem_ch12.adb, sem_res.adb, sem_ch4.adb, par-ch12.adb:
Minor reformatting.
* atree.ads, atree.adb (Node35): New function.
(Set_Node35): New procedure.
* debug.adb: Define new debug flag -gnatd.X.
* einfo.ads, einfo.adb (Import_Pragma): New field.
* freeze.adb (Wrap_Imported_Procedure): New procedure (not
really active yet, has to be activated with -gnatd.X.
* sem_prag.adb (Set_Imported): Set new Import_Pragma
field (Set_Imported): Don't set Is_Public (see
Freeze.Wrap_Imported_Subprogram)
* par-ch3.adb (P_Component_List): Handle unexpected null component.
2014-02-24 Yannick Moy <moy@adacore.com>
* sem_ch3.adb: Correct reference to SPARK RM in error messages.
* gnat_rm.texi: Correct documentation of attribute Update.
2014-02-24 Ed Schonberg <schonberg@adacore.com>
* sem_ch5.adb (Analyze_Iterator_Specification): Reject container
iterator in older versions of Ada.
From-SVN: r208076
Diffstat (limited to 'gcc/ada/atree.ads')
-rw-r--r-- | gcc/ada/atree.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 0603d11..ba11082 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -1236,6 +1236,9 @@ package Atree is function Node34 (N : Node_Id) return Node_Id; pragma Inline (Node34); + function Node35 (N : Node_Id) return Node_Id; + pragma Inline (Node35); + function List1 (N : Node_Id) return List_Id; pragma Inline (List1); @@ -2545,6 +2548,9 @@ package Atree is procedure Set_Node34 (N : Node_Id; Val : Node_Id); pragma Inline (Set_Node34); + procedure Set_Node35 (N : Node_Id; Val : Node_Id); + pragma Inline (Set_Node35); + procedure Set_List1 (N : Node_Id; Val : List_Id); pragma Inline (Set_List1); |