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

* __scm.h (SCM_ALLOW_INTS, SCM_REALLOW_INTS): Removed call to

Browse source 
SCM_ASYNC_TICK.  (This is a preparation for POSIX threads support,
and kind of an experiment: Will this cause problems?)
This commit is contained in:
Mikael Djurfeldt 2000-03-13 10:02:12 +00:00
parent 31d8abcec8
commit f7acb3985e
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/__scm.h
View file

@ -231,8 +231,6 @@ typedef long SCM_STACKITEM;
#define SCM_THREAD_DEFER #define SCM_THREAD_DEFER
#define SCM_THREAD_ALLOW #define SCM_THREAD_ALLOW
#define SCM_THREAD_REDEFER #define SCM_THREAD_REDEFER
#define SCM_THREAD_REALLOW_1
#define SCM_THREAD_REALLOW_2
#define SCM_THREAD_SWITCHING_CODE #define SCM_THREAD_SWITCHING_CODE
#endif #endif
@ -307,7 +305,6 @@ do { \
scm_ints_disabled = 0; \ scm_ints_disabled = 0; \
SCM_FENCE; \ SCM_FENCE; \
SCM_THREAD_ALLOW; \ SCM_THREAD_ALLOW; \
SCM_ASYNC_TICK; \
SCM_FENCE; \ SCM_FENCE; \
} while (0) } while (0)
@ -324,15 +321,9 @@ do { \
#define SCM_REALLOW_INTS \ #define SCM_REALLOW_INTS \
do { \ do { \
SCM_FENCE; \ SCM_FENCE; \
SCM_THREAD_REALLOW_1; \
SCM_THREAD_SWITCHING_CODE; \ SCM_THREAD_SWITCHING_CODE; \
SCM_FENCE; \ SCM_FENCE; \
--scm_ints_disabled; \ --scm_ints_disabled; \
if (!scm_ints_disabled) \
{ \
SCM_THREAD_REALLOW_2; \
SCM_ASYNC_TICK; \
} \
SCM_FENCE; \ SCM_FENCE; \
} while (0) } while (0)