Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9405

Modified Files:
	version.lisp-expr 
Log Message:
0.9.11:
	release, will be tagged as sbcl_0_9_11


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2747
retrieving revision 1.2748
diff -u -d -r1.2747 -r1.2748
--- version.lisp-expr	24 Mar 2006 16:45:06 -0000	1.2747
+++ version.lisp-expr	26 Mar 2006 23:59:14 -0000	1.2748
@@ -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".)
-"0.9.10.48"
+"0.9.11"

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6625

Modified Files:
      Tag: lutex-branch
	version.lisp-expr 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2745.2.12
retrieving revision 1.2745.2.13
diff -u -d -r1.2745.2.12 -r1.2745.2.13
--- version.lisp-expr	25 Mar 2006 22:26:48 -0000	1.2745.2.12
+++ version.lisp-expr	26 Mar 2006 18:54:43 -0000	1.2745.2.13
@@ -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".)
-"0.9.10.46.lutex-branch.12"
+"0.9.10.46.lutex-branch.13"

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5259

Modified Files:
      Tag: lutex-branch
	darwin-os.h 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: darwin-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/Attic/darwin-os.h,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -d -r1.1.2.4 -r1.1.2.5
--- darwin-os.h	25 Mar 2006 21:20:17 -0000	1.1.2.4
+++ darwin-os.h	26 Mar 2006 18:51:43 -0000	1.1.2.5
@@ -27,6 +27,7 @@
 #include <sys/_types.h>
 typedef struct ucontext os_context_t;
 
+#if defined(LISP_FEATURE_SB_THREAD)
 #if defined(LISP_FEATURE_MACH_SEMAPHORES)
 typedef semaphore_t os_sem_t;
 #elif defined(LISP_FEATURE_CARBON_SEMAPHORES)
@@ -34,6 +35,7 @@
 #else
 typedef sem_t os_sem_t;
 #endif
+#endif
 
 #else
 #include <ucontext.h>

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5276

Modified Files:
      Tag: lutex-branch
	thread.h 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: thread.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/thread.h,v
retrieving revision 1.24
retrieving revision 1.24.4.1
diff -u -d -r1.24 -r1.24.4.1
--- thread.h	15 Oct 2005 08:40:36 -0000	1.24
+++ thread.h	26 Mar 2006 18:51:47 -0000	1.24.4.1
@@ -141,4 +141,8 @@
 
 extern void create_initial_thread(lispobj);
 
+#if defined(LISP_FEATURE_SB_THREAD)
+extern int futex_init(os_sem_t *semaphore);
+#endif
+
 #endif /* _INCLUDE_THREAD_H_ */

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5240

Modified Files:
      Tag: lutex-branch
	coreparse.c 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: coreparse.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/coreparse.c,v
retrieving revision 1.32.2.1
retrieving revision 1.32.2.2
diff -u -d -r1.32.2.1 -r1.32.2.2
--- coreparse.c	21 Mar 2006 19:28:02 -0000	1.32.2.1
+++ coreparse.c	26 Mar 2006 18:51:40 -0000	1.32.2.2
@@ -36,7 +36,10 @@
 #include "gc-internal.h"
 
 /* lutex stuff */
+#if defined(LISP_FEATURE_SB_THREAD) && defined(LISP_FEATURE_SB_LUTEX)
 #include "genesis/sap.h"
+#endif
+
 
 unsigned char build_id[] =
 #include "../../output/build-id.tmp"

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5224

Modified Files:
      Tag: lutex-branch
	bsd-os.c 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: bsd-os.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/bsd-os.c,v
retrieving revision 1.38.2.4
retrieving revision 1.38.2.5
diff -u -d -r1.38.2.4 -r1.38.2.5
--- bsd-os.c	25 Mar 2006 19:56:46 -0000	1.38.2.4
+++ bsd-os.c	26 Mar 2006 18:51:36 -0000	1.38.2.5
@@ -397,12 +397,12 @@
 
 #if defined(LISP_FEATURE_X86) && defined(LISP_FEATURE_DARWIN) && defined(LISP_FEATURE_SB_THREAD)
     int n = thread->tls_cookie;
