diff options
Diffstat (limited to 'gcc/ada/a-ztenau.adb')
| -rw-r--r-- | gcc/ada/a-ztenau.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/a-ztenau.adb b/gcc/ada/a-ztenau.adb index ab3caf6ef2b..f3b570f69c6 100644 --- a/gcc/ada/a-ztenau.adb +++ b/gcc/ada/a-ztenau.adb @@ -47,10 +47,10 @@ package body Ada.Wide_Wide_Text_IO.Enumeration_Aux is ----------------------- procedure Store_Char - (WC : Wide_Wide_Character; - Buf : out Wide_Wide_String; - Ptr : in out Integer); - -- Store a single character in buffer, checking for overflow. + (WC : Wide_Wide_Character; + Buf : out Wide_Wide_String; + Ptr : in out Integer); + -- Store a single character in buffer, checking for overflow -- These definitions replace the ones in Ada.Characters.Handling, which -- do not seem to work for some strange not understood reason ??? at @@ -326,9 +326,9 @@ package body Ada.Wide_Wide_Text_IO.Enumeration_Aux is ---------------- procedure Store_Char - (WC : Wide_Wide_Character; - Buf : out Wide_Wide_String; - Ptr : in out Integer) + (WC : Wide_Wide_Character; + Buf : out Wide_Wide_String; + Ptr : in out Integer) is begin if Ptr = Buf'Last then |