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

Adapt to changes in upstream lightening

Browse source 
* libguile/jit.c (emit_entry_trampoline): Adapt to change in callee-save
  predicates.
This commit is contained in:
Andy Wingo 2019-04-25 23:47:27 +02:00
parent 5622396cd9
commit 52248cf622
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/jit.c
View file

@ -1275,11 +1275,11 @@ emit_entry_trampoline (scm_jit_state *j)
/* Save values of callee-save registers. */
for (size_t i = 0; i < gpr_count; i++)
if (jit_gpr_is_callee_save (j->jit, gprs[i]))
if (jit_gpr_is_callee_save (gprs[i]))
jit_pushr (j->jit, gprs[i]);
for (size_t i = 0; i < fpr_count; i++)
if (jit_fpr_is_callee_save (j->jit, fprs[i]))
if (jit_fpr_is_callee_save (fprs[i]))
jit_pushr_d (j->jit, fprs[i]);
/* Load our reserved registers: THREAD and SP. Also load IP for the
@ -1299,11 +1299,11 @@ emit_entry_trampoline (scm_jit_state *j)
/* Restore callee-save registers. */
for (size_t i = 0; i < fpr_count; i++)
if (jit_fpr_is_callee_save (j->jit, fprs[fpr_count - i - 1]))
if (jit_fpr_is_callee_save (fprs[fpr_count - i - 1]))
jit_popr_d (j->jit, fprs[fpr_count - i - 1]);
for (size_t i = 0; i < gpr_count; i++)
if (jit_gpr_is_callee_save (j->jit, gprs[gpr_count - i - 1]))
if (jit_gpr_is_callee_save (gprs[gpr_count - i - 1]))
jit_popr (j->jit, gprs[gpr_count - i - 1]);
/* When mcode finishes, interpreter will continue with vp->ip. */