diff options
author | Robert Dewar <dewar@adacore.com> | 2014-10-10 14:36:07 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-10 16:36:07 +0200 |
commit | 8f8194710d4d0badd94046d26cbe61cee1a01163 (patch) | |
tree | 4e93b406142ca77aac91a70156faf02b26265103 /gcc/ada/exp_intr.ads | |
parent | d6cd5d3493f6fb565ff9300577deeebe37143673 (diff) | |
download | gcc-8f8194710d4d0badd94046d26cbe61cee1a01163.zip gcc-8f8194710d4d0badd94046d26cbe61cee1a01163.tar.gz gcc-8f8194710d4d0badd94046d26cbe61cee1a01163.tar.bz2 |
exp_intr.adb (Write_Entity_Name): Moved to outer level
2014-10-10 Robert Dewar <dewar@adacore.com>
* exp_intr.adb (Write_Entity_Name): Moved to outer level
(Write_Entity_Name): Properly handle operator names
(Expand_Source_Info): New procedure.
* exp_intr.ads (Add_Source_Info): New procedure.
2014-10-10 Robert Dewar <dewar@adacore.com>
* butil.ads: Minor reformatting.
* sem_ch5.adb: Code clean up.
2014-10-10 Robert Dewar <dewar@adacore.com>
* exp_ch11.adb (Expand_N_Raise_Statement): Handle
Prefix_Exception_Messages.
* opt.adb: Handle new flags Prefix_Exception_Message[_Config].
* opt.ads: New flags Prefix_Exception_Message[_Config].
* par-prag.adb: New dummy entry for pragma Prefix_Exception_Messages.
* snames.ads-tmpl: Add entries for new pragma Prefix_Exception_Messages.
* sem_prag.adb: Implement new pragma Prefix_Exception_Messages
* gnat_rm.texi: Document pragma Prefix_Exception_Messages.
From-SVN: r216088
Diffstat (limited to 'gcc/ada/exp_intr.ads')
-rw-r--r-- | gcc/ada/exp_intr.ads | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/exp_intr.ads b/gcc/ada/exp_intr.ads index 1285f4f..f9be797 100644 --- a/gcc/ada/exp_intr.ads +++ b/gcc/ada/exp_intr.ads @@ -25,10 +25,22 @@ -- Processing for expanding intrinsic subprogram calls +with Namet; use Namet; with Types; use Types; package Exp_Intr is + procedure Add_Source_Info (Loc : Source_Ptr; Nam : Name_Id); + -- Append a string to Name_Buffer depending on Nam + -- Name_File - append name of source file + -- Name_Line - append line number + -- Name_Source_Location - append source location (file:line) + -- Name_Enclosing_Entity - append name of enclosing entity + -- Name_Compilation_Date - append compilation date + -- Name_Compilation_Time - append compilation time + -- The caller must set Name_Buffer and Name_Len before the call. Loc is + -- passed to provide location information where it is needed. + procedure Expand_Intrinsic_Call (N : Node_Id; E : Entity_Id); -- N is either a function call node, a procedure call statement node, or -- an operator where the corresponding subprogram is intrinsic (i.e. was |