Changeset 341

Timestamp:

Jan 20, 2004, 3:15:12 PM (21 years ago)

Author:

Gary Byers

Message:

backend changes

File:

• trunk/ccl/compiler/PPC/ppc-asm.lisp (modified) (2 diffs)

trunk/ccl/compiler/PPC/ppc-asm.lisp

@@ -1992 +1992 @@
             (incf (svref *ppc-opcode-counts* op))))))
   (when (fboundp 'ccl::fixup-vinsn-templates)   ; not defined yet at bootstrap time
-    (ccl::fixup-vinsn-templates ccl::*ppc-vinsn-templates* *ppc-opcode-numbers* ))
+    (ccl::fixup-vinsn-templates (ccl::backend-p2-vinsn-templates ccl::*target-backend*) *ppc-opcode-numbers* ))
   (when (fboundp 'ccl::fixup-ppc-backend)
     (ccl::fixup-ppc-backend)))
@@ -2428 +2428 @@
 
 
+
+
+(defun ccl::lookup-ppc-opcode (name)
+  (gethash (string name) ppc::*ppc-opcode-numbers*))
 
 #|