Changeset 14196

Timestamp:

Aug 16, 2010, 9:28:56 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• trunk/source/compiler/X86/x862.lisp (modified) (4 diffs)

trunk/source/compiler/X86/x862.lisp

@@ -41 +41 @@
 (defparameter *x862-operator-supports-u8-target* ())
 (defparameter *x862-operator-supports-push* ())
-(defparameter *x862-tos-reg* ())
 
 ;; probably should be elsewhere
@@ -89 +88 @@
                     (unless ,template-temp
                       (warn "VINSN \"~A\" not defined" ,template-name-var))
-                    `(prog1
-                      (x862-emit-vinsn ,',segvar ',,template-name-var (backend-p2-vinsn-templates *target-backend*) ,@,args-var)
-                      (setq *x862-tos-reg* nil)))))
+                    `(x862-emit-vinsn ,',segvar ',,template-name-var (backend-p2-vinsn-templates *target-backend*) ,@,args-var))))
        (macrolet ((<- (,retvreg-var)
                     `(x862-copy-register ,',segvar ,',vreg-var ,,retvreg-var))
@@ -551 +548 @@
                                                             (1+ *x862-target-fixnum-shift*))))
            (*x862-target-dnode-size* (* 2 *x862-target-lcell-size*))
-           (*x862-tos-reg* nil)
            (*x862-all-lcells* ())
            (*x862-top-vstack-lcell* nil)
@@ -4000 +3996 @@
     (prog1
       (! vpush-register src)
-      (setq *x862-tos-reg* src)
       (x862-regmap-note-store src *x862-vstack*)
       (x862-new-vstack-lcell (or why :node) *x862-target-lcell-size* (or attr 0) info)