Changeset 9633


Ignore:
Timestamp:
May 30, 2008, 4:51:09 PM (11 years ago)
Author:
gz
Message:

Restore changes from r9620 lost in subsequent checkin

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-unicode.lisp

    r9631 r9633  
    33353335             (index idx))
    33363336            ((= index end) index)
    3337          (declare (fixnum i len index))
     3337         (declare (fixnum i end index))
    33383338         (let* ((1st-unit (%native-u8-ref-u16 vector index)))
    33393339           (declare (type (unsigned-byte 16) 1st-unit))
     
    33793379             (index idx))
    33803380            ((>= index end) index)
    3381          (declare (fixnum i index p))
     3381         (declare (fixnum i index end))
    33823382         (let* ((1st-unit (%get-unsigned-word pointer index)))
    33833383           (declare (type (unsigned-byte 16) 1st-unit))
     
    34993499           (index idx))
    35003500          ((= index end) index)
    3501        (declare (fixnum i len index))
     3501       (declare (fixnum i end index))
    35023502       (let* ((1st-unit (%reversed-u8-ref-u16 vector index)))
    35033503         (declare (type (unsigned-byte 16) 1st-unit))
     
    35433543           (index idx))
    35443544          ((>= index end) index)
    3545        (declare (fixnum i index p))
     3545       (declare (fixnum i index end))
    35463546       (let* ((1st-unit (%swap-u16 (%get-unsigned-word pointer index))))
    35473547         (declare (type (unsigned-byte 16) 1st-unit))
     
    36793679             (index idx))
    36803680            ((= index end) index)
    3681          (declare (fixnum i len index))
     3681         (declare (fixnum i end index))
    36823682         (let* ((1st-unit (if swap
    36833683                            (%reversed-u8-ref-u16 vector index)
     
    37123712              (highbits (- code #x10000)))
    37133713         (declare (type (mod #x110000) code)
    3714                   (fixnum p highbits))
     3714                  (fixnum highbits))
    37153715         (cond ((< highbits 0)
    37163716                (setf (%get-unsigned-word pointer idx) code)
     
    37253725   utf-16-memory-decode
    37263726   (lambda (pointer noctets idx string)
    3727      (declare (fixnum nunits idx))
     3727     (declare (fixnum noctets idx))
    37283728     (let* ((swap (when (> noctets 1)
    37293729                    (case (%get-unsigned-word pointer idx)
     
    37413741             (index idx ))
    37423742            ((>= index end) index)
    3743          (declare (fixnum i index p))
     3743         (declare (fixnum i index end))
    37443744         (let* ((1st-unit (%get-unsigned-word pointer index)))
    37453745           (declare (type (unsigned-byte 16) 1st-unit))
     
    39193919           (index idx (+ 2 index)))
    39203920          ((>= index end) index)
    3921        (declare (fixnum i len index))
     3921       (declare (fixnum i end index))
    39223922       (setf (schar string i)
    39233923             (or (code-char (%native-u8-ref-u16 vector index))
     
    40074007           (index idx (+ 2 index)))
    40084008          ((>= index end) index)
    4009        (declare (fixnum i len index))
     4009       (declare (fixnum i end index))
    40104010       (setf (schar string i)
    40114011             (or (code-char (%reversed-u8-ref-u16 vector index))
     
    40984098             (index idx (1+ index)))
    40994099            ((>= index end) index)
    4100          (declare (fixnum i len index))
     4100         (declare (fixnum i end index))
    41014101         (let* ((1st-unit (if swap
    41024102                            (%reversed-u8-ref-u16 vector index)
     
    43134313           (index idx (+ 4 index)))
    43144314          ((>= index end) index)
    4315        (declare (fixnum i len index))
     4315       (declare (fixnum i end index))
    43164316       (let* ((code (%native-u8-ref-u32 vector index)))
    43174317         (declare (type (unsigned-byte 32) code))
     
    44104410           (index idx (+ 4 index)))
    44114411          ((>= index end) index)
    4412        (declare (fixnum i len index))
     4412       (declare (fixnum i end index))
    44134413       (let* ((code (%reversed-u8-ref-u32 vector index)))
    44144414         (declare (type (unsigned-byte 32) code))
     
    45104510             (index idx (1+ index)))
    45114511            ((>= index end) index)
    4512          (declare (fixnum i len index))
     4512         (declare (fixnum i end index))
    45134513         (let* ((1st-unit (if swap
    45144514                            (%reversed-u8-ref-u32 vector index)
Note: See TracChangeset for help on using the changeset viewer.