Changeset 6391

Timestamp:

May 1, 2007, 4:31:38 AM (18 years ago)

Author:

Gary Byers

Message:

Set literal-code-limit to #xd800 for utf-16 variants.

Fix the typo (found by Takekiko Abe) in the utf-8 stream-decode function.

File:

• trunk/ccl/level-1/l1-unicode.lisp (modified) (4 diffs)

trunk/ccl/level-1/l1-unicode.lisp

@@ -2700 +2700 @@
                        (locally
                            (declare (type (unsigned-byte 8) s2))
-                         (if (< s2 #xf0)
+                         (if (< 1st-unit #xf0)
                            (if (and (< (the fixnum (logxor s1 #x80)) #x40)
                                     (< (the fixnum (logxor s2 #x80)) #x40)
@@ -3276 +3276 @@
              (return (values nchars i))
              (setq i nexti nchars (1+ nchars)))))))
-    :literal-char-code-limit #x10000
+    :literal-char-code-limit #xd800    ; use separate encode/decode limits
     :nul-encoding #(0 0)
     )
@@ -3439 +3439 @@
            (return (values nchars i))
            (setq i nexti nchars (1+ nchars)))))))
-  :literal-char-code-limit #x10000
+  :literal-char-code-limit #xd800
   :nul-encoding #(0 0)
   )
@@ -3650 +3650 @@
                    2
                    4)))))))
-  :literal-char-code-limit #x10000
+  :literal-char-code-limit #xd800
   :use-byte-order-mark
   #+big-endian-target :utf-16le