commit 282d177938b34778d2d1967e7dfc681ad8b4c99f
author Gordon Henriksen <gordonhenriksen@mac.com> Sat Dec 08 16:55:43 2007 +0000
committer Gordon Henriksen <gordonhenriksen@mac.com> Sat Dec 08 16:55:43 2007 +0000
tree b471c289a0305c19f479d01bb64f6171a45b0f86
parent 7f06edd63c8dff87d0057737adb07ff45f3e6947

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

bindings/ocaml/analysis/analysis_ocaml.c

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