Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 5935:d5eb0914ca1f cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
trial of E1 and UE1
author Henry Thompson <ht@markup.co.uk>
date Sat, 12 Dec 2015 21:49:31 +0000
parents e2fae7783046
children 574f0cded429
comparison
equal deleted inserted replaced
5934:e2fae7783046 5935:d5eb0914ca1f
484 #endif 484 #endif
485 485
486 #ifndef EMACS_UINT 486 #ifndef EMACS_UINT
487 # define EMACS_UINT unsigned EMACS_INT 487 # define EMACS_UINT unsigned EMACS_INT
488 #endif 488 #endif
489
490 /* HST added to save space/typing/be more transparent, I hope */
491 #define E1 ((EMACS_INT)1)
492 #define UE1 ((EMACS_UINT)1)
489 493
490 #define BITS_PER_EMACS_INT (SIZEOF_EMACS_INT * BITS_PER_CHAR) 494 #define BITS_PER_EMACS_INT (SIZEOF_EMACS_INT * BITS_PER_CHAR)
491 495
492 /* -------------------------- basic byte typedefs --------------------- */ 496 /* -------------------------- basic byte typedefs --------------------- */
493 497
1748 STORE_VOID_IN_LISP (void *ptr) 1752 STORE_VOID_IN_LISP (void *ptr)
1749 ) 1753 )
1750 { 1754 {
1751 EMACS_UINT p = (EMACS_UINT) ptr; 1755 EMACS_UINT p = (EMACS_UINT) ptr;
1752 1756
1753 type_checking_assert ((p & (EMACS_UINT)1) == 0); 1757 type_checking_assert ((p & UE1) == 0);
1754 return make_fixnum (p >> 1); 1758 return make_fixnum (p >> 1);
1755 } 1759 }
1756 1760
1757 DECLARE_INLINE_HEADER ( 1761 DECLARE_INLINE_HEADER (
1758 void * 1762 void *