/[cmucl]/src/compiler/loadcom.lisp
ViewVC logotype

Contents of /src/compiler/loadcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.12 - (show annotations)
Sun Oct 28 06:33:06 1990 UTC (23 years, 5 months ago) by wlott
Branch: MAIN
Changes since 1.11: +104 -100 lines
Moved assemfile to .../assembly and moved assembly code into a machine
specific subdir.  Added a load of assem:mips/arith.
1 ;;; -*- Package: C -*-
2 ;;;
3 ;;; Load up the compiler.
4 ;;;
5 (in-package "C")
6
7 (setf *load-verbose* t)
8
9 #-new-compiler
10 (progn
11 (ext:gc-off)
12
13 (load "code:fdefinition")
14 (load "c:globaldb")
15 (globaldb-init)
16
17 (load "c:patch")
18 (load "code:macros")
19 (load "code:struct")
20 (load "c:proclaim")
21 (load "code:extensions")
22 (load "code:defmacro")
23 (load "code:sysmacs")
24 (load "code:defrecord")
25 (load "code:error")
26 (load "code:debug-info")
27 (load "code:defstruct")
28 (load "code:c-call")
29 (load "code:salterror")
30 (load "code:machdef")
31
32 (load "c:boot-globaldb"))
33
34 (load "c:macros")
35 #-pmax (load "c:type")
36 #-pmax (load "c:vm-type")
37 #-pmax (load "c:type-init")
38 #-pmax (setq *type-system-initialized* t)
39 #+pmax (load "mips:parms")
40 (load "c:sset")
41 (load "c:node")
42 (load "c:alloc")
43 (load "c:ctype")
44 (load "c:knownfun")
45 (load "c:fndb")
46 #+pmax (load "mips:vm-fndb")
47 (load "c:ir1util")
48 (load "c:ir1tran")
49 (load "c:ir1final")
50 (load "c:srctran")
51 (load "c:seqtran")
52 (load "c:typetran")
53 #+pmax (load "mips:vm-typetran")
54 #+pmax (load "c:float-tran")
55 (load "c:locall")
56 (load "c:dfo")
57 (load "c:ir1opt")
58 ;(load "c:loop")
59 (load "c:checkgen")
60 (load "c:constraint")
61 (load "c:envanal")
62 #-pmax
63 (load "c:parms")
64 (load "c:vop")
65 (load "c:tn")
66 (load "c:bit-util")
67 (load "c:life")
68 (load "c:vmdef")
69 (load "c:gtn")
70 (load "c:ltn")
71 (load "c:stack")
72 (load "c:control")
73 (load "c:entry")
74 (load "c:ir2tran")
75 (load "c:pack")
76 (load "c:codegen")
77 (load "c:main")
78 (load "c:assembler")
79 (load "assem:assemfile")
80 #+pmax (load "mips:dismips")
81 #-pmax (load "c:assem-insts")
82 #+pmax (load "mips:mips-insts")
83 #-pmax (load "c:assem-macs")
84 #+pmax (load "mips:mips-macs")
85 (load "c:aliencomp")
86 (load "c:debug-dump")
87
88 #-new-compiler
89 (load "code:alieneval")
90
91 #+rt-target(progn
92 #-new-compiler
93 (handler-bind ((error #'(lambda (condition)
94 (format t "~%~A~%Continuing...~%" condition)
95 (continue))))
96 (progn
97 (load "code:constants")
98 (load "assem:rompconst")))
99
100 #-new-compiler
101 (load "c:fop")
102
103 (load "c:dump")
104 #+new-compiler
105 (load "c:core")
106
107 (load "c:vm")
108 (load "c:move")
109 (load "c:char")
110 (load "c:miscop")
111 (load "c:subprim")
112 (load "c:print")
113 (load "c:memory")
114 (load "c:cell")
115 (load "c:call")
116 (load "c:nlx")
117 (load "c:values")
118 (load "c:array")
119 (load "c:pred")
120 (load "c:system")
121 (load "c:type-vops")
122 (load "c:arith")
123 ); #+RT-TARGET PROGN
124
125 #+pmax(progn
126 (load "c:dump")
127 (load "mips:core")
128 ;(load "mips:genesis")
129
130 (load "mips:vm")
131 (load "mips:move")
132 (load "mips:sap")
133 (load "mips:system")
134 (load "mips:char")
135 (load "mips:float")
136 (load "mips:memory")
137 (load "mips:static-fn")
138 (load "mips:arith")
139 (load "mips:cell")
140 (load "mips:subprim")
141 (load "mips:debug")
142 (load "mips:print")
143 (load "mips:alloc")
144 (load "mips:call")
145 (load "mips:nlx")
146 (load "mips:values")
147 (load "mips:array")
148 (load "mips:pred")
149 (load "mips:type-vops")
150 (load "mips:vm-tran")
151
152 #+pmax (load "assem:mips/assem-rtns")
153 #+pmax (load "assem:mips/bit-bash")
154 #+pmax (load "assem:mips/array")
155 #+pmax (load "assem:mips/arith")
156 ); mips progn
157
158 (load "c:pseudo-vops")
159 #-pmax (load "c:vm-tran")
160 #+pmax (load "mips:vm-tran")
161 (load "c:debug")
162 (load "c:represent")
163
164 #+new-compiler
165 (load "c:eval-comp")
166 #+new-compiler
167 (load "c:eval")
168
169
170 #-new-compiler
171 (progn
172 #+rt-target
173 (load "assem:assembler")
174 (%proclaim '(optimize (debug-info 2)))
175
176 (setq *info-environment*
177 (list (make-info-environment :name "Working")
178 (compact-info-environment (car *info-environment*))))
179 (lisp::purify :root-structures '(ncompile-file))
180 (ext:gc-on))
181
182 #+pmax (%proclaim '(optimize (speed 1) (safety 1)))

  ViewVC Help
Powered by ViewVC 1.1.5