From c0788f0c476f094a91f7b20f41d0fe50b5b19f9d Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= <mattiase@acm.org>
Date: Sat, 16 Sep 2023 18:37:17 +0200
Subject: [PATCH] * src/lisp.h (XUNTAG): Work on 32-bit --with-wide-int builds
This eliminates a compiler warning for that configuration
(see bug#65491).
---
src/lisp.h | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/lisp.h b/src/lisp.h
index 35a88d9b238..e2271ef0546 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -810,8 +810,8 @@ INLINE void
/* Extract A's pointer value, assuming A's Lisp type is TYPE and the
extracted pointer's type is CTYPE *. */
-#define XUNTAG(a, type, ctype) ((ctype *) \
- ((uintptr_t) XLP (a) - LISP_WORD_TAG (type)))
+#define XUNTAG(a, type, ctype) \
+ ((ctype *) ((uintptr_t) XLP (a) - (uintptr_t) 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
--
2.39.5