Ignore:
Timestamp:
Jul 2, 2008, 12:48:36 AM (11 years ago)
Author:
gz
Message:

Propagate r9620 to trunk from working-0711

File:
1 edited

Legend:

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

    r9593 r9879  
    33323332             (index idx))
    33333333            ((= index end) index)
    3334          (declare (fixnum i len index))
     3334         (declare (fixnum i end index))
    33353335         (let* ((1st-unit (%native-u8-ref-u16 vector index)))
    33363336           (declare (type (unsigned-byte 16) 1st-unit))
     
    33763376             (index idx))
    33773377            ((>= index end) index)
    3378          (declare (fixnum i index p))
     3378         (declare (fixnum i index end))
    33793379         (let* ((1st-unit (%get-unsigned-word pointer index)))
    33803380           (declare (type (unsigned-byte 16) 1st-unit))
     
    34963496           (index idx))
    34973497          ((= index end) index)
    3498        (declare (fixnum i len index))
     3498       (declare (fixnum i end index))
    34993499       (let* ((1st-unit (%reversed-u8-ref-u16 vector index)))
    35003500         (declare (type (unsigned-byte 16) 1st-unit))
     
    35403540           (index idx))
    35413541          ((>= index end) index)
    3542        (declare (fixnum i index p))
     3542       (declare (fixnum i index end))
    35433543       (let* ((1st-unit (%swap-u16 (%get-unsigned-word pointer index))))
    35443544         (declare (type (unsigned-byte 16) 1st-unit))
     
    36733673             (index idx))
    36743674            ((= index end) index)
    3675          (declare (fixnum i len index))
     3675         (declare (fixnum i end index))
    36763676         (let* ((1st-unit (if swap
    36773677                            (%reversed-u8-ref-u16 vector index)
     
    37033703              (highbits (- code #x10000)))
    37043704         (declare (type (mod #x110000) code)
    3705                   (fixnum p highbits))
     3705                  (fixnum highbits))
    37063706         (cond ((< highbits 0)
    37073707                (setf (%get-unsigned-word pointer idx) #+big-endian-target code #+little-endian-target (%swap-u16 code))
     
    37213721   utf-16-memory-decode
    37223722   (lambda (pointer noctets idx string)
    3723      (declare (fixnum nunits idx))
     3723     (declare (fixnum noctets idx))
    37243724     (let* ((swap (when (> noctets 1)
    37253725                    (case (%get-unsigned-word pointer idx)
     
    37373737             (index idx ))
    37383738            ((>= index end) index)
    3739          (declare (fixnum i index p))
     3739         (declare (fixnum i index end))
    37403740         (let* ((1st-unit (%get-unsigned-word pointer index)))
    37413741           (declare (type (unsigned-byte 16) 1st-unit))
     
    38953895           (index idx (+ 2 index)))
    38963896          ((>= index end) index)
    3897        (declare (fixnum i len index))
     3897       (declare (fixnum i end index))
    38983898       (setf (schar string i)
    38993899             (or (code-char (%native-u8-ref-u16 vector index))
     
    39943994           (index idx (+ 2 index)))
    39953995          ((>= index end) index)
    3996        (declare (fixnum i len index))
     3996       (declare (fixnum i end index))
    39973997       (setf (schar string i)
    39983998             (or (code-char (%reversed-u8-ref-u16 vector index))
     
    40944094             (index idx (1+ index)))
    40954095            ((>= index end) index)
    4096          (declare (fixnum i len index))
     4096         (declare (fixnum i end index))
    40974097         (let* ((1st-unit (if swap
    40984098                            (%reversed-u8-ref-u16 vector index)
     
    42994299           (index idx (+ 4 index)))
    43004300          ((>= index end) index)
    4301        (declare (fixnum i len index))
     4301       (declare (fixnum i end index))
    43024302       (let* ((code (%native-u8-ref-u32 vector index)))
    43034303         (declare (type (unsigned-byte 32) code))
     
    43964396           (index idx (+ 4 index)))
    43974397          ((>= index end) index)
    4398        (declare (fixnum i len index))
     4398       (declare (fixnum i end index))
    43994399       (let* ((code (%reversed-u8-ref-u32 vector index)))
    44004400         (declare (type (unsigned-byte 32) code))
     
    44944494             (index idx (1+ index)))
    44954495            ((>= index end) index)
    4496          (declare (fixnum i len index))
     4496         (declare (fixnum i end index))
    44974497         (let* ((1st-unit (if swap
    44984498                            (%reversed-u8-ref-u32 vector index)
Note: See TracChangeset for help on using the changeset viewer.