Mercurial > hg > xemacs-beta

comparison src/lisp-disunion.h @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents e45d5e7c476e
children d44af0c54775
comparison
equal deleted inserted replaced
212:d8688acf4c5b 213:78f53ef88e17
100 # define MARKBIT (1UL << (VALBITS)) 100 # define MARKBIT (1UL << (VALBITS))
101 # define XMARKBIT(a) ((a) & (MARKBIT)) 101 # define XMARKBIT(a) ((a) & (MARKBIT))
102 102
103 # define XMARK(a) ((void) ((a) |= (MARKBIT))) 103 # define XMARK(a) ((void) ((a) |= (MARKBIT)))
104 # define XUNMARK(a) ((void) ((a) &= (~(MARKBIT)))) 104 # define XUNMARK(a) ((void) ((a) &= (~(MARKBIT))))
105 #else
106 # define XUNMARK(a) DO_NOTHING
105 #endif 107 #endif
106 108
107 /* 109 /*
108 * Extract the type bits from a Lisp_Object. If using USE_MINIMAL_TAGBITS, 110 * Extract the type bits from a Lisp_Object. If using USE_MINIMAL_TAGBITS,
109 * the least significant two bits are the type bits. Otherwise the 111 * the least significant two bits are the type bits. Otherwise the