Revert "Don't use pointer arithmetic for untagging Lisp values"

This reverts commit 056c99a34c143e1b5162366db07a143ac2b10631.
It broke compilation of 32-bit build --with-wide-int.

diff --git a/src/lisp.h b/src/lisp.h
index 35a88d9b238d503554f62f24f32605ef910d53a0..50b68f2e7678833e2b91dfd5dcb0f4aaa9603eaf 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -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