diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-06-13 09:43:03 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-06-13 09:43:03 +0000 |
commit | 7cc0279758a4826ac0dcb230b4c28b4bb1a1efc5 (patch) | |
tree | 49b64477cb77b9825f308d4b15a2540abb0be1b7 /gcc/ada/back_end.ads | |
parent | 3961605376bdd43a150bce2a7e13d96572f7e92a (diff) | |
download | gcc-7cc0279758a4826ac0dcb230b4c28b4bb1a1efc5.tar.gz |
2014-06-13 Robert Dewar <dewar@adacore.com>
* back_end.ads, back_end.adb: Make_Id, Make_SC, Set_RND are moved to
Tbuild.
* tbuild.ads, tbuild.adb: Make_Id, Make_SC, Set_RND are moved here from
Back_End.
* gnat1drv.adb: Make_Id, Make_SC, Set_RND are moved to Tbuild
* sem_warn.adb: Minor reformatting.
2014-06-13 Doug Rupp <rupp@adacore.com>
* adaint.c (__gnat_open_new_temp) [VMS]: Open binary
files with rfm=udf.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@211612 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/back_end.ads')
-rw-r--r-- | gcc/ada/back_end.ads | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/gcc/ada/back_end.ads b/gcc/ada/back_end.ads index d301791fee2..0d45a9ba7e6 100644 --- a/gcc/ada/back_end.ads +++ b/gcc/ada/back_end.ads @@ -27,8 +27,6 @@ -- 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 type Back_End_Mode_Type is ( @@ -86,13 +84,4 @@ 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; |