From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 9 Sep 2018 16:10:36 +0000 (+0300)
Subject: Minor type and signature fixes in jit.c
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Ffeature%2Flibjit;p=emacs.git

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 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)
 						     ~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,