diff options
| author | Stefan Monnier | 2009-11-03 21:12:15 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2009-11-03 21:12:15 +0000 |
| commit | 524420d28903e8b8c35c9e942ad79f38a2e20dde (patch) | |
| tree | ee6ffb08808455ce7a0707bd9055c463317da4fa /src | |
| parent | b349d11143018fa0e3174d7eb01e039694dc24cb (diff) | |
| download | emacs-524420d28903e8b8c35c9e942ad79f38a2e20dde.tar.gz emacs-524420d28903e8b8c35c9e942ad79f38a2e20dde.zip | |
(XPNTR) [USE_LSB_TAG && USE_LISP_UNION_TYPE]: silence compiler.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index 4bf3d392811..19950f79055 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -427,7 +427,10 @@ enum pvec_type | |||
| 427 | (var).u.val = ((EMACS_UINT) (ptr)) >> GCTYPEBITS, \ | 427 | (var).u.val = ((EMACS_UINT) (ptr)) >> GCTYPEBITS, \ |
| 428 | (var).u.type = ((char) (vartype))) | 428 | (var).u.type = ((char) (vartype))) |
| 429 | 429 | ||
| 430 | # define XPNTR(v) (((v).s.val) << GCTYPEBITS) | 430 | /* Some versions of gcc seem to consider the bitfield width when issuing |
| 431 | the "cast to pointer from integer of different size" warning, so the | ||
| 432 | cast is here to widen the value back to its natural size. */ | ||
| 433 | # define XPNTR(v) ((EMACS_INT)((v).s.val) << GCTYPEBITS) | ||
| 431 | 434 | ||
| 432 | #else /* !USE_LSB_TAG */ | 435 | #else /* !USE_LSB_TAG */ |
| 433 | 436 | ||