Changeset 9941


Ignore:
Timestamp:
Jul 10, 2008, 8:52:33 AM (11 years ago)
Author:
gb
Message:

Avoid partial register ops in CLASS-OF.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/X86/x86-utils.lisp

    r9578 r9941  
    324324(defx86lapfunction class-of ((x arg_z))
    325325  (check-nargs 1)
    326   (movw ($ (logior (ash 1 x8664::tag-list)
     326  (movl ($ (logior (ash 1 x8664::tag-list)
    327327                   (ash 1 x8664::tag-imm-1)))
    328         (%w imm1))
     328        (%l imm1))
    329329  (extract-lisptag x imm0)
    330   (btw (% imm0.w) (% imm1.w))
     330  (btl (% imm0.l) (% imm1.l))
    331331  (cmovbl (% arg_z.l) (% imm0.l))
    332332  (movq (@ '*class-table* (% fn)) (% temp1))
Note: See TracChangeset for help on using the changeset viewer.