diff options
| author | Eli Zaretskii | 2023-09-16 20:03:59 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-09-16 20:03:59 +0300 |
| commit | 2a8ad64ddd9b0d0511a91adcbb73a0e7e7930f19 (patch) | |
| tree | 6cacc6fa96d84059f69aff95e0dff4dc12ed2524 /src | |
| parent | f24aeaf4ff75386922c3be60e9bd483512cf15d3 (diff) | |
| download | emacs-2a8ad64ddd9b0d0511a91adcbb73a0e7e7930f19.tar.gz emacs-2a8ad64ddd9b0d0511a91adcbb73a0e7e7930f19.zip | |
Revert "Don't use pointer arithmetic for untagging Lisp values"
This reverts commit 056c99a34c143e1b5162366db07a143ac2b10631.
It broke compilation of 32-bit build --with-wide-int.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index 35a88d9b238..50b68f2e767 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -811,7 +811,7 @@ INLINE void | |||
| 811 | extracted pointer's type is CTYPE *. */ | 811 | extracted pointer's type is CTYPE *. */ |
| 812 | 812 | ||
| 813 | #define XUNTAG(a, type, ctype) ((ctype *) \ | 813 | #define XUNTAG(a, type, ctype) ((ctype *) \ |
| 814 | ((uintptr_t) XLP (a) - LISP_WORD_TAG (type))) | 814 | ((char *) XLP (a) - LISP_WORD_TAG (type))) |
| 815 | 815 | ||
| 816 | /* A forwarding pointer to a value. It uses a generic pointer to | 816 | /* A forwarding pointer to a value. It uses a generic pointer to |
| 817 | avoid alignment bugs that could occur if it used a pointer to a | 817 | avoid alignment bugs that could occur if it used a pointer to a |