[Guile-commits] 06/437: fix ppc tests

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit f8dfee6dd0bf3af473ba038a98f1cb08b41f6c6b
Author: Paolo Bonzini <address@hidden>
Date:   Mon Nov 8 18:58:08 2004 +0000

    fix ppc tests
    
    2004-11-08  Paolo Bonzini  <address@hidden>
    
        * lightning/ppc/fp.h: Do not clobber f31.
    
    git-archimport-id: address@hidden/lightning--stable--1.2--patch-5
---
 ChangeLog          |  4 ++++
 lightning/ppc/fp.h | 16 ++++++++--------
 tests/testfp.c     |  3 ++-
 3 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a28791c..00634a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2004-11-08  Paolo Bonzini  <address@hidden>
 
+       * lightning/ppc/fp.h: Do not clobber f31.
+
+2004-11-08  Paolo Bonzini  <address@hidden>
+
        * lightning.h: New name of...
        * lightning-inst.h: ... this file.
        * lightning.h.in: Removed.
diff --git a/lightning/ppc/fp.h b/lightning/ppc/fp.h
index 911882d..32541de 100644
--- a/lightning/ppc/fp.h
+++ b/lightning/ppc/fp.h
@@ -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 */
diff --git a/tests/testfp.c b/tests/testfp.c
index 2d37681..4269695 100644
--- a/tests/testfp.c
+++ b/tests/testfp.c
@@ -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());