Changeset 16359


Ignore:
Timestamp:
Mar 30, 2015, 6:36:13 PM (5 years ago)
Author:
gb
Message:

FIXNUM->CHAR on ARM:don't return NIL for codes #xfffe or #xffff. See ticket:1278

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm-vinsns.lisp

    r16264 r16359  
    28112811(define-arm-vinsn fixnum->char (((dest :lisp))
    28122812                                ((src :imm))
    2813                                 ((tempa :u32)
    2814                                  (tempb :u32)))
    2815   (mov tempb (:$ #xff))
    2816   (orr tempb tempb (:$ #x7f00))
    2817   (mov tempa (:lsr src (:$ (+ arm::fixnumshift 1))))
    2818   (cmp tempa tempb)
     2813                                ((tempa :u32)))
    28192814  (mov tempa (:lsr src (:$ (+ arm::fixnumshift 11))))
    2820   (beq :bad)
    28212815  (cmp tempa (:$ 27))
    28222816  (mov dest (:lsl src (:$ (- arm::charcode-shift arm::fixnumshift))))
Note: See TracChangeset for help on using the changeset viewer.