From 2eb87017420b4608b8540c46f329cf9c264e1c39 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 12 Apr 2013 15:04:59 +0200 Subject: [multiple changes] 2013-04-12 Robert Dewar * a-cfdlli.ads, g-socket.adb, s-fileio.adb: Minor reformatting. 2013-04-12 Yannick Moy * sem_attr.adb (Analyze_Attribute): Update analyse of Attribute_Old and Attribute_Result so they are allowed in the right-hand-side of an association in a Contract_Cases pragma. * sem_prag.adb (Analyze_CTC_In_Decl_Part): Add pre-analysis of the expressions in a Contract_Cases pragma. From-SVN: r197905 --- gcc/ada/s-fileio.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/s-fileio.adb') 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 => -- cgit v1.1