[movitz-cvs] CVS update: movitz/multiboot.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	multiboot.lisp 
Log Message:
Re-arranged storage for multi-boot header so that it doesn't mess up
(GC) scanning.

Date: Wed Mar 24 08:20:50 2004
Author: ffjeld

Index: movitz/multiboot.lisp
diff -u movitz/multiboot.lisp:1.2 movitz/multiboot.lisp:1.3
--- movitz/multiboot.lisp:1.2	Mon Jan 19 06:23:41 2004
+++ movitz/multiboot.lisp	Wed Mar 24 08:20:49 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Jun 12 12:14:12 2002
 ;;;;                
-;;;; $Id: multiboot.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $
+;;;; $Id: multiboot.lisp,v 1.3 2004/03/24 13:20:49 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -36,7 +36,16 @@
 (defconstant +multiboot-header-magic-value+  #x1BADB002)
 
 (define-binary-class multiboot-header (movitz-heap-object)
-  ((magic
+  ((scan-skip-header
+    :binary-type word
+    :initform +scan-skip-word+)
+   (scan-skip-length
+    :binary-type word
+    :initform 0
+    :map-binary-write (lambda (x type)
+			(declare (ignore x y))
+			(- (sizeof 'multiboot-header) 8)))
+   (magic
     :accessor magic
     :initform +multiboot-header-magic-value+
     :initarg :magic