diff options
| author | Bill Wendling <isanbard@gmail.com> | 2009-04-30 00:43:39 +0000 |
|---|---|---|
| committer | Bill Wendling <isanbard@gmail.com> | 2009-04-30 00:43:39 +0000 |
| commit | dceef7b4a44c4ca1bd430a65409a590eafa11518 (patch) | |
| tree | b17a7d13eb23c6c4ac8ed5773549e116e2540dd2 | |
| parent | 8ccbae034a517e28e21eaafa114ed5ee19744a8b (diff) | |
| download | external_llvm-dceef7b4a44c4ca1bd430a65409a590eafa11518.zip external_llvm-dceef7b4a44c4ca1bd430a65409a590eafa11518.tar.gz external_llvm-dceef7b4a44c4ca1bd430a65409a590eafa11518.tar.bz2 | |
Fix the JIT bindings for ocaml.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@70454 91177308-0d34-0410-b5e6-96231b3b80d8
| -rw-r--r-- | bindings/ocaml/executionengine/executionengine_ocaml.c | 4 | ||||
| -rw-r--r-- | lib/ExecutionEngine/ExecutionEngineBindings.cpp | 7 |
2 files changed, 6 insertions, 5 deletions
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 @@ 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; } 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 LLVMCreateInterpreter(LLVMExecutionEngineRef *OutInterp, 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; } |