diff options
| -rw-r--r-- | bindings/ocaml/analysis/analysis_ocaml.c | 2 | ||||
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/bindings/ocaml/analysis/analysis_ocaml.c b/bindings/ocaml/analysis/analysis_ocaml.c index cc1098a..c77fa73 100644 --- a/bindings/ocaml/analysis/analysis_ocaml.c +++ b/bindings/ocaml/analysis/analysis_ocaml.c @@ -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); } diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index a0b39c6..dd37e3e 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -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); } |