procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/lisp.h (XUNTAG): Work on 32-bit --with-wide-int builds

Browse source 
This eliminates a compiler warning for that configuration
(see bug#65491).
This commit is contained in:
Mattias Engdegård 2023-09-16 18:37:17 +02:00
parent 056c99a34c
commit c0788f0c47
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/lisp.h
View file

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