6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-08-09 11:25:55 +00:00
Code Issues Projects Releases Wiki Activity

Fix the JIT bindings for ocaml.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@70454 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Bill Wendling
2009-04-30 00:43:39 +00:00
parent cf189964d7
commit 610079287e
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bindings/ocaml/executionengine/executionengine_ocaml.c
View File

@@ -181,7 +181,7 @@ CAMLprim LLVMExecutionEngineRef
llvm_ee_create_jit(LLVMModuleProviderRef MP) { llvm_ee_create_jit(LLVMModuleProviderRef MP) {
LLVMExecutionEngineRef JIT; LLVMExecutionEngineRef JIT;
char *Error; char *Error;
if (LLVMCreateJITCompiler(&JIT, MP, 0, &Error)) if (LLVMCreateJITCompiler(&JIT, MP, 3, &Error))
llvm_raise(llvm_ee_error_exn, Error); llvm_raise(llvm_ee_error_exn, Error);
return JIT; return JIT;
} }
@@ -191,7 +191,7 @@ CAMLprim LLVMExecutionEngineRef
llvm_ee_create_fast_jit(LLVMModuleProviderRef MP) { llvm_ee_create_fast_jit(LLVMModuleProviderRef MP) {
LLVMExecutionEngineRef JIT; LLVMExecutionEngineRef JIT;
char *Error; char *Error;
if (LLVMCreateJITCompiler(&JIT, MP, 1, &Error)) if (LLVMCreateJITCompiler(&JIT, MP, 0, &Error))
llvm_raise(llvm_ee_error_exn, Error); llvm_raise(llvm_ee_error_exn, Error);
return JIT; return JIT;
} }

7
lib/ExecutionEngine/ExecutionEngineBindings.cpp
View File

@@ -114,11 +114,12 @@ int LLVMCreateInterpreter(LLVMExecutionEngineRef *OutInterp,
int LLVMCreateJITCompiler(LLVMExecutionEngineRef *OutJIT, int LLVMCreateJITCompiler(LLVMExecutionEngineRef *OutJIT,
LLVMModuleProviderRef MP, LLVMModuleProviderRef MP,
CodeGenOpt::Level OptLevel, unsigned OptLevel,
char **OutError) { char **OutError) {
std::string Error; std::string Error;
if (ExecutionEngine *JIT = ExecutionEngine::createJIT(unwrap(MP), &Error, 0, if (ExecutionEngine *JIT =
OptLevel)) { ExecutionEngine::createJIT(unwrap(MP), &Error, 0,
(CodeGenOpt::Level)OptLevel)) {
*OutJIT = wrap(JIT); *OutJIT = wrap(JIT);
return 0; return 0;
} }