From: sa2c <sa2c>
Date: Fri, 15 Dec 2006 01:16:36 +0000 (+0000)
Subject: 1.0.0.30: Stability fix of threading on FreeBSD
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ce798749f957d005670b71edf38b893264e4f7ba;p=sbcl.git

1.0.0.30: Stability fix of threading on FreeBSD

Yield current thread on thread creation so that clean-up threads can
run.  This fixes some test failures on FreeBSD 7.
---

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index a99056f..e529c7d 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -350,6 +350,10 @@ create_thread_struct(lispobj initial_function) {
     int i;
 #endif
 
+#ifdef CREATE_CLEANUP_THREAD
+    /* Give a chance for cleanup threads to run. */
+    sched_yield();
+#endif
     /* may as well allocate all the spaces at once: it saves us from
      * having to decide what to do if only some of the allocations
      * succeed */
diff --git a/version.lisp-expr b/version.lisp-expr
index 81a6319..37de098 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.0.29"
+"1.0.0.30"