Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv14421
Modified Files: malloc-init.lisp Log Message: We'll start allocating at 2MB rather than 1MB, leaving more space for the kernel.
Date: Wed Jun 9 16:00:57 2004 Author: ffjeld
Index: movitz/losp/lib/malloc-init.lisp diff -u movitz/losp/lib/malloc-init.lisp:1.2 movitz/losp/lib/malloc-init.lisp:1.3 --- movitz/losp/lib/malloc-init.lisp:1.2 Mon Jan 19 03:23:44 2004 +++ movitz/losp/lib/malloc-init.lisp Wed Jun 9 16:00:57 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Jan 9 15:57:22 2002 ;;;; -;;;; $Id: malloc-init.lisp,v 1.2 2004/01/19 11:23:44 ffjeld Exp $ +;;;; $Id: malloc-init.lisp,v 1.3 2004/06/09 23:00:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -20,7 +20,7 @@ (in-package muerte.lib)
(let ((memsize (muerte.x86-pc::memory-size)) - (start (truncate (* 1 1024 1024) 4096))) + (start (truncate (* 2 1024 1024) 4096))) ; XXX We really should calcucalte this.. ;; (format t "Memory: ~D MB.~%" memsize) (muerte:malloc-initialize start (- (* memsize #x100) start)))
-
Frode Vatvedt Fjeld