Re: Re: array type upgrading bug in 0.12.1

On Thu, 18 Jul 2002, John Wiseman wrote:

> 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)."
>
> The following patch fixed both problems.
>

Sorry I replied to your earlier message before I saw this (and glad
that it fixed both bugs.)

>
> John Wiseman
>
>
> --- l0-array.lisp       Wed May 15 00:58:38 2002
> +++ l0-array-patched.lisp       Thu Jul 18 23:52:42 2002
> @@ -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))))
>
>
> _______________________________________________
> bug-openmcl mailing list
> [email protected]
> http://clozure.com/cgi-bin/mailman/listinfo/bug-openmcl
>
>