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

Renamed the "frames" that are related to dynamic-wind to "dynamic

Browse source 
contexts.  Renamed all functions from scm_frame_ to scm_dynwind_.
Updated documentation.
This commit is contained in:
Marius Vollmer 2006-01-29 00:23:28 +00:00
parent 15ccf10bf2
commit 661ae7ab6b
43 changed files with 462 additions and 449 deletions
Download patch file Download diff file Expand all files Collapse all files

26
libguile/threads.c
View file

@ -998,12 +998,12 @@ SCM_DEFINE (scm_lock_mutex, "lock-mutex", 1, 0, 0,
#undef FUNC_NAME
void
scm_frame_lock_mutex (SCM mutex)
scm_dynwind_lock_mutex (SCM mutex)
{
scm_frame_unwind_handler_with_scm ((void(*)(SCM))scm_unlock_mutex, mutex,
SCM_F_WIND_EXPLICITLY);
scm_frame_rewind_handler_with_scm ((void(*)(SCM))scm_lock_mutex, mutex,
SCM_F_WIND_EXPLICITLY);
scm_dynwind_unwind_handler_with_scm ((void(*)(SCM))scm_unlock_mutex, mutex,
SCM_F_WIND_EXPLICITLY);
scm_dynwind_rewind_handler_with_scm ((void(*)(SCM))scm_lock_mutex, mutex,
SCM_F_WIND_EXPLICITLY);
}
static char *
@ -1403,10 +1403,10 @@ unlock (void *data)
}
void
scm_frame_pthread_mutex_lock (scm_i_pthread_mutex_t *mutex)
scm_dynwind_pthread_mutex_lock (scm_i_pthread_mutex_t *mutex)
{
scm_i_scm_pthread_mutex_lock (mutex);
scm_frame_unwind_handler (unlock, mutex, SCM_F_WIND_EXPLICITLY);
scm_dynwind_unwind_handler (unlock, mutex, SCM_F_WIND_EXPLICITLY);
}
int
@ -1579,15 +1579,15 @@ scm_i_thread_sleep_for_gc ()
scm_i_pthread_mutex_t scm_i_critical_section_mutex;
int scm_i_critical_section_level = 0;
static SCM framed_critical_section_mutex;
static SCM dynwind_critical_section_mutex;
void
scm_frame_critical_section (SCM mutex)
scm_dynwind_critical_section (SCM mutex)
{
if (scm_is_false (mutex))
mutex = framed_critical_section_mutex;
scm_frame_lock_mutex (mutex);
scm_frame_block_asyncs ();
mutex = dynwind_critical_section_mutex;
scm_dynwind_lock_mutex (mutex);
scm_dynwind_block_asyncs ();
}
/*** Initialization */
@ -1645,7 +1645,7 @@ scm_init_threads ()
guilify_self_2 (SCM_BOOL_F);
threads_initialized_p = 1;
framed_critical_section_mutex =
dynwind_critical_section_mutex =
scm_permanent_object (scm_make_recursive_mutex ());
}