[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