Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7422
Modified Files: segments.lisp Log Message: Fixed bug in segment-descriptor-base.
Date: Thu Apr 14 08:42:31 2005 Author: ffjeld
Index: movitz/losp/muerte/segments.lisp diff -u movitz/losp/muerte/segments.lisp:1.8 movitz/losp/muerte/segments.lisp:1.9 --- movitz/losp/muerte/segments.lisp:1.8 Thu Apr 14 08:14:49 2005 +++ movitz/losp/muerte/segments.lisp Thu Apr 14 08:42:29 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu May 8 14:25:06 2003 ;;;; -;;;; $Id: segments.lisp,v 1.8 2005/04/14 06:14:49 ffjeld Exp $ +;;;; $Id: segments.lisp,v 1.9 2005/04/14 06:42:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -166,7 +166,7 @@ (let ((offset (+ (* index 8) (movitz-type-slot-offset 'movitz-basic-vector 'data)))) (logior (ash (memref table (+ 7 offset) :type :unsigned-byte8) 24) - (ash (memref table (+ 4 offset) :type :unsigned-byte16) + (ash (memref table (+ 4 offset) :type :unsigned-byte8) 16) (ash (memref table (+ 2 offset) :type :unsigned-byte16) 0))))