Changeset 9678


Ignore:
Timestamp:
Jun 6, 2008, 5:22:19 AM (11 years ago)
Author:
rme
Message:

Explicity mention x8632::ra0 as a vinsn temporary in several places.

In load-adl, use imm0 instead of nargs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

    r9587 r9678  
    15911591
    15921592(defmacro define-x8632-subprim-lea-jmp-vinsn ((name &rest other-attrs) spno)
    1593   `(define-x8632-vinsn (,name :call :subprim-call ,@other-attrs) (() () ((entry (:label 1))))
    1594     (leal (:@ (:^ :back) (:%l x8632::fn)) (:%l x8632::ra0))
     1593  `(define-x8632-vinsn (,name :call :subprim-call ,@other-attrs) (()
     1594                                                                  ()
     1595                                                                  ((entry (:label 1))
     1596                                                                   (ra (:lisp #.x8632::ra0))))
     1597    (leal (:@ (:^ :back) (:%l x8632::fn)) (:%l ra))
    15951598    (:talign 5)
    15961599    (jmp (:@ ,spno))
     
    16101613
    16111614(define-x8632-vinsn (nthrowvalues :call :subprim-call) (()
    1612                                                         ((lab :label)))
    1613   (leal (:@ (:^ lab) (:%l x8632::fn)) (:%l x8632::ra0))
     1615                                                        ((lab :label))
     1616                                                        ((ra (:lisp #.x8632::ra0))))
     1617  (leal (:@ (:^ lab) (:%l x8632::fn)) (:%l ra))
    16141618  (jmp (:@ .SPnthrowvalues)))
    16151619
    16161620(define-x8632-vinsn (nthrow1value :call :subprim-call) (()
    1617                                                         ((lab :label)))
    1618   (leal (:@ (:^ lab) (:%l x8632::fn)) (:%l x8632::ra0))
     1621                                                        ((lab :label))
     1622                                                        ((ra (:lisp #.x8632::ra0))))
     1623  (leal (:@ (:^ lab) (:%l x8632::fn)) (:%l ra))
    16191624  (jmp (:@ .SPnthrow1value)))
    16201625
     
    17461751(define-x8632-vinsn (nmkcatch1v :call :subprim-call) (()
    17471752                                                     ((lab :label))
    1748                                                      ((entry (:label 1))))
     1753                                                     ((entry (:label 1))
     1754                                                      (xfn (:lisp #.x8632::xfn))))
    17491755  (leal (:@ (:^ lab)  (:%l x8632::fn)) (:%l x8632::xfn))
    17501756  (:talign 5)
     
    33173323  (movss (:@ (:%l src) (:%l index)) (:%xmm dest)))
    33183324
     3325;;; This would normally be put in %nargs, but we need an
     3326;;; extra node register for passing stuff into
     3327;;; SPdestructuring_bind and friends.
    33193328(define-x8632-vinsn load-adl (()
    33203329                              ((n :u32const)))
    3321   (movl (:$l n) (:%l x8632::nargs)))
     3330  (movl (:$l n) (:%l x8632::imm0)))
    33223331
    33233332(define-x8632-subprim-lea-jmp-vinsn (macro-bind) .SPmacro-bind)
     
    33653374(define-x8632-vinsn (throw :jump :jump-unknown) (()
    33663375                                                 ()
    3367                                                  ((entry (:label 1))))
    3368   (leal (:@ (:^ :back) (:%l x8632::fn)) (:%l x8632::ra0))
     3376                                                 ((entry (:label 1))
     3377                                                  (ra (:lisp #.x8632::ra0))))
     3378  (leal (:@ (:^ :back) (:%l x8632::fn)) (:%l ra))
    33693379  (:talign 5)
    33703380  (jmp (:@ .SPthrow))
Note: See TracChangeset for help on using the changeset viewer.