mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 12:00:21 +02:00
Code Activity

PPC: Build and pass all tests in powerpcle

Browse source 
* lib/jit_ppc-cpu.c, lib/jit_ppc.c: Correct some endianess issues
	on the powerpc le backend.
This commit is contained in:
Paulo Andrade 2014-12-26 17:23:39 -02:00
parent a16adad0fd
commit af9df5faeb
3 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/jit_ppc.c
View file

@ -279,7 +279,7 @@ _jit_arg_f(jit_state_t *_jit)
if (_jitc->function->self.argf < 13)
offset = _jitc->function->self.argf++;
else {
#if __WORDSIZE == 32
#if __WORDSIZE == 32 || __BYTE_ORDER == __LITTLE_ENDIAN
offset = _jitc->function->self.size;
#else
offset = _jitc->function->self.size + 4;
@ -502,7 +502,7 @@ _jit_pushargr_f(jit_state_t *_jit, jit_int32_t u)
#endif
}
else {
#if __WORDSIZE == 32
#if __WORDSIZE == 32 || __BYTE_ORDER == __LITTLE_ENDIAN
jit_stxi_f(_jitc->function->call.size + params_offset, JIT_SP, u);
#else
jit_stxi_f(_jitc->function->call.size + params_offset + 4,
@ -549,7 +549,7 @@ _jit_pushargi_f(jit_state_t *_jit, jit_float32_t u)
#endif
}
else {
#if __WORDSIZE == 32
#if __WORDSIZE == 32 || __BYTE_ORDER == __LITTLE_ENDIAN
jit_stxi_f(_jitc->function->call.size + params_offset, JIT_SP, regno);
#else
jit_stxi_f(_jitc->function->call.size + params_offset + 4,