summaryrefslogtreecommitdiff
path: root/gcc/ada/back_end.ads
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-06-13 09:43:03 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-06-13 09:43:03 +0000
commit7cc0279758a4826ac0dcb230b4c28b4bb1a1efc5 (patch)
tree49b64477cb77b9825f308d4b15a2540abb0be1b7 /gcc/ada/back_end.ads
parent3961605376bdd43a150bce2a7e13d96572f7e92a (diff)
downloadgcc-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.ads11
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;