Preliminary work for LLVM.

Preliminary work for SSE.

1 files changed, 2 insertions, 12 deletions

diff --git a/ortho/mcode/ortho_mcode.adb b/ortho/mcode/ortho_mcode.adb
index e774483..f9335fa 100644
--- a/ortho/mcode/ortho_mcode.adb
+++ b/ortho/mcode/ortho_mcode.adb
@@ -19,7 +19,7 @@ with Ada.Text_IO;
 with Ortho_Code.Debug;
 with Ortho_Code.Sysdeps;
 with Ortho_Ident;
-with Binary_File;
+-- with Binary_File;
 
 package body Ortho_Mcode is
    procedure New_Debug_Line_Decl (Line : Natural)
@@ -43,16 +43,6 @@ package body Ortho_Mcode is
       null;
    end New_Debug_Comment_Stmt;
 
-   procedure Start_Declare_Stmt is
-   begin
-      Ortho_Code.Exprs.Start_Declare_Stmt;
-   end Start_Declare_Stmt;
-
-   procedure Finish_Declare_Stmt is
-   begin
-      Ortho_Code.Exprs.Finish_Declare_Stmt;
-   end Finish_Declare_Stmt;
-
    procedure Start_Const_Value (Const : in out O_Dnode)
    is
       pragma Unreferenced (Const);
@@ -111,7 +101,7 @@ package body Ortho_Mcode is
          Ortho_Code.Types.Disp_Stats;
          Ortho_Code.Consts.Disp_Stats;
          Ortho_Ident.Disp_Stats;
-         Binary_File.Disp_Stats;
+         -- Binary_File.Disp_Stats;
       end if;
    end Finish;