diff options
Diffstat (limited to 'ortho/llvm/ortho_jit.adb')
| -rw-r--r-- | ortho/llvm/ortho_jit.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ortho/llvm/ortho_jit.adb b/ortho/llvm/ortho_jit.adb index cdb4f0f2d..9aa6c1c53 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) |