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

* continuations.c (scm_make_cont), debug.c (scm_make_memoized,

Browse source 
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.)
This commit is contained in:
Mikael Djurfeldt 1998-04-19 20:16:36 +00:00
parent c3e09ef939
commit f83e27370c
4 changed files with 53 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/debug.c
View file

@ -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;
}