[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-serv21498

Modified Files:
	memref.lisp 
Log Message:
Minor edit.

Date: Sat Jul 17 05:16:28 2004
Author: ffjeld

Index: movitz/losp/muerte/memref.lisp
diff -u movitz/losp/muerte/memref.lisp:1.18 movitz/losp/muerte/memref.lisp:1.19
--- movitz/losp/muerte/memref.lisp:1.18	Fri Jul 16 18:53:17 2004
+++ movitz/losp/muerte/memref.lisp	Sat Jul 17 05:16:28 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.18 2004/07/17 01:53:17 ffjeld Exp $
+;;;; $Id: memref.lisp,v 1.19 2004/07/17 12:16:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -96,8 +96,7 @@
 			 (index-var (gensym "memref-index-")))
 		     `(let ((,object-var ,object)
 			    (,index-var ,index))
-			(with-inline-assembly (:returns :untagged-fixnum-ecx
-							:type (unsiged-byte 16))
+			(with-inline-assembly (:returns :untagged-fixnum-ecx)
 			  (:compile-two-forms (:eax :ecx) ,object-var ,index-var)
 			  (:sarl ,(1- movitz:+movitz-fixnum-shift+) :ecx)
 			  (:movzxw (:eax :ecx ,(offset-by 2)) :ecx)))))