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))))