[movitz-cvs] CVS update: movitz/losp/los0.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp
In directory common-lisp.net:/tmp/cvs-serv11996

Modified Files:
	los0.lisp 
Log Message:
*** empty log message ***
Date: Mon Apr 18 09:08:42 2005
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.38 movitz/losp/los0.lisp:1.39
--- movitz/losp/los0.lisp:1.38	Fri Apr 15 09:04:24 2005
+++ movitz/losp/los0.lisp	Mon Apr 18 09:08:42 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.38 2005/04/15 07:04:24 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.39 2005/04/18 07:08:42 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1330,6 +1330,8 @@
     (:movl 4 :eax)
    no-overflow))
 
+(defvar *segment-descriptor-table*)
+
 (defun genesis ()
   ;; (install-shallow-binding)
   (let ((extended-memsize 0))
@@ -1341,6 +1343,11 @@
     (format t "Extended memory: ~D KB~%" extended-memsize)
 
     (idt-init)
+    
+    (setf *segment-descriptor-table*	; Ensure we have a GDT with 16 entries, in static-space.
+      (muerte::install-global-segment-table
+       (muerte::dump-global-segment-table :entries 16)))
+    
     (install-los0-consing :kb-size 500)
     #+ignore
     (install-los0-consing :kb-size (max 50 (truncate (- extended-memsize 2048) 2))))