mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 11:10:21 +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

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 */