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/tbuild.adb | |
| 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/tbuild.adb')
| -rw-r--r-- | gcc/ada/tbuild.adb | 42 |
1 files changed, 41 insertions, 1 deletions
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index 524c14f7100..17ca12eac8c 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- 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,7 @@ ------------------------------------------------------------------------------ with Atree; use Atree; +with Csets; use Csets; with Einfo; use Einfo; with Elists; use Elists; with Lib; use Lib; @@ -240,6 +241,24 @@ package body Tbuild is end if; end Make_Float_Literal; + ------------- + -- Make_Id -- + ------------- + + function Make_Id (Str : Text_Buffer) return Node_Id is + begin + Name_Len := 0; + + for J in Str'Range loop + Name_Len := Name_Len + 1; + Name_Buffer (Name_Len) := Fold_Lower (Str (J)); + end loop; + + return + Make_Identifier (System_Location, + Chars => Name_Find); + end Make_Id; + ------------------------------------- -- Make_Implicit_Exception_Handler -- ------------------------------------- @@ -459,6 +478,18 @@ package body Tbuild is UI_From_Int (RT_Exception_Code'Pos (Reason))); end Make_Raise_Storage_Error; + ------------- + -- Make_SC -- + ------------- + + function Make_SC (Pre, Sel : Node_Id) return Node_Id is + begin + return + Make_Selected_Component (System_Location, + Prefix => Pre, + Selector_Name => Sel); + end Make_SC; + ------------------------- -- Make_String_Literal -- ------------------------- @@ -749,6 +780,15 @@ package body Tbuild is return Result; end OK_Convert_To; + ------------- + -- Set_RND -- + ------------- + + procedure Set_RND (Unit : Node_Id) is + begin + Set_Restriction_No_Dependence (Unit, Warn => False); + end Set_RND; + -------------------------- -- Unchecked_Convert_To -- -------------------------- |