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

fix non-GMP bugs

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1496 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-01-04 11:18:45 +00:00
parent bde8a59cec
commit 17d45689c9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/arith1.c
View File

@ -52,9 +52,10 @@ 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
static void static void
process_iso_error(MP_INT *big, Term t, char *operation) process_iso_error(MP_INT *big, Term t, char *operation)
{ /* iso */ { /* iso */
@ -71,7 +72,7 @@ process_iso_error(MP_INT *big, Term t, char *operation)
P = (yamop *)FAILCODE; P = (yamop *)FAILCODE;
} }
} }
#endif
inline static Functor inline static Functor
AritFunctorOfTerm(Term t) { AritFunctorOfTerm(Term t) {