Changeset 8645


Ignore:
Timestamp:
Mar 3, 2008, 8:13:59 AM (12 years ago)
Author:
gb
Message:

Use (:rcontext disp) pseudo-operand, instead of explicit
(:@ (:%seg :rcontext) disp). This may be hard to bootstrap;
one way to bootstrap recent changes (r8642-r8645) is:

? (ccl::xcompile-ccl)  ; compile, but don't load new fasls
? (rebuild-ccl)        ; build new image
File:
1 edited

Legend:

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

    r8553 r8645  
    944944                          ((car :lisp)
    945945                           (cdr :lisp)))
    946   (subq (:$b (- x8664::cons.size x8664::fulltag-cons)) (:@ (:%seg :rcontext) x8664::tcr.save-allocptr))
    947   (movq (:@ (:%seg :rcontext) x8664::tcr.save-allocptr) (:%q x8664::allocptr))
    948   (rcmpq (:%q x8664::allocptr) (:@ (:%seg :rcontext) x8664::tcr.save-allocbase))
     946  (subq (:$b (- x8664::cons.size x8664::fulltag-cons)) (:rcontext x8664::tcr.save-allocptr))
     947  (movq (:rcontext x8664::tcr.save-allocptr) (:%q x8664::allocptr))
     948  (rcmpq (:%q x8664::allocptr) (:rcontext x8664::tcr.save-allocbase))
    949949  (:byte #x7f) (:byte #x02) ;(jg :no-trap)
    950950  (uuo-alloc)
    951951  :no-trap
    952   (andb (:$b (lognot x8664::fulltagmask)) (:@ (:%seg :rcontext) x8664::tcr.save-allocptr))
     952  (andb (:$b (lognot x8664::fulltagmask)) (:rcontext x8664::tcr.save-allocptr))
    953953  (movq (:%q car) (:@ x8664::cons.car (:%q x8664::allocptr)))
    954954  (movq (:%q cdr) (:@ x8664::cons.cdr (:%q x8664::allocptr)))
     
    12921292                                       ((header (:u64 #.x8664::imm0))
    12931293                                        (freeptr (:lisp #.x8664::allocptr))))
    1294   (subq (:%q x8664::imm1) (:@ (:%seg :rcontext) x8664::tcr.save-allocptr))
    1295   (movq (:@ (:%seg :rcontext) x8664::tcr.save-allocptr) (:%q freeptr))
    1296   (rcmpq (:%q freeptr) (:@ (:%seg :rcontext) x8664::tcr.save-allocbase))
     1294  (subq (:%q x8664::imm1) (:rcontext x8664::tcr.save-allocptr))
     1295  (movq (:rcontext x8664::tcr.save-allocptr) (:%q freeptr))
     1296  (rcmpq (:%q freeptr) (:rcontext x8664::tcr.save-allocbase))
    12971297  (:byte #x7f) (:byte #x02) ;(jg :no-trap)
    12981298  (uuo-alloc)
    12991299  :no-trap
    13001300  (movq (:%q header) (:@ x8664::misc-header-offset (:%q freeptr)))
    1301   (andb (:$b (lognot x8664::fulltagmask)) (:@ (:%seg :rcontext) x8664::tcr.save-allocptr))
     1301  (andb (:$b (lognot x8664::fulltagmask)) (:rcontext x8664::tcr.save-allocptr))
    13021302  ((:not (:pred = freeptr
    13031303                (:apply %hard-regspec-value dest)))
     
    17931793                                   ((car :lisp) (cdr :lisp))
    17941794                                   ((temp :imm)))
    1795   (subq (:$b (+ x8664::cons.size x8664::dnode-size)) (:@ (:%seg :rcontext) x8664::tcr.next-tsp))
    1796   (movq (:@ (:%seg :rcontext) x8664::tcr.next-tsp) (:%q temp))
     1795  (subq (:$b (+ x8664::cons.size x8664::dnode-size)) (:rcontext x8664::tcr.next-tsp))
     1796  (movq (:rcontext x8664::tcr.next-tsp) (:%q temp))
    17971797  (movapd (:%xmm x8664::fpzero) (:@ (:%q temp)))
    17981798  (movapd (:%xmm x8664::fpzero) (:@ 16 (:%q temp)))
    1799   (movq (:@ (:%seg :rcontext) x8664::tcr.save-tsp) (:%mmx x8664::stack-temp))
     1799  (movq (:rcontext x8664::tcr.save-tsp) (:%mmx x8664::stack-temp))
    18001800  (movq (:%mmx x8664::stack-temp) (:@ (:%q temp)))
    18011801  (movq (:% x8664::rbp) (:@ x8664::tsp-frame.rbp (:%q temp)))
    1802   (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.save-tsp))
     1802  (movq (:%q temp) (:rcontext x8664::tcr.save-tsp))
    18031803  (leaq (:@ (+ x8664::dnode-size x8664::fulltag-cons) (:%q temp)) (:%q temp))
    18041804  (movq (:%q car) (:@ x8664::cons.car (:%q temp)))
     
    18141814         (:pred <= (:apply + aligned-size x8664::dnode-size) 127))
    18151815   (subq (:$b (:apply + aligned-size x8664::dnode-size))
    1816          (:@ (:%seg :rcontext) x8664::tcr.next-tsp)))
     1816         (:rcontext x8664::tcr.next-tsp)))
    18171817  ((:not (:and (:pred >= (:apply + aligned-size x8664::dnode-size) -128)
    18181818               (:pred <= (:apply + aligned-size x8664::dnode-size) 127)))
    18191819   (subq (:$l (:apply + aligned-size x8664::dnode-size))
    1820          (:@ (:%seg :rcontext) x8664::tcr.next-tsp)))
    1821   (movq (:@ (:%seg :rcontext) x8664::tcr.save-tsp) (:%q tempb))
    1822   (movq (:@ (:%seg :rcontext) x8664::tcr.next-tsp) (:%q tempa))
     1820         (:rcontext x8664::tcr.next-tsp)))
     1821  (movq (:rcontext x8664::tcr.save-tsp) (:%q tempb))
     1822  (movq (:rcontext x8664::tcr.next-tsp) (:%q tempa))
    18231823  (movd (:%q tempb) (:%mmx x8664::stack-temp))
    18241824  :loop
     
    18291829  (movq (:%mmx x8664::stack-temp) (:@ (:%q tempa)))
    18301830  (movq (:% x8664::rbp) (:@ x8664::tsp-frame.rbp (:%q tempa)))
    1831   (movq (:%q tempa) (:@ (:%seg :rcontext) x8664::tcr.save-tsp))
     1831  (movq (:%q tempa) (:rcontext x8664::tcr.save-tsp))
    18321832  (movl (:$l header) (:@ x8664::dnode-size (:%q tempa)))
    18331833  (leaq (:@ (+ x8664::dnode-size x8664::fulltag-misc) (:%q tempa)) (:%q dest)))
     
    18371837                                        ()
    18381838                                        ((temp :imm)))
    1839   (movq (:@ (:%seg :rcontext) x8664::tcr.save-tsp) (:%q temp))
     1839  (movq (:rcontext x8664::tcr.save-tsp) (:%q temp))
    18401840  (movq (:@ (:%q temp)) (:%q temp))
    1841   (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.save-tsp))
    1842   (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.next-tsp))
     1841  (movq (:%q temp) (:rcontext x8664::tcr.save-tsp))
     1842  (movq (:%q temp) (:rcontext x8664::tcr.next-tsp))
    18431843  )
    18441844
     
    18461846                                     ()
    18471847                                     ((temp :imm)))
    1848   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q temp))
     1848  (movq (:rcontext x8664::tcr.foreign-sp) (:%q temp))
    18491849  (movq (:@ (:%q temp)) (:%q temp))
    1850   (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp)))
     1850  (movq (:%q temp) (:rcontext x8664::tcr.foreign-sp)))
    18511851
    18521852 
     
    18951895                                                   ()
    18961896                                                   ((temp :imm)))
    1897   (movq (:@ (:%seg :rcontext) x8664::tcr.tlb-pointer) (:%q temp))
     1897  (movq (:rcontext x8664::tcr.tlb-pointer) (:%q temp))
    18981898  (cmpq (:$b 0) (:@ x8664::interrupt-level-binding-index (:%q temp)))
    18991899  (pushq (:@ x8664::interrupt-level-binding-index (:%q temp)))
    19001900  (pushq (:$b x8664::interrupt-level-binding-index))
    1901   (pushq (:@ (:%seg :rcontext) x8664::tcr.db-link))
     1901  (pushq (:rcontext x8664::tcr.db-link))
    19021902  (movq (:$l 0) (:@ x8664::interrupt-level-binding-index (:%q temp)))
    1903   (movq (:%q x8664::rsp) (:@ (:%seg :rcontext) x8664::tcr.db-link))
     1903  (movq (:%q x8664::rsp) (:rcontext x8664::tcr.db-link))
    19041904  (jns.pt :done)
    1905   (btrq (:$ub 63) (:@ (:%seg :rcontext) x8664::tcr.interrupt-pending))
     1905  (btrq (:$ub 63) (:rcontext x8664::tcr.interrupt-pending))
    19061906  (jae.pt :done)
    19071907  (ud2a)
     
    19161916                                                   ()
    19171917                                                   ((temp :imm)))
    1918   (movq (:@ (:%seg :rcontext) x8664::tcr.tlb-pointer) (:%q temp))
     1918  (movq (:rcontext x8664::tcr.tlb-pointer) (:%q temp))
    19191919  (pushq (:@ x8664::interrupt-level-binding-index (:%q temp)))
    19201920  (pushq (:$b x8664::interrupt-level-binding-index))
    1921   (pushq (:@ (:%seg :rcontext) x8664::tcr.db-link))
     1921  (pushq (:rcontext x8664::tcr.db-link))
    19221922  (movq (:$l (ash -1 x8664::fixnumshift)) (:@ x8664::interrupt-level-binding-index (:%q temp)))
    1923   (movq (:%q x8664::rsp) (:@ (:%seg :rcontext) x8664::tcr.db-link)))
     1923  (movq (:%q x8664::rsp) (:rcontext x8664::tcr.db-link)))
    19241924
    19251925(define-x8664-subprim-lea-jmp-vinsn (bind-interrupt-level) .SPbind-interrupt-level)
     
    19331933                                                    (oldval :imm)
    19341934                                                    (tlb :imm)))
    1935   (movq (:@ (:%seg :rcontext) x8664::tcr.tlb-pointer) (:%q tlb))
    1936   (movq (:@ (:%seg :rcontext) x8664::tcr.db-link) (:%q link))
     1935  (movq (:rcontext x8664::tcr.tlb-pointer) (:%q tlb))
     1936  (movq (:rcontext x8664::tcr.db-link) (:%q link))
    19371937  (movq (:@ x8664::interrupt-level-binding-index (:%q tlb)) (:%q curval))
    19381938  (testq (:%q curval) (:%q curval))
     
    19401940  (movq (:@ #|binding.link|# (:%q link)) (:%q link))
    19411941  (movq (:%q oldval) (:@ x8664::interrupt-level-binding-index (:%q tlb)))
    1942   (movq (:%q link) (:@ (:%seg :rcontext) x8664::tcr.db-link))
     1942  (movq (:%q link) (:rcontext x8664::tcr.db-link))
    19431943  (jns.pt :done)
    19441944  (testq (:%q oldval) (:%q oldval))
    19451945  (js.pt :done)
    1946   (btrq (:$ub 63) (:@ (:%seg :rcontext) x8664::tcr.interrupt-pending))
     1946  (btrq (:$ub 63) (:rcontext x8664::tcr.interrupt-pending))
    19471947  (jae.pt :done)
    19481948  (ud2a)
     
    20712071  :resume
    20722072  (movq (:@ x8664::symbol.binding-index (:%q src)) (:%q idx))
    2073   (rcmpq (:%q idx) (:@ (:%seg :rcontext) x8664::tcr.tlb-limit))
    2074   (movq (:@ (:%seg :rcontext) x8664::tcr.tlb-pointer) (:%q table))
     2073  (rcmpq (:%q idx) (:rcontext x8664::tcr.tlb-limit))
     2074  (movq (:rcontext x8664::tcr.tlb-pointer) (:%q table))
    20752075  (jae :symbol)
    20762076  (movq (:@ (:%q table) (:%q idx)) (:%q dest))
     
    21012101                                               (idx :imm)))
    21022102  (movq (:@ x8664::symbol.binding-index (:%q src)) (:%q idx))
    2103   (rcmpq (:%q idx) (:@ (:%seg :rcontext) x8664::tcr.tlb-limit))
    2104   (movq (:@ (:%seg :rcontext) x8664::tcr.tlb-pointer) (:%q table))
     2103  (rcmpq (:%q idx) (:rcontext x8664::tcr.tlb-limit))
     2104  (movq (:rcontext x8664::tcr.tlb-pointer) (:%q table))
    21052105  (jae :symbol)
    21062106  (movq (:@ (:%q table) (:%q idx)) (:%q dest))
     
    21142114                                         ()
    21152115                                         ((temp :u64)))
    2116   (movq (:@ (:%seg :rcontext) x8664::tcr.tlb-pointer) (:%q temp))
     2116  (movq (:rcontext x8664::tcr.tlb-pointer) (:%q temp))
    21172117  (movq (:@ x8664::INTERRUPT-LEVEL-BINDING-INDEX (:%q temp)) (:%q dest)))
    21182118
     
    21782178    (()
    21792179     ((w :u64)))
    2180   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp)) 
    2181   (subq (:$b (* 2 x8664::dnode-size)) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp))
    2182   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     2180  (movq (:rcontext x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp)) 
     2181  (subq (:$b (* 2 x8664::dnode-size)) (:rcontext x8664::tcr.foreign-sp))
     2182  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    21832183  (movq (:%mmx x8664::stack-temp) (:@ (:%q x8664::ra0)))
    21842184  (movq (:% x8664::rbp) (:@ x8664::csp-frame.rbp (:%q x8664::ra0)))
     
    21902190         ((w :lisp))
    21912191         ((temp :imm)))
    2192   (subq (:$b (* 2 x8664::dnode-size)) (:@ (:%seg :rcontext) x8664::tcr.next-tsp))
    2193   (movq (:@ (:%seg :rcontext) x8664::tcr.save-tsp) (:%mmx x8664::stack-temp))
    2194   (movq (:@ (:%seg :rcontext) x8664::tcr.next-tsp) (:%q temp))
     2192  (subq (:$b (* 2 x8664::dnode-size)) (:rcontext x8664::tcr.next-tsp))
     2193  (movq (:rcontext x8664::tcr.save-tsp) (:%mmx x8664::stack-temp))
     2194  (movq (:rcontext x8664::tcr.next-tsp) (:%q temp))
    21952195  (movapd (:%xmm x8664::fpzero) (:@ (:%q temp)))
    21962196  (movapd (:%xmm x8664::fpzero) (:@ 16 (:%q temp)))
    21972197  (movq (:%mmx x8664::stack-temp) (:@ (:%q temp)))
    21982198  (movq (:% x8664::rbp) (:@ x8664::tsp-frame.rbp (:%q temp))) 
    2199   (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.save-tsp))
     2199  (movq (:%q temp) (:rcontext x8664::tcr.save-tsp))
    22002200  (movq (:%q w) (:@ x8664::dnode-size (:%q temp))))
    22012201
     
    22032203    (()
    22042204     ((f :double-float)))
    2205   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp)) 
    2206   (subq (:$b (* 2 x8664::dnode-size)) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp))
    2207   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0)) 
     2205  (movq (:rcontext x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp)) 
     2206  (subq (:$b (* 2 x8664::dnode-size)) (:rcontext x8664::tcr.foreign-sp))
     2207  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0)) 
    22082208  (movq (:%mmx x8664::stack-temp) (:@ (:%q x8664::ra0)))
    22092209  (movq (:% x8664::rbp) (:@ x8664::csp-frame.rbp (:%q x8664::ra0)))
     
    22262226    (((w :u64))
    22272227     ())
    2228   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     2228  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    22292229  (movq (:@ x8664::dnode-size (:%q x8664::ra0)) (:%q w))
    2230   (addq (:$b (* 2 x8664::dnode-size)) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp)))
     2230  (addq (:$b (* 2 x8664::dnode-size)) (:rcontext x8664::tcr.foreign-sp)))
    22312231
    22322232
     
    22352235         ()
    22362236         ((temp :imm)))
    2237   (movq (:@ (:%seg :rcontext) x8664::tcr.save-tsp) (:%q temp))
     2237  (movq (:rcontext x8664::tcr.save-tsp) (:%q temp))
    22382238  (movq (:@ x8664::dnode-size (:%q temp)) (:%q w))
    22392239  (movq (:@ (:%q temp)) (:%q temp))
    2240   (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.save-tsp)) 
    2241   (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.next-tsp)))
     2240  (movq (:%q temp) (:rcontext x8664::tcr.save-tsp)) 
     2241  (movq (:%q temp) (:rcontext x8664::tcr.next-tsp)))
    22422242
    22432243(define-x8664-vinsn (temp-pop-double-float :pop :word :csp)
    22442244    (((f :double-float))
    22452245     ())
    2246   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     2246  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    22472247  (movapd (:@ x8664::dnode-size (:%q x8664::ra0)) (:%xmm f))
    2248   (addq (:$b (* 2 x8664::dnode-size)) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp)))
     2248  (addq (:$b (* 2 x8664::dnode-size)) (:rcontext x8664::tcr.foreign-sp)))
    22492249
    22502250
     
    22522252(define-x8664-vinsn macptr->stack (((dest :lisp))
    22532253                                   ((ptr :address)))
    2254   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp))
    2255   (subq (:$b (+ x8664::dnode-size x8664::macptr.size)) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp))
    2256   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     2254  (movq (:rcontext x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp))
     2255  (subq (:$b (+ x8664::dnode-size x8664::macptr.size)) (:rcontext x8664::tcr.foreign-sp))
     2256  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    22572257  (movq (:%mmx x8664::stack-temp) (:@ (:%q x8664::ra0)))
    22582258  (movq (:% x8664::rbp) (:@ x8664::csp-frame.rbp (:%q x8664::ra0)))
     
    34023402(define-x8664-vinsn %current-tcr (((dest :lisp))
    34033403                                 ())
    3404   (movq (:@ (:%seg :rcontext) x8664::tcr.linear) (:%q dest)))
     3404  (movq (:rcontext x8664::tcr.linear) (:%q dest)))
    34053405
    34063406(define-x8664-vinsn (setq-special :call :subprim-call)
     
    36813681(define-x8664-vinsn alloc-c-frame (()
    36823682                                   ((nwords :u32const)))
    3683   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp))
     3683  (movq (:rcontext x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp))
    36843684  ((:pred < (:apply ash (:apply logandc2 (:apply + nwords 9) 1) x8664::word-shift) 128)
    3685    (subq (:$b (:apply ash (:apply logandc2 (:apply + nwords 9) 1) x8664::word-shift)) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp)))
     3685   (subq (:$b (:apply ash (:apply logandc2 (:apply + nwords 9) 1) x8664::word-shift)) (:rcontext x8664::tcr.foreign-sp)))
    36863686  ((:not (:pred < (:apply ash (:apply logandc2 (:apply + nwords 9) 1) x8664::word-shift) 128))
    3687    (subq (:$l (:apply ash (:apply logandc2 (:apply + nwords 9) 1) x8664::word-shift)) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp)))
    3688   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     3687   (subq (:$l (:apply ash (:apply logandc2 (:apply + nwords 9) 1) x8664::word-shift)) (:rcontext x8664::tcr.foreign-sp)))
     3688  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    36893689  (movq (:%mmx x8664::stack-temp) (:@ (:%q x8664::ra0)))
    36903690  (movq (:% x8664::rbp) (:@ x8664::csp-frame.rbp (:%q x8664::ra0))))
     
    36963696  (andb (:$b (lognot x8664::fulltagmask)) (:%b size))
    36973697
    3698   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp))
    3699   (subq (:%q size) (:@ (:%seg :rcontext) x8664::tcr.foreign-sp))
    3700   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     3698  (movq (:rcontext x8664::tcr.foreign-sp) (:%mmx x8664::stack-temp))
     3699  (subq (:%q size) (:rcontext x8664::tcr.foreign-sp))
     3700  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    37013701  (movq (:%mmx x8664::stack-temp) (:@ (:%q x8664::ra0)))
    37023702  (movq (:% x8664::rbp) (:@ x8664::csp-frame.rbp (:%q x8664::ra0))))
     
    37053705                               ((arg :u64)
    37063706                                (offset :u32const)))
    3707   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     3707  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    37083708  (movq (:%q arg) (:@ (:apply + 16 (:apply ash offset 3)) (:%q x8664::ra0))))
    37093709
     
    37113711                                      ((arg :single-float)
    37123712                                       (offset :u32const)))
    3713   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     3713  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    37143714  (movss (:%xmm arg) (:@ (:apply + 16 (:apply ash offset 3)) (:%q x8664::ra0))))
    37153715
    37163716(define-x8664-vinsn reload-single-c-arg (((arg :single-float))
    37173717                                         ((offset :u32const)))
    3718   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     3718  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    37193719  (movss (:@ (:apply + 16 (:apply ash offset 3)) (:%q x8664::ra0)) (:%xmm arg)))
    37203720
     
    37223722                                      ((arg :double-float)
    37233723                                       (offset :u32const)))
    3724   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     3724  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    37253725  (movsd (:%xmm arg) (:@ (:apply + 16 (:apply ash offset 3)) (:%q x8664::ra0))))
    37263726
    37273727(define-x8664-vinsn reload-double-c-arg (((arg :double-float))
    37283728                                         ((offset :u32const)))
    3729   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q x8664::ra0))
     3729  (movq (:rcontext x8664::tcr.foreign-sp) (:%q x8664::ra0))
    37303730  (movsd (:@ (:apply + 16 (:apply ash offset 3)) (:%q x8664::ra0)) (:%xmm arg)))
    37313731
     
    37563756                                    ((closed :lisp))
    37573757                                    ((temp :imm)))
    3758   (subq (:$b (+ x8664::value-cell.size x8664::dnode-size)) (:@ (:%seg :rcontext) x8664::tcr.next-tsp))
    3759   (movq (:@ (:%seg :rcontext) x8664::tcr.save-tsp) (:%mmx x8664::stack-temp))
    3760   (movq (:@ (:%seg :rcontext) x8664::tcr.next-tsp) (:%q temp))
     3758  (subq (:$b (+ x8664::value-cell.size x8664::dnode-size)) (:rcontext x8664::tcr.next-tsp))
     3759  (movq (:rcontext x8664::tcr.save-tsp) (:%mmx x8664::stack-temp))
     3760  (movq (:rcontext x8664::tcr.next-tsp) (:%q temp))
    37613761  (movapd (:%xmm x8664::fpzero) (:@ (:%q temp)))
    37623762  (movapd (:%xmm x8664::fpzero) (:@ x8664::dnode-size (:%q temp)))
    37633763  (movq (:%mmx x8664::stack-temp) (:@ (:%q temp)))
    37643764  (movq (:% x8664::rbp) (:@ x8664::tsp-frame.rbp (:%q temp))) 
    3765   (movq (:%q temp) (:@ (:%seg :rcontext) x8664::tcr.save-tsp)) 
     3765  (movq (:%q temp) (:rcontext x8664::tcr.save-tsp)) 
    37663766  (movq (:$l x8664::value-cell-header) (:@ x8664::dnode-size (:%q temp)))
    37673767  (movq (:%q closed) (:@ (+ x8664::dnode-size x8664::node-size) (:%q temp)))
     
    38383838(define-x8664-vinsn %foreign-stack-pointer (((dest :imm))
    38393839                                            ())
    3840   (movq (:@ (:%seg :rcontext) x8664::tcr.foreign-sp) (:%q dest)))
     3840  (movq (:rcontext x8664::tcr.foreign-sp) (:%q dest)))
    38413841
    38423842
     
    43474347(define-x8664-vinsn event-poll (()
    43484348                                ())
    4349   (btrq (:$ub 63) (:@ (:%seg :rcontext) x8664::tcr.interrupt-pending))
     4349  (btrq (:$ub 63) (:rcontext x8664::tcr.interrupt-pending))
    43504350  (jae :no-interrupt)
    43514351  (ud2a)
Note: See TracChangeset for help on using the changeset viewer.