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

Test and correct test cases in all current backends.

Browse source
This commit is contained in:
pcpa 2013-01-02 17:53:51 -02:00
parent 537c85be27
commit d7f94379ed
4 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
ChangeLog
View file

@ -1,3 +1,12 @@
2013-01-02 Paulo Andrade <pcpa@gnu.org>
* check/float.tst: Correct test case to match ppc also
converting positive infinity to 0x7fffffff.
* lib/jit_arm-swf.c: Correct typos with double underscores.
* lib/lightning.c: Correct remaining wrong reverse jump logic.
2012-12-29 Paulo Andrade <pcpa@gnu.org>
* lib/lightning.c: Correct both, wrong and confusing logic

2
check/float.tst
View file

@ -21,7 +21,7 @@ ok:
#else
# define wnan x80
#endif
#if __mips__ || __arm__
#if __mips__ || __arm__ || __ppc__
# define wpinf x7f
#else
# define wpinf x80

8
lib/jit_arm-swf.c
View file

@ -812,7 +812,7 @@ _swf_iunff_(jit_state_t *_jit, int (*i0)(float, float),
movi(_R1_REGNO, data.i);
swf_call(__aeabi_fcmpun, fcmpun, _R2_REGNO);
if (jit_thumb_p()) {
T1_CMPI(__R0_REGNO, 0);
T1_CMPI(_R0_REGNO, 0);
IT(ARM_CC_NE);
if (r0 < 8)
T1_MOVI(r0, 1);
@ -822,7 +822,7 @@ _swf_iunff_(jit_state_t *_jit, int (*i0)(float, float),
T2_CC_B(ARM_CC_NE, 0);
}
else {
CMPI(__R0_REGNO, 0);
CMPI(_R0_REGNO, 0);
CC_MOVI(ARM_CC_NE, r0, 1);
instr = _jit->pc.w;
CC_B(ARM_CC_NE, 0);
@ -865,7 +865,7 @@ _swf_iundd_(jit_state_t *_jit, int (*i0)(double, double),
movi(_R3_REGNO, data.i[1]);
swf_call_with_get_reg(__aeabi_dcmpun, dcmpun);
if (jit_thumb_p()) {
T1_CMPI(__R0_REGNO, 0);
T1_CMPI(_R0_REGNO, 0);
IT(ARM_CC_NE);
if (r0 < 8)
T1_MOVI(r0, 1);
@ -875,7 +875,7 @@ _swf_iundd_(jit_state_t *_jit, int (*i0)(double, double),
T2_CC_B(ARM_CC_NE, 0);
}
else {
CMPI(__R0_REGNO, 0);
CMPI(_R0_REGNO, 0);
CC_MOVI(ARM_CC_NE, r0, 1);
instr = _jit->pc.w;
CC_B(ARM_CC_NE, 0);

2
lib/lightning.c
View file

@ -1659,7 +1659,7 @@ reverse_jump_code(jit_code_t code)
case jit_code_blei_d: return (jit_code_bungti_d);
case jit_code_beqr_d: return (jit_code_bner_d);
case jit_code_beqi_d: return (jit_code_bner_d);
case jit_code_beqi_d: return (jit_code_bnei_d);
case jit_code_bger_d: return (jit_code_bunltr_d);
case jit_code_bgei_d: return (jit_code_bunlti_d);