diff options
Diffstat (limited to 'gcc/ada/s-os_lib.adb')
| -rwxr-xr-x | gcc/ada/s-os_lib.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index ff65720d6e4..f3e369cf853 100755 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -1896,7 +1896,7 @@ package body System.OS_Lib is and then Path_Buffer (2) /= Directory_Separator then declare - Cur_Dir : String := Get_Directory (""); + Cur_Dir : constant String := Get_Directory (""); -- Get the current directory to get the drive letter begin |