Revert "Don't use pointer arithmetic for untagging Lisp values"
This reverts commit 056c99a34c
.
It broke compilation of 32-bit build --with-wide-int.
This commit is contained in:
parent
f24aeaf4ff
commit
2a8ad64ddd
1 changed files with 1 additions and 1 deletions
|
@ -811,7 +811,7 @@ INLINE void
|
|||
extracted pointer's type is CTYPE *. */
|
||||
|
||||
#define XUNTAG(a, type, ctype) ((ctype *) \
|
||||
((uintptr_t) XLP (a) - LISP_WORD_TAG (type)))
|
||||
((char *) XLP (a) - LISP_WORD_TAG (type)))
|
||||
|
||||
/* A forwarding pointer to a value. It uses a generic pointer to
|
||||
avoid alignment bugs that could occur if it used a pointer to a
|
||||
|
|
Loading…
Add table
Reference in a new issue