Changeset 7980


Ignore:
Timestamp:
Jan 1, 2008, 1:48:28 AM (12 years ago)
Author:
gb
Message:

COMPARE-TO-T, COMPARE-CONSTANT-TO-REGISTER.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2-devel/ccl/compiler/X86/X8664/x8664-vinsns.lisp

    r7936 r7980  
    526526  (cmpb (:$b x8664::fulltag-nil) (:%b arg0)))
    527527
     528(define-x8664-vinsn compare-to-t (()
     529                                    ((arg0 t)))
     530  (cmpq (:$l x8664::t-value) (:%q arg0)))
    528531
    529532(define-x8664-vinsn ref-constant (((dest :lisp))
    530533                                  ((lab :label)))
    531534  (movq (:@ (:^ lab) (:%q x8664::fn)) (:%q dest)))
     535
     536(define-x8664-vinsn compare-constant-to-register (()
     537                                                  ((lab :label)
     538                                                   (reg :lisp)))
     539  (cmpq (:@ (:^ lab) (:%q x8664::fn)) (:%q reg)))
     540
    532541
    533542(define-x8664-vinsn (vpush-constant :push :node :vsp) (()
Note: See TracChangeset for help on using the changeset viewer.