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

Implement sqrt codes in mips.

Browse source 
* lib/jit_mips-fpu.c, lib/jit_mips.c: Implement missing mips
	jit_sqrtr_{f,d} codes.

	* check/all.tst, include/lightning.h, lib/jit_print.c: Change
	declaration order and call order in all.tst of {add,sub}c and
	{add,sub}x. *c must be called before to set the carry and *x
	second to use the carry and keep it set. The wrong call order
	was causing all.tst to fail in mips, where a register is
	allocated to keep a global carry state.
This commit is contained in:
pcpa 2012-12-04 13:30:46 -02:00
parent 760fab8d37
commit aa7c8230c1
6 changed files with 32 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/jit_mips.c
View file

@ -973,6 +973,7 @@ _jit_emit(jit_state_t *_jit)
case_rrf(div, _f, 32);
case_rr(abs, _f);
case_rr(neg, _f);
case_rr(sqrt, _f);
case_rr(ext, _f);
case_rr(ld, _f);
case_rw(ld, _f);
@ -1054,6 +1055,7 @@ _jit_emit(jit_state_t *_jit)
case_rrf(div, _d, 64);
case_rr(abs, _d);
case_rr(neg, _d);
case_rr(sqrt, _d);
case_rr(ext, _d);
case_rr(ld, _d);
case_rw(ld, _d);