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

* __scm.h (SCM_ASYNC_TICK): Added call to macro

Browse source 
SCM_THREADS_SWITCHING_CODE.
This commit is contained in:
Mikael Djurfeldt 1996-10-01 03:15:04 +00:00
parent 9bdb1ea5b9
commit 8233909404
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/__scm.h
View file

@ -239,8 +239,18 @@ typedef long SCM_STACKITEM;
#endif #endif
#ifndef USE_THREADS
#define SCM_THREADS_SWITCHING_CODE
#endif
extern unsigned int scm_async_clock; extern unsigned int scm_async_clock;
#define SCM_ASYNC_TICK if (0 == --scm_async_clock) scm_async_click () #define SCM_ASYNC_TICK \
{ \
if (0 == --scm_async_clock) \
scm_async_click (); \
SCM_THREADS_SWITCHING_CODE; \
} \
#ifdef SCM_CAREFUL_INTS #ifdef SCM_CAREFUL_INTS
#define SCM_CHECK_NOT_DISABLED \ #define SCM_CHECK_NOT_DISABLED \
@ -358,6 +368,7 @@ extern unsigned int scm_async_clock;
#define SCM_ORD_SIG(X) ((X) + SCM_HUP_SIGNAL) #define SCM_ORD_SIG(X) ((X) + SCM_HUP_SIGNAL)
#define SCM_NUM_SIGS (SCM_SIG_ORD (SCM_TICK_SIGNAL) + 1) #define SCM_NUM_SIGS (SCM_SIG_ORD (SCM_TICK_SIGNAL) + 1)
#if 0
struct errdesc struct errdesc
{ {
char *msg; char *msg;
@ -367,6 +378,7 @@ struct errdesc
extern struct errdesc scm_errmsgs[]; extern struct errdesc scm_errmsgs[];
#endif