[Guile-commits] 02/02: Fix fp-ref, fp-set! helpers in jit for signedness

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit 3920b991250720568f9f2c2db8f2ed04fe588638
Author: Andy Wingo <address@hidden>
Date:   Fri Aug 24 12:58:54 2018 +0200

    Fix fp-ref, fp-set! helpers in jit for signedness
    
    * libguile/jit.c (emit_fp_ref_scm, emit_fp_set_scm): Fix signedless of
      offsets.
---
 libguile/jit.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index bee04db..303a544 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -532,13 +532,13 @@ emit_direct_tail_call (scm_jit_state *j, const uint32_t 
*vcode)
 static void
 emit_fp_ref_scm (scm_jit_state *j, jit_gpr_t dst, jit_gpr_t fp, uint32_t slot)
 {
-  jit_ldxi (dst, fp, -8 * (slot + 1));
+  jit_ldxi (dst, fp, -8 * ((ptrdiff_t) slot + 1));
 }
 
 static void
 emit_fp_set_scm (scm_jit_state *j, jit_gpr_t fp, uint32_t slot, jit_gpr_t val)
 {
-  jit_stxi (-8 * (slot + 1), fp, val);
+  jit_stxi (-8 * ((ptrdiff_t) slot + 1), fp, val);
 }
 
 static void