diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-07-31 13:00:42 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 15:00:42 +0200 |
| commit | c5670cb40aaf421f25d244c122c54dca127e4ccb (patch) | |
| tree | 27c1831524dd5f6da1bc9939ef7b7014359fa53a /gcc/ada/s-fileio.adb | |
| parent | 8f1bcdb1fa4c2d75fec1a6b64ad324669f1f6203 (diff) | |
| download | gcc-c5670cb40aaf421f25d244c122c54dca127e4ccb.zip gcc-c5670cb40aaf421f25d244c122c54dca127e4ccb.tar.gz gcc-c5670cb40aaf421f25d244c122c54dca127e4ccb.tar.bz2 | |
inline.adb, [...]: Minor reformatting.
2014-07-31 Robert Dewar <dewar@adacore.com>
* inline.adb, gnat1drv.adb, exp_ch6.adb, s-fileio.adb: Minor
reformatting.
From-SVN: r213359
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 1264279..3208d23 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -980,14 +980,17 @@ package body System.File_IO is Encoding : CRTL.Filename_Encoding; -- Filename encoding specified into the form parameter - ------------------ - -- Record_AFCB -- - ------------------ + ----------------- + -- Record_AFCB -- + ----------------- procedure Record_AFCB is begin File_Ptr := AFCB_Allocate (Dummy_FCB); + -- Note that we cannot use an aggregate here as File_Ptr is a + -- class-wide access to a limited type (Root_Stream_Type). + File_Ptr.Is_Regular_File := (is_regular_file (fileno (Stream)) /= 0); File_Ptr.Is_System_File := False; @@ -1007,6 +1010,8 @@ package body System.File_IO is Append_Set (File_Ptr); end Record_AFCB; + -- Start of processing for Open + begin if File_Ptr /= null then raise Status_Error with "file already open"; |