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

Correct missing jit_unget_reg calls

Browse source
This commit is contained in:
Paulo Andrade 2015-11-04 17:05:51 -02:00
parent 17e78965a2
commit fd57359498
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/jit_x86-x87.c
View file

@ -891,6 +891,7 @@ _x87_ldxr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
reg = jit_get_reg(jit_class_gpr); reg = jit_get_reg(jit_class_gpr);
addr(rn(reg), r1, r2); addr(rn(reg), r1, r2);
x87_ldr_f(r0, rn(reg)); x87_ldr_f(r0, rn(reg));
jit_unget_reg(reg);
#else #else
fldsm(0, r1, r2, _SCL1); fldsm(0, r1, r2, _SCL1);
fstpr(r0 + 1); fstpr(r0 + 1);
@ -957,6 +958,7 @@ _x87_stxr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
reg = jit_get_reg(jit_class_gpr); reg = jit_get_reg(jit_class_gpr);
addr(rn(reg), r0, r1); addr(rn(reg), r0, r1);
x87_str_f(rn(reg), r2); x87_str_f(rn(reg), r2);
jit_unget_reg(reg);
#else #else
if (r2 == _ST0_REGNO) if (r2 == _ST0_REGNO)
fstsm(0, r0, r1, _SCL1); fstsm(0, r0, r1, _SCL1);
@ -1172,6 +1174,7 @@ _x87_ldxr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
reg = jit_get_reg(jit_class_gpr); reg = jit_get_reg(jit_class_gpr);
addr(rn(reg), r1, r2); addr(rn(reg), r1, r2);
x87_ldr_d(r0, rn(reg)); x87_ldr_d(r0, rn(reg));
jit_unget_reg(reg);
#else #else
fldlm(0, r1, r2, _SCL1); fldlm(0, r1, r2, _SCL1);
fstpr(r0 + 1); fstpr(r0 + 1);
@ -1238,6 +1241,7 @@ _x87_stxr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
reg = jit_get_reg(jit_class_gpr); reg = jit_get_reg(jit_class_gpr);
addr(rn(reg), r0, r1); addr(rn(reg), r0, r1);
x87_str_d(rn(reg), r2); x87_str_d(rn(reg), r2);
jit_unget_reg(reg);
#else #else
if (r2 == _ST0_REGNO) if (r2 == _ST0_REGNO)
fstlm(0, r0, r1, _SCL1); fstlm(0, r0, r1, _SCL1);