Changeset 5181

Timestamp:

Sep 8, 2006, 9:33:23 PM (18 years ago)

Author:

Gary Byers

Message:

Don't be overly unsafe in %CHAR-CODE.

File:

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

trunk/ccl/compiler/PPC/ppc2.lisp

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