guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 07/437: fix testfp to pass on ppc


From: Andy Wingo
Subject: [Guile-commits] 07/437: fix testfp to pass on ppc
Date: Mon, 2 Jul 2018 05:13:34 -0400 (EDT)

wingo pushed a commit to branch lightning
in repository guile.

commit 32abbe4919ef30b0cedc6051889c4e24b386d8e0
Author: Paolo Bonzini <address@hidden>
Date:   Mon Nov 8 19:21:31 2004 +0000

    fix testfp to pass on ppc
    
    2004-11-08  Paolo Bonzini  <address@hidden>
    
        * lightning/ppc/testfp.c: Always flush code before
        testing it.
    
    git-archimport-id: address@hidden/lightning--stable--1.2--patch-6
    git-archimport-id: address@hidden/lightning--stable--1.2--patch-7
---
 ChangeLog      |  5 +++++
 tests/testfp.c | 15 ++++++++++++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 00634a5..2c69db7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2004-11-08  Paolo Bonzini  <address@hidden>
 
+       * lightning/ppc/testfp.c: Always flush code before
+       testing it.
+
+2004-11-08  Paolo Bonzini  <address@hidden>
+
        * lightning/ppc/fp.h: Do not clobber f31.
 
 2004-11-08  Paolo Bonzini  <address@hidden>
diff --git a/tests/testfp.c b/tests/testfp.c
index 4269695..a260440 100644
--- a/tests/testfp.c
+++ b/tests/testfp.c
@@ -39,7 +39,6 @@
 
 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)
@@ -102,6 +101,8 @@ main()
   jit_ldi_d(JIT_FPR0, &a);
   jit_truncr_d_i(JIT_RET, JIT_FPR0);
   jit_ret();
+
+  jit_flush_code(codeBuffer, jit_get_ip().ptr);
 #ifdef LIGHTNING_DISASSEMBLE
   disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
 #endif
@@ -114,6 +115,8 @@ main()
   jit_ldi_d(JIT_FPR0, &a);
   jit_ceilr_d_i(JIT_RET, JIT_FPR0);
   jit_ret();
+
+  jit_flush_code(codeBuffer, jit_get_ip().ptr);
 #ifdef LIGHTNING_DISASSEMBLE
   disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
 #endif
@@ -126,6 +129,8 @@ main()
   jit_ldi_d(JIT_FPR0, &a);
   jit_floorr_d_i(JIT_RET, JIT_FPR0);
   jit_ret();
+
+  jit_flush_code(codeBuffer, jit_get_ip().ptr);
 #ifdef LIGHTNING_DISASSEMBLE
   disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
 #endif
@@ -138,6 +143,8 @@ main()
   jit_ldi_d(JIT_FPR0, &a);
   jit_roundr_d_i(JIT_RET, JIT_FPR0);
   jit_ret();
+
+  jit_flush_code(codeBuffer, jit_get_ip().ptr);
 #ifdef LIGHTNING_DISASSEMBLE
   disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
 #endif
@@ -154,6 +161,8 @@ main()
     )
   );
   jit_ret();
+
+  jit_flush_code(codeBuffer, jit_get_ip().ptr);
   code.vptr();
 #ifdef LIGHTNING_DISASSEMBLE
   disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
@@ -170,6 +179,8 @@ main()
     )
   );
   jit_ret();
+
+  jit_flush_code(codeBuffer, jit_get_ip().ptr);
   code.vptr();
 #ifdef LIGHTNING_DISASSEMBLE
   disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
@@ -186,6 +197,8 @@ main()
     )
   );
   jit_ret();
+
+  jit_flush_code(codeBuffer, jit_get_ip().ptr);
   code.vptr();
 #ifdef LIGHTNING_DISASSEMBLE
   disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);



reply via email to

[Prev in Thread] Current Thread [Next in Thread]