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:
parent
dbf2847e47
commit
f79f9777b1
2 changed files with 8 additions and 3 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue