diff options
Diffstat (limited to 'gcc/ada/s-sequio.adb')
| -rw-r--r-- | gcc/ada/s-sequio.adb | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/gcc/ada/s-sequio.adb b/gcc/ada/s-sequio.adb index 4ab259f6fbe..50e568211ba 100644 --- a/gcc/ada/s-sequio.adb +++ b/gcc/ada/s-sequio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- 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- -- @@ -45,8 +45,7 @@ package body System.Sequential_IO is ------------------- function AFCB_Allocate - (Control_Block : Sequential_AFCB) - return FCB.AFCB_Ptr + (Control_Block : Sequential_AFCB) return FCB.AFCB_Ptr is pragma Warnings (Off, Control_Block); @@ -90,9 +89,9 @@ package body 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 := "") is Dummy_File_Control_Block : Sequential_AFCB; pragma Warnings (Off, Dummy_File_Control_Block); @@ -116,9 +115,9 @@ package body System.Sequential_IO is 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 := "") is Dummy_File_Control_Block : Sequential_AFCB; pragma Warnings (Off, Dummy_File_Control_Block); @@ -159,7 +158,7 @@ package body System.Sequential_IO is procedure Write (File : in out Sequential_AFCB; - Item : in Ada.Streams.Stream_Element_Array) + Item : Ada.Streams.Stream_Element_Array) is begin raise Program_Error; |