Changeset 373

Timestamp:

Jan 24, 2004, 3:28:56 PM (21 years ago)

Author:

Gary Byers

Message:

target-lisp-node-size in backend. Make default if :ppc32-target, not :ppc-target.

File:

• trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp (modified) (4 diffs)

trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp

@@ -20 +20 @@
 (eval-when (:compile-toplevel :execute)
   (require "NXENV")
-  (require "PPCENV"))
+  (require "PPCENV")
+  (require "PPC32-ARCH"))
 
 (defvar *ppc32-vinsn-templates* (make-hash-table :test #'eq))
@@ -48 +49 @@
                 :name :linuxppc32
                 :target-arch-name :ppc32
-                :target-foreign-type-data nil)
+                :target-foreign-type-data nil
+                :target-lisp-node-size 4)
   )
 
@@ -68 +70 @@
                 :name :darwinppc32
                 :target-arch-name :ppc32
-                :target-foreign-type-data nil)
+                :target-foreign-type-data nil
+                :target-lisp-node-size 4)
   )
 
@@ -92 +95 @@
 (fixup-ppc32-backend)
 
-#+ppc-target
+#+ppc32-target
 (setq *host-backend* *ppc32-backend* *target-backend* *ppc32-backend*)