Changeset 5099

Timestamp:

Sep 4, 2006, 5:03:38 AM (18 years ago)

Author:

Gary Byers

Message:

New constants in ppc32 typecode range assertion.

File:

• trunk/ccl/level-0/PPC/ppc-array.lisp (modified) (1 diff)

trunk/ccl/level-0/PPC/ppc-array.lisp

@@ -34 +34 @@
                   ppc32::max-8-bit-ivector-subtag
                   ppc32::max-16-bit-ivector-subtag)
-               (eql ppc32::max-32-bit-ivector-subtag ppc32::subtag-new-string)
+               (eql ppc32::max-32-bit-ivector-subtag #+target-8-bit-chars 199
+                    #-target-8-bit-chars ppc32::subtag-simple-base-string)
                (eql ppc32::max-16-bit-ivector-subtag ppc32::subtag-s16-vector)
-               (eql ppc32::max-8-bit-ivector-subtag ppc32::subtag-simple-base-string))))
+               (eql ppc32::max-8-bit-ivector-subtag
+                    #-target-8-bit-chars 223
+                    #+target-8-bit-chars ppc32::subtag-simple-base-string))))
 
 #+ppc32-target