[Sbcl-commits] CVS: sbcl/src/compiler dump.lisp,1.42,1.43

[Nathan F. <nf...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30203/src/compiler

Modified Files:
	dump.lisp 
Log Message:
0.8.14.4:
	Oops.  Better write things in the dumper as halfwords in addition
	  to reading them as such in the fasl loader.


Index: dump.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/dump.lisp,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- dump.lisp	8 Sep 2004 18:17:36 -0000	1.42
+++ dump.lisp	8 Sep 2004 19:22:49 -0000	1.43
@@ -1102,7 +1102,7 @@
 	(cond ((and (< num-consts #x100) (< total-length #x10000))
 	       (dump-fop 'fop-small-code fasl-output)
 	       (dump-byte num-consts fasl-output)
-	       (dump-integer-as-n-bytes total-length 2 fasl-output))
+	       (dump-integer-as-n-bytes total-length (/ sb!vm:n-word-bytes 2) fasl-output))
 	      (t
 	       (dump-fop 'fop-code fasl-output)
 	       (dump-word num-consts fasl-output)