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

Fix u64-ref JIT on 32-bit

Browse source 
* libguile/jit.c (compile_u64_ref): Fix 32-bit load path; endianness was
  reversed.
This commit is contained in:
Andy Wingo 2019-04-29 09:41:03 +02:00
parent 85b3ee0ec3
commit c461126fab
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/jit.c
View file

@ -3973,13 +3973,13 @@ compile_u64_ref (scm_jit_state *j, uint8_t dst, uint8_t ptr, uint8_t idx)
emit_addr (j, T0, T0, T1);
if (BIGENDIAN)
{
emit_ldxi (j, T1, T0, 4);
emit_ldr (j, T0, T0);
emit_ldr (j, T1, T0);
emit_ldxi (j, T0, T0, 4);
}
else
{
emit_ldr (j, T1, T0);
emit_ldxi (j, T0, T0, 4);
emit_ldxi (j, T1, T0, 4);
emit_ldr (j, T0, T0);
}
emit_sp_set_u64 (j, dst, T0, T1);
#endif