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

Fix JIT compilation of composable continuations

Browse source 
* libguile/control.c (compose_continuation_code): Fix offset of code
  end.
* libguile/jit.c (compile_compose_continuation): Fix test for mcode not
  null.
This commit is contained in:
Andy Wingo 2018-08-29 22:15:20 +02:00
parent f32d17d386
commit 6da132cb95
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/jit.c
View file

@ -1496,7 +1496,7 @@ compile_compose_continuation (scm_jit_state *j, uint32_t cont_idx)
emit_free_variable_ref (j, T0, T0, cont_idx);
emit_call_r_r (j, scm_vm_intrinsics.compose_continuation, THREAD, T0);
jit_retval (T0);
interp = jit_bnei (T0, 0);
interp = jit_beqi (T0, 0);
emit_reload_sp (j);
emit_reload_fp (j);
jit_jmpr (T0);