Fix bug in constructing Ocaml option types in the bindings.

[oota-llvm.git] / bindings / ocaml / analysis / analysis_ocaml.c

diff --git a/bindings/ocaml/analysis/analysis_ocaml.c b/bindings/ocaml/analysis/analysis_ocaml.c
index cc1098a374913623552bf9e764615abf1ce9a188..c77fa73667fd7575c9c7ee471d16969a76e2ef35 100644 (file)
--- 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);
   }