From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 13 Mar 2022 18:35:50 +0000 (+0100)
Subject: * src/bytecode.c (sf_set_ptr): Cast pointer to type of right size.
X-Git-Tag: emacs-29.0.90~1931^2~1148
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=edb8481ce15404d9157e104958aef22b05b606a7;p=emacs.git

* src/bytecode.c (sf_set_ptr): Cast pointer to type of right size.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index 9356ebeb6cb..b26146c27f3 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -393,7 +393,7 @@ sf_get_ptr (Lisp_Object *fp, enum stack_frame_index index)
 INLINE void
 sf_set_ptr (Lisp_Object *fp, enum stack_frame_index index, void *value)
 {
-  fp[index] = XIL ((EMACS_INT)value);
+  fp[index] = XIL ((uintptr_t)value);
 }
 
 INLINE Lisp_Object *