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

fix 32 bit operations

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-05-25 23:49:01 +01:00
parent b2d34d016f
commit 3a21922e37
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
H/Tags_32LowTag.h
View File

@ -14,7 +14,7 @@
* version: $Id: Tags_32LowTag.h,v 1.4 2008-01-30 10:35:43 vsc Exp $ * * version: $Id: Tags_32LowTag.h,v 1.4 2008-01-30 10:35:43 vsc Exp $ *
*************************************************************************/ *************************************************************************/
#if FALSE /* not in use */ #if SIZEOF_INT_P==4 && USE_LOW32_TAGS
#define TAG_LOW_BITS_32 1 #define TAG_LOW_BITS_32 1
@ -199,6 +199,5 @@ IntOfTerm (Term t)
return (Int) (((Int) (t << 1)) >> (SHIFT_LOW_TAG + SHIFT_HIGH_TAG + 1)); return (Int) (((Int) (t << 1)) >> (SHIFT_LOW_TAG + SHIFT_HIGH_TAG + 1));
} }
#endif /* currently not in use */ #endif

2
H/Tags_32Ops.h
View File

@ -49,7 +49,7 @@ are now 1 in compound terms and structures.
*/ */
#if SIZEOF_INT_P==4 #if SIZEOF_INT_P==4 && !defined(USE_LOW32_TAGS)
#define TAGS_FAST_OPS 1 #define TAGS_FAST_OPS 1