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

* root.h (scm_root_state): Added 'block_async' slot.

Browse source 
(scm_active_asyncs): Removed abbrev.
* root.c (scm_make_root): Initialize 'block_asyncs' slot.
This commit is contained in:
Marius Vollmer 2002-10-09 22:37:29 +00:00
parent de46f022e4
commit 8ee25fb9f8
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/root.c
View file

@ -131,6 +131,7 @@ scm_make_root (SCM parent)
} }
root_state->active_asyncs = SCM_EOL; root_state->active_asyncs = SCM_EOL;
root_state->block_asyncs = 0;
SCM_REDEFER_INTS; SCM_REDEFER_INTS;
SCM_NEWSMOB (root, scm_tc16_root, root_state); SCM_NEWSMOB (root, scm_tc16_root, root_state);

3
libguile/root.h
View file

@ -109,6 +109,8 @@ typedef struct scm_root_state
SCM active_asyncs; /* The thunks to be run at the next SCM active_asyncs; /* The thunks to be run at the next
safe point */ safe point */
unsigned int block_asyncs; /* Non-zero means that asyncs should
not be run. */
} scm_root_state; } scm_root_state;
#define scm_stack_base (scm_root->stack_base) #define scm_stack_base (scm_root->stack_base)
@ -126,7 +128,6 @@ typedef struct scm_root_state
#define scm_cur_outp (scm_root->cur_outp) #define scm_cur_outp (scm_root->cur_outp)
#define scm_cur_errp (scm_root->cur_errp) #define scm_cur_errp (scm_root->cur_errp)
#define scm_cur_loadp (scm_root->cur_loadp) #define scm_cur_loadp (scm_root->cur_loadp)
#define scm_active_asyncs (scm_root->active_asyncs)
#ifdef USE_THREADS #ifdef USE_THREADS
#define scm_root ((scm_root_state *) SCM_THREAD_LOCAL_DATA) #define scm_root ((scm_root_state *) SCM_THREAD_LOCAL_DATA)