X-Git-Url: http://plrg.eecs.uci.edu/git/?a=blobdiff_plain;f=bindings%2Focaml%2Fanalysis%2Fanalysis_ocaml.c;h=c77fa73667fd7575c9c7ee471d16969a76e2ef35;hb=75e290f67aa7af3c0be993df4845c0defaf6ffa3;hp=cc1098a374913623552bf9e764615abf1ce9a188;hpb=5aaddaa7b8d52eec58f6eec0a4a897a03b517ca4;p=oota-llvm.git

diff --git a/bindings/ocaml/analysis/analysis_ocaml.c b/bindings/ocaml/analysis/analysis_ocaml.c
index cc1098a3749..c77fa73667f 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);
   }