diff options
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 -- -------------------------- |