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

[Frode Vatvedt Fjeld]

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

Modified Files:
	memref.lisp 
Log Message:
Remove explicit alignment test.

Date: Wed Nov 10 16:30:53 2004
Author: ffjeld

Index: movitz/losp/muerte/memref.lisp
diff -u movitz/losp/muerte/memref.lisp:1.36 movitz/losp/muerte/memref.lisp:1.37
--- movitz/losp/muerte/memref.lisp:1.36	Thu Oct 21 22:47:26 2004
+++ movitz/losp/muerte/memref.lisp	Wed Nov 10 16:30:53 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Mar  6 21:25:49 2001
 ;;;;                
-;;;; $Id: memref.lisp,v 1.36 2004/10/21 20:47:26 ffjeld Exp $
+;;;; $Id: memref.lisp,v 1.37 2004/11/10 15:30:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -793,9 +793,9 @@
 		(:shll 2 :ecx)
 		(:addl :ebx :eax)
 		(:into)
-		(:testb ,(mask-field (byte (+ 2 movitz::+movitz-fixnum-shift+) 0) -1)
-			:al)
-		(:jnz '(:sub-program () (:int 63)))
+;;;		(:testb ,(mask-field (byte (+ 2 movitz::+movitz-fixnum-shift+) 0) -1)
+;;;			:al)
+;;;		(:jnz '(:sub-program () (:int 63)))
 		(:addl :eax :ecx)
 		(:shrl ,movitz::+movitz-fixnum-shift+ :ecx) ; scale down address
 		(,prefixes :movl (:ecx) :ecx)))))