From: Robert Dewar Date: Tue, 5 Aug 2008 09:29:20 +0000 (+0200) Subject: s-fileio.adb: Minor code reorganization Minor reformatting X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4cac93f0aedeaa88ac9b8e4ffd6b4365e8a0ba91;p=platform%2Fupstream%2Fgcc.git s-fileio.adb: Minor code reorganization Minor reformatting 2008-08-05 Robert Dewar * s-fileio.adb: Minor code reorganization Minor reformatting From-SVN: r138691 --- 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;