diff options
| author | Stefan Monnier | 2003-11-05 15:24:08 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-11-05 15:24:08 +0000 |
| commit | 73a662efa92faabade68cfa495dbb1dde0dc07ec (patch) | |
| tree | a23948572dc2d9fa10c60c743eacd8406e29164e /src | |
| parent | bd382a27557edf74d24574ce6ec45d04b0ecd744 (diff) | |
| download | emacs-73a662efa92faabade68cfa495dbb1dde0dc07ec.tar.gz emacs-73a662efa92faabade68cfa495dbb1dde0dc07ec.zip | |
(XINT): Move the cast to clarify what is going on.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 4 |
1 files 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 | |||
| 335 | /* Extract the value of a Lisp_Object as a signed integer. */ | 335 | /* Extract the value of a Lisp_Object as a signed integer. */ |
| 336 | 336 | ||
| 337 | #ifndef XINT /* Some machines need to do this differently. */ | 337 | #ifndef XINT /* Some machines need to do this differently. */ |
| 338 | #define XINT(a) ((EMACS_INT) (((a) << (BITS_PER_EMACS_INT - VALBITS)) \ | 338 | #define XINT(a) ((((EMACS_INT) (a)) << (BITS_PER_EMACS_INT - VALBITS)) \ |
| 339 | >> (BITS_PER_EMACS_INT - VALBITS))) | 339 | >> (BITS_PER_EMACS_INT - VALBITS)) |
| 340 | #endif | 340 | #endif |
| 341 | 341 | ||
| 342 | /* Extract the value as an unsigned integer. This is a basis | 342 | /* Extract the value as an unsigned integer. This is a basis |