Changeset 6329 for branches

Timestamp:

Apr 22, 2007, 3:43:36 AM (18 years ago)

Author:

Gary Byers

Message:

Remove some stuff leftover from 68k->ppc MCL transition.

File:

• branches/x8664-call/ccl/lib/compile-ccl.lisp (modified) (4 diffs)

branches/x8664-call/ccl/lib/compile-ccl.lisp

@@ -346 +346 @@
 ;Compile but don't load
 
-#+ppc-target
 (defun xcompile-ccl (&optional force)
-  (ppc-xcompile-ccl force))
+  (compile-modules 'nxenv force)
+  (compile-modules *compiler-modules* force)
+  (compile-modules (target-compiler-modules) force)
+  (compile-modules (target-xdev-modules) force)
+  (compile-modules (target-xload-modules)  force)
+  (compile-modules (target-env-modules) force)
+  (compile-modules (target-level-1-modules) force)
+  (compile-modules (target-other-lib-modules) force)
+  (compile-modules *code-modules* force)
+  (compile-modules *aux-modules* force))
 
 (defun require-update-modules (modules &optional force-compile)
@@ -361 +369 @@
                    force-compile))
 
-(defun compile-compiler (&optional force-compile)
-  (update-modules 'ppcenv force-compile)
-  (compile-modules 'nxenv force-compile)
-  (compile-modules 'nx-base-app force-compile) ; for appgen
-  (compile-modules *compiler-modules* force-compile)
-  (compile-modules *ppc-compiler-modules* force-compile))
-
-(defun ppc-xcompile-ccl (&optional force)
-  (compile-modules 'nxenv force)
-  (compile-modules *compiler-modules* force)
-  (compile-modules (target-compiler-modules) force)
-  (compile-modules (target-xdev-modules) force)
-  (compile-modules (target-xload-modules) force)
-  (let* ((env-modules (target-env-modules))
-         (other-lib (target-other-lib-modules)))
-    (compile-modules env-modules force)
-    (compile-modules (target-level-1-modules) force)
-    (compile-modules other-lib force)
-    (compile-modules *code-modules* force))
-  (compile-modules *aux-modules* force))
+
+
   
 
@@ -402 +392 @@
 
 
-(defun ppc-require-module (module force-load)
+(defun require-module (module force-load)
   (multiple-value-bind (fasl source) (find-module module)
       (setq source (car source))
@@ -426 +416 @@
   (let ((*package* (find-package :ccl)))
     (dolist (m modules t)
-      (ppc-require-module m force-load))))
+      (require-module m force-load))))