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 | daacd61443a9780ba1a2270d742f2f9e5c9872fb (patch) | |
| tree | 1c84dda07ead00a9e2eae9f31828d26693e40b35 /llvm/bindings/ocaml | |
| parent | 6d4a6cd68f6d98ec98862554f26881e5549a4320 (diff) | |
| download | bcm5719-llvm-daacd61443a9780ba1a2270d742f2f9e5c9872fb.tar.gz bcm5719-llvm-daacd61443a9780ba1a2270d742f2f9e5c9872fb.zip | |
[OCaml] Don't truncate constants over 32 bits in Llvm.const_int.
llvm-svn: 213655
Diffstat (limited to 'llvm/bindings/ocaml')
| -rw-r--r-- | llvm/bindings/ocaml/llvm/llvm_ocaml.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/llvm/bindings/ocaml/llvm/llvm_ocaml.c b/llvm/bindings/ocaml/llvm/llvm_ocaml.c index d5ebdcd3e31..2044856ef2d 100644 --- a/llvm/bindings/ocaml/llvm/llvm_ocaml.c +++ b/llvm/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 */ |
