Minor type and signature fixes in jit.c

* src/jit.c (get_type) [!USE_LSB_TAG]: Use jit_type_void_ptr
for 'shift'.
(compile_wrong_type_argument): Use the correct signature for
wrong_type_argument native calls.

diff --git a/src/jit.c b/src/jit.c
index 6813f291de511faeceaf673e32ee7236065a2371..c6a1d1993436afa4e9f2124a4f8022b8874985b2 100644 (file)
--- a/src/jit.c
+++ b/src/jit.c
@@ -397,7 +397,7 @@ get_type (jit_function_t func, jit_value_t val)
                                                     ~VALMASK);
   return jit_insn_and (func, val, mask);
 #else /* USE_LSB_TAG */
-  jit_value_t shift = jit_value_create_nint_constant (func, jit_type_uint,
+  jit_value_t shift = jit_value_create_nint_constant (func, jit_type_void_ptr,
                                                      VALBITS);
   return jit_insn_ushr (func, val, shift);
 #endif /* not USE_LSB_TAG */
@@ -755,8 +755,7 @@ compile_wrong_type_argument (jit_function_t func, jit_label_t *label,
   jit_insn_label (func, label);
   jit_insn_call_native (func, "wrong_type_argument",
                        (void *) wrong_type_argument,
-                       /* FIXME incorrect signature.  */
-                       binary_signature, args, 2,
+                       specbind_signature, args, 2,
                        JIT_CALL_NORETURN);
 }
 
@@ -1625,7 +1624,6 @@ compile (ptrdiff_t bytestr_length, unsigned char *bytestr_data,
            args[2] = POP;
            args[0] = POP;
 
-           /* FIXME this lies about the signature.  */
            jit_value_t result = jit_insn_call_native (func, "internal_catch",
                                                       internal_catch,
                                                       internal_catch_signature,