From f83e27370c827773722739fdf764cb231bd9d330 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 19 Apr 1998 20:16:36 +0000 Subject: * continuations.c (scm_make_cont), debug.c (scm_make_memoized, scm_make_debugobj), eval.c (scm_makprom): SCM_DEFER/ALLOW_INTS --> A section. * __scm.h: Start the long-term project of moving to POSIX threads. Phase 1: Classification of all critical sections. (SCM_ENTER_A_SECTION, SCM_EXIT_A_SECTION): New macros: Delimiters for A sections. (See comments in __scm.h for details.) --- libguile/debug.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index a2d148587..4c95a8a92 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -154,14 +154,14 @@ scm_make_memoized (exp, env) { /* *fixme* Check that env is a valid environment. */ register SCM z, ans; - SCM_DEFER_INTS; + SCM_ENTER_A_SECTION; SCM_NEWCELL (z); - SCM_SETCAR (z, exp); SCM_SETCDR (z, env); + SCM_SETCAR (z, exp); SCM_NEWCELL (ans); - SCM_SETCAR (ans, scm_tc16_memoized); SCM_SETCDR (ans, z); - SCM_ALLOW_INTS; + SCM_SETCAR (ans, scm_tc16_memoized); + SCM_EXIT_A_SECTION; return ans; } @@ -570,11 +570,11 @@ scm_make_debugobj (frame) scm_debug_frame *frame; { register SCM z; - SCM_DEFER_INTS; SCM_NEWCELL (z); - SCM_SETCAR (z, scm_tc16_debugobj); + SCM_ENTER_A_SECTION; SCM_SET_DEBUGOBJ_FRAME (z, (SCM) frame); - SCM_ALLOW_INTS; + SCM_SETCAR (z, scm_tc16_debugobj); + SCM_EXIT_A_SECTION; return z; } -- cgit v1.2.3