diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-31 13:00:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-31 13:00:42 +0000 |
| commit | 3296750cd7f36ee20b494836f401651cc2c224c1 (patch) | |
| tree | 27c1831524dd5f6da1bc9939ef7b7014359fa53a /gcc/ada/s-fileio.adb | |
| parent | 232e2d9c7524a99b6749f67365a1e149e9551de7 (diff) | |
| download | gcc-3296750cd7f36ee20b494836f401651cc2c224c1.tar.gz | |
2014-07-31 Robert Dewar <dewar@adacore.com>
* inline.adb, gnat1drv.adb, exp_ch6.adb, s-fileio.adb: Minor
reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213359 138bc75d-0d04-0410-961f-82ee72b054a4
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 126427942f2..3208d233b17 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"; |