From d1fddff66ad93c7efe5761a94029fa300d35aa4b Mon Sep 17 00:00:00 2001
From: gingold
Date: Thu, 13 Aug 2009 03:59:39 +0000
Subject: Preliminary work for LLVM. Preliminary work for SSE.

---
 ortho/mcode/ortho_mcode.adb | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

(limited to 'ortho/mcode/ortho_mcode.adb')

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;
 
-- 
cgit