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

Move allocate-words/immediate slow path out of line

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

31
libguile/jit.c
View file

@ -2252,27 +2252,34 @@ compile_allocate_words_immediate (scm_jit_state *j, uint16_t dst, uint16_t nword
ptrdiff_t offset = offsetof(struct scm_thread, freelists);
offset += idx * sizeof(void*);
emit_ldxi (j, res, THREAD, offset);
jit_reloc_t fast = jit_bnei (j->jit, res, 0);
emit_store_current_ip (j, res);
emit_call_2 (j, scm_vm_intrinsics.allocate_words_with_freelist,
thread_operand (),
jit_operand_imm (JIT_OPERAND_ABI_WORD, idx));
emit_retval (j, res);
emit_reload_sp (j);
jit_reloc_t done = jit_jmp (j->jit);
jit_patch_here (j->jit, fast);
add_slow_path_patch (j, jit_beqi (j->jit, res, 0));
jit_gpr_t new_freelist = T1;
emit_ldr (j, new_freelist, res);
jit_stxi (j->jit, offset, THREAD, new_freelist);
jit_patch_here (j->jit, done);
emit_sp_set_scm (j, dst, res);
}
}
static void
compile_allocate_words_immediate_slow (scm_jit_state *j, uint16_t dst, uint16_t nwords)
{
size_t bytes = nwords * sizeof(SCM);
size_t idx = scm_inline_gc_bytes_to_freelist_index (bytes);
if (SCM_UNLIKELY (idx >= SCM_INLINE_GC_FREELIST_COUNT))
{
}
else
{
jit_gpr_t res = T0;
emit_store_current_ip (j, res);
emit_call_2 (j, scm_vm_intrinsics.allocate_words_with_freelist,
thread_operand (),
jit_operand_imm (JIT_OPERAND_ABI_WORD, idx));
emit_retval (j, res);
emit_reload_sp (j);
emit_sp_set_scm (j, dst, res);
continue_after_slow_path (j, j->next_ip);
}
}
static void