diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-08 12:22:18 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-08 12:22:18 +0000 |
| commit | 3cb2213bb2e4da570ed5bb41895d7b4a0db6a661 (patch) | |
| tree | bbcced581d0a712b572e78546203de671d9b6f90 | |
| parent | 25278d78fe9e25c1e65a1d67cdaa1eda16e28b02 (diff) | |
| download | ppe42-gcc-3cb2213bb2e4da570ed5bb41895d7b4a0db6a661.tar.gz ppe42-gcc-3cb2213bb2e4da570ed5bb41895d7b4a0db6a661.zip | |
2008-08-08 Robert Dewar <dewar@adacore.com>
* s-fileio.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138868 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 79b718eadce..7c20fb18f38 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; |
