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:
parent
aaf846389a
commit
8e15cd2bcf
@ -52,7 +52,7 @@ float_to_int(Float v, union arith_ret *o)
|
|||||||
}
|
}
|
||||||
#define RBIG_FL(v) return(float_to_int(v,o))
|
#define RBIG_FL(v) return(float_to_int(v,o))
|
||||||
#else
|
#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
|
#endif
|
||||||
|
|
||||||
#if USE_GMP
|
#if USE_GMP
|
||||||
|
@ -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)
|
sll_ovflw(Int x,Int i)
|
||||||
{
|
{
|
||||||
CELL t = (1<<x)-1;
|
CELL t = (1<<x)-1;
|
||||||
return (t & i) != i;
|
return (t & i) != i;
|
||||||
}
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
inline static E_FUNC
|
inline static E_FUNC
|
||||||
do_sll(Int i, Int j E_ARGS)
|
do_sll(Int i, Int j E_ARGS)
|
||||||
|
Reference in New Issue
Block a user