diff options
Diffstat (limited to 'translate/grt/grt-files.adb')
| -rw-r--r-- | translate/grt/grt-files.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/translate/grt/grt-files.adb b/translate/grt/grt-files.adb index 974d5578b..9037fcebe 100644 --- a/translate/grt/grt-files.adb +++ b/translate/grt/grt-files.adb @@ -153,8 +153,8 @@ package body Grt.Files is end if; -- Copy file name and convert it to a C string (NUL terminated). - for I in 0 .. Str.Bounds.Dim_1.Length - 1 loop - Name (1 + Natural (I)) := Str.Base (I); + for I in 1 .. Str.Bounds.Dim_1.Length loop + Name (Natural (I)) := Str.Base (I - 1); end loop; Name (Name'Last) := NUL; |