Changeset 8232


Ignore:
Timestamp:
Jan 21, 2008, 6:59:02 PM (12 years ago)
Author:
rme
Message:

Repair brain damage in extract-typecode-fixnum.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

    r8231 r8232  
    663663                                             ((temp :u32)))
    664664  (movl (:%l object) (:%l temp))
    665   (andw (:$w x8632::tagmask) (:%w temp))
    666   (cmpw (:$w x8632::tag-misc) (:%w temp))
     665  (andl (:$b x8632::tagmask) (:%l temp))
     666  (cmpl (:$b x8632::tag-misc) (:%l temp))
    667667  (jne :have-tag)
    668   (movw (:@ x8632::misc-subtag-offset (:%l object)) (:%w temp))
     668  (movb (:@ x8632::misc-subtag-offset (:%l object)) (:%b temp))
    669669  :have-tag
    670670  (leal (:@ (:%l temp) 4) (:%l tag)))
Note: See TracChangeset for help on using the changeset viewer.