diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2009-03-10 23:55:31 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2009-09-30 21:44:02 +0100 |
commit | 87f30eda98b9c84807d54af6c76b6195c5cbd009 (patch) | |
tree | 68c075350ed8489ac6230115359c6a31db95474f /libguile/continuations.c | |
parent | 09d978f3f81d7ae43ba952de8dc568f54f5f80b6 (diff) | |
download | guile-87f30eda98b9c84807d54af6c76b6195c5cbd009.tar.gz |
Fix spurious `throw from within critical section' errors
The crux of this problem was that the thread doing a throw, and so
checking scm_i_critical_section_level, was different from the thread
that was in a critical section.
* libguile/async.h (scm_i_critical_section_level): Removed, replaced
by per-thread critical_section_level.
(SCM_CRITICAL_SECTION_START, SCM_CRITICAL_SECTION_END): Use
per-thread critical_section_level.
* libguile/continuations.c (scm_dynthrow): Check per-thread
critical_section_level.
* libguile/threads.c (guilify_self_1): Init per-thread
critical_section_level.
(scm_i_critical_section_level): Removed.
* libguile/threads.h (scm_i_thread): New critical_section_level field.
* libguile/throw.c (scm_ithrow): Check per-thread critical_section_level.
Diffstat (limited to 'libguile/continuations.c')
-rw-r--r-- | libguile/continuations.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c index aa1fb334e..a0e2f6d4f 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -225,7 +225,7 @@ scm_dynthrow (SCM cont, SCM val) SCM_STACKITEM *dst = thread->continuation_base; SCM_STACKITEM stack_top_element; - if (scm_i_critical_section_level) + if (thread->critical_section_level) { fprintf (stderr, "continuation invoked from within critical section.\n"); abort (); |