[movitz-cvs] CVS update: movitz/losp/x86-pc/memory.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	memory.lisp 
Log Message:
This rather substantial check-in is a clean-up of all things related
to dynamic memory allocation. In particular, the separation between
the muerte kernel with its 'default' memory management (which simply
allocates objects consecutively until it runs out) and the los0 GC
implementation is improved.

Date: Thu Jul 15 14:07:36 2004
Author: ffjeld

Index: movitz/losp/x86-pc/memory.lisp
diff -u movitz/losp/x86-pc/memory.lisp:1.3 movitz/losp/x86-pc/memory.lisp:1.4
--- movitz/losp/x86-pc/memory.lisp:1.3	Mon Jan 19 03:23:52 2004
+++ movitz/losp/x86-pc/memory.lisp	Thu Jul 15 14:07:36 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Oct 11 16:32:11 2001
 ;;;;                
-;;;; $Id: memory.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $
+;;;; $Id: memory.lisp,v 1.4 2004/07/15 21:07:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -20,6 +20,7 @@
 (in-package muerte.x86-pc)
 
 (defun memory-size ()
+  "Return memory size in megabytes."
   (let ((kilobyte-memsize
 	 (+ #x400
 	    (prog1
@@ -30,4 +31,4 @@
 		     (progn
 		       (setf (io-port #x70 :unsigned-byte8) #x17)
 		       (io-port #x71 :unsigned-byte8)))))))
-    (truncate kilobyte-memsize 1024)))
+    (values (truncate kilobyte-memsize 1024))))