-    
+
     /* Set the %%fs register back to 0 and free the the ldt
      * by setting it to NULL.
      */
     __asm__ __volatile__ ("mov %0, %%fs" : : "r"(0));
-    i386_set_ldt(n, NULL, 1); 
+    i386_set_ldt(n, NULL, 1);
 #endif
 
     return 1;                  /* success */

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5167

Modified Files:
      Tag: lutex-branch
	target-thread.lisp 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: target-thread.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-thread.lisp,v
retrieving revision 1.55.4.3
retrieving revision 1.55.4.4
diff -u -d -r1.55.4.3 -r1.55.4.4
--- target-thread.lisp	25 Mar 2006 22:27:10 -0000	1.55.4.3
+++ target-thread.lisp	26 Mar 2006 18:51:32 -0000	1.55.4.4
@@ -344,6 +344,9 @@
   #!+sb-thread
   (let ((me *current-thread*))
     #!+sb-lutex (declare (ignorable me))
+    ;; FIXME We can probably do away with the ignore by moving the let
+    ;; inside the #!-sb-lutex block!
+    ;;
     ;; no problem if >1 thread notifies during the comment in
     ;; condition-wait: as long as the value in queue-data isn't the
     ;; waiting thread's id, it matters not what it is

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5125

Modified Files:
      Tag: lutex-branch
	make-config.sh 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: make-config.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/make-config.sh,v
retrieving revision 1.61.2.2
retrieving revision 1.61.2.3
diff -u -d -r1.61.2.2 -r1.61.2.3
--- make-config.sh	25 Mar 2006 16:17:58 -0000	1.61.2.2
+++ make-config.sh	26 Mar 2006 18:51:28 -0000	1.61.2.3
@@ -263,12 +263,6 @@
         # roughly-equivalent magic nevertheless.
         printf ' :os-provides-dlopen' >> $ltf
     fi
-    # For Darwin builds choose one of :mach-semaphores or :carbon-semaphores.
-    # By not selecting either of these we end up with posix semaphores
-    # which currently do not work as there is no sem_init on Darwin.
-    if [ "$sbcl_os" = "darwin" ]; then
-        printf ' :mach-semaphores :restore-tls-segment-register-from-context' >> $ltf
-    fi
 elif [ "$sbcl_arch" = "x86-64" ]; then
     printf ' :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table' >> $ltf
     printf ' :stack-allocatable-closures :alien-callbacks' >> $ltf

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5078

Modified Files:
      Tag: lutex-branch
	base-target-features.lisp-expr 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: base-target-features.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/base-target-features.lisp-expr,v
retrieving revision 1.38.2.1
retrieving revision 1.38.2.2
diff -u -d -r1.38.2.1 -r1.38.2.2
--- base-target-features.lisp-expr	21 Mar 2006 19:27:57 -0000	1.38.2.1
+++ base-target-features.lisp-expr	26 Mar 2006 18:51:25 -0000	1.38.2.2
@@ -173,6 +173,17 @@
  ;;
  ; :sb-lutex
 
+ ;; IMPORTANT!!!!! When building on darwin with lutexes we need to
+ ;; enable one (and only one!) of these features!!!! FIXME!
+ ;
+ ; :mach-semaphores
+ ; :carbon-semaphores
+
+ ;; IMPORTANT!!!!! When building on darwin with lutexes we MUST turn
+ ;; this on!!! FIXME!
+ ;
+ ; :restore-tls-segment-register-from-context
+
  ;; Support for detection of unportable code (when applied to the
  ;; COMMON-LISP package, or SBCL-internal pacakges) or bad-neighbourly
  ;; code (when applied to user-level packages), relating to material