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