From 4cac93f0aedeaa88ac9b8e4ffd6b4365e8a0ba91 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 5 Aug 2008 11:29:20 +0200 Subject: [PATCH] s-fileio.adb: Minor code reorganization Minor reformatting 2008-08-05 Robert Dewar * s-fileio.adb: Minor code reorganization Minor reformatting From-SVN: r138691 --- gcc/ada/s-fileio.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index bfe7d6b..41419b5 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -830,8 +830,8 @@ package body System.File_IO is -- Normal case of Open or Create else - -- If temporary file case, get temporary file name and add - -- to the list of temporary files to be deleted on exit. + -- If temporary file case, get temporary file name and add to the + -- list of temporary files to be deleted on exit. if Tempfile then if not Creat then @@ -965,7 +965,7 @@ package body System.File_IO is -- mode returned by Fopen_Mode is not "r" or "r+", then we first -- make sure that the file exists as required by Ada semantics. - if Creat = False and then Fopstr (1) /= 'r' then + if not Creat and then Fopstr (1) /= 'r' then if file_exists (Namestr'Address) = 0 then raise Name_Error; end if; -- 2.7.4