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

Move receive slow path out of line

Browse source 
* libguile/jit.c (compile_receive, compile_receive_slow): Move slow path
  out of line.
This commit is contained in:
Andy Wingo 2019-12-07 22:20:08 +01:00
parent a3be0b1e2d
commit 1152036333
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/jit.c
View file

@ -1592,14 +1592,9 @@ static void
compile_receive (scm_jit_state *j, uint16_t dst, uint16_t proc, uint32_t nlocals)
{
jit_gpr_t t = T0;
jit_reloc_t k;
uint32_t saved_state = j->register_state;
k = emit_branch_if_frame_locals_count_greater_than (j, t, proc);
emit_store_current_ip (j, T0);
emit_call_0 (j, scm_vm_intrinsics.error_no_values);
j->register_state = saved_state;
jit_patch_here (j->jit, k);
add_slow_path_patch
(j, emit_branch_if_frame_locals_count_less_than (j, t, proc + 1));
emit_fp_ref_scm (j, t, proc);
emit_fp_set_scm (j, dst, t);
emit_reset_frame (j, nlocals);
@ -1609,6 +1604,8 @@ compile_receive (scm_jit_state *j, uint16_t dst, uint16_t proc, uint32_t nlocals
static void
compile_receive_slow (scm_jit_state *j, uint16_t dst, uint16_t proc, uint32_t nlocals)
{
emit_store_current_ip (j, T0);
emit_call_0 (j, scm_vm_intrinsics.error_no_values);
}
static void