[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv31526

Modified Files:
	scavenge.lisp 
Log Message:
Fixed nasty bug in map-header-vals: x2 is supposed to be the upper 16
bits of each word, but was really the 'middle' 16 bits (i.e bits 8-24).


--- /project/movitz/cvsroot/movitz/losp/muerte/scavenge.lisp	2007/03/16 21:12:52	1.57
+++ /project/movitz/cvsroot/movitz/losp/muerte/scavenge.lisp	2007/03/16 21:17:55	1.58
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Mar 29 14:54:08 2004
 ;;;;                
-;;;; $Id: scavenge.lisp,v 1.57 2007/03/16 21:12:52 ffjeld Exp $
+;;;; $Id: scavenge.lisp,v 1.58 2007/03/16 21:17:55 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -60,7 +60,7 @@
 	((>= scan end-location))
       (declare (fixnum scan))
       (let ((x (memref scan 0 :type :unsigned-byte16))
-            (x2 (memref scan 1 :type :unsigned-byte16)))
+            (x2 (memref scan 2 :type :unsigned-byte16)))
         (when verbose
           (format *terminal-io* " [at ~S: ~S]" scan x))
         (cond