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

Move assert-nargs-ee slow path out of line

Browse source 
* libguile/jit.c (compile_assert_nargs_ee)
  (compile_assert_nargs_ee_slow): Move slow path out of line.
This commit is contained in:
Andy Wingo 2019-12-08 09:38:40 +01:00
parent 8d8c52dde9
commit 7aad56105f
1 changed files with 14 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

25
libguile/jit.c
View file

@ -1917,22 +1917,17 @@ compile_throw_value_and_data_slow (scm_jit_state *j, uint32_t val,
static void
compile_assert_nargs_ee (scm_jit_state *j, uint32_t nlocals)
{
jit_reloc_t k;
jit_gpr_t t = T0;
uint32_t saved_state = j->register_state;
add_slow_path_patch
(j, emit_branch_if_frame_locals_count_not_eq (j, T0, nlocals));
k = emit_branch_if_frame_locals_count_eq (j, t, nlocals);
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_min = j->frame_size_max = nlocals;
}
static void
compile_assert_nargs_ee_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
@ -2064,14 +2059,22 @@ static void
compile_assert_nargs_ee_locals (scm_jit_state *j, uint16_t expected,
uint16_t nlocals)
{
compile_assert_nargs_ee (j, expected);
jit_gpr_t t = T0;
add_slow_path_patch
(j, emit_branch_if_frame_locals_count_not_eq (j, t, expected));
if (nlocals)
compile_alloc_frame (j, expected + nlocals);
j->frame_size_min = j->frame_size_max = expected + nlocals;
}
static void
compile_assert_nargs_ee_locals_slow (scm_jit_state *j, uint16_t expected,
uint16_t nlocals)
{
emit_store_current_ip (j, T0);
emit_call_1 (j, scm_vm_intrinsics.error_wrong_num_args,
thread_operand ());
}
static void