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

[Frode Vatvedt Fjeld]

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

Modified Files:
	arrays.lisp 
Log Message:
Aref tune-up.

Date: Thu Mar 18 04:19:45 2004
Author: ffjeld

Index: movitz/losp/muerte/arrays.lisp
diff -u movitz/losp/muerte/arrays.lisp:1.5 movitz/losp/muerte/arrays.lisp:1.6
--- movitz/losp/muerte/arrays.lisp:1.5	Mon Mar  8 09:33:52 2004
+++ movitz/losp/muerte/arrays.lisp	Thu Mar 18 04:19:45 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sun Feb 11 23:14:04 2001
 ;;;;                
-;;;; $Id: arrays.lisp,v 1.5 2004/03/08 14:33:52 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.6 2004/03/18 09:19:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -230,13 +230,13 @@
     
        not-u8
 	(:cmpl #.(movitz:vector-type-tag :u16) :ecx)
-	(:je 'not-u16)
+	(:jne 'not-u16)
 	(:movzxw (:eax (:ebx 2) 2) :eax) ; u16
 	(:jmp 'done)
 
        not-u16
 	(:cmpl #.(movitz:vector-type-tag :u32) :ecx)
-	(:je 'not-u32)
+	(:jne 'not-u32)
 	(:movl (:eax (:ebx 4) 2) :ecx)	; u32
 	(:cmpl #.movitz::+movitz-most-positive-fixnum+ :ecx)
 	(:jg '(:sub-program (:overflowing-u32)