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:
Gordon Henriksen
2007-12-08 16:55:43 +00:00
parent 5aaddaa7b8
commit 75e290f67a
2 changed files with 3 additions and 3 deletions

View File

@@ -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);
}