Mercurial > hg > xemacs-beta

comparison src/lisp-disunion.h @ 296:5a79be0ef6a8 r21-0b46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b46
author cvs
date Mon, 13 Aug 2007 10:38:46 +0200
parents c5d627a313b1
children 8626e4521993
comparison
equal deleted inserted replaced
295:9d5da8baa111 296:5a79be0ef6a8
124 # define Qzero ((Lisp_Object) 1UL) 124 # define Qzero ((Lisp_Object) 1UL)
125 125
126 #else /* !USE_MINIMAL_TAGBITS */ 126 #else /* !USE_MINIMAL_TAGBITS */
127 127
128 # define MARKBIT (1UL << VALBITS) 128 # define MARKBIT (1UL << VALBITS)
129 # define XMARKBIT(x) ((x) & MARKBIT) 129 # define XMARKBIT(x) (((x) & MARKBIT) != 0)
130 # define XMARK(x) ((void) ((x) |= MARKBIT)) 130 # define XMARK(x) ((void) ((x) |= MARKBIT))
131 # define XUNMARK(x) ((void) ((x) &= ~MARKBIT)) 131 # define XUNMARK(x) ((void) ((x) &= ~MARKBIT))
132 # define make_obj(vartype, value) \ 132 # define make_obj(vartype, value) \
133 ((Lisp_Object) (((EMACS_UINT) (vartype) << (VALBITS + GCMARKBITS)) \ 133 ((Lisp_Object) (((EMACS_UINT) (vartype) << (VALBITS + GCMARKBITS)) \
134 + ((EMACS_UINT) (value) & VALMASK))) 134 + ((EMACS_UINT) (value) & VALMASK)))