diff options
Diffstat (limited to 'gcc/ada/g-dirope.adb')
| -rw-r--r-- | gcc/ada/g-dirope.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb index 7d212e8c71b..4755584168d 100644 --- a/gcc/ada/g-dirope.adb +++ b/gcc/ada/g-dirope.adb @@ -253,8 +253,8 @@ package body GNAT.Directory_Operations is Double_Result_Size; end loop; - Result (Result_Last + 1 .. Result_Last + S'Length - 1) := S; - Result_Last := Result_Last + S'Length - 1; + Result (Result_Last + 1 .. Result_Last + S'Length) := S; + Result_Last := Result_Last + S'Length; end Append; ------------------------ |