diff options
Diffstat (limited to 'gcc/ada/a-wtenau.adb')
| -rw-r--r-- | gcc/ada/a-wtenau.adb | 32 |
1 files changed, 8 insertions, 24 deletions
diff --git a/gcc/ada/a-wtenau.adb b/gcc/ada/a-wtenau.adb index ddbbee9eab9..1aa1afe1e4c 100644 --- a/gcc/ada/a-wtenau.adb +++ b/gcc/ada/a-wtenau.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.6 $ +-- $Revision$ -- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002, 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- -- @@ -48,8 +48,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is ----------------------- procedure Store_Char - (File : File_Type; - WC : Wide_Character; + (WC : Wide_Character; Buf : out Wide_String; Ptr : in out Integer); -- Store a single character in buffer, checking for overflow. @@ -59,7 +58,6 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is -- least in the OS/2 version. function To_Lower (C : Character) return Character; - function To_Upper (C : Character) return Character; ------------------ -- Get_Enum_Lit -- @@ -83,7 +81,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is if ch = Character'Pos (''') then Get (File, WC); - Store_Char (File, WC, Buf, Buflen); + Store_Char (WC, Buf, Buflen); ch := Nextc (TFT (File)); @@ -92,7 +90,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is end if; Get (File, WC); - Store_Char (File, WC, Buf, Buflen); + Store_Char (WC, Buf, Buflen); ch := Nextc (TFT (File)); @@ -101,7 +99,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is end if; Get (File, WC); - Store_Char (File, WC, Buf, Buflen); + Store_Char (WC, Buf, Buflen); -- Similarly for identifiers, read as far as we can, in particular, -- do read a trailing underscore (again see ACVC test CE3905L to @@ -121,7 +119,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is loop Get (File, WC); - Store_Char (File, WC, Buf, Buflen); + Store_Char (WC, Buf, Buflen); ch := Nextc (TFT (File)); @@ -328,8 +326,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is ---------------- procedure Store_Char - (File : File_Type; - WC : Wide_Character; + (WC : Wide_Character; Buf : out Wide_String; Ptr : in out Integer) is @@ -355,17 +352,4 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is end if; end To_Lower; - -------------- - -- To_Upper -- - -------------- - - function To_Upper (C : Character) return Character is - begin - if C in 'a' .. 'z' then - return Character'Val (Character'Pos (C) - 32); - else - return C; - end if; - end To_Upper; - end Ada.Wide_Text_IO.Enumeration_Aux; |