[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	segments.lisp 
Log Message:
In (setf segment-descriptor-limit), prefer (setf ldb) over logior etc.


--- /project/movitz/cvsroot/movitz/losp/muerte/segments.lisp	2007/04/13 22:37:04	1.18
+++ /project/movitz/cvsroot/movitz/losp/muerte/segments.lisp	2007/04/13 22:41:05	1.19
@@ -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.18 2007/04/13 22:37:04 ffjeld Exp $
+;;;; $Id: segments.lisp,v 1.19 2007/04/13 22:41:05 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -228,9 +228,8 @@
   (check-type table (and vector (not simple-vector)))
   (let ((offset (+ (logand #xfff8 selector)
 		   (movitz-type-slot-offset 'movitz-basic-vector 'data))))
-    (setf (memref table (+ 6 offset) :type :unsigned-byte8)
-          (logior (ldb (byte 4 16) limit)
-                  (ash (segment-descriptor-avl-x-db-g table selector) 4)))
+    (setf (ldb (byte 4 0) (memref table (+ 6 offset) :type :unsigned-byte8))
+          (ldb (byte 4 16) limit))
     (setf (memref table (+ 0 offset) :type :unsigned-byte16)
           (ldb (byte 16 0) limit))
     limit))