aboutsummaryrefslogtreecommitdiffstats
path: root/ortho/mcode/ortho_mcode.adb
diff options
context:
space:
mode:
Diffstat (limited to 'ortho/mcode/ortho_mcode.adb')
-rw-r--r--ortho/mcode/ortho_mcode.adb2
1 files changed, 0 insertions, 2 deletions
diff --git a/ortho/mcode/ortho_mcode.adb b/ortho/mcode/ortho_mcode.adb
index f9335fac1..722e884a7 100644
--- a/ortho/mcode/ortho_mcode.adb
+++ b/ortho/mcode/ortho_mcode.adb
@@ -17,7 +17,6 @@
-- 02111-1307, USA.
with Ada.Text_IO;
with Ortho_Code.Debug;
-with Ortho_Code.Sysdeps;
with Ortho_Ident;
-- with Binary_File;
@@ -80,7 +79,6 @@ package body Ortho_Mcode is
if New_Access_Type (O_Tnode_Null) /= O_Tnode_Ptr then
raise Program_Error;
end if;
- Ortho_Code.Sysdeps.Init;
-- Do not finish the access, since this creates an infinite recursion
-- in gdb (at least for GDB 6.3).
--Finish_Access_Type (O_Tnode_Ptr, O_Tnode_Ptr);