From 73a662efa92faabade68cfa495dbb1dde0dc07ec Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 5 Nov 2003 15:24:08 +0000 Subject: [PATCH] (XINT): Move the cast to clarify what is going on. --- src/lisp.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lisp.h b/src/lisp.h index df22444560b..8cacd349111 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -335,8 +335,8 @@ enum pvec_type /* 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 -- 2.39.2