diff options
Diffstat (limited to 'gcc/ada/s-sequio.ads')
| -rw-r--r-- | gcc/ada/s-sequio.ads | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/gcc/ada/s-sequio.ads b/gcc/ada/s-sequio.ads index 3ad99820ca9..09c41aeb2c2 100644 --- a/gcc/ada/s-sequio.ads +++ b/gcc/ada/s-sequio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -46,8 +46,7 @@ package System.Sequential_IO is -- No additional fields required for Sequential_IO function AFCB_Allocate - (Control_Block : Sequential_AFCB) - return FCB.AFCB_Ptr; + (Control_Block : Sequential_AFCB) return FCB.AFCB_Ptr; procedure AFCB_Close (File : access Sequential_AFCB); procedure AFCB_Free (File : access Sequential_AFCB); @@ -60,7 +59,7 @@ package System.Sequential_IO is procedure Write (File : in out Sequential_AFCB; - Item : in Ada.Streams.Stream_Element_Array); + Item : Ada.Streams.Stream_Element_Array); -- Required overriding of Write, not actually used for Sequential_IO type File_Type is access all Sequential_AFCB; @@ -68,14 +67,14 @@ package System.Sequential_IO is procedure Create (File : in out File_Type; - Mode : in FCB.File_Mode := FCB.Out_File; - Name : in String := ""; - Form : in String := ""); + Mode : FCB.File_Mode := FCB.Out_File; + Name : String := ""; + Form : String := ""); procedure Open (File : in out File_Type; - Mode : in FCB.File_Mode; - Name : in String; - Form : in String := ""); + Mode : FCB.File_Mode; + Name : String; + Form : String := ""); end System.Sequential_IO; |