mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

Move assert-nargs-le slow path out of line

Browse source 
* libguile/jit.c (compile_assert_nargs_le)
  (compile_assert_nargs_le_slow): Move slow path out of line.
This commit is contained in:
Andy Wingo 2019-12-10 22:10:06 +01:00
parent 45b936a8e3
commit 0c8a4d3426
1 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/jit.c
View file

@ -1946,22 +1946,17 @@ compile_assert_nargs_ge_slow (scm_jit_state *j, uint32_t nlocals)
static void static void
compile_assert_nargs_le (scm_jit_state *j, uint32_t nlocals) compile_assert_nargs_le (scm_jit_state *j, uint32_t nlocals)
{ {
jit_reloc_t k; add_slow_path_patch
jit_gpr_t t = T0; (j, emit_branch_if_frame_locals_count_greater_than (j, T0, nlocals));
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);
j->register_state = saved_state;
j->frame_size_max = nlocals; j->frame_size_max = nlocals;
} }
static void static void
compile_assert_nargs_le_slow (scm_jit_state *j, uint32_t nlocals) 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 static void