Changeset 9495


Ignore:
Timestamp:
May 15, 2008, 11:20:20 PM (11 years ago)
Author:
gb
Message:

VALID-CODE-CHAR skips some of the overhead in CODE-CHAR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/compiler/X86/x862.lisp

    r9413 r9495  
    63666366    (^)))
    63676367
     6368(defx862 x862-%valid-code-char %valid-code-char (seg vreg xfer c)
     6369  (let* ((reg (x862-one-untargeted-reg-form seg c x8664::arg_z)))
     6370    ;; Typecheck even if result unused.
     6371    (unless *x862-reckless* (! require-char-code reg))
     6372    (if vreg
     6373      (ensuring-node-target (target vreg)
     6374        (! code-char->char target reg)))
     6375    (^)))
     6376
    63686377(defx862 x862-eq eq (seg vreg xfer cc form1 form2)
    63696378  (multiple-value-bind (cr-bit true-p) (acode-condition-to-x86-cr-bit cc)
Note: See TracChangeset for help on using the changeset viewer.