1 files changed, 1 insertions, 6 deletions
diff --git a/ortho/mcode/ortho_code_main.adb b/ortho/mcode/ortho_code_main.adb
index 7744b88..7454d8f 100644
--- a/ortho/mcode/ortho_code_main.adb
+++ b/ortho/mcode/ortho_code_main.adb
@@ -25,11 +25,9 @@ with Ortho_Code.Debug;
 with Ortho_Mcode; use Ortho_Mcode;
 with Ortho_Front; use Ortho_Front;
 with Ortho_Code.Flags; use Ortho_Code.Flags;
-with Binary_File;
 with Binary_File.Elf;
 with Binary_File.Coff;
 with Binary_File.Memory;
-with Interfaces;
 
 procedure Ortho_Code_Main
 is
@@ -165,14 +163,11 @@ begin
       end if;
    elsif Exec_Func /= null then
       declare
-         use Binary_File;
-         use Interfaces;
-         use Ada.Text_IO;
          Sym : Symbol;
 
          type Func_Acc is access function return Integer;
          function Conv is new Ada.Unchecked_Conversion
-           (Source => Unsigned_32, Target => Func_Acc);
+           (Source => Pc_Type, Target => Func_Acc);
          F : Func_Acc;
          V : Integer;
          Err : Boolean;