From: Christophe R. <cr...@us...> - 2003-08-06 14:21:41
|
Update of /cvsroot/sbcl/sbcl/src/compiler/hppa In directory sc8-pr-cvs1:/tmp/cvs-serv29561/src/compiler/hppa Modified Files: array.lisp Log Message: 0.8.2.18: Oops (II): Fix alpha, hppa and mips ports broken by new array types ... simple-array-UNsigned-byte-29, ah yes. Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/hppa/array.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- array.lisp 5 Aug 2003 14:11:39 -0000 1.3 +++ array.lisp 6 Aug 2003 14:21:38 -0000 1.4 @@ -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)) |