[Emacs-diffs] feature/libjit a25a989: Minor type and signature fixes in jit.c

[Eli Zaretskii]

branch: feature/libjit
commit a25a9896d51bbf340675713bc45d15e3846fb816
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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.
---
 src/jit.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/jit.c b/src/jit.c
index 6813f29..c6a1d19 100644
--- 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,