maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

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

llvm-svn: 42160
This commit is contained in:
Gabor Greif 2007-09-20 10:20:34 +00:00
parent 95be037d67
commit 4a46052d30
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
llvm/bindings/ocaml/llvm/llvm_ocaml.c
View File

@ -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));
}