Expose the optimization level for the jit in ocaml.

[oota-llvm.git] / bindings / ocaml / executionengine / llvm_executionengine.ml

diff --git a/bindings/ocaml/executionengine/llvm_executionengine.ml b/bindings/ocaml/executionengine/llvm_executionengine.ml
index 921d424ad51a01bc76a30c121a9248ee9268cc33..95faa58cc548a969392497a2335a7218fdb03c39 100644 (file)
--- a/bindings/ocaml/executionengine/llvm_executionengine.ml
+++ b/bindings/ocaml/executionengine/llvm_executionengine.ml
@@ -60,10 +60,8 @@ module ExecutionEngine = struct
     = "llvm_ee_create"
   external create_interpreter: Llvm.llmodule -> t
     = "llvm_ee_create_interpreter"
     = "llvm_ee_create"
   external create_interpreter: Llvm.llmodule -> t
     = "llvm_ee_create_interpreter"

-  external create_jit: Llvm.llmodule -> t
+  external create_jit: Llvm.llmodule -> int -> t

     = "llvm_ee_create_jit"
     = "llvm_ee_create_jit"

-  external create_fast_jit: Llvm.llmodule -> t
-    = "llvm_ee_create_fast_jit"

   external dispose: t -> unit
     = "llvm_ee_dispose"
   external add_module: Llvm.llmodule -> t -> unit
   external dispose: t -> unit
     = "llvm_ee_dispose"
   external add_module: Llvm.llmodule -> t -> unit