Changeset 5178

Timestamp:

Sep 8, 2006, 5:55:07 PM (18 years ago)

Author:

Gary Byers

Message:

Don't be so reckless in %CODE-CHAR (don't necessarily want arbitrary expressions
to be compiled unsafely; do want to avoid a little type-checking sometimes.)

File:

• trunk/ccl/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/x862.lisp

@@ -5838 +5838 @@
       (ensuring-node-target (target vreg)
         (with-imm-target () (dest :u8)
-          (! u32->char target (let* ((*x862-reckless* t))
-                               (x862-one-untargeted-reg-form seg c dest)))))
+          (! u32->char target (x862-one-untargeted-reg-form seg c dest))))
       (^))))
 
@@ -5889 +5888 @@
   (let* ((reg (x862-one-untargeted-reg-form seg c x8664::arg_z)))
     ;; Typecheck even if result unused.
-    (case (arch::target-char-code-limit (backend-target-arch *target-backend*))
-      (256 (! require-u8 reg))
-      (t (! require-char-code reg)))
+    (! require-char-code reg)
     (if vreg
       (ensuring-node-target (target vreg)