Changeset 6329


Ignore:
Timestamp:
Apr 22, 2007, 10:43:36 AM (15 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/lib/compile-ccl.lisp

    r5823 r6329  
    346346;Compile but don't load
    347347
    348 #+ppc-target
    349348(defun xcompile-ccl (&optional force)
    350   (ppc-xcompile-ccl force))
     349  (compile-modules 'nxenv force)
     350  (compile-modules *compiler-modules* force)
     351  (compile-modules (target-compiler-modules) force)
     352  (compile-modules (target-xdev-modules) force)
     353  (compile-modules (target-xload-modules)  force)
     354  (compile-modules (target-env-modules) force)
     355  (compile-modules (target-level-1-modules) force)
     356  (compile-modules (target-other-lib-modules) force)
     357  (compile-modules *code-modules* force)
     358  (compile-modules *aux-modules* force))
    351359
    352360(defun require-update-modules (modules &optional force-compile)
     
    361369                   force-compile))
    362370
    363 (defun compile-compiler (&optional force-compile)
    364   (update-modules 'ppcenv force-compile)
    365   (compile-modules 'nxenv force-compile)
    366   (compile-modules 'nx-base-app force-compile) ; for appgen
    367   (compile-modules *compiler-modules* force-compile)
    368   (compile-modules *ppc-compiler-modules* force-compile))
    369 
    370 (defun ppc-xcompile-ccl (&optional force)
    371   (compile-modules 'nxenv force)
    372   (compile-modules *compiler-modules* force)
    373   (compile-modules (target-compiler-modules) force)
    374   (compile-modules (target-xdev-modules) force)
    375   (compile-modules (target-xload-modules) force)
    376   (let* ((env-modules (target-env-modules))
    377          (other-lib (target-other-lib-modules)))
    378     (compile-modules env-modules force)
    379     (compile-modules (target-level-1-modules) force)
    380     (compile-modules other-lib force)
    381     (compile-modules *code-modules* force))
    382   (compile-modules *aux-modules* force))
     371
     372
    383373 
    384374
     
    402392
    403393
    404 (defun ppc-require-module (module force-load)
     394(defun require-module (module force-load)
    405395  (multiple-value-bind (fasl source) (find-module module)
    406396      (setq source (car source))
     
    426416  (let ((*package* (find-package :ccl)))
    427417    (dolist (m modules t)
    428       (ppc-require-module m force-load))))
     418      (require-module m force-load))))
    429419
    430420
Note: See TracChangeset for help on using the changeset viewer.