From c5670cb40aaf421f25d244c122c54dca127e4ccb Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 31 Jul 2014 13:00:42 +0000 Subject: inline.adb, [...]: Minor reformatting. 2014-07-31 Robert Dewar * inline.adb, gnat1drv.adb, exp_ch6.adb, s-fileio.adb: Minor reformatting. From-SVN: r213359 --- gcc/ada/s-fileio.adb | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'gcc/ada/s-fileio.adb') 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"; -- cgit v1.1