[movitz-cvs] CVS update: movitz/losp/muerte/segments.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv29048

Modified Files:
	segments.lisp 
Log Message:
Fixed bugs in %sgdt and %lgdt.

Date: Fri Apr 15 09:04:10 2005
Author: ffjeld

Index: movitz/losp/muerte/segments.lisp
diff -u movitz/losp/muerte/segments.lisp:1.9 movitz/losp/muerte/segments.lisp:1.10
--- movitz/losp/muerte/segments.lisp:1.9	Thu Apr 14 08:42:29 2005
+++ movitz/losp/muerte/segments.lisp	Fri Apr 15 09:04:10 2005
@@ -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.9 2005/04/14 06:42:29 ffjeld Exp $
+;;;; $Id: segments.lisp,v 1.10 2005/04/15 07:04:10 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -64,9 +64,9 @@
       (:sgdt (:ecx))
       (:popl :ebx)
       (:shrl #.(cl:- 16 movitz::+movitz-fixnum-shift+) :ebx)
-      (:andl #.movitz:+movitz-fixnum-zmask+ :ebx)
+      (:andl -4 :ebx)
       (:popl :eax)
-      (:andl #.movitz:+movitz-fixnum-zmask+ :eax)
+      (:andl -4 :eax)
       (:cld)
       (:movl 2 :ecx)
       (:stc))))