projects
/
oota-llvm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 {
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);
}
String = copy_string(Message);
Store_field(Option, 0, String);
}