From 152f37748fe7271b8152ea78b78ad164d6ef7aff Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 6 Aug 2003 14:21:38 +0000 Subject: [PATCH] 0.8.2.18: Oops (II): Fix alpha, hppa and mips ports broken by new array types ... simple-array-UNsigned-byte-29, ah yes. --- src/compiler/alpha/array.lisp | 2 +- src/compiler/hppa/array.lisp | 2 +- src/compiler/mips/array.lisp | 2 +- version.lisp-expr | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) 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" -- 1.7.10.4