Mercurial > emacs
diff src/lisp.h @ 52998:3d26cfe32fa7
(XINT): Move the cast to clarify what is going on.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 05 Nov 2003 15:24:08 +0000 |
parents | 1b64668b2442 |
children | 8e568e954adf |
line wrap: on
line diff
--- a/src/lisp.h Wed Nov 05 13:28:48 2003 +0000 +++ b/src/lisp.h Wed Nov 05 15:24:08 2003 +0000 @@ -335,8 +335,8 @@ /* Extract the value of a Lisp_Object as a signed integer. */ #ifndef XINT /* Some machines need to do this differently. */ -#define XINT(a) ((EMACS_INT) (((a) << (BITS_PER_EMACS_INT - VALBITS)) \ - >> (BITS_PER_EMACS_INT - VALBITS))) +#define XINT(a) ((((EMACS_INT) (a)) << (BITS_PER_EMACS_INT - VALBITS)) \ + >> (BITS_PER_EMACS_INT - VALBITS)) #endif /* Extract the value as an unsigned integer. This is a basis