X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Farray.lisp;h=e48b0a05489a2111ab56c8e2af5de91b1cf78917;hb=85c1cf858999279da6f4f470c4f3c582ad9f2dbf;hp=e68fe13fd990c4c48e3eb3e1355058dae4bd3604;hpb=bf2b6cff3719215f964f51667cdf6fcbdf43f8dc;p=sbcl.git

diff --git a/src/compiler/sparc/array.lisp b/src/compiler/sparc/array.lisp
index e68fe13..e48b0a0 100644
--- a/src/compiler/sparc/array.lisp
+++ b/src/compiler/sparc/array.lisp
@@ -128,13 +128,21 @@
   (def-data-vector-frobs simple-vector word-index
     * descriptor-reg any-reg)
 
+  (def-data-vector-frobs simple-array-unsigned-byte-7 byte-index
+    positive-fixnum unsigned-reg)
   (def-data-vector-frobs simple-array-unsigned-byte-8 byte-index
     positive-fixnum unsigned-reg)
+  (def-data-vector-frobs simple-array-unsigned-byte-15 halfword-index
+    positive-fixnum unsigned-reg)
   (def-data-vector-frobs simple-array-unsigned-byte-16 halfword-index
     positive-fixnum unsigned-reg)
+  (def-data-vector-frobs simple-array-unsigned-byte-31 word-index
+    unsigned-num unsigned-reg)
   (def-data-vector-frobs simple-array-unsigned-byte-32 word-index
     unsigned-num unsigned-reg)
 
+  (def-data-vector-frobs simple-array-unsigned-byte-29 word-index
+    positive-fixnum any-reg)
   (def-data-vector-frobs simple-array-signed-byte-30 word-index
     tagged-num any-reg)
   (def-data-vector-frobs simple-array-signed-byte-32 word-index