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

Modified Files: image.lisp Log Message: Fixed warning about multiboot header too far away.

Date: Fri Apr 16 04:57:29 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.23 movitz/image.lisp:1.24 --- movitz/image.lisp:1.23 Thu Apr 15 09:04:51 2004 +++ movitz/image.lisp Fri Apr 16 04:57:29 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.23 2004/04/15 13:04:51 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.24 2004/04/16 08:57:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -890,7 +890,9 @@ (warn "Multiboot load-address #x~x is below the 1MB mark." load-address)) (when (> (+ mb-file-position (sizeof mb)) 8192) - (warn "Multiboot header at position ~D is above the 8KB mark.")) + (warn "Multiboot header at position ~D is above the 8KB mark, ~ +this image will not be Multiboot compatible." + (+ mb-file-position (sizeof mb)))) (assert (file-position stream mb-file-position) () "Couldn't set file-position for ~W to ~W." (pathname stream)