should use two upper bits for tag, not just one :-(.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1275 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-04-15 19:06:37 +00:00
parent eb8721e6be
commit 253af23552
1 changed files with 2 additions and 2 deletions

View File

@ -11,7 +11,7 @@
* Last rev: December 90 *
* mods: *
* comments: Original Tag Scheme for machines with 32 bits adresses *
* version: $Id: Tags_64bits.h.m4,v 1.4 2005-02-21 16:50:18 vsc Exp $ *
* version: $Id: Tags_64bits.h.m4,v 1.5 2005-04-15 19:06:37 vsc Exp $ *
*************************************************************************/
#define TAG_64BITS 1
@ -33,7 +33,7 @@ property list
*/
#define SHIFT_HIGH_TAG 63
#define SHIFT_HIGH_TAG 62
#define MKTAG(HI,LO) ((((UInt) (HI))<<SHIFT_HIGH_TAG)|(LO))