From 75e290f67aa7af3c0be993df4845c0defaf6ffa3 Mon Sep 17 00:00:00 2001 From: Gordon Henriksen Date: Sat, 8 Dec 2007 16:55:43 +0000 Subject: 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 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bindings/ocaml/analysis') 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 @@ 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); } -- cgit v1.1