mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

Add missing jit_htonr to ppc backend.

Browse source 
* lib/jit_ppc-cpu.c, lib/jit_ppc.c: Implement logic for
	jit_htonr for big endian, so that ppc (big endian) pass the
	new clobber.tst test case.
This commit is contained in:
pcpa 2012-12-22 16:30:43 -02:00
parent adc854f1a7
commit 374f58bb16
3 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ChangeLog
View file

@ -1,3 +1,9 @@
2012-12-22 Paulo Andrade <pcpa@gnu.org>
* lib/jit_ppc-cpu.c, lib/jit_ppc.c: Implement logic for
jit_htonr for big endian, so that ppc (big endian) pass the
new clobber.tst test case.
2012-12-22 Paulo Andrade <pcpa@gnu.org>
* lib/jit_arm.c: Correct use of wrong argument offset

5
lib/jit_ppc-cpu.c
View file

@ -365,6 +365,11 @@ static jit_word_t _movi_p(jit_state_t*,jit_int32_t,jit_word_t);
# define extr_uc(r0,r1) ANDI_(r0,r0,0xff)
# define extr_s(r0,r1) EXTSH(r0,r1)
# define extr_us(r0,r1) ANDI_(r0,r0,0xffff)
# if __BYTE_ORDER == __BIG_ENDIAN
# define htonr(r0,r1) movr(r0,r1)
# else
# error need htonr implementation
# endif
# define addr(r0,r1,r2) ADD(r0,r1,r2)
# define addi(r0,r1,i0) _addi(_jit,r0,r1,i0)
static void _addi(jit_state_t*,jit_int32_t,jit_int32_t,jit_word_t);

1
lib/jit_ppc.c
View file

@ -744,6 +744,7 @@ _jit_emit(jit_state_t *_jit)
case_rr(ext, _uc);
case_rr(ext, _s);
case_rr(ext, _us);
case_rr(hton,);
case_rr(neg,);
case_rr(com,);
case_rr(mov,);