Fix the JIT bindings for ocaml.

[oota-llvm.git] / bindings / ocaml / executionengine / executionengine_ocaml.c

diff --git a/bindings/ocaml/executionengine/executionengine_ocaml.c b/bindings/ocaml/executionengine/executionengine_ocaml.c
index fc3848a1eb1428dc2bbe70483fcc1be78d74a81e..ec403380ef44e22d50f613709dc9420d235adc66 100644 (file)
--- a/bindings/ocaml/executionengine/executionengine_ocaml.c
+++ b/bindings/ocaml/executionengine/executionengine_ocaml.c
@@ -181,7 +181,7 @@ CAMLprim LLVMExecutionEngineRef
 llvm_ee_create_jit(LLVMModuleProviderRef MP) {
   LLVMExecutionEngineRef JIT;
   char *Error;
-  if (LLVMCreateJITCompiler(&JIT, MP, 0, &Error))
+  if (LLVMCreateJITCompiler(&JIT, MP, 3, &Error))
     llvm_raise(llvm_ee_error_exn, Error);
   return JIT;
 }
@@ -191,7 +191,7 @@ CAMLprim LLVMExecutionEngineRef
 llvm_ee_create_fast_jit(LLVMModuleProviderRef MP) {
   LLVMExecutionEngineRef JIT;
   char *Error;
-  if (LLVMCreateJITCompiler(&JIT, MP, 1, &Error))
+  if (LLVMCreateJITCompiler(&JIT, MP, 0, &Error))
     llvm_raise(llvm_ee_error_exn, Error);
   return JIT;
 }