From 6f66ce096fed773c00a3278fb3aced424fa3e5be Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sun, 9 Mar 2014 10:25:08 +0100
Subject: Remove ortho_llvm-main.

---
 ortho/llvm/ortho_jit.adb | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'ortho/llvm/ortho_jit.adb')

diff --git a/ortho/llvm/ortho_jit.adb b/ortho/llvm/ortho_jit.adb
index cdb4f0f..9aa6c1c 100644
--- a/ortho/llvm/ortho_jit.adb
+++ b/ortho/llvm/ortho_jit.adb
@@ -19,7 +19,7 @@
 --  with GNAT.OS_Lib; use GNAT.OS_Lib;
 with Ada.Text_IO; use Ada.Text_IO;
 
-with Ortho_LLVM.Main; use Ortho_LLVM.Main;
+with Ortho_LLVM; use Ortho_LLVM;
 with Ortho_LLVM.Jit;
 
 with LLVM.Core; use LLVM.Core;
@@ -59,15 +59,14 @@ package body Ortho_Jit is
       if CreateExecutionEngineForModule
         (Ortho_LLVM.Jit.Engine'Access, Module, Msg'Access) /= 0
       then
-         Put_Line (Standard_Error,
-                   "cannot create execute: " & To_String (Msg));
+         Put_Line (Standard_Error, "cannot create execution engine");
          raise Program_Error;
       end if;
 
       Target_Data := GetExecutionEngineTargetData (Ortho_LLVM.Jit.Engine);
       SetDataLayout (Module, CopyStringRepOfTargetData (Target_Data));
 
-      Ortho_LLVM.Main.Init;
+      Ortho_LLVM.Init;
    end Init;
 
    procedure Set_Address (Decl : O_Dnode; Addr : Address)
-- 
cgit