[Sbcl-commits] CVS: sbcl/src/compiler/hppa array.lisp,1.3,1.4

[Christophe R. <cr...@us...>]

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))