Changeset 353

Timestamp:

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

Author:

Gary Byers

Message:

:PPC -> :PPC32.

File:

• trunk/ccl/lib/compile-ccl.lisp (modified) (6 diffs)

trunk/ccl/lib/compile-ccl.lisp

@@ -87 +87 @@
                                         *host-backend*)))
   (case target
-    (:ppc *ppc-xdev-modules*)
-    (:sparc ())))
+    (:ppc32 *ppc-xdev-modules*)))
 
 (defun target-xload-modules (&optional (target
                                         (backend-target-arch-name *host-backend*)))
   (case target
-    (:ppc *ppc-xload-modules*)
-    (:sparc *sparc-xload-modules*)))
+    (:ppc32 *ppc-xload-modules*)))
 
 
@@ -116 +114 @@
   (append *env-modules*
           (case target
-            (:ppc '( ppc-lapmacros))
-            (:sparc '(solaris-records sparc-lapmacros)))))
+            (:ppc32 '( ppc-lapmacros)))))
 
 (defun target-compiler-modules (&optional (target
@@ -123 +120 @@
                                             *host-backend*)))
   (case target
-    (:ppc *ppc-compiler-modules*)
-    (:sparc *sparc-compiler-modules*)))
+    (:ppc32 *ppc-compiler-modules*)))
 
 (defparameter *other-lib-modules*
@@ -137 +133 @@
   (append *other-lib-modules*
           (case target
-            (:ppc '(ppc-disassemble))
-            (:sparc '(sparc-disassemble)))))
+            (:ppc32 '(ppc-disassemble)))))
 
 (defun target-compiler-modules (&optional
@@ -144 +139 @@
                                  (backend-target-arch-name *target-backend*)))
   (case target
-    (:ppc *ppc-compiler-modules*)
-    (:sparc *sparc-compiler-modules*)))
+    (:ppc32 *ppc-compiler-modules*)))
           
 
@@ -350 +344 @@
   ; These won't compile correctly unless they're loaded 
   (update-modules *ppc-xload-modules* force)
-  (compile-modules (target-level-1-modules :ppc) force)
-  (compile-modules (target-lib-modules :ppc)  force)
+  (compile-modules (target-level-1-modules :ppc32) force)
+  (compile-modules (target-lib-modules :ppc32)  force)
   (compile-modules *aux-modules* force)
   (compile-modules *code-modules* force)