1 files changed, 2 insertions, 0 deletions
diff --git a/ortho/mcode/ortho_mcode.adb b/ortho/mcode/ortho_mcode.adb
index 6c91f268c..bc4dc3215 100644
--- a/ortho/mcode/ortho_mcode.adb
+++ b/ortho/mcode/ortho_mcode.adb
@@ -18,6 +18,7 @@
 with Ortho_Code.Abi;
 with Ada.Text_IO;
 with Ortho_Code.Debug;
+with Ortho_Code.Sysdeps;
 with Ortho_Ident;
 with Binary_File;
 
@@ -88,6 +89,7 @@ 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);