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:
Eli Zaretskii 2023-09-16 20:03:59 +03:00
parent f24aeaf4ff
commit 2a8ad64ddd

View file

@ -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