s-fileio.adb: Minor reformatting
authorRobert Dewar <dewar@adacore.com>
Fri, 8 Aug 2008 12:22:18 +0000 (14:22 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 8 Aug 2008 12:22:18 +0000 (14:22 +0200)
2008-08-08  Robert Dewar  <dewar@adacore.com>

* s-fileio.adb: Minor reformatting

From-SVN: r138868

gcc/ada/s-fileio.adb

index 79b718eadceb5c524b16cf0f1a3ddee2797786af..7c20fb18f389093528d1f94330bfdc72d2285b80 100644 (file)
@@ -988,9 +988,11 @@ package body System.File_IO is
             Stream := fopen (Namestr'Address, Fopstr'Address, Encoding);
 
             if Stream = NULL_Stream then
+
                --  Raise Name_Error if trying to open a non-existent file.
-               --  Otherwise raise Use_Error. Should we raise Device_Error for
-               --  ENOSPC???
+               --  Otherwise raise Use_Error.
+
+               --  Should we raise Device_Error for ENOSPC???
 
                if System.OS_Lib.Errno = System.OS_Constants.ENOENT then
                   raise Name_Error;