[Sbcl-commits] CVS: sbcl version.lisp-expr,1.662.2.7,1.662.2.8 TODO.dan,1.1.2.5,1.1.2.6 package-data-list.lisp-expr,1.186,1.186.2.1

[Daniel B. <da...@us...>]

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv13045

Modified Files:
      Tag: dan_native_threads_branch
	version.lisp-expr TODO.dan package-data-list.lisp-expr 
Log Message:

0.7.9.54.thread.10
	#+better-a-dinner-of-herbs-than-a-hole-in-the-head experimental threads

	Fix the debugger - or at least, the obviously badly broken bits
	... some disagreement over fixnums vs machine words in control stack
	    boundaries
	... it's bad to reinitialize *free-tls-index* if this is a warm core,
	    because existing symbols have valid tls indices already
	... frame-down should test the return value of x86-call-context before
	    passing to compute-calling-frame (backtrace was broken at far end
	    of stack)
    
	Add SB-THREAD package definition in preparation for some alien glue
	to actually allow new threads to be started.  Shuffle things around to
	empty code/target-thread.lisp so that it may contain this glue



Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.662.2.7
retrieving revision 1.662.2.8
diff -u -d -r1.662.2.7 -r1.662.2.8
--- version.lisp-expr	11 Dec 2002 00:38:20 -0000	1.662.2.7
+++ version.lisp-expr	12 Dec 2002 03:16:47 -0000	1.662.2.8
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.9.54.thread.9"
+"0.7.9.54.thread.10"

Index: TODO.dan
===================================================================
RCS file: /cvsroot/sbcl/sbcl/Attic/TODO.dan,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -d -r1.1.2.5 -r1.1.2.6
--- TODO.dan	11 Dec 2002 00:38:20 -0000	1.1.2.5
+++ TODO.dan	12 Dec 2002 03:16:47 -0000	1.1.2.6
@@ -1,5 +1,9 @@
 * stuff that needs to happen before it will run
 
+21) add a lisp interface to init_thread
+
+* stuff that can be fixed later
+
 14) allocation/gc still needs locking.
 
 a) lots of threads can allocate at once, if allocation happens
@@ -14,10 +18,6 @@
 finished.
 
 20) read genesis again and convince ourselves it does actually work
-
-21) add a lisp interface to init_thread
-
-* stuff that can be fixed later
 
 2) grow tlv when full
 

Index: package-data-list.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/package-data-list.lisp-expr,v
retrieving revision 1.186
retrieving revision 1.186.2.1
diff -u -d -r1.186 -r1.186.2.1
--- package-data-list.lisp-expr	11 Nov 2002 08:37:00 -0000	1.186
+++ package-data-list.lisp-expr	12 Dec 2002 03:16:47 -0000	1.186.2.1
@@ -1381,6 +1381,11 @@
              "WITH-LOCK-HELD"))
 
  #s(sb-cold:package-data
+    :name "SB!THREAD"
+    :doc "public (low-level): native thread support"
+    :export ("MAKE-THREAD" "THREAD" "CURRENT-THREAD"))
+ 
+ #s(sb-cold:package-data
     :name "SB!PCL"
     :doc
 "semi-public: This package includes useful meta-object protocol