[Openmcl-cvs-notifications] r16359 - /trunk/source/compiler/ARM/arm-vinsns.lisp

gb at clozure.com gb at clozure.com
Mon Mar 30 18:36:13 UTC 2015


Author: gb
Date: Mon Mar 30 18:36:13 2015
New Revision: 16359

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

Modified:
    trunk/source/compiler/ARM/arm-vinsns.lisp

Modified: trunk/source/compiler/ARM/arm-vinsns.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/ARM/arm-vinsns.lisp	(original)
+++ trunk/source/compiler/ARM/arm-vinsns.lisp	Mon Mar 30 18:36:13 2015
@@ -2810,14 +2810,8 @@
 =

 (define-arm-vinsn fixnum->char (((dest :lisp))
                                 ((src :imm))
-                                ((tempa :u32)
-                                 (tempb :u32)))
-  (mov tempb (:$ #xff))
-  (orr tempb tempb (:$ #x7f00))
-  (mov tempa (:lsr src (:$ (+ arm::fixnumshift 1))))
-  (cmp tempa tempb)
+                                ((tempa :u32)))
   (mov tempa (:lsr src (:$ (+ arm::fixnumshift 11))))
-  (beq :bad)
   (cmp tempa (:$ 27))
   (mov dest (:lsl src (:$ (- arm::charcode-shift arm::fixnumshift))))
   :bad



More information about the Openmcl-cvs-notifications mailing list