From: Christophe Rhodes Date: Wed, 6 Aug 2003 14:21:38 +0000 (+0000) Subject: 0.8.2.18: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=152f37748fe7271b8152ea78b78ad164d6ef7aff;p=sbcl.git 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 --- 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 --- 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 --- 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 --- 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"