Re: array type upgrading bug in 0.12.1
Gary Byers <[email protected]> Mon, 22 Jul 2002 23:22:12 -0600 (MDT)
| Newsgroups | gmane.lisp.openmcl.bugs |
|---|---|
| Message-ID | <[email protected]> |
The enclosed patch should fix the first bug. I'm not sure what's causing the second bug. (I thought that it might be some confusion about CHAR-CODE-LIMIT, but I can't make what I thought might fail do so.) On Thu, 18 Jul 2002, John Wiseman wrote: > ? (upgraded-array-element-type '(signed-byte 16)) > (SIGNED-BYTE 8) > > > Also, and it's a little hairy to figure out exactly what code caused it, but > it's in CLX's make-char-info function and it might be related to the above, > I got an error message that seems suspicious: > > "Error: value 600 is not of the expected type (SIGNED-BYTE 16)." > > > John Wiseman > > > _______________________________________________ > bug-openmcl mailing list > [email protected] > http://clozure.com/cgi-bin/mailman/listinfo/bug-openmcl > >
element-type-subtype.diff
(text/plain, 817 B)
Index: level-0/l0-array.lisp =================================================================== RCS file: /usr/local/publiccvs/ccl/level-0/l0-array.lisp,v retrieving revision 1.4 diff -u -r1.4 l0-array.lisp --- level-0/l0-array.lisp 15 May 2002 07:58:38 -0000 1.4 +++ level-0/l0-array.lisp 23 Jul 2002 05:10:38 -0000 @@ -525,7 +525,7 @@ ((and (>= low 0) (<= high 65535)) arch::subtag-u16-vector) ((and (>= low 0) (<= high #xffffffff) arch::subtag-u32-vector)) ((and (>= low -128) (<= high 127)) arch::subtag-s8-vector) - ((and (>= low -32768) (<= high 32767) arch::subtag-s8-vector)) + ((and (>= low -32768) (<= high 32767) arch::subtag-s16-vector)) ((and (>= low (ash -1 31)) (<= high (1- (ash 1 31)))) arch::subtag-s32-vector) (t arch::subtag-simple-vector))))