aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/g-io.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/g-io.adb')
-rw-r--r--gcc/ada/g-io.adb6
1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/ada/g-io.adb b/gcc/ada/g-io.adb
index 4d5f4ec1c8d..c5c762bc569 100644
--- a/gcc/ada/g-io.adb
+++ b/gcc/ada/g-io.adb
@@ -42,19 +42,15 @@ package body GNAT.IO is
---------
procedure Get (X : out Integer) is
-
function Get_Int return Integer;
pragma Import (C, Get_Int, "get_int");
-
begin
X := Get_Int;
end Get;
procedure Get (C : out Character) is
-
function Get_Char return Character;
pragma Import (C, Get_Char, "get_char");
-
begin
C := Get_Char;
end Get;
@@ -108,7 +104,6 @@ package body GNAT.IO is
end Put;
procedure Put (File : File_Type; X : Integer) is
-
procedure Put_Int (X : Integer);
pragma Import (C, Put_Int, "put_int");
@@ -128,7 +123,6 @@ package body GNAT.IO is
end Put;
procedure Put (File : in File_Type; C : Character) is
-
procedure Put_Char (C : Character);
pragma Import (C, Put_Char, "put_char");