Changeset 5104

Timestamp:

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

Author:

Gary Byers

Message:

LOAD-CHARACTER-CONSTANT: and the char code with #xff to get the low byte.

File:

• trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp

@@ -3433 +3433 @@
                                              ((code :u8const))
                                              ())
-  (ori dest ppc::rzero (:apply logior (:apply ash code 8) ppc64::subtag-character))
+  (ori dest ppc::rzero (:apply logior (:apply ash (:apply logand #xff code) 8) ppc64::subtag-character))
   ((:not (:pred = 0 (:apply ldb (byte 16 8) code)))
    (oris dest dest (:apply ldb (byte 16 8) code))))