mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Fix gc.test "after-gc-hook gets called" failures.

Browse source 
* libguile/scmsigs.c (signal_delivery_thread): Call scm_async_tick to
give any pending asyncs a chance to run before we block indefinitely
waiting for a signal to arrive.
This commit is contained in:
Andrea Azzarone 2019-04-11 16:30:58 +01:00 • committed by Andy Wingo
parent cca381ce17
commit fd4ba18bca
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/scmsigs.c
View file

@ -182,6 +182,14 @@ signal_delivery_thread (void *data)
{ {
struct signal_pipe_data sigdata; struct signal_pipe_data sigdata;
/* This tick gives any pending asyncs a chance to run before we
block indefinitely waiting for a signal to arrive. For example
it can happen that the garbage collector is triggered while
marking the signal handler for future execution. Due to the
way the after-gc-hook is designed, without a call to
scm_async_tick, the after-gc-hook will not be triggered. */
scm_async_tick ();
scm_without_guile (read_signal_pipe_data, &sigdata); scm_without_guile (read_signal_pipe_data, &sigdata);
sig = sigdata.sigbyte; sig = sigdata.sigbyte;