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

[Gordon Henriksen]

This patch is fine. I've tested with an earlier version (2.06), too.  
You should be able to compile cleanly now.

On Sep 20, 2007, at 06:20, Gabor Greif wrote:

> 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));
>  }
>
>
> _______________________________________________
> llvm-commits mailing list
> llvm-commits at cs.uiuc.edu
> http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits



— Gordon

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.llvm.org/pipermail/llvm-commits/attachments/20070920/79880a33/attachment.html>