diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 11:43:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 11:43:03 +0200 |
| commit | 5af638c8755a06886c68016348d76526d544681e (patch) | |
| tree | 49b64477cb77b9825f308d4b15a2540abb0be1b7 /gcc/ada/tbuild.ads | |
| parent | 7f2c8954dac84a3fa5cabcc726b5e7d1ddff1142 (diff) | |
| download | gcc-5af638c8755a06886c68016348d76526d544681e.tar.gz | |
[multiple changes]
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.
From-SVN: r211612
Diffstat (limited to 'gcc/ada/tbuild.ads')
| -rw-r--r-- | gcc/ada/tbuild.ads | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/tbuild.ads b/gcc/ada/tbuild.ads index 507dca41bf1..67a59d923c3 100644 --- a/gcc/ada/tbuild.ads +++ b/gcc/ada/tbuild.ads @@ -321,4 +321,16 @@ package Tbuild is -- Like Convert_To, but if a conversion is actually needed, constructs an -- N_Unchecked_Type_Conversion node to do the required conversion. + ------------------------------------- + -- Subprograms for Use by Gnat1drv -- + ------------------------------------- + + 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 in Gnat1drv, see spec + -- of package Targparm for full description of these three subprograms. + -- These have to be declared at the top level of a package (accessibility + -- issues), and Gnat1drv is a procedure, so they can't go there. + end Tbuild; |