mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

Fix compilation of handle-interrupts

Browse source 
* libguile/jit.c (compile_handle_interrupts): Fix check for blocked
  interrupts.
This commit is contained in:
Andy Wingo 2018-09-07 14:22:48 +02:00
parent f8229c603d
commit 377c3e117e
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

@ -3021,7 +3021,7 @@ compile_handle_interrupts (scm_jit_state *j)
#endif #endif
none_pending = jit_beqi (T0, SCM_UNPACK (SCM_EOL)); none_pending = jit_beqi (T0, SCM_UNPACK (SCM_EOL));
jit_ldxi_i (T0, THREAD, thread_offset_block_asyncs); jit_ldxi_i (T0, THREAD, thread_offset_block_asyncs);
blocked = jit_beqi (T0, 0); blocked = jit_bnei (T0, 0);
emit_store_current_ip (j, T0); emit_store_current_ip (j, T0);
mra = emit_movi (j, T0, 0); mra = emit_movi (j, T0, 0);