Changeset 11369


Ignore:
Timestamp:
Nov 16, 2008, 2:04:27 AM (11 years ago)
Author:
gb
Message:

Fix module definition of nx2, which was leftover from MCL 68K ...
Add nx2 to compiler-modules.
Move SYSTEMS and COMPILE-CCL to *sysdef-modules*, update them
early in native builds.
If there's bootstrapping difficulty, do:

? (ccl::update-modules '(ccl::systems ccl::compile-ccl) t)
? (rebuild-ccl ...)

(This change is supposed to make that unnecessary in the future.)

Location:
trunk/source/lib
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r11323 r11369  
    1919(require 'systems)
    2020
    21 ; Interim PPC support
    22 ; sequences is here since l1-typesys REQUIREs it
     21(defparameter *sysdef-modules*
     22  '(systems compile-ccl))
     23
    2324(defparameter *level-1-modules*
    2425  '(level-1
     
    3536    l1-error-signal version l1-callbacks
    3637    l1-sockets linux-files
    37 
    3838    ))
    3939
    4040(defparameter *compiler-modules*
    41       '(nx optimizers dll-node arch vreg vinsn
    42         reg subprims  backend))
     41  '(nx optimizers dll-node arch vreg vinsn
     42    reg subprims  backend nx2))
    4343
    4444
     
    186186
    187187(defparameter *code-modules*
    188       '(encapsulate
    189         read misc  arrays-fry
    190         sequences sort
    191         method-combination
    192         case-error pprint
    193         format time
     188  '(encapsulate
     189    read misc  arrays-fry
     190    sequences sort
     191    method-combination
     192    case-error pprint
     193    format time
    194194;        eval step
    195         backtrace-lds  ccl-export-syms prepare-mcl-environment))
     195    backtrace-lds  ccl-export-syms prepare-mcl-environment))
    196196
    197197
    198198
    199199(defparameter *aux-modules*
    200       '(systems compile-ccl
    201         lisp-package
    202         number-macros number-case-macro
    203         loop
    204         runtime
    205         mcl-compat
    206         arglist
    207         edit-callers
    208         describe
    209         leaks
    210         asdf
    211         defsystem
    212 ))
     200  '(number-macros number-case-macro
     201    loop
     202    runtime
     203    mcl-compat
     204    arglist
     205    edit-callers
     206    describe
     207    leaks
     208    asdf
     209    defsystem
     210    ))
    213211
    214212
     
    225223               ppc-threads-utils ppc-callback-support))
    226224            ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664
    227               :darwinx8632 :win64  :linuxx8632 :win32 :solarisx8632
    228               :freebsdx8632)
     225                          :darwinx8632 :win64  :linuxx8632 :win32 :solarisx8632
     226                          :freebsdx8632)
    229227             '(x86-error-signal x86-trap-support
    230228               x86-threads-utils x86-callback-support)))))
    231229
    232                  
    233 
    234 
    235 
    236 
    237 ;
    238 
    239 
    240 
    241 
    242 
    243 ; Needed to cross-dump an image
    244 
     230
     231;;; Needed to cross-dump an image
    245232
    246233
     
    276263
    277264
    278 
    279 
    280 
    281 
    282265(defun needs-compile-p (fasl sources force-compile)
    283266  (if fasl
     
    295278
    296279
    297 ;compile if needed, load if recompiled.
     280;;;compile if needed, load if recompiled.
    298281
    299282(defun update-modules (modules &optional force-compile)
     
    314297
    315298(defun compile-ccl (&optional force-compile)
    316  (with-compilation-unit ()
    317   (update-modules 'nxenv force-compile)
    318   (update-modules *compiler-modules* force-compile)
    319   (update-modules (target-compiler-modules) force-compile)
    320   (update-modules (target-xdev-modules) force-compile)
    321   (update-modules (target-xload-modules)  force-compile)
    322   (let* ((env-modules (target-env-modules))
    323          (other-lib (target-other-lib-modules)))
    324     (require-modules env-modules)
    325     (update-modules env-modules force-compile)
    326     (compile-modules (target-level-1-modules)  force-compile)
    327     (update-modules other-lib force-compile)
    328     (require-modules other-lib)
    329     (require-update-modules *code-modules* force-compile))
    330   (compile-modules *aux-modules* force-compile)))
     299  (with-compilation-unit ()
     300    (update-modules *sysdef-modules* force-compile)
     301    (update-modules 'nxenv force-compile)
     302    (update-modules *compiler-modules* force-compile)
     303    (update-modules (target-compiler-modules) force-compile)
     304    (update-modules (target-xdev-modules) force-compile)
     305    (update-modules (target-xload-modules)  force-compile)
     306    (let* ((env-modules (target-env-modules))
     307           (other-lib (target-other-lib-modules)))
     308      (require-modules env-modules)
     309      (update-modules env-modules force-compile)
     310      (compile-modules (target-level-1-modules)  force-compile)
     311      (update-modules other-lib force-compile)
     312      (require-modules other-lib)
     313      (require-update-modules *code-modules* force-compile))
     314    (compile-modules *aux-modules* force-compile)))
    331315
    332316
     
    358342
    359343(defun xcompile-ccl (&optional force)
    360  (with-compilation-unit ()
    361   (compile-modules 'nxenv force)
    362   (compile-modules *compiler-modules* force)
    363   (compile-modules (target-compiler-modules) force)
    364   (compile-modules (target-xdev-modules) force)
    365   (compile-modules (target-xload-modules)  force)
    366   (compile-modules (target-env-modules) force)
    367   (compile-modules (target-level-1-modules) force)
    368   (compile-modules (target-other-lib-modules) force)
    369   (compile-modules *code-modules* force)
    370   (compile-modules *aux-modules* force)))
     344  (with-compilation-unit ()
     345    (compile-modules *sysdef-modules* force)
     346    (compile-modules 'nxenv force)
     347    (compile-modules *compiler-modules* force)
     348    (compile-modules (target-compiler-modules) force)
     349    (compile-modules (target-xdev-modules) force)
     350    (compile-modules (target-xload-modules)  force)
     351    (compile-modules (target-env-modules) force)
     352    (compile-modules (target-level-1-modules) force)
     353    (compile-modules (target-other-lib-modules) force)
     354    (compile-modules *code-modules* force)
     355    (compile-modules *aux-modules* force)))
    371356
    372357(defun require-update-modules (modules &optional force-compile)
     
    379364
    380365(defun target-xcompile-ccl (target &optional force)
     366  (require-update-modules *sysdef-modules* force) ;in the host
    381367  (let* ((backend (or (find-backend target) *target-backend*))
    382368         (arch (backend-target-arch-name backend))
     
    387373    (target-compile-modules (target-level-1-modules target) target force)
    388374    (target-compile-modules (target-lib-modules target) target force)
     375    (target-compile-modules *sysdef-modules* target force)
    389376    (target-compile-modules *aux-modules* target force)
    390377    (target-compile-modules *code-modules* target force)
  • trunk/source/lib/systems.lisp

    r11323 r11369  
    7676                                                  "ccl:compiler;nx1.lisp"))
    7777    (nxenv            "ccl:bin;nxenv"            ("ccl:compiler;nxenv.lisp"))
    78     (nx2              "ccl:bin;nx2"              ("ccl:compiler;nx2.lisp"
    79                                                   "ccl:compiler;nx2a.lisp"))
     78    (nx2              "ccl:bin;nx2"              ("ccl:compiler;nx2.lisp"))
    8079    (nx-base-app      "ccl:l1f;nx-base-app"      ("ccl:compiler;nx-base-app.lisp"
    8180                                                  "ccl:compiler;lambda-list.lisp"))
    82                                         ; PPC compiler
    8381    (dll-node         "ccl:bin;dll-node"         ("ccl:compiler;dll-node.lisp"))
    8482    (ppc32-arch       "ccl:bin;ppc32-arch"       ("ccl:compiler;PPC;PPC32;ppc32-arch.lisp"))
Note: See TracChangeset for help on using the changeset viewer.