Mercurial > hg > xemacs-beta
diff src/lisp.h @ 5935:d5eb0914ca1f cygwin
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 |
line wrap: on
line diff
--- a/src/lisp.h Sat Dec 12 19:08:46 2015 +0000 +++ b/src/lisp.h Sat Dec 12 21:49:31 2015 +0000 @@ -487,6 +487,10 @@ # define EMACS_UINT unsigned EMACS_INT #endif +/* HST added to save space/typing/be more transparent, I hope */ +#define E1 ((EMACS_INT)1) +#define UE1 ((EMACS_UINT)1) + #define BITS_PER_EMACS_INT (SIZEOF_EMACS_INT * BITS_PER_CHAR) /* -------------------------- basic byte typedefs --------------------- */ @@ -1750,7 +1754,7 @@ { EMACS_UINT p = (EMACS_UINT) ptr; - type_checking_assert ((p & (EMACS_UINT)1) == 0); + type_checking_assert ((p & UE1) == 0); return make_fixnum (p >> 1); }