diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-08 16:55:43 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-08 16:55:43 +0000 |
| commit | 05481d91be8267641fdc93ee7cca8ffbed102111 (patch) | |
| tree | 577cde512784697e816db7ce5993eb898ca303a8 /llvm/bindings/ocaml/analysis/analysis_ocaml.c | |
| parent | ff87f05e4360dd80059bcc556578c9fcaed2ce13 (diff) | |
| download | bcm5719-llvm-05481d91be8267641fdc93ee7cca8ffbed102111.tar.gz bcm5719-llvm-05481d91be8267641fdc93ee7cca8ffbed102111.zip | |
Fix bug in constructing Ocaml option types in the bindings.
llvm-svn: 44704
Diffstat (limited to 'llvm/bindings/ocaml/analysis/analysis_ocaml.c')
| -rw-r--r-- | llvm/bindings/ocaml/analysis/analysis_ocaml.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/llvm/bindings/ocaml/analysis/analysis_ocaml.c b/llvm/bindings/ocaml/analysis/analysis_ocaml.c index cc1098a3749..c77fa73667f 100644 --- a/llvm/bindings/ocaml/analysis/analysis_ocaml.c +++ b/llvm/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); } |
