summaryrefslogtreecommitdiff
path: root/gcc/ada/a-wtenio.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2006-10-31 18:21:54 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2006-10-31 18:21:54 +0000
commit96331f025a36e4ea77dc18983d3883fa615fb97a (patch)
tree9bb68fd4d95610a9623e1a0b243495126df99abb /gcc/ada/a-wtenio.adb
parent7f1d06e2d9bc77c03f63ecc57e1f1f41a9a2da54 (diff)
downloadgcc-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.adb6
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;