diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2014-07-22 13:55:20 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2014-07-22 13:55:20 +0000 |
| commit | acdcb3773d085eef413385a1c24ea78f01657bcd (patch) | |
| tree | 829f26494366e72033974d84f5e29b3e28abba6b /bindings/ocaml | |
| parent | f8b83e39c5b28b4ae3e528e05aea262ceddac9bd (diff) | |
[OCaml] Don't truncate constants over 32 bits in Llvm.const_int.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@213655 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index d5ebdcd3e31..2044856ef2d 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -695,7 +695,7 @@ CAMLprim value llvm_append_namedmd(LLVMModuleRef M, value Name, LLVMValueRef Val /* lltype -> int -> llvalue */ CAMLprim LLVMValueRef llvm_const_int(LLVMTypeRef IntTy, value N) { - return LLVMConstInt(IntTy, (long long) Int_val(N), 1); + return LLVMConstInt(IntTy, (long long) Long_val(N), 1); } /* lltype -> Int64.t -> bool -> llvalue */ |