From 44804b8f468a26dc3669f4db5b6971d57793e868 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 3 Nov 1990 18:14:41 +0000 Subject: [PATCH] Deleted all support for the interm RT system and cross compiling from the old RT compiler. Changed the vm specific logical name from mips: to vm: so that you can load different backends by changing vm:. --- compiler/loadcom.lisp | 172 +++++++++++------------------------------- 1 file changed, 44 insertions(+), 128 deletions(-) diff --git a/compiler/loadcom.lisp b/compiler/loadcom.lisp index fa0988fe6..14092cc5e 100644 --- a/compiler/loadcom.lisp +++ b/compiler/loadcom.lisp @@ -6,52 +6,25 @@ (setf *load-verbose* t) -#-new-compiler -(progn - (ext:gc-off) - - (load "code:fdefinition") - (load "c:globaldb") - (globaldb-init) - - (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:backend") +(load "vm:parms") +(load "vm:objdef") (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") (load "c:node") (load "c:alloc") (load "c:ctype") (load "c:knownfun") (load "c:fndb") -#+pmax (load "mips:vm-fndb") +(load "vm: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 "vm:vm-typetran") +(load "c:float-tran") (load "c:locall") (load "c:dfo") (load "c:ir1opt") @@ -59,8 +32,6 @@ (load "c:checkgen") (load "c:constraint") (load "c:envanal") -#-pmax -(load "c:parms") (load "c:vop") (load "c:tn") (load "c:bit-util") @@ -77,108 +48,53 @@ (load "c:main") (load "c:assembler") (load "assem:assemfile") -#+pmax (load "assem:mips/support") -#+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 "assem:support") +(load "vm:dismips") +(load "vm:mips-insts") +(load "vm:mips-macs") +(load "vm:utils") (load "c:aliencomp") +(load "vm:c-call") (load "c:debug-dump") -#-new-compiler -(load "code:alieneval") - -#+rt-target(progn -#-new-compiler -(handler-bind ((error #'(lambda (condition) - (format t "~%~A~%Continuing...~%" condition) - (continue)))) - (progn - (load "code:constants") - (load "assem:rompconst"))) - -#-new-compiler -(load "c:fop") - (load "c:dump") -#+new-compiler -(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 -(load "c:dump") -(load "mips:core") -;(load "mips:genesis") - -(load "mips:vm") -(load "mips:move") -(load "mips:sap") -(load "mips:system") -(load "mips:char") -(load "mips:float") -(load "mips:memory") -(load "mips:static-fn") -(load "mips:arith") -(load "mips:cell") -(load "mips:subprim") -(load "mips:debug") -(load "mips:print") -(load "mips:alloc") -(load "mips:call") -(load "mips:nlx") -(load "mips:values") -(load "mips:array") -(load "mips:pred") -(load "mips:type-vops") -(load "mips:vm-tran") - -#+pmax (load "assem:mips/assem-rtns") -#+pmax (load "assem:mips/bit-bash") -#+pmax (load "assem:mips/array") -#+pmax (load "assem:mips/arith") -#+pmax (load "assem:mips/alloc") -); mips progn +(load "vm:core") + +(load "vm:vm") +(load "vm:primtype") +(load "vm:move") +(load "vm:sap") +(load "vm:system") +(load "vm:char") +(load "vm:float") +(load "vm:memory") +(load "vm:static-fn") +(load "vm:arith") +(load "vm:cell") +(load "vm:subprim") +(load "vm:debug") +(load "vm:print") +(load "vm:alloc") +(load "vm:call") +(load "vm:nlx") +(load "vm:values") +(load "vm:array") +(load "vm:pred") +(load "vm:type-vops") +(load "vm:vm-tran") + +(load "assem:assem-rtns") +(load "assem:bit-bash") +(load "assem:array") +(load "assem:arith") +(load "assem:alloc") (load "c:pseudo-vops") -#-pmax (load "c:vm-tran") -#+pmax (load "mips:vm-tran") +(load "vm:vm-tran") (load "c:debug") (load "c:represent") -#+new-compiler (load "c:eval-comp") -#+new-compiler (load "c:eval") - -#-new-compiler -(progn - #+rt-target - (load "assem:assembler") - (%proclaim '(optimize (debug-info 2))) - - (setq *info-environment* - (list (make-info-environment :name "Working") - (compact-info-environment (car *info-environment*)))) - (lisp::purify :root-structures '(ncompile-file)) - (ext:gc-on)) - -#+pmax (%proclaim '(optimize (speed 1) (safety 1))) +(%proclaim '(optimize (speed 1) (safety 1))) -- GitLab