1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 12:10:28 +02:00

Correct change of possibly wrong bitmask in jit_update

* lib/lightning.c: Change the correct live bitmask of
	return registers after a function call in jit_update.
This commit is contained in:
pcpa 2014-08-10 11:36:08 -03:00
parent dbf2847e47
commit f79f9777b1
2 changed files with 8 additions and 3 deletions

View file

@ -1,3 +1,8 @@
2014-08-10 Paulo Andrade <pcpa@gnu.org>
* lib/lightning.c: Change the correct live bitmask of
return registers after a function call in jit_update.
2014-08-10 Paulo Andrade <pcpa@gnu.org>
* lib/lightning.c: Change assertions to have an int

View file

@ -2043,19 +2043,19 @@ _jit_update(jit_state_t *_jit, jit_node_t *node,
case jit_code_calli:
#if defined(JIT_RET)
if (jit_regset_tstbit(mask, JIT_RET)) {
jit_regset_setbit(&_jitc->reglive, JIT_RET);
jit_regset_setbit(live, JIT_RET);
jit_regset_clrbit(mask, JIT_RET);
}
# if __arm__
if (jit_regset_tstbit(mask, _R1)) {
jit_regset_setbit(&_jitc->reglive, _R1);
jit_regset_setbit(live, _R1);
jit_regset_clrbit(mask, _R1);
}
# endif
#endif
#if defined(JIT_FRET)
if (jit_regset_tstbit(mask, JIT_FRET)) {
jit_regset_setbit(&_jitc->reglive, JIT_FRET);
jit_regset_setbit(live, JIT_FRET);
jit_regset_clrbit(mask, JIT_FRET);
}
#endif