diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 18:21:54 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 18:21:54 +0000 |
commit | 96331f025a36e4ea77dc18983d3883fa615fb97a (patch) | |
tree | 9bb68fd4d95610a9623e1a0b243495126df99abb /gcc/ada/a-wtenio.adb | |
parent | 7f1d06e2d9bc77c03f63ecc57e1f1f41a9a2da54 (diff) | |
download | gcc-96331f025a36e4ea77dc18983d3883fa615fb97a.tar.gz |
Resync.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118333 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-wtenio.adb')
-rw-r--r-- | gcc/ada/a-wtenio.adb | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/ada/a-wtenio.adb b/gcc/ada/a-wtenio.adb index 33e5970307d..f5725fad019 100644 --- a/gcc/ada/a-wtenio.adb +++ b/gcc/ada/a-wtenio.adb @@ -44,11 +44,9 @@ package body Ada.Wide_Text_IO.Enumeration_IO is procedure Get (File : File_Type; Item : out Enum) is Buf : Wide_String (1 .. Enum'Width); Buflen : Natural; - begin Aux.Get_Enum_Lit (File, Buf, Buflen); Item := Enum'Wide_Value (Buf (1 .. Buflen)); - exception when Constraint_Error => raise Data_Error; end Get; @@ -64,11 +62,9 @@ package body Ada.Wide_Text_IO.Enumeration_IO is Last : out Positive) is Start : Natural; - begin Aux.Scan_Enum_Lit (From, Start, Last); Item := Enum'Wide_Value (From (Start .. Last)); - exception when Constraint_Error => raise Data_Error; end Get; @@ -84,7 +80,6 @@ package body Ada.Wide_Text_IO.Enumeration_IO is Set : Type_Set := Default_Setting) is Image : constant Wide_String := Enum'Wide_Image (Item); - begin Aux.Put (File, Image, Width, Set); end Put; @@ -104,7 +99,6 @@ package body Ada.Wide_Text_IO.Enumeration_IO is Set : Type_Set := Default_Setting) is Image : constant Wide_String := Enum'Wide_Image (Item); - begin Aux.Puts (To, Image, Set); end Put; |