Changeset 5102

Timestamp:

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

Author:

Gary Byers

Message:

Use u32->char (which is defined) vice u8->char (which is no more) in
%CHAR-CODE.

File:

• trunk/ccl/compiler/PPC/ppc2.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/ppc2.lisp

@@ -5737 +5737 @@
       (ensuring-node-target (target vreg)
         (with-imm-target () (dest :u8)
-          (! u8->char target (let* ((*ppc2-reckless* t))
+          (! u32->char target (let* ((*ppc2-reckless* t))
                                (ppc2-one-untargeted-reg-form seg c dest)))))
       (^))))