Fix the JIT bindings for ocaml.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@70454 91177308-0d34-0410-b5e6-96231b3b80d8
diff --git a/bindings/ocaml/executionengine/executionengine_ocaml.c b/bindings/ocaml/executionengine/executionengine_ocaml.c
index fc3848a..ec40338 100644
--- a/bindings/ocaml/executionengine/executionengine_ocaml.c
+++ b/bindings/ocaml/executionengine/executionengine_ocaml.c
@@ -181,7 +181,7 @@
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 @@
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;
}
diff --git a/lib/ExecutionEngine/ExecutionEngineBindings.cpp b/lib/ExecutionEngine/ExecutionEngineBindings.cpp
index 0ef85dd..83397a5 100644
--- a/lib/ExecutionEngine/ExecutionEngineBindings.cpp
+++ b/lib/ExecutionEngine/ExecutionEngineBindings.cpp
@@ -114,11 +114,12 @@
int LLVMCreateJITCompiler(LLVMExecutionEngineRef *OutJIT,
LLVMModuleProviderRef MP,
- CodeGenOpt::Level OptLevel,
+ unsigned OptLevel,
char **OutError) {
std::string Error;
- if (ExecutionEngine *JIT = ExecutionEngine::createJIT(unwrap(MP), &Error, 0,
- OptLevel)) {
+ if (ExecutionEngine *JIT =
+ ExecutionEngine::createJIT(unwrap(MP), &Error, 0,
+ (CodeGenOpt::Level)OptLevel)) {
*OutJIT = wrap(JIT);
return 0;
}