use typenames equivalent to

[oota-llvm.git] / bindings / ocaml / llvm / llvm_ocaml.c

diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c
index c297a5f3e6f7688580b4a91f67915b2b99351ab1..80d7f737bab49d0d957aa3af122eefbf7f064489 100644 (file)
--- 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));
 }