Changeset 10204


Ignore:
Timestamp:
Jul 25, 2008, 5:16:29 AM (11 years ago)
Author:
rme
Message:

New vinsn set-z-flag-if-consp.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/X8664/x8664-vinsns.lisp

    r10180 r10204  
    681681  :bad
    682682  (:anchored-uuo (uuo-error-reg-not-tag (:%q object) (:$ub x8664::fulltag-cons))))
    683                                          
    684                                          
     683
     684(define-x8664-vinsn set-z-flag-if-consp (()
     685                                         ((object :lisp))
     686                                         ((tag :u8)))
     687  (movb (:%b object) (:%b tag))
     688  (andb (:$b x8664::fulltagmask) (:%b tag))
     689  (cmpb (:$b x8664::fulltag-cons) (:%b tag)))
     690
    685691(define-x8664-vinsn trap-unless-uvector (()
    686692                                         ((object :lisp))
Note: See TracChangeset for help on using the changeset viewer.