Changeset 6391


Ignore:
Timestamp:
May 1, 2007, 11:31:38 AM (15 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-unicode.lisp

    r6198 r6391  
    27002700                       (locally
    27012701                           (declare (type (unsigned-byte 8) s2))
    2702                          (if (< s2 #xf0)
     2702                         (if (< 1st-unit #xf0)
    27032703                           (if (and (< (the fixnum (logxor s1 #x80)) #x40)
    27042704                                    (< (the fixnum (logxor s2 #x80)) #x40)
     
    32763276             (return (values nchars i))
    32773277             (setq i nexti nchars (1+ nchars)))))))
    3278     :literal-char-code-limit #x10000
     3278    :literal-char-code-limit #xd800    ; use separate encode/decode limits
    32793279    :nul-encoding #(0 0)
    32803280    )
     
    34393439           (return (values nchars i))
    34403440           (setq i nexti nchars (1+ nchars)))))))
    3441   :literal-char-code-limit #x10000
     3441  :literal-char-code-limit #xd800
    34423442  :nul-encoding #(0 0)
    34433443  )
     
    36503650                   2
    36513651                   4)))))))
    3652   :literal-char-code-limit #x10000
     3652  :literal-char-code-limit #xd800
    36533653  :use-byte-order-mark
    36543654  #+big-endian-target :utf-16le
Note: See TracChangeset for help on using the changeset viewer.