Changeset 14196


Ignore:
Timestamp:
Aug 17, 2010, 4:28:56 AM (9 years ago)
Author:
rme
Message:

Remove remnants of *x862-tos-reg* hack (from r7938), which is superseded by
the more general regmap code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r14195 r14196  
    4141(defparameter *x862-operator-supports-u8-target* ())
    4242(defparameter *x862-operator-supports-push* ())
    43 (defparameter *x862-tos-reg* ())
    4443
    4544;; probably should be elsewhere
     
    8988                    (unless ,template-temp
    9089                      (warn "VINSN \"~A\" not defined" ,template-name-var))
    91                     `(prog1
    92                       (x862-emit-vinsn ,',segvar ',,template-name-var (backend-p2-vinsn-templates *target-backend*) ,@,args-var)
    93                       (setq *x862-tos-reg* nil)))))
     90                    `(x862-emit-vinsn ,',segvar ',,template-name-var (backend-p2-vinsn-templates *target-backend*) ,@,args-var))))
    9491       (macrolet ((<- (,retvreg-var)
    9592                    `(x862-copy-register ,',segvar ,',vreg-var ,,retvreg-var))
     
    551548                                                            (1+ *x862-target-fixnum-shift*))))
    552549           (*x862-target-dnode-size* (* 2 *x862-target-lcell-size*))
    553            (*x862-tos-reg* nil)
    554550           (*x862-all-lcells* ())
    555551           (*x862-top-vstack-lcell* nil)
     
    40003996    (prog1
    40013997      (! vpush-register src)
    4002       (setq *x862-tos-reg* src)
    40033998      (x862-regmap-note-store src *x862-vstack*)
    40043999      (x862-new-vstack-lcell (or why :node) *x862-target-lcell-size* (or attr 0) info)
Note: See TracChangeset for help on using the changeset viewer.