mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 09:20:23 +02:00
Code Activity

Make current test cases pass in armv7l.

Browse source 
* lib/jit_arm-vfp.c: Correct regression found in armv7l with
	latest test cases.
This commit is contained in:
pcpa 2012-12-05 23:48:40 -02:00
parent 91244b1801
commit 66cb4452d7
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
2012-12-05 Paulo Andrade <pcpa@gnu.org>
* lib/jit_arm-vfp.c: Correct regression found in armv7l with
latest test cases.
2012-12-05 Paulo Andrade <pcpa@gnu.org> 2012-12-05 Paulo Andrade <pcpa@gnu.org>
* check/ldstxi.tst, check/ldstxr.tst: Correct wrong argument * check/ldstxi.tst, check/ldstxr.tst: Correct wrong argument

4
lib/jit_arm-vfp.c
View file

@ -2197,7 +2197,7 @@ _vfp_stxr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
jit_int32_t reg; jit_int32_t reg;
if (jit_fpr_p(r2)) { if (jit_fpr_p(r2)) {
reg = jit_get_reg(jit_class_gpr); reg = jit_get_reg(jit_class_gpr);
addr(rn(reg), r1, r2); addr(rn(reg), r0, r1);
VSTR_F32(r2, rn(reg), 0); VSTR_F32(r2, rn(reg), 0);
jit_unget_reg(reg); jit_unget_reg(reg);
} }
@ -2210,7 +2210,7 @@ _vfp_stxr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
{ {
jit_int32_t reg; jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr); reg = jit_get_reg(jit_class_gpr);
addr(rn(reg), r1, r2); addr(rn(reg), r0, r1);
if (jit_fpr_p(r2)) if (jit_fpr_p(r2))
VSTR_F64(r2, rn(reg), 0); VSTR_F64(r2, rn(reg), 0);
else { else {