diff options
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 32f0c90..64b8992 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -696,8 +696,8 @@ package body System.File_IO is Klen := KImage'Length; To_Lower (KImage); - if Index + Klen - 1 <= Form'Last and then - Form (Index .. Index + Klen - 1) = KImage + if Index + Klen - 1 <= Form'Last + and then Form (Index .. Index + Klen - 1) = KImage then case Parm is when Force_Record_Mode => |