Mercurial > hg > xemacs-beta

comparison src/lisp-disunion.h @ 259:11cf20601dec r20-5b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b28
author cvs
date Mon, 13 Aug 2007 10:23:02 +0200
parents d44af0c54775
children c5d627a313b1
comparison
equal deleted inserted replaced
258:58424f6abf56 259:11cf20601dec
159 # ifdef USE_MINIMAL_TAGBITS 159 # ifdef USE_MINIMAL_TAGBITS
160 # define XREALINT(a) ((a) >> (LONGBITS-VALBITS-1)) 160 # define XREALINT(a) ((a) >> (LONGBITS-VALBITS-1))
161 # else 161 # else
162 # define XREALINT(a) (((a) << (LONGBITS-VALBITS)) >> (LONGBITS-VALBITS)) 162 # define XREALINT(a) (((a) << (LONGBITS-VALBITS)) >> (LONGBITS-VALBITS))
163 # endif 163 # endif
164 #endif
165
166 /* Extract the value of a Lisp integer as an unsigned integer. */
167 #ifdef USE_MINIMAL_TAGBITS
168 # define XUINT(a) ((EMACS_UINT)(a) >> (LONGBITS-VALBITS-1))
169 #else
170 # define XUINT(a) XPNTRVAL(a)
164 #endif 171 #endif
165 172
166 /* 173 /*
167 * Extract the pointer value bits of a pointer based type. 174 * Extract the pointer value bits of a pointer based type.
168 */ 175 */