Changeset 5257

Timestamp:

Sep 24, 2006, 7:07:24 PM (18 years ago)

Author:

Gary Byers

Message:

Load-character-constant: accept :u32const on PPC32, PPC64, too.

Location:

trunk/ccl/compiler/PPC

Files:

• PPC32/ppc32-vinsns.lisp (modified) (1 diff)
• PPC64/ppc64-vinsns.lisp (modified) (1 diff)

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

@@ -3560 +3560 @@
 
 (define-ppc32-vinsn load-character-constant (((dest :lisp))
-                                             ((code :u8const)))
+                                             ((code :u32const)))
   (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)))

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

@@ -3543 +3543 @@
 
 (define-ppc64-vinsn load-character-constant (((dest :lisp))
-                                             ((code :u8const))
+                                             ((code :u32const))
                                              ())
   (ori dest ppc::rzero (:apply logior (:apply ash (:apply logand #xff code) 8) ppc64::subtag-character))