diff options
Diffstat (limited to 'gcc/ada/a-wtenio.adb')
| -rw-r--r-- | gcc/ada/a-wtenio.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gcc/ada/a-wtenio.adb b/gcc/ada/a-wtenio.adb index fd40df538e6..33e5970307d 100644 --- a/gcc/ada/a-wtenio.adb +++ b/gcc/ada/a-wtenio.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- -- @@ -41,7 +41,7 @@ package body Ada.Wide_Text_IO.Enumeration_IO is -- Get -- --------- - procedure Get (File : in File_Type; Item : out Enum) is + procedure Get (File : File_Type; Item : out Enum) is Buf : Wide_String (1 .. Enum'Width); Buflen : Natural; @@ -59,7 +59,7 @@ package body Ada.Wide_Text_IO.Enumeration_IO is end Get; procedure Get - (From : in Wide_String; + (From : Wide_String; Item : out Enum; Last : out Positive) is @@ -78,10 +78,10 @@ package body Ada.Wide_Text_IO.Enumeration_IO is --------- procedure Put - (File : in File_Type; - Item : in Enum; - Width : in Field := Default_Width; - Set : in Type_Set := Default_Setting) + (File : File_Type; + Item : Enum; + Width : Field := Default_Width; + Set : Type_Set := Default_Setting) is Image : constant Wide_String := Enum'Wide_Image (Item); @@ -90,9 +90,9 @@ package body Ada.Wide_Text_IO.Enumeration_IO is end Put; procedure Put - (Item : in Enum; - Width : in Field := Default_Width; - Set : in Type_Set := Default_Setting) + (Item : Enum; + Width : Field := Default_Width; + Set : Type_Set := Default_Setting) is begin Put (Current_Output, Item, Width, Set); @@ -100,8 +100,8 @@ package body Ada.Wide_Text_IO.Enumeration_IO is procedure Put (To : out Wide_String; - Item : in Enum; - Set : in Type_Set := Default_Setting) + Item : Enum; + Set : Type_Set := Default_Setting) is Image : constant Wide_String := Enum'Wide_Image (Item); |