mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-03-31 11:32:42 +00:00
Fix bug in constructing Ocaml option types in the bindings.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@44704 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
parent
5aaddaa7b8
commit
75e290f67a
@ -32,7 +32,7 @@ CAMLprim value llvm_verify_module(LLVMModuleRef M) {
|
||||
if (0 == Result) {
|
||||
Option = Val_int(0);
|
||||
} else {
|
||||
Option = alloc(1, 1);
|
||||
Option = alloc(1, 0);
|
||||
String = copy_string(Message);
|
||||
Store_field(Option, 0, String);
|
||||
}
|
||||
|
@ -410,7 +410,7 @@ CAMLprim value llvm_lookup_global(value Name, LLVMModuleRef M) {
|
||||
CAMLparam1(Name);
|
||||
LLVMValueRef GlobalVar;
|
||||
if ((GlobalVar = LLVMGetNamedGlobal(M, String_val(Name)))) {
|
||||
value Option = alloc(1, 1);
|
||||
value Option = alloc(1, 0);
|
||||
Field(Option, 0) = (value) GlobalVar;
|
||||
CAMLreturn(Option);
|
||||
}
|
||||
@ -487,7 +487,7 @@ CAMLprim value llvm_lookup_function(value Name, LLVMModuleRef M) {
|
||||
CAMLparam1(Name);
|
||||
LLVMValueRef Fn;
|
||||
if ((Fn = LLVMGetNamedFunction(M, String_val(Name)))) {
|
||||
value Option = alloc(1, 1);
|
||||
value Option = alloc(1, 0);
|
||||
Field(Option, 0) = (value) Fn;
|
||||
CAMLreturn(Option);
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user