diff options
Diffstat (limited to 'gcc/ada/prj-util.adb')
| -rw-r--r-- | gcc/ada/prj-util.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb index e112000..15f893a 100644 --- a/gcc/ada/prj-util.adb +++ b/gcc/ada/prj-util.adb @@ -92,7 +92,7 @@ package body Prj.Util is Attribute_Or_Array_Name => Name_Executable, In_Package => Builder_Package); - Executable_Suffix : Variable_Value := + Executable_Suffix : constant Variable_Value := Prj.Util.Value_Of (Name => Main, Attribute_Or_Array_Name => @@ -118,7 +118,8 @@ package body Prj.Util is -- the specification suffix. declare - Name : String (1 .. Name_Len) := Name_Buffer (1 .. Name_Len); + Name : constant String (1 .. Name_Len) := + Name_Buffer (1 .. Name_Len); Last : Positive := Name_Len; Naming : constant Naming_Data := |