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

Fix JIT compilation of bind-rest

Browse source 
* libguile/jit.c (compile_bind_rest): Fix.
This commit is contained in:
Andy Wingo 2018-08-24 14:59:47 +02:00
parent 3920b99125
commit d0c9d20626
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

@ -1441,8 +1441,8 @@ compile_bind_rest (scm_jit_state *j, uint32_t dst)
emit_store_current_ip (j, t);
emit_call_r_i (j, scm_vm_intrinsics.cons_rest, THREAD, dst);
jit_retval (t);
emit_sp_set_scm (j, 0, t);
compile_reset_frame (j, dst + 1);
emit_sp_set_scm (j, 0, t);
jit_patch (k);
}