Changeset 348

Timestamp:

Jan 20, 2004, 3:40:31 PM (21 years ago)

Author:

Gary Byers

Message:

Don't refer to *PPC-VINSN-TEMPLATES*; use the target backend instead.

File:

• trunk/ccl/compiler/PPC/ppc2.lisp (modified) (2 diffs)

trunk/ccl/compiler/PPC/ppc2.lisp

@@ -47 +47 @@
          (label-var (gensym)))
     `(macrolet ((! (,template-name-var &rest ,args-var)
-                  (let* ((,template-temp (get-vinsn-template-cell ,template-name-var *ppc-vinsn-templates*)))
+                  (let* ((,template-temp (get-vinsn-template-cell ,template-name-var (backend-p2-vinsn-templates *target-backend*))))
                     (unless ,template-temp
                       (warn "VINSN \"~A\" not defined" ,template-name-var))
-                    `(%emit-vinsn ,',segvar (load-time-value (get-vinsn-template-cell ',,template-name-var *ppc-vinsn-templates*)) *ppc-vinsn-templates* ,@,args-var))))
+                    `(%emit-vinsn ,',segvar (load-time-value (get-vinsn-template-cell ',,template-name-var (backend-p2-vinsn-templates *target-backend*))) (backend-p2-vinsn-templates *target-backend*) ,@,args-var))))
        (macrolet ((<- (,retvreg-var)
                     `(ppc2-copy-register ,',segvar ,',vreg-var ,,retvreg-var))
@@ -374 +374 @@
            (*ppc2-bottom-vstack-lcell* (ppc2-new-vstack-lcell :bottom 0 0 nil))
            (*ppc2-var-cells* nil)
-           (*backend-vinsns* *ppc-vinsn-templates*)
+           (*backend-vinsns* (backend-p2-vinsn-templates *target-backend*))
            (*backend-node-regs* ppc-node-regs)
            (*backend-node-temps* ppc-temp-node-regs)