[Guile-commits] 03/03: Fix bind-kwargs JIT compilation

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit dac43443a375a5738f80ed27b177857a65c5826d
Author: Andy Wingo <address@hidden>
Date:   Wed Aug 29 22:29:39 2018 +0200

    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 129d143..af235ef 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);                                    \
   }