[movitz-cvs] CVS update: movitz/losp/los0.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

8 May 2005

Update of /project/movitz/cvsroot/movitz/losp
In directory common-lisp.net:/tmp/cvs-serv25156
Modified Files:
    los0.lisp 
Log Message:
*** empty log message ***
Date: Sun May  8 03:20:02 2005
Author: ffjeld
Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.44 movitz/losp/los0.lisp:1.45

--- movitz/losp/los0.lisp:1.44	Thu May  5 22:51:12 2005
+++ movitz/losp/los0.lisp	Sun May  8 03:20:02 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.44 2005/05/05 20:51:12 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.45 2005/05/08 01:20:02 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -44,7 +44,8 @@
 ;; 	#:muerte.ip6
    #:muerte.ip4
    #:muerte.mop
-	#:muerte.x86-pc.serial))
+	#:muerte.x86-pc.serial
+	#:threading))
(require :los0-gc)			; Must come after defpackage.
@@ -1365,7 +1366,7 @@
       (setf *package* (find-package "INIT"))
       (when muerte::*multiboot-data*
    (set-textmode +vga-state-90x30+))
-      
+
       (cond
        ((not (cpu-featurep :tsc))
    (warn "This CPU has no time-stamp-counter. Timer-related functions will not work."))
@@ -1379,6 +1380,10 @@
    	       *standard-input* s
    	       *terminal-io* s
    	       *debug-io* s)))
+    
+    (setf threading:*segment-descriptor-table-manager*
+      (make-instance 'threading:segment-descriptor-table-manager))
+    
 ;;;    (ignore-errors
 ;;;     (setf (symbol-function 'write-char)
 ;;;       (muerte.x86-pc.serial::make-serial-write-char :baudrate 38400))

    