[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/02: Fix fp-ref, fp-set! helpers in jit for signedness
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/02: Fix fp-ref, fp-set! helpers in jit for signedness |
Date: |
Fri, 24 Aug 2018 06:59:44 -0400 (EDT) |
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