diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX GMPless compilation. 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1500 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-01-08 03:23:07 +00:00
parent aaf846389a
commit 8e15cd2bcf
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/arith1.c
View File

@ -52,7 +52,7 @@ float_to_int(Float v, union arith_ret *o)
}
#define RBIG_FL(v) return(float_to_int(v,o))
#else
#define RBIG_FL(v) ((o)->Int = (Int)v; return long_int_e)
#define RBIG_FL(v) (o)->Int = (Int)(v); return long_int_e
#endif
#if USE_GMP

4
H/arith2.h
View File

@ -1204,12 +1204,14 @@ p_or(Term t1, Term t2 E_ARGS)
}
}
static Int
#if USE_GMP
static inline Int
sll_ovflw(Int x,Int i)
{
CELL t = (1<<x)-1;
return (t & i) != i;
}
#endif
inline static E_FUNC
do_sll(Int i, Int j E_ARGS)