aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/jit.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/jit.c b/src/jit.c
index 6813f291de5..c6a1d199343 100644
--- a/src/jit.c
+++ b/src/jit.c
@@ -397,7 +397,7 @@ get_type (jit_function_t func, jit_value_t val)
397 ~VALMASK); 397 ~VALMASK);
398 return jit_insn_and (func, val, mask); 398 return jit_insn_and (func, val, mask);
399#else /* USE_LSB_TAG */ 399#else /* USE_LSB_TAG */
400 jit_value_t shift = jit_value_create_nint_constant (func, jit_type_uint, 400 jit_value_t shift = jit_value_create_nint_constant (func, jit_type_void_ptr,
401 VALBITS); 401 VALBITS);
402 return jit_insn_ushr (func, val, shift); 402 return jit_insn_ushr (func, val, shift);
403#endif /* not USE_LSB_TAG */ 403#endif /* not USE_LSB_TAG */
@@ -755,8 +755,7 @@ compile_wrong_type_argument (jit_function_t func, jit_label_t *label,
755 jit_insn_label (func, label); 755 jit_insn_label (func, label);
756 jit_insn_call_native (func, "wrong_type_argument", 756 jit_insn_call_native (func, "wrong_type_argument",
757 (void *) wrong_type_argument, 757 (void *) wrong_type_argument,
758 /* FIXME incorrect signature. */ 758 specbind_signature, args, 2,
759 binary_signature, args, 2,
760 JIT_CALL_NORETURN); 759 JIT_CALL_NORETURN);
761} 760}
762 761
@@ -1625,7 +1624,6 @@ compile (ptrdiff_t bytestr_length, unsigned char *bytestr_data,
1625 args[2] = POP; 1624 args[2] = POP;
1626 args[0] = POP; 1625 args[0] = POP;
1627 1626
1628 /* FIXME this lies about the signature. */
1629 jit_value_t result = jit_insn_call_native (func, "internal_catch", 1627 jit_value_t result = jit_insn_call_native (func, "internal_catch",
1630 internal_catch, 1628 internal_catch,
1631 internal_catch_signature, 1629 internal_catch_signature,