diff options
Diffstat (limited to 'gcc/ada/a-direio.ads')
| -rw-r--r-- | gcc/ada/a-direio.ads | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/gcc/ada/a-direio.ads b/gcc/ada/a-direio.ads index a98e93f5fba..29aef9cc049 100644 --- a/gcc/ada/a-direio.ads +++ b/gcc/ada/a-direio.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. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -71,55 +71,55 @@ package Ada.Direct_IO is procedure Create (File : in out File_Type; - Mode : in File_Mode := Inout_File; - Name : in String := ""; - Form : in String := ""); + Mode : File_Mode := Inout_File; + Name : String := ""; + Form : String := ""); procedure Open (File : in out File_Type; - Mode : in File_Mode; - Name : in String; - Form : in String := ""); + Mode : File_Mode; + Name : String; + Form : String := ""); procedure Close (File : in out File_Type); procedure Delete (File : in out File_Type); - procedure Reset (File : in out File_Type; Mode : in File_Mode); + procedure Reset (File : in out File_Type; Mode : File_Mode); procedure Reset (File : in out File_Type); - function Mode (File : in File_Type) return File_Mode; - function Name (File : in File_Type) return String; - function Form (File : in File_Type) return String; + function Mode (File : File_Type) return File_Mode; + function Name (File : File_Type) return String; + function Form (File : File_Type) return String; - function Is_Open (File : in File_Type) return Boolean; + function Is_Open (File : File_Type) return Boolean; --------------------------------- -- Input and Output Operations -- --------------------------------- procedure Read - (File : in File_Type; + (File : File_Type; Item : out Element_Type; - From : in Positive_Count); + From : Positive_Count); procedure Read - (File : in File_Type; + (File : File_Type; Item : out Element_Type); procedure Write - (File : in File_Type; - Item : in Element_Type; - To : in Positive_Count); + (File : File_Type; + Item : Element_Type; + To : Positive_Count); procedure Write - (File : in File_Type; - Item : in Element_Type); + (File : File_Type; + Item : Element_Type); - procedure Set_Index (File : in File_Type; To : in Positive_Count); + procedure Set_Index (File : File_Type; To : Positive_Count); - function Index (File : in File_Type) return Positive_Count; - function Size (File : in File_Type) return Count; + function Index (File : File_Type) return Positive_Count; + function Size (File : File_Type) return Count; - function End_Of_File (File : in File_Type) return Boolean; + function End_Of_File (File : File_Type) return Boolean; ---------------- -- Exceptions -- |