Changeset 16463


Ignore:
Timestamp:
Jul 13, 2015, 5:42:43 AM (4 years ago)
Author:
gb
Message:

use :spill and :reload attrbutes instead of :late and :csp.

File:
1 edited

Legend:

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

    r16458 r16463  
    11281128                                                            (b :u32const)))
    11291129  ((:pred spilled-lreg-p dest)
    1130     (movq (:%q (:apply x8664-incoming-register-arg-number i b)) (:@ (:apply x8664-target-spill-offset dest)  (:%q x8664::rbp))))
     1130    (movq (:%q (:apply x8664-incoming-register-arg-number i b)) (:@ (:apply x8664-target-spill-set dest)  (:%q x8664::rbp))))
    11311131   
    11321132 
    11331133  )
    11341134
    1135 (define-x8664-vinsn (spill ) (()
     1135(define-x8664-vinsn (spill :spill) (()
    11361136                           ((src :lisp)
    11371137                            (slot :stack-offset)))
    11381138  (movq (:%q src) (:@ (:apply - (:apply ash (:apply 1+ slot) 3)) (:%q x8664::rbp))))
    11391139
    1140 (define-x8664-vinsn (spill-natural :late :nfp :set) (()
     1140(define-x8664-vinsn (spill-natural  :spill :nfp :set) (()
    11411141                                                        ((val :u64)
    11421142                                                         (offset :u16const)
     
    11481148
    11491149
    1150 (define-x8664-vinsn (spill-single-float :late :nfp :set) (()
     1150(define-x8664-vinsn (spill-single-float  :spill :nfp :set) (()
    11511151                                                        ((val :single-float)
    11521152                                                         (offset :u16const)
     
    11581158
    11591159
    1160 (define-x8664-vinsn (spill-double-float :late :nfp :set) (()
     1160(define-x8664-vinsn (spill-double-float  :spill :nfp :set) (()
    11611161                                            ((val :double-float)
    11621162                                             (offset :u16const)
     
    11681168
    11691169
    1170 (define-x8664-vinsn (spill-complex-single-float :late :nfp :set) (()
     1170(define-x8664-vinsn (spill-complex-single-float :spill :nfp :set) (()
    11711171                                                   ((val :complex-single-float)
    11721172                                                    (offset :u16const)
     
    11751175  (movq (:%xmm val) (:@ (:apply + 16 offset) (:%q x8664::temp5))))
    11761176
    1177 (define-x8664-vinsn (spill-complex-double-float :late :nfp :set) (()
     1177(define-x8664-vinsn (spill-complex-double-float  :spill :nfp :set) (()
    11781178                                                                ((val :complex-double-float)
    11791179                                                                 (offset :u16const)))
     
    11811181  (movdqu (:%xmm val) (:@ (:apply + 16 offset) (:% x8664::temp5))))
    11821182
    1183 (define-x8664-vinsn (reload :late) (((dest :lisp))
     1183(define-x8664-vinsn (reload :reload ) (((dest :lisp))
    11841184                           ((slot :stack-offset)))
    11851185 
     
    22272227  )
    22282228
    2229 (define-x8664-vinsn (discard-c-frame :csp :pop :discard) (()
     2229(define-x8664-vinsn (discard-c-frame :pop :discard) (()
    22302230                                     ()
    22312231                                     ((temp :imm)))
     
    26352635
    26362636
    2637 (define-x8664-vinsn (reload-natural :late :nfp :ref) (((val :u64))
     2637(define-x8664-vinsn (reload-natural  :reload :nfp :ref) (((val :u64))
    26382638                                                       ((offset :u16const)))
    26392639  (movq (:rcontext x8664::tcr.nfp) (:%q x8664::temp5))
     
    26432643
    26442644
    2645 (define-x8664-vinsn (reload-double-float :late :nfp :ref) (((val :double-float))
     2645(define-x8664-vinsn (reload-double-float :reload :nfp :ref) (((val :double-float))
    26462646                                                       ((offset :u16const)))
    26472647  (movq (:rcontext x8664::tcr.nfp) (:%q x8664::temp5))
     
    26542654
    26552655
    2656 (define-x8664-vinsn (reload-single-float :late :nfp :ref) (((val :single-float))
     2656(define-x8664-vinsn (reload-single-float :reload :nfp :ref) (((val :single-float))
    26572657                                           ((offset :u16const)
    26582658                                            ))
     
    26632663
    26642664
    2665 (define-x8664-vinsn (reload-complex-single-float :late :nfp :ref) (((val :complex-single-float))
     2665(define-x8664-vinsn (reload-complex-single-float :reload :nfp :ref) (((val :complex-single-float))
    26662666                                                               ((offset :u16const)
    26672667                                                                (nfp :imm)))
     
    26722672
    26732673
    2674 (define-x8664-vinsn (reload-complex-double-float :late :nfp :ref) (((val :complex-double-float))
     2674(define-x8664-vinsn (reload-complex-double-float  :reload :nfp :ref) (((val :complex-double-float))
    26752675                                                               ((offset :u16const)
    26762676                                                                ))
     
    26782678  (movdqu (:@ (:apply + 16 offset) (:% x8664::temp5)) (:%xmm val)))
    26792679
    2680 (define-x8664-vinsn (temp-push-unboxed-word :push :word :csp)
     2680(define-x8664-vinsn (temp-push-unboxed-word :push :word )
    26812681    (()
    26822682     ((w :u64))
     
    27062706  (movq (:%q w) (:@ x8664::dnode-size (:%q temp))))
    27072707
    2708 (define-x8664-vinsn (temp-push-double-float :push :word :csp)
     2708(define-x8664-vinsn (temp-push-double-float :push :word )
    27092709    (()
    27102710     ((f :double-float))
     
    27312731  (addq (:$b x8664::node-size) (:%q x8664::rsp)))
    27322732
    2733 (define-x8664-vinsn (temp-pop-unboxed-word :pop :word :csp)
     2733(define-x8664-vinsn (temp-pop-unboxed-word :pop :word )
    27342734    (((w :u64))
    27352735     ()
     
    27502750  (movq (:%q temp) (:rcontext x8664::tcr.next-tsp)))
    27512751
    2752 (define-x8664-vinsn (temp-pop-double-float :pop :word :csp)
     2752(define-x8664-vinsn (temp-pop-double-float :pop :word)
    27532753    (((f :double-float))
    27542754     ()
Note: See TracChangeset for help on using the changeset viewer.