Changeset 5492

Timestamp:

Nov 5, 2006, 7:41:53 PM (18 years ago)

Author:

Gary Byers

Message:

2d array error lookup -> nx.

File:

• trunk/ccl/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/x862.lisp

@@ -1695 +1695 @@
   target)
 
-(defun x862-error-for-simple-2d-array-type (type-keyword)
-  (ecase type-keyword
-    (:simple-vector arch::error-object-not-simple-array-t-2d)
-    (:simple-string arch::error-object-not-simple-array-char-2d)
-    (:bit-vector arch::error-object-not-simple-array-bit-2d)
-    (:unsigned-8-bit-vector arch::error-object-not-simple-array-u8-2d)
-    (:signed-8-bit-vector arch::error-object-not-simple-array-s8-2d)
-    (:unsigned-16-bit-vector arch::error-object-not-simple-array-u16-2d)
-    (:signed-16-bit-vector arch::error-object-not-simple-array-s16-2d)
-    (:unsigned-32-bit-vector arch::error-object-not-simple-array-u32-2d)
-    (:signed-32-bit-vector arch::error-object-not-simple-array-s32-2d)
-    (:unsigned-64-bit-vector arch::error-object-not-simple-array-u64-2d)
-    (:signed-64-bit-vector arch::error-object-not-simple-array-s64-2d)
-    (:double-float-vector arch::error-object-not-simple-array-double-float-2d)
-    (:single-float-vector arch::error-object-not-simple-array-double-float-2d)))
   
 (defun x862-aref2 (seg vreg xfer array i j safe typekeyword &optional dim0 dim1)
@@ -1738 +1723 @@
              (dpb safe target::arrayH.flags-cell-subtag-byte
                   (ash 1 $arh_simple_bit))
-             (x862-error-for-simple-2d-array-type typekeyword)))
+             (nx-error-for-simple-2d-array-type typekeyword)))
         (unless i-known-fixnum
           (! trap-unless-fixnum unscaled-i))