diff options
Diffstat (limited to 'gcc/ada/i-cstrin.adb')
| -rw-r--r-- | gcc/ada/i-cstrin.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/i-cstrin.adb b/gcc/ada/i-cstrin.adb index 42e4ed4494a..c7ec0ceb62f 100644 --- a/gcc/ada/i-cstrin.adb +++ b/gcc/ada/i-cstrin.adb @@ -109,7 +109,7 @@ package body Interfaces.C.Strings is Pointer : chars_ptr; begin - -- Get index of position of null. If Index > Chars'last, + -- Get index of position of null. If Index > Chars'Last, -- nul is absent and must be added explicitly. Index := Position_Of_Nul (Into => Chars); |