mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-07 12:40:19 +02:00
Code Activity

Correct change of possibly wrong bitmask in jit_update

Browse source 
* 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
Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
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> 2014-08-10 Paulo Andrade <pcpa@gnu.org>
* lib/lightning.c: Change assertions to have an int * lib/lightning.c: Change assertions to have an int

6
lib/lightning.c
View file

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