diff options
-rw-r--r-- | libguile/jit.c | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/libguile/jit.c b/libguile/jit.c index b9deaae83..1908f116e 100644 --- a/libguile/jit.c +++ b/libguile/jit.c @@ -1946,22 +1946,17 @@ compile_assert_nargs_ge_slow (scm_jit_state *j, uint32_t nlocals) static void compile_assert_nargs_le (scm_jit_state *j, uint32_t nlocals) { - jit_reloc_t k; - jit_gpr_t t = T0; - uint32_t saved_state = j->register_state; - - k = emit_branch_if_frame_locals_count_less_than (j, t, nlocals + 1); - emit_store_current_ip (j, t); - emit_call_1 (j, scm_vm_intrinsics.error_wrong_num_args, - thread_operand ()); - jit_patch_here (j->jit, k); + add_slow_path_patch + (j, emit_branch_if_frame_locals_count_greater_than (j, T0, nlocals)); - j->register_state = saved_state; j->frame_size_max = nlocals; } static void compile_assert_nargs_le_slow (scm_jit_state *j, uint32_t nlocals) { + emit_store_current_ip (j, T0); + emit_call_1 (j, scm_vm_intrinsics.error_wrong_num_args, + thread_operand ()); } static void |