Changeset 15455


Ignore:
Timestamp:
Sep 1, 2012, 1:25:32 PM (8 years ago)
Author:
wws
Message:

Fix #1012 - add %unbox-s8 vinsin to both x8664-vinsins.lisp and x8632-vinsins.lisp

Location:
trunk/source/compiler/X86
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/X8632/x8632-vinsns.lisp

    r15411 r15455  
    921921  :bad
    922922  (:anchored-uuo (uuo-error-reg-not-type (:%l src) (:$ub arch::error-object-not-signed-byte-8))))
     923
     924(define-x8632-vinsn %unbox-s8 (((dest :s8))
     925                               ((src :lisp)))
     926  (movl (:%l src) (:%l dest))
     927  (sarl (:$ub x8632::fixnumshift) (:%l dest)))
    923928
    924929(define-x8632-vinsn unbox-u16 (((dest :u16))
  • trunk/source/compiler/X86/X8664/x8664-vinsns.lisp

    r15411 r15455  
    10241024  :bad
    10251025  (:anchored-uuo (uuo-error-reg-not-type (:%q src) (:$ub arch::error-object-not-signed-byte-8))))
     1026
     1027(define-x8664-vinsn %unbox-s8 (((dest :s8))
     1028                               ((src :lisp)))
     1029  (movq (:%q src) (:%q dest))
     1030  (sarq (:$ub x8664::fixnumshift) (:%q dest)))
    10261031
    10271032(define-x8664-vinsn unbox-u16 (((dest :u16))
Note: See TracChangeset for help on using the changeset viewer.