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

fix testfp to pass on ppc

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

	* lightning/ppc/testfp.c: Always flush code before
	testing it.

git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-6
git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-7
This commit is contained in:
Paolo Bonzini 2004-11-08 19:21:31 +00:00
parent f8dfee6dd0
commit 32abbe4919
2 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
2004-11-08 Paolo Bonzini <bonzini@gnu.org>
* lightning/ppc/testfp.c: Always flush code before
testing it.
2004-11-08 Paolo Bonzini <bonzini@gnu.org> 2004-11-08 Paolo Bonzini <bonzini@gnu.org>
* lightning/ppc/fp.h: Do not clobber f31. * lightning/ppc/fp.h: Do not clobber f31.

15
tests/testfp.c
View file

@ -39,7 +39,6 @@
static jit_insn codeBuffer[300]; static jit_insn codeBuffer[300];
static double a; static double a;
int i;
void void
int_test(char *what, jit_code code, double b, double c, double d, double e, double f) 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_ldi_d(JIT_FPR0, &a);
jit_truncr_d_i(JIT_RET, JIT_FPR0); jit_truncr_d_i(JIT_RET, JIT_FPR0);
jit_ret(); jit_ret();
jit_flush_code(codeBuffer, jit_get_ip().ptr);
#ifdef LIGHTNING_DISASSEMBLE #ifdef LIGHTNING_DISASSEMBLE
disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr); disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
#endif #endif
@ -114,6 +115,8 @@ main()
jit_ldi_d(JIT_FPR0, &a); jit_ldi_d(JIT_FPR0, &a);
jit_ceilr_d_i(JIT_RET, JIT_FPR0); jit_ceilr_d_i(JIT_RET, JIT_FPR0);
jit_ret(); jit_ret();
jit_flush_code(codeBuffer, jit_get_ip().ptr);
#ifdef LIGHTNING_DISASSEMBLE #ifdef LIGHTNING_DISASSEMBLE
disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr); disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
#endif #endif
@ -126,6 +129,8 @@ main()
jit_ldi_d(JIT_FPR0, &a); jit_ldi_d(JIT_FPR0, &a);
jit_floorr_d_i(JIT_RET, JIT_FPR0); jit_floorr_d_i(JIT_RET, JIT_FPR0);
jit_ret(); jit_ret();
jit_flush_code(codeBuffer, jit_get_ip().ptr);
#ifdef LIGHTNING_DISASSEMBLE #ifdef LIGHTNING_DISASSEMBLE
disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr); disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
#endif #endif
@ -138,6 +143,8 @@ main()
jit_ldi_d(JIT_FPR0, &a); jit_ldi_d(JIT_FPR0, &a);
jit_roundr_d_i(JIT_RET, JIT_FPR0); jit_roundr_d_i(JIT_RET, JIT_FPR0);
jit_ret(); jit_ret();
jit_flush_code(codeBuffer, jit_get_ip().ptr);
#ifdef LIGHTNING_DISASSEMBLE #ifdef LIGHTNING_DISASSEMBLE
disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr); disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
#endif #endif
@ -154,6 +161,8 @@ main()
) )
); );
jit_ret(); jit_ret();
jit_flush_code(codeBuffer, jit_get_ip().ptr);
code.vptr(); code.vptr();
#ifdef LIGHTNING_DISASSEMBLE #ifdef LIGHTNING_DISASSEMBLE
disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr); disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
@ -170,6 +179,8 @@ main()
) )
); );
jit_ret(); jit_ret();
jit_flush_code(codeBuffer, jit_get_ip().ptr);
code.vptr(); code.vptr();
#ifdef LIGHTNING_DISASSEMBLE #ifdef LIGHTNING_DISASSEMBLE
disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr); disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);
@ -186,6 +197,8 @@ main()
) )
); );
jit_ret(); jit_ret();
jit_flush_code(codeBuffer, jit_get_ip().ptr);
code.vptr(); code.vptr();
#ifdef LIGHTNING_DISASSEMBLE #ifdef LIGHTNING_DISASSEMBLE
disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr); disassemble(stderr, (char *)codeBuffer, jit_get_ip().ptr);