Changeset 9584


Ignore:
Timestamp:
May 23, 2008, 4:05:24 AM (11 years ago)
Author:
rme
Message:

unbox-u32: remove apparently extraneous code

%unbox-u32: delete; we never use this on x8632.

File:
1 edited

Legend:

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

    r9572 r9584  
    851851  (sarl (:$ub x8632::fixnumshift) (:%l dest)))
    852852
    853 ;;; xxx -- review this again later
     853;;; An object is of type (UNSIGNED-BYTE 32) iff
     854;;;  a) it's of type (UNSIGNED-BYTE 30) (e.g., an unsigned fixnum)
     855;;;  b) it's a bignum of length 1 and the 0'th digit is positive
     856;;;  c) it's a bignum of length 2 and the sign-digit is 0.
    854857(define-x8632-vinsn unbox-u32 (((dest :u32))
    855858                               ((src :lisp)))
     
    863866  (andl (:$b x8632::tagmask) (:%l dest))
    864867  (cmpl (:$b x8632::tag-misc) (:%l dest))
    865   (jne :have-tag)
    866   (movb (:@ x8632::misc-subtag-offset (:%l src)) (:%b dest))
    867   (andl (:$l #xff) (:%l dest))
    868   :have-tag
    869   (cmpl (:$b x8632::subtag-bignum) (:%l dest))
    870868  (jne :bad)
    871869  (movl (:@ x8632::misc-header-offset (:%l src)) (:%l dest))
     
    885883  (movl (:@ x8632::misc-data-offset (:%l src)) (:%l dest))
    886884  :done)
    887 
    888 (define-x8632-vinsn %unbox-u32 (((dest :u32))
    889                                 ((src :lisp)))
    890   (movl (:%l src) (:%l dest))
    891   (shrl (:$ub x8632::fixnumshift) (:%l dest)))
    892885
    893886;;; xxx -- review this again later
Note: See TracChangeset for help on using the changeset viewer.