diff options
Diffstat (limited to 'gcc/ada/a-tienio.adb')
| -rw-r--r-- | gcc/ada/a-tienio.adb | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/ada/a-tienio.adb b/gcc/ada/a-tienio.adb index 6ff484dd3fd..0c07103d5dc 100644 --- a/gcc/ada/a-tienio.adb +++ b/gcc/ada/a-tienio.adb @@ -61,7 +61,6 @@ package body Ada.Text_IO.Enumeration_IO is procedure Get (Item : out Enum) is pragma Unsuppress (Range_Check); - begin Get (Current_In, Item); end Get; @@ -98,7 +97,6 @@ package body Ada.Text_IO.Enumeration_IO is Set : Type_Set := Default_Setting) is Image : constant String := Enum'Image (Item); - begin Aux.Put (File, Image, Width, Set); end Put; @@ -118,7 +116,6 @@ package body Ada.Text_IO.Enumeration_IO is Set : Type_Set := Default_Setting) is Image : constant String := Enum'Image (Item); - begin Aux.Puts (To, Image, Set); end Put; |