Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/lisp-disunion.h	Mon Aug 13 10:22:10 2007 +0200
+++ b/src/lisp-disunion.h	Mon Aug 13 10:23:02 2007 +0200
@@ -163,6 +163,13 @@
 # endif
 #endif
 
+/* Extract the value of a Lisp integer as an unsigned integer. */
+#ifdef USE_MINIMAL_TAGBITS
+# define XUINT(a) ((EMACS_UINT)(a) >> (LONGBITS-VALBITS-1))
+#else
+# define XUINT(a) XPNTRVAL(a)
+#endif
+
 /*
  * Extract the pointer value bits of a pointer based type.
  */