0.8.2.18:

	Oops (II): Fix alpha, hppa and mips ports broken by new array types
	... simple-array-UNsigned-byte-29, ah yes.

diff --git a/src/compiler/alpha/array.lisp b/src/compiler/alpha/array.lisp
index 09bb4fc..ed451bd 100644 (file)
--- a/src/compiler/alpha/array.lisp
+++ b/src/compiler/alpha/array.lisp
@@ -335,7 +335,7 @@
   (def-partial-data-vector-frobs simple-array-signed-byte-16 tagged-num
     :short t signed-reg)
   
-  (def-full-data-vector-frobs simple-array-signed-byte-29 positive-fixnum any-reg)  
+  (def-full-data-vector-frobs simple-array-unsigned-byte-29 positive-fixnum any-reg)  
   (def-full-data-vector-frobs simple-array-signed-byte-30 tagged-num any-reg)
   
   (def-full-data-vector-frobs simple-array-signed-byte-32 signed-num

diff --git a/src/compiler/hppa/array.lisp b/src/compiler/hppa/array.lisp
index 9c804ef..e553bcc 100644 (file)
--- a/src/compiler/hppa/array.lisp
+++ b/src/compiler/hppa/array.lisp
@@ -127,7 +127,7 @@
   (def-partial-data-vector-frobs simple-array-signed-byte-16 tagged-num
     :short t signed-reg)
   
-  (def-full-data-vector-frobs simple-array-signed-byte-29 positive-fixnum any-reg)
+  (def-full-data-vector-frobs simple-array-unsigned-byte-29 positive-fixnum any-reg)
   (def-full-data-vector-frobs simple-array-signed-byte-30 tagged-num any-reg)
   
   (def-full-data-vector-frobs simple-array-signed-byte-32 signed-num signed-reg))

diff --git a/src/compiler/mips/array.lisp b/src/compiler/mips/array.lisp
index 3d63a26..27bfa19 100644 (file)
--- a/src/compiler/mips/array.lisp
+++ b/src/compiler/mips/array.lisp
@@ -136,7 +136,7 @@
   (def-partial-data-vector-frobs simple-array-signed-byte-16 tagged-num
     :short t signed-reg)
 
-  (def-full-data-vector-frobs simple-array-signed-byte-29 positive-fixnum
+  (def-full-data-vector-frobs simple-array-unsigned-byte-29 positive-fixnum
     any-reg)
   (def-full-data-vector-frobs simple-array-signed-byte-30 tagged-num
     any-reg)

diff --git a/version.lisp-expr b/version.lisp-expr
index b5787e3..962c41d 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.2.17"
+"0.8.2.18"