From 049d11aebbcb9ca38f649e80e078f9baccab143e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 28 Oct 1990 06:33:06 +0000
Subject: [PATCH] Moved assemfile to .../assembly and moved assembly code into
 a machine specific subdir.  Added a load of assem:mips/arith.

---
 compiler/loadcom.lisp | 210 +++++++++++++++++++++---------------------
 1 file changed, 107 insertions(+), 103 deletions(-)

diff --git a/compiler/loadcom.lisp b/compiler/loadcom.lisp
index b0703b255..a19c206ab 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*
-- 
GitLab