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

[Frode Vatvedt Fjeld]

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

Modified Files:
	more-macros.lisp 
Log Message:
Small fix for the %run-time-context-slot compiler-macro and
:code-vector-word slots.

Date: Tue Jan  4 17:56:19 2005
Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp
diff -u movitz/losp/muerte/more-macros.lisp:1.23 movitz/losp/muerte/more-macros.lisp:1.24
--- movitz/losp/muerte/more-macros.lisp:1.23	Mon Jan  3 12:56:14 2005
+++ movitz/losp/muerte/more-macros.lisp	Tue Jan  4 17:56:19 2005
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 2001-2004, 
+;;;;    Copyright (C) 2001-2005, 
 ;;;;    Department of Computer Science, University of Tromso, Norway.
 ;;;; 
 ;;;;    For distribution policy, see the accompanying file COPYING.
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Jun  7 15:05:57 2002
 ;;;;                
-;;;; $Id: more-macros.lisp,v 1.23 2005/01/03 11:56:14 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.24 2005/01/04 16:56:19 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -342,8 +342,8 @@
 	    (:locally (:movl (:edi (:edi-offset ,slot-name)) :eax))))
 	(movitz::code-vector-word
 	 `(with-inline-assembly (:returns :eax)
-	    (:locally (:movl (:edi (:edi-offset ,slot-name)) :eax))
-	    (:subl ,movitz::+code-vector-word-offset+ :eax)))
+	    (:movl ,(ldb (byte 32 0) (- movitz::+code-vector-word-offset+)) :eax)
+	    (:locally (:addl (:edi (:edi-offset ,slot-name)) :eax))))
 	(movitz::lu32
 	 `(with-inline-assembly (:returns :untagged-fixnum-ecx)
 	    (:locally (:movl (:edi (:edi-offset ,slot-name)) :ecx))))))))