Changeset 376

Timestamp:

Jan 24, 2004, 3:31:32 PM (21 years ago)

Author:

Gary Byers

Message:

target-lisp-node-size is 8. Don't require vinsns (break circle).

File:

• trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp (modified) (4 diffs)

trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp

@@ -44 +44 @@
                 :name :linuxppc64
                 :target-arch-name :ppc64
-                :target-foreign-type-data nil)
+                :target-foreign-type-data nil
+                :target-lisp-node-size 8)
   )
 
@@ -69 +70 @@
                 :name :panther-g5-hybrid
                 :target-arch-name :ppc64
-                :target-foreign-type-data nil)
+                :target-foreign-type-data nil
+                :target-lisp-node-size 8)
   )
 
@@ -77 +79 @@
 
 #+darwinppc-target
-(pushnew *panther-hybrid-backend* *known-ppc64-backends* :key #'backend-name)
+(pushnew *panther-g5-hybrid-backend* *known-ppc64-backends* :key #'backend-name)
 
 (defvar *ppc64-backend* (car *known-ppc64-backends*))
@@ -93 +95 @@
 (fixup-ppc64-backend)
 
-#+ppc-target
+#+ppc64-target
 (setq *host-backend* *ppc64-backend* *target-backend* *ppc64-backend*)
 
 (pushnew *ppc64-backend* *known-backends* :key #'backend-name)
 
-(require "PPC64-VINSNS")
 (provide "PPC64-BACKEND")