From f7acb3985e956e0baff86cc7e1b78cabb0b7fb38 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Mon, 13 Mar 2000 10:02:12 +0000 Subject: [PATCH] * __scm.h (SCM_ALLOW_INTS, SCM_REALLOW_INTS): Removed call to SCM_ASYNC_TICK. (This is a preparation for POSIX threads support, and kind of an experiment: Will this cause problems?) --- libguile/__scm.h | 9 --------- 1 file changed, 9 deletions(-) diff --git a/libguile/__scm.h b/libguile/__scm.h index b52dc907f..d58e9d91e 100644 --- a/libguile/__scm.h +++ b/libguile/__scm.h @@ -231,8 +231,6 @@ typedef long SCM_STACKITEM; #define SCM_THREAD_DEFER #define SCM_THREAD_ALLOW #define SCM_THREAD_REDEFER -#define SCM_THREAD_REALLOW_1 -#define SCM_THREAD_REALLOW_2 #define SCM_THREAD_SWITCHING_CODE #endif @@ -307,7 +305,6 @@ do { \ scm_ints_disabled = 0; \ SCM_FENCE; \ SCM_THREAD_ALLOW; \ - SCM_ASYNC_TICK; \ SCM_FENCE; \ } while (0) @@ -324,15 +321,9 @@ do { \ #define SCM_REALLOW_INTS \ do { \ SCM_FENCE; \ - SCM_THREAD_REALLOW_1; \ SCM_THREAD_SWITCHING_CODE; \ SCM_FENCE; \ --scm_ints_disabled; \ - if (!scm_ints_disabled) \ - { \ - SCM_THREAD_REALLOW_2; \ - SCM_ASYNC_TICK; \ - } \ SCM_FENCE; \ } while (0)