diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 11:38:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 11:38:29 +0200 |
| commit | 28bc33232d59072bc16ee35f5677820b455edfcd (patch) | |
| tree | d434ad3c8743b3c579c8f5ce36984de47a3e600f /gcc/ada/back_end.ads | |
| parent | ca6cbdca8a7223e9b7ed828306b09f80db92fdb7 (diff) | |
| download | gcc-28bc33232d59072bc16ee35f5677820b455edfcd.zip gcc-28bc33232d59072bc16ee35f5677820b455edfcd.tar.gz gcc-28bc33232d59072bc16ee35f5677820b455edfcd.tar.bz2 | |
[multiple changes]
2014-06-13 Robert Dewar <dewar@adacore.com>
* back_end.adb (Make_Id): New function.
(Make_SC): New function.
(Set_RND): New procedure.
* back_end.ads (Make_Id): New function.
(Make_SC): New function.
(Set_RND): New procedure.
* einfo.ads: Minor comment updates.
* frontend.adb: Move Atree.Initialize call to Gnat1drv.
* gnat1drv.adb (Gnat1drv): New calling sequence for
Get_Target_Parameters.
(Gnat1drv): Move Atree.Initialize here from Frontend.
* targparm.adb (Get_Target_Parameters): New calling
sequence (Get_Target_Parameters): Handle pragma Restriction
(No_Dependence,..)
* targparm.ads (Get_Target_Parameters): New calling sequence.
2014-06-13 Gary Dismukes <dismukes@adacore.com>
* sem_prag.adb (Process_Import_Or_Interface): Exit the homonym
loop if the pragma does not come from source, so that an implicit
pragma Import only applies to the first declaration, avoiding
possible conflicts with earlier explicit and implicit declarations
due to multiple Provide_Shift_Operators pragmas.
(Set_Imported): Remove previous fix that bypassed pragma duplication
error.
* gnat_rm.texi: Change 'equivalent' to 'similar' in description
of Provide_Shift_Operators.
From-SVN: r211610
Diffstat (limited to 'gcc/ada/back_end.ads')
| -rw-r--r-- | gcc/ada/back_end.ads | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/gcc/ada/back_end.ads b/gcc/ada/back_end.ads index 9e28a6e..d301791 100644 --- a/gcc/ada/back_end.ads +++ b/gcc/ada/back_end.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -24,6 +24,10 @@ ------------------------------------------------------------------------------ -- Call the back end with all the information needed +-- Note: there are multiple bodies/variants of this package, so do not +-- modify this spec without coordination. + +with Types; use Types; package Back_End is @@ -82,4 +86,13 @@ package Back_End is -- object file's timestamp is correct when compared with the corresponding -- ali file by gnatmake. + function Make_Id (Str : Text_Buffer) return Node_Id; + function Make_SC (Pre, Sel : Node_Id) return Node_Id; + procedure Set_RND (Unit : Node_Id); + -- Subprograms for call to Get_Target_Parameters, see spec of package + -- Targparm for full description of these three subprograms. These are + -- parked in this package because they are have to be at the top level + -- because of accessibility issues, and Gnat1drv, which is where they + -- are used, is a subprogram. + end Back_End; |