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

Fix JIT compilation of shuffle-down

Browse source 
* libguile/jit.c (compile_shuffle_down): Fix compilation.
This commit is contained in:
Andy Wingo 2018-08-29 20:29:57 +02:00
parent c02c89d533
commit 15314fdc07
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/jit.c
View file

@ -1374,7 +1374,7 @@ compile_shuffle_down (scm_jit_state *j, uint16_t from, uint16_t to)
jit_ldr (t, walk); jit_ldr (t, walk);
jit_stxi (offset, walk, t); jit_stxi (offset, walk, t);
jit_subi (walk, walk, sizeof (union scm_vm_stack_element)); jit_subi (walk, walk, sizeof (union scm_vm_stack_element));
back = jit_bltr (walk, SP); back = jit_bger (walk, SP);
jit_patch_at (back, head); jit_patch_at (back, head);
jit_patch (done); jit_patch (done);
jit_addi (SP, SP, offset); jit_addi (SP, SP, offset);