diff options
Diffstat (limited to 'gcc/ada/prj-util.adb')
| -rw-r--r-- | gcc/ada/prj-util.adb | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb index 6a94a0cfc4c..5188a21ca10 100644 --- a/gcc/ada/prj-util.adb +++ b/gcc/ada/prj-util.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.8 $ -- +-- $Revision$ -- -- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- @@ -188,6 +188,22 @@ package body Prj.Util is -------------- function Value_Of + (Variable : Variable_Value; + Default : String) + return String is + begin + if Variable.Kind /= Single + or else Variable.Default + or else Variable.Value = No_String then + return Default; + + else + String_To_Name_Buffer (Variable.Value); + return Name_Buffer (1 .. Name_Len); + end if; + end Value_Of; + + function Value_Of (Index : Name_Id; In_Array : Array_Element_Id) return Name_Id |