[movitz-cvs] CVS movitz/losp/lib

ffjeld ffjeld at common-lisp.net
Mon Apr 9 16:01:54 UTC 2007


Update of /project/movitz/cvsroot/movitz/losp/lib
In directory clnet:/tmp/cvs-serv17076

Modified Files:
	malloc-init.lisp 
Log Message:
Compute available memory correctly in initial allocator.


--- /project/movitz/cvsroot/movitz/losp/lib/malloc-init.lisp	2005/05/05 20:52:40	1.7
+++ /project/movitz/cvsroot/movitz/losp/lib/malloc-init.lisp	2007/04/09 16:01:53	1.8
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Jan  9 15:57:22 2002
 ;;;;                
-;;;; $Id: malloc-init.lisp,v 1.7 2005/05/05 20:52:40 ffjeld Exp $
+;;;; $Id: malloc-init.lisp,v 1.8 2007/04/09 16:01:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -28,7 +28,7 @@
        (start-location (logand (+ kernel-end-location (1- 4096/4)) -4096/4))
        ;; End-location is the end of the memory.
        (end-location (* (1- memsize-mb) 1024 1024/4)))
-  (muerte:malloc-initialize start-location end-location)
+  (muerte:malloc-initialize start-location (- end-location start-location))
   (setf (cdar muerte::%memory-map%) end-location)
   (loop for x from kernel-end-location below start-location
       do (setf (memref x 0 :type :unsigned-byte32) 0))




More information about the Movitz-cvs mailing list