diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-08 14:22:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-08 14:22:18 +0200 |
| commit | 632eb367bfb68e43f806e477ad632efea00a4433 (patch) | |
| tree | bbcced581d0a712b572e78546203de671d9b6f90 /gcc | |
| parent | 8529dde57a46591f5dd1930b72af7c6e436a1ca5 (diff) | |
| download | gcc-632eb367bfb68e43f806e477ad632efea00a4433.zip gcc-632eb367bfb68e43f806e477ad632efea00a4433.tar.gz gcc-632eb367bfb68e43f806e477ad632efea00a4433.tar.bz2 | |
s-fileio.adb: Minor reformatting
2008-08-08 Robert Dewar <dewar@adacore.com>
* s-fileio.adb: Minor reformatting
From-SVN: r138868
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 79b718e..7c20fb1 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -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; |