[llvm-commits] [llvm] r42160 - /llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

[Gabor Greif]

Author: ggreif
Date: Thu Sep 20 05:20:34 2007
New Revision: 42160

URL: http://llvm.org/viewvc/llvm-project?rev=42160&view=rev
Log:
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

Modified:
    llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

Modified: llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c?rev=42160&r1=42159&r2=42160&view=diff

==============================================================================
--- llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c Thu Sep 20 05:20:34 2007
@@ -273,9 +273,9 @@
   /* 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));
 }