Changeset 5103

Timestamp:

Sep 4, 2006, 3:15:25 PM (18 years ago)

Author:

Gary Byers

Message:

LOAD-CHARACTER-CONSTANT: and the char code with #xff or 255., not with
#x255. (Cause lots of wackiness, mostly in readtable initialization.)

File:

• trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp

@@ -3406 +3406 @@
 (define-ppc32-vinsn load-character-constant (((dest :lisp))
                                              ((code :u8const)))
-  (ori dest ppc::rzero (:apply logior (:apply ash (:apply logand #x255 code) ppc32::charcode-shift) ppc32::subtag-character))
+  (ori dest ppc::rzero (:apply logior (:apply ash (:apply logand #xff code) ppc32::charcode-shift) ppc32::subtag-character))
   ((:not (:pred = 0 (:apply ldb (byte 16 8) code)))
    (oris dest dest (:apply ldb (byte 16 8) code))))