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

fix ppc tests

Browse source 
2004-11-08  Paolo Bonzini  <bonzini@gnu.org>

	* lightning/ppc/fp.h: Do not clobber f31.

git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-5
This commit is contained in:
Paolo Bonzini 2004-11-08 18:58:08 +00:00
parent 50a74cf9c1
commit f8dfee6dd0
3 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
2004-11-08 Paolo Bonzini <bonzini@gnu.org>
* lightning/ppc/fp.h: Do not clobber f31.
2004-11-08 Paolo Bonzini <bonzini@gnu.org>
* lightning.h: New name of...

16
lightning/ppc/fp.h
View file

@ -186,26 +186,26 @@
#define jit_floorr_d_i(rd,rs) (MTFSFIri(7,3), \
FCTIWrr(31,(rs)), \
FCTIWrr(7,(rs)), \
MOVEIri(JIT_AUX,-4), \
STFIWXrrr(31,JIT_SP,JIT_AUX), \
STFIWXrrr(7,JIT_SP,JIT_AUX), \
LWZrm((rd),-4,JIT_SP))
#define jit_ceilr_d_i(rd,rs) (MTFSFIri(7,2), \
FCTIWrr(31,(rs)), \
FCTIWrr(7,(rs)), \
MOVEIri(JIT_AUX,-4), \
STFIWXrrr(31,JIT_SP,JIT_AUX), \
STFIWXrrr(7,JIT_SP,JIT_AUX), \
LWZrm((rd),-4,JIT_SP))
#define jit_roundr_d_i(rd,rs) (MTFSFIri(7,0), \
FCTIWrr(31,(rs)), \
FCTIWrr(7,(rs)), \
MOVEIri(JIT_AUX,-4), \
STFIWXrrr(31,JIT_SP,JIT_AUX), \
STFIWXrrr(7,JIT_SP,JIT_AUX), \
LWZrm((rd),-4,JIT_SP))
#define jit_truncr_d_i(rd,rs) (FCTIWZrr(31,(rs)), \
#define jit_truncr_d_i(rd,rs) (FCTIWZrr(7,(rs)), \
MOVEIri(JIT_AUX,-4), \
STFIWXrrr(31,JIT_SP,JIT_AUX), \
STFIWXrrr(7,JIT_SP,JIT_AUX), \
LWZrm((rd),-4,JIT_SP))
#endif /* __lightning_asm_h */

3
tests/testfp.c
View file

@ -39,11 +39,12 @@
static jit_insn codeBuffer[300];
static double a;
int i;
void
int_test(char *what, jit_code code, double b, double c, double d, double e, double f)
{
a = b; printf("%s\t\t%d ", what, code.iptr());
a = b; printf("%s\t\t%d ", what, code.iptr ());
a = c; printf("%d ", code.iptr());
a = d; printf("%d ", code.iptr());
a = e; printf("%d ", code.iptr());