[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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 at 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)