mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Reload FP if needed in bind-rest also

Browse source 
* libguile/jit.c (compile_bind_rest): Reload FP if needed
This commit is contained in:
Andy Wingo 2020-05-11 14:41:44 +02:00
parent 73a23027f5
commit 35160ade03
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/jit.c
View file

@ -2173,6 +2173,12 @@ compile_bind_rest (scm_jit_state *j, uint32_t dst)
jit_reloc_t k, cons;
jit_gpr_t t = T1;
/* As with receive-values, although bind-rest is usually used after a
call returns, the baseline compiler will sometimes emit it
elsewhere. In that case ensure that FP is in a register for the
frame-locals-count branches. */
restore_reloadable_register_state (j, FP_IN_REGISTER);
cons = emit_branch_if_frame_locals_count_greater_than (j, t, dst);
emit_alloc_frame (j, t, dst + 1);