diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:04:59 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:04:59 +0200 |
| commit | 2eb87017420b4608b8540c46f329cf9c264e1c39 (patch) | |
| tree | 1f32cbed376b2fe44e39b273fd884713fced3dcb /gcc/ada/s-fileio.adb | |
| parent | 9686dbc79e2904ce4047003d78e30c7056321151 (diff) | |
| download | gcc-2eb87017420b4608b8540c46f329cf9c264e1c39.zip gcc-2eb87017420b4608b8540c46f329cf9c264e1c39.tar.gz gcc-2eb87017420b4608b8540c46f329cf9c264e1c39.tar.bz2 | |
[multiple changes]
2013-04-12 Robert Dewar <dewar@adacore.com>
* a-cfdlli.ads, g-socket.adb, s-fileio.adb: Minor reformatting.
2013-04-12 Yannick Moy <moy@adacore.com>
* 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
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 => |