Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv2950 Modified Files: segments.lisp Log Message: Fix (setf segment-descriptor-limit). Patch from Paavo. --- /project/movitz/cvsroot/movitz/losp/muerte/segments.lisp 2007/03/21 20:20:12 1.17 +++ /project/movitz/cvsroot/movitz/losp/muerte/segments.lisp 2007/04/13 22:37:04 1.18 @@ -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.17 2007/03/21 20:20:12 ffjeld Exp $ +;;;; $Id: segments.lisp,v 1.18 2007/04/13 22:37:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -229,9 +229,10 @@ (let ((offset (+ (logand #xfff8 selector) (movitz-type-slot-offset 'movitz-basic-vector 'data)))) (setf (memref table (+ 6 offset) :type :unsigned-byte8) - (ldb (byte 4 16) limit)) - (setf (memref table (+ 0 offset) :type :unsigned-byte8) - (ldb (byte 16 0) limit)) + (logior (ldb (byte 4 16) limit) + (ash (segment-descriptor-avl-x-db-g table selector) 4))) + (setf (memref table (+ 0 offset) :type :unsigned-byte16) + (ldb (byte 16 0) limit)) limit)) (defun segment-descriptor-type-s-dpl-p (table selector)