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

* __scm.h (SCM_ASYNC_CLICK): Check pending_asyncs instead of

Browse source 
active_asyncs.

* root.h (scm_root_state): Added pending_asyncs and signal_asyncs
fields.
* root.c (root_mark): Mark them.
(make_root): Initialize them.
This commit is contained in:
Marius Vollmer 2002-10-27 20:16:18 +00:00
parent 2132f0d2a5
commit 1ceead47c4
3 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/root.h
View file

@ -109,8 +109,12 @@ typedef struct scm_root_state
SCM active_asyncs; /* The thunks to be run at the next
safe point */
SCM signal_asyncs; /* The pre-queued cells for signal handlers.
*/
unsigned int block_asyncs; /* Non-zero means that asyncs should
not be run. */
unsigned int pending_asyncs; /* Non-zero means that asyncs might be pending.
*/
} scm_root_state;
#define scm_stack_base (scm_root->stack_base)