diff --git a/compiler/loadcom.lisp b/compiler/loadcom.lisp index b0703b255cc4444781885b4b23a52dea24202bf7..a19c206abd98787ab10e0635e8af6e84cc989880 100644 --- a/compiler/loadcom.lisp +++ b/compiler/loadcom.lisp @@ -4,87 +4,89 @@ ;;; (in-package "C") +(setf *load-verbose* t) + #-new-compiler (progn (ext:gc-off) - (load "code:fdefinition" :verbose t) - (load "c:globaldb" :verbose t) + (load "code:fdefinition") + (load "c:globaldb") (globaldb-init) - (load "c:patch" :verbose t) - (load "code:macros" :verbose t) - (load "code:struct" :verbose t) - (load "c:proclaim" :verbose t) - (load "code:extensions" :verbose t) - (load "code:defmacro" :verbose t) - (load "code:sysmacs" :verbose t) - (load "code:defrecord" :verbose t) - (load "code:error" :verbose t) - (load "code:debug-info" :verbose t) - (load "code:defstruct" :verbose t) - (load "code:c-call" :verbose t) - (load "code:salterror" :verbose t) - (load "code:machdef" :verbose t) - - (load "c:boot-globaldb" :verbose t)) - -(load "c:macros" :verbose t) -#-pmax (load "c:type" :verbose t) -#-pmax (load "c:vm-type" :verbose t) -#-pmax (load "c:type-init" :verbose t) + (load "c:patch") + (load "code:macros") + (load "code:struct") + (load "c:proclaim") + (load "code:extensions") + (load "code:defmacro") + (load "code:sysmacs") + (load "code:defrecord") + (load "code:error") + (load "code:debug-info") + (load "code:defstruct") + (load "code:c-call") + (load "code:salterror") + (load "code:machdef") + + (load "c:boot-globaldb")) + +(load "c:macros") +#-pmax (load "c:type") +#-pmax (load "c:vm-type") +#-pmax (load "c:type-init") #-pmax (setq *type-system-initialized* t) #+pmax (load "mips:parms") -(load "c:sset" :verbose t) -(load "c:node" :verbose t) -(load "c:alloc" :verbose t) -(load "c:ctype" :verbose t) -(load "c:knownfun" :verbose t) -(load "c:fndb" :verbose t) -#+pmax (load "mips:vm-fndb" :verbose t) -(load "c:ir1util" :verbose t) -(load "c:ir1tran" :verbose t) -(load "c:ir1final" :verbose t) -(load "c:srctran" :verbose t) -(load "c:seqtran" :verbose t) -(load "c:typetran" :verbose t) -#+pmax (load "mips:vm-typetran" :verbose t) -#+pmax (load "c:float-tran" :verbose t) -(load "c:locall" :verbose t) -(load "c:dfo" :verbose t) -(load "c:ir1opt" :verbose t) -;(load "c:loop" :verbose t) -(load "c:checkgen" :verbose t) -(load "c:constraint" :verbose t) -(load "c:envanal" :verbose t) +(load "c:sset") +(load "c:node") +(load "c:alloc") +(load "c:ctype") +(load "c:knownfun") +(load "c:fndb") +#+pmax (load "mips:vm-fndb") +(load "c:ir1util") +(load "c:ir1tran") +(load "c:ir1final") +(load "c:srctran") +(load "c:seqtran") +(load "c:typetran") +#+pmax (load "mips:vm-typetran") +#+pmax (load "c:float-tran") +(load "c:locall") +(load "c:dfo") +(load "c:ir1opt") +;(load "c:loop") +(load "c:checkgen") +(load "c:constraint") +(load "c:envanal") #-pmax -(load "c:parms" :verbose t) -(load "c:vop" :verbose t) -(load "c:tn" :verbose t) -(load "c:bit-util" :verbose t) -(load "c:life" :verbose t) -(load "c:vmdef" :verbose t) -(load "c:gtn" :verbose t) -(load "c:ltn" :verbose t) -(load "c:stack" :verbose t) -(load "c:control" :verbose t) -(load "c:entry" :verbose t) -(load "c:ir2tran" :verbose t) -(load "c:pack" :verbose t) -(load "c:codegen" :verbose t) -(load "c:main" :verbose t) -(load "c:assembler" :verbose t) -#+pmax (load "mips:dismips" :verbose t) -#+pmax (load "mips:assemfile" :verbose t) -#-pmax (load "c:assem-insts" :verbose t) -#+pmax (load "mips:mips-insts" :verbose t) -#-pmax (load "c:assem-macs" :verbose t) -#+pmax (load "mips:mips-macs" :verbose t) -(load "c:aliencomp" :verbose t) -(load "c:debug-dump" :verbose t) +(load "c:parms") +(load "c:vop") +(load "c:tn") +(load "c:bit-util") +(load "c:life") +(load "c:vmdef") +(load "c:gtn") +(load "c:ltn") +(load "c:stack") +(load "c:control") +(load "c:entry") +(load "c:ir2tran") +(load "c:pack") +(load "c:codegen") +(load "c:main") +(load "c:assembler") +(load "assem:assemfile") +#+pmax (load "mips:dismips") +#-pmax (load "c:assem-insts") +#+pmax (load "mips:mips-insts") +#-pmax (load "c:assem-macs") +#+pmax (load "mips:mips-macs") +(load "c:aliencomp") +(load "c:debug-dump") #-new-compiler -(load "code:alieneval" :verbose t) +(load "code:alieneval") #+rt-target(progn #-new-compiler @@ -92,32 +94,32 @@ (format t "~%~A~%Continuing...~%" condition) (continue)))) (progn - (load "code:constants" :verbose t) - (load "assem:rompconst" :verbose t))) + (load "code:constants") + (load "assem:rompconst"))) #-new-compiler -(load "c:fop" :verbose t) +(load "c:fop") -(load "c:dump" :verbose t) +(load "c:dump") #+new-compiler -(load "c:core" :verbose t) - -(load "c:vm" :verbose t) -(load "c:move" :verbose t) -(load "c:char" :verbose t) -(load "c:miscop" :verbose t) -(load "c:subprim" :verbose t) -(load "c:print" :verbose t) -(load "c:memory" :verbose t) -(load "c:cell" :verbose t) -(load "c:call" :verbose t) -(load "c:nlx" :verbose t) -(load "c:values" :verbose t) -(load "c:array" :verbose t) -(load "c:pred" :verbose t) -(load "c:system" :verbose t) -(load "c:type-vops" :verbose t) -(load "c:arith" :verbose t) +(load "c:core") + +(load "c:vm") +(load "c:move") +(load "c:char") +(load "c:miscop") +(load "c:subprim") +(load "c:print") +(load "c:memory") +(load "c:cell") +(load "c:call") +(load "c:nlx") +(load "c:values") +(load "c:array") +(load "c:pred") +(load "c:system") +(load "c:type-vops") +(load "c:arith") ); #+RT-TARGET PROGN #+pmax(progn @@ -146,27 +148,29 @@ (load "mips:pred") (load "mips:type-vops") (load "mips:vm-tran") -(load "assem:assem-rtns-vops") -(load "assem:bit-bash-vops") -(load "assem:array-vops") + +#+pmax (load "assem:mips/assem-rtns") +#+pmax (load "assem:mips/bit-bash") +#+pmax (load "assem:mips/array") +#+pmax (load "assem:mips/arith") ); mips progn -(load "c:pseudo-vops" :verbose t) -#-pmax (load "c:vm-tran" :verbose t) -#+pmax (load "mips:vm-tran" :verbose t) -(load "c:debug" :verbose t) -(load "c:represent" :verbose t) +(load "c:pseudo-vops") +#-pmax (load "c:vm-tran") +#+pmax (load "mips:vm-tran") +(load "c:debug") +(load "c:represent") #+new-compiler -(load "c:eval-comp" :verbose t) +(load "c:eval-comp") #+new-compiler -(load "c:eval" :verbose t) +(load "c:eval") #-new-compiler (progn #+rt-target - (load "assem:assembler" :verbose t) + (load "assem:assembler") (%proclaim '(optimize (debug-info 2))) (setq *info-environment*