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

Fix IntInBnd and MAX_ABS_INT for 64 bit machines 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@105 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-27 15:00:10 +00:00
parent efd998524f
commit b076d42858
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
m4/Yap.h.m4
View File

@ -10,7 +10,7 @@
* File: Yap.h.m4 *
* mods: *
* comments: main header file for YAP *
* version: $Id: Yap.h.m4,v 1.6 2001-06-27 13:22:30 vsc Exp $ *
* version: $Id: Yap.h.m4,v 1.7 2001-06-27 15:00:10 vsc Exp $ *
*************************************************************************/
#include "config.h"
@ -639,8 +639,8 @@ Inline(IsIntTerm, int, Term, t, CHKTAG((t), NumberTag))
#ifdef TAGS_FAST_OPS
#define IntInBnd(X) (Unsigned( ( (Int)(X) >> (32-7) ) + 1) <= 1)
#else
#define IntInBnd(X) ( (X) < (MAX_ABS_INT) && \
(X) > (-MAX_ABS_INT)-1 )
#define IntInBnd(X) ( (X) < MAX_ABS_INT && \
(X) > -MAX_ABS_INT-1L )
#endif
#endif
#ifdef C_PROLOG