Changeset 16084


Ignore:
Timestamp:
May 27, 2014, 6:46:15 AM (7 years ago)
Author:
gb
Message:

ungarble use of :rcontext in nfp vinsns.

File:
1 edited

Legend:

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

    r16082 r16084  
    23152315                              ((temp :imm)))
    23162316  ((:pred > (:apply x862-max-nfp-depth) 0)
    2317    (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp))
     2317   (movq (:rcontext x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp))
    23182318   (:if (:pred < (:apply + 16 (:apply x862-max-nfp-depth)) 128)
    2319      (subq (:$b (:apply + 16 (:apply x862-max-nfp-depth))) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp))
    2320      (subq (:$l (:apply + 16 (:apply x862-max-nfp-depth))) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp)))
    2321    (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q temp))
     2319     (subq (:$b (:apply + 16 (:apply x862-max-nfp-depth))) (:rcontext x8664::tcr.foreign-sp))
     2320     (subq (:$l (:apply + 16 (:apply x862-max-nfp-depth))) (:rcontext x8664::tcr.foreign-sp)))
     2321   (movq (:rcontext x8664::tcr.foreign-sp) (:%q temp))
    23222322   (movq (:%mmx x8664::stack-temp) (:@ (:%q temp)))
    2323    (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%mmx x8664::stack-temp))
     2323   (movq (:rcontext x8664::tcr.nfp) (:%mmx x8664::stack-temp))
    23242324   (movq (:%mmx x8664::stack-temp) (:@ 8 (:%q temp)))
    2325    (movq (:% temp) (:@ (:%seg :rcontext) x8664::tcr.nfp))))
     2325   (movq (:% temp) (:rcontext x8664::tcr.nfp))))
    23262326
    23272327
     
    23302330                                 ((temp :imm)))
    23312331  ((:pred > (:apply x862-max-nfp-depth) 0)
    2332    (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%q temp))
     2332   (movq (:rcontext x8664::tcr.nfp) (:%q temp))
    23332333   (movq (:@ 8 (:%q temp)) (:%mmx x8664::stack-temp))
    23342334   (movq (:@ (:%q temp)) (:%q temp))
    2335    (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp))
    2336    (movq (:%mmx x8664::stack-temp)(:@ (:%seg :rcontext) x8664::tcr.nfp))))
     2335   (movq (:%q temp) (:rcontext x8664::tcr.foreign-sp))
     2336   (movq (:%mmx x8664::stack-temp)(:rcontext x8664::tcr.nfp))))
    23372337
    23382338(define-x8664-vinsn (nfp-store-unboxed-word :nfp :set) (()
     
    23402340                                                         (offset :u16const))
    23412341                                                        ((nfp :imm)))
    2342   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%q nfp))
     2342  (movq (:rcontext x8664::tcr.nfp) (:%q nfp))
    23432343  (movq (:%q val) (:@ (:apply + 16 offset) (:% nfp))))
    23442344
     
    23462346(define-x8664-vinsn (nfp-load-unboxed-word :nfp :ref) (((val :u64))
    23472347                                           ((offset :u16const)))
    2348   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%q val))
     2348  (movq (:rcontext x8664::tcr.nfp) (:%q val))
    23492349  (movq (:@ (:apply + 16 offset) (:% val)) (:%q val)))
    23502350
     
    23532353                                             (offset :u16const))
    23542354                                            ((nfp :imm)))
    2355   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%q nfp))
     2355  (movq (:rcontext x8664::tcr.nfp) (:%q nfp))
    23562356  (movss (:%xmm val) (:@ (:apply + 16 offset) (:% nfp))))
    23572357
     
    23602360                                             (offset :u16const))
    23612361                                            ((nfp :imm)))
    2362   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%q nfp))
     2362  (movq (:rcontext x8664::tcr.nfp) (:%q nfp))
    23632363  (movsd (:%xmm val) (:@ (:apply + 16 offset) (:% nfp))))
    23642364
     
    23672367                                           ((offset :u16const))
    23682368                                           ((nfp :imm)))
    2369   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%q nfp))
     2369  (movq (:rcontext x8664::tcr.nfp) (:%q nfp))
    23702370  (movsd (:@ (:apply + 16 offset) (:% val)) (:%xmm val)))
    23712371
     
    23742374                                           ((offset :u16const))
    23752375                                           ((nfp :imm)))
    2376   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%q nfp))
     2376  (movq (:rcontext x8664::tcr.nfp) (:%q nfp))
    23772377  (movss (:@ (:apply + 16 offset) (:% val)) (:%xmm val)))
    23782378
     
    23812381                                                    (offset :u16const))
    23822382                                                   ((nfp :imm)))
    2383   (movl (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%l nfp))
     2383  (movl (:rcontext x8664::tcr.nfp) (:%l nfp))
    23842384  (movq (:%xmm val) (:@ (:apply + 8 offset) (:%l nfp))))
    23852385
     
    23872387                                                   ((offset :u16const))
    23882388                                                   ((nfp :imm)))
    2389   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:%q nfp))
     2389  (movq (:rcontext x8664::tcr.nfp) (:%q nfp))
    23902390  (movq (:@ (:apply + 8 offset) (:% nfp)) (:%xmm val)))
    23912391
     
    23952395                                                    (offset :u16const))
    23962396                                                   ((nfp :imm)))
    2397   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:% nfp))
     2397  (movq (:rcontext x8664::tcr.nfp) (:% nfp))
    23982398  (movdqu (:%xmm val) (:@ (:apply + 16 offset) (:% nfp))))
    23992399
     
    24012401                                                   ((offset :u16const))
    24022402                                                   ((nfp :imm)))
    2403   (movq (:@ (:%seg :rcontext) x8664::tcr.nfp) (:% nfp))
     2403  (movq (:rcontext x8664::tcr.nfp) (:% nfp))
    24042404  (movdqu (:@ (:apply + 16 offset) (:% nfp)) (:%xmm val)))
    24052405
Note: See TracChangeset for help on using the changeset viewer.