aboutsummaryrefslogtreecommitdiffstats
path: root/bindings/ocaml/llvm/llvm_ocaml.c
diff options
context:
space:
mode:
authorGabor Greif <ggreif@gmail.com>2007-09-20 10:20:34 +0000
committerGabor Greif <ggreif@gmail.com>2007-09-20 10:20:34 +0000
commit81d467a3cb1a1dadad6eeb87acacb9d3e5ac4a9c (patch)
tree090e0b6c47153e61ec850699c5884d5a044556c8 /bindings/ocaml/llvm/llvm_ocaml.c
parent0a6bdef20ae7285bd600ff00996ca4cf82988c63 (diff)
downloadexternal_llvm-81d467a3cb1a1dadad6eeb87acacb9d3e5ac4a9c.zip
external_llvm-81d467a3cb1a1dadad6eeb87acacb9d3e5ac4a9c.tar.gz
external_llvm-81d467a3cb1a1dadad6eeb87acacb9d3e5ac4a9c.tar.bz2
use typenames equivalent to
(u)intval, because latter are not present in older caml/mlvalues.h (e.g. 2004/07/07, 1.48.6.1) Using this as a workaround for now, until --without-ocaml works or we settle on a better solution git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@42160 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
-rw-r--r--bindings/ocaml/llvm/llvm_ocaml.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c
index c297a5f..80d7f73 100644
--- a/bindings/ocaml/llvm/llvm_ocaml.c
+++ b/bindings/ocaml/llvm/llvm_ocaml.c
@@ -273,9 +273,9 @@ CAMLprim value llvm_make_int_constant(value IntTy, value N, value SExt) {
/* GCC warns if we use the ternary operator. */
unsigned long long N2;
if (Bool_val(SExt))
- N2 = (intnat) Int_val(N);
+ N2 = (value) Int_val(N);
else
- N2 = (uintnat) Int_val(N);
+ N2 = (mlsize_t) Int_val(N);
return (value) LLVMGetIntConstant((LLVMTypeRef) IntTy, N2, Bool_val(SExt));
}