From dac43443a375a5738f80ed27b177857a65c5826d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 29 Aug 2018 22:29:39 +0200 Subject: [PATCH] Fix bind-kwargs JIT compilation * libguile/jit.c (COMPILE_X8_C24__C8_C24__X8_C24__N32): Fix unpacking of N32 arg. --- libguile/jit.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/jit.c b/libguile/jit.c index 129d143ed..af235efe3 100644 --- a/libguile/jit.c +++ b/libguile/jit.c @@ -4201,7 +4201,7 @@ compile_f64_set (scm_jit_state *j, uint8_t ptr, uint8_t idx, uint8_t v) UNPACK_24 (j->ip[0], a); \ UNPACK_8_24 (j->ip[1], b, c); \ UNPACK_24 (j->ip[2], d); \ - e = j->ip[3]; e >>= 8; /* Sign extension. */ \ + e = j->ip[3]; \ comp (j, a, b, c, d, j->ip + e); \ }