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

Modified Files: los0.lisp Log Message: *** empty log message *** Date: Fri Nov 26 16:00:14 2004 Author: ffjeld

Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.32 movitz/losp/los0.lisp:1.33 --- movitz/losp/los0.lisp:1.32 Wed Nov 24 17:24:16 2004 +++ movitz/losp/los0.lisp Fri Nov 26 15:59:59 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.32 2004/11/24 16:24:16 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.33 2004/11/26 14:59:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1200,15 +1200,15 @@ (error "Double interrupt."))) #+ignore (dolist (range muerte::%memory-map-roots%) - (map-heap-words (lambda (x type) - (declare (ignore type)) + (map-header-vals (lambda (x type) + (declare (ignore type)) + x) + (car range) (cdr range))) + (map-stack-vector (lambda (x foo) + (declare (ignore foo)) x) - (car range) (cdr range))) - (map-stack-words (lambda (x foo) - (declare (ignore foo)) - x) - nil - (current-stack-frame)) + nil + (current-stack-frame)) (with-inline-assembly (:returns :nothing) (:compile-form (:result-mode :ecx) muerte.x86-pc::*screen*) (:shrl 2 :ecx) @@ -1305,7 +1305,7 @@ (idt-init) #+ignore (install-los0-consing :kb-size 500) - (install-los0-consing :kb-size (max 100 (truncate (- extended-memsize 1024 2048) 2)))) + (install-los0-consing :kb-size (max 100 (truncate (- extended-memsize 2048) 2))))

(setf *debugger-function* #'los0-debugger) (clos-bootstrap)