diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-08 16:55:43 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-08 16:55:43 +0000 |
| commit | 282d177938b34778d2d1967e7dfc681ad8b4c99f (patch) | |
| tree | b471c289a0305c19f479d01bb64f6171a45b0f86 /bindings/ocaml/llvm/llvm_ocaml.c | |
| parent | 7f06edd63c8dff87d0057737adb07ff45f3e6947 (diff) | |
| download | external_llvm-282d177938b34778d2d1967e7dfc681ad8b4c99f.zip external_llvm-282d177938b34778d2d1967e7dfc681ad8b4c99f.tar.gz external_llvm-282d177938b34778d2d1967e7dfc681ad8b4c99f.tar.bz2 | |
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
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 4 |
1 files changed, 2 insertions, 2 deletions
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); } |