/[cmucl]/src/tools/comcom.lisp
ViewVC logotype

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.42 - (show annotations)
Fri Jul 23 21:05:25 1993 UTC (20 years, 8 months ago) by ram
Branch: MAIN
Changes since 1.41: +10 -10 lines
debug-info => debug
1 ;;; -*- Package: User -*-
2 ;;;
3 (in-package "USER")
4
5 #+bootstrap
6 (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))
7
8 (defvar *load-stuff*
9 #+bootstrap t
10 #-bootstrap (eq c:*backend* c:*native-backend*))
11
12 ;;; Import so that these types which appear in the globldb are the same...
13 #+bootstrap
14 (import '(old-c::approximate-function-type
15 old-c::function-info old-c::defstruct-description
16 old-c::defstruct-slot-description)
17 "C")
18
19 (with-compiler-log-file
20 ("target:compile-compiler.log"
21 :optimize
22 '(optimize (speed 2) (space 2) (inhibit-warnings 2)
23 (safety #+small 0 #-small 1)
24 (debug #+small .5 #-small 2))
25 :optimize-interface
26 '(optimize-interface (safety #+small 1 #-small 2)
27 (debug #+small .5 #-small 2))
28 :context-declarations
29 '(#+small
30 ((:or :macro
31 (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"
32 "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
33 (declare (optimize (safety 1))))
34 (:macro (declare (optimize (speed 0))))
35 (:external (declare (optimize-interface (safety 2) (debug 1))))))
36
37 (comf "target:compiler/macros" :load *load-stuff*)
38 (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)
39 (comf "target:compiler/backend" :load *load-stuff* :proceed t)
40
41 (defvar c::*target-backend* (c::make-backend))
42
43 (when (c:target-featurep :pmax)
44 (comf "target:compiler/mips/parms" :proceed t))
45 (when (c:target-featurep :sparc)
46 (comf "target:compiler/sparc/parms" :proceed t))
47 (when (c:target-featurep :rt)
48 (comf "target:compiler/rt/params" :proceed t))
49 (when (c:target-featurep :hppa)
50 (comf "target:compiler/hppa/parms" :proceed t))
51 (when (c:target-featurep :x86)
52 (comf "target:compiler/hppa/x86" :proceed t))
53 (comf "target:compiler/generic/objdef" :proceed t)
54 (comf "target:compiler/generic/interr")
55
56 (comf "target:code/struct") ; For defstruct description structures.
57 (comf "target:compiler/proclaim") ; For COOKIE structure.
58 (comf "target:compiler/globals")
59
60 (comf "target:compiler/sset")
61 (comf "target:compiler/node")
62 (comf "target:compiler/ctype")
63 (comf "target:compiler/vop" :proceed t)
64 (comf "target:compiler/vmdef")
65 (comf "target:compiler/meta-vmdef" :load *load-stuff* :proceed t)
66
67 (comf "target:compiler/disassem")
68 (comf "target:compiler/new-assem")
69 (comf "target:compiler/alloc")
70 (comf "target:compiler/knownfun")
71 (comf "target:compiler/fndb")
72 (comf "target:compiler/generic/vm-fndb")
73 (comf "target:compiler/main")
74
75 (with-compilation-unit
76 (:optimize '(optimize (debug 2) (safety 1)))
77 (comf "target:compiler/ir1tran")
78 (comf "target:compiler/ir1util")
79 (comf "target:compiler/ir1opt"))
80
81 (comf "target:compiler/ir1final")
82 (comf "target:compiler/srctran")
83 (comf "target:compiler/array-tran")
84 (comf "target:compiler/seqtran")
85 (comf "target:compiler/typetran")
86 (comf "target:compiler/generic/vm-typetran")
87 (comf "target:compiler/float-tran")
88 (comf "target:compiler/saptran")
89 (comf "target:compiler/locall")
90 (comf "target:compiler/dfo")
91 (comf "target:compiler/checkgen")
92 (comf "target:compiler/constraint")
93 (comf "target:compiler/envanal")
94
95 (comf "target:compiler/tn")
96 (comf "target:compiler/bit-util")
97 (comf "target:compiler/life")
98
99 (comf "target:code/debug-info")
100
101 (comf "target:compiler/debug-dump")
102 (comf "target:compiler/generic/utils")
103 (comf "target:assembly/assemfile" :load *load-stuff*)
104
105 (with-compilation-unit
106 (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 1)))
107
108 (when (c:target-featurep :pmax)
109 (comf "target:compiler/mips/insts")
110 (comf "target:compiler/mips/macros" :load *load-stuff*)
111 (comf "target:compiler/mips/vm")
112 (comf "target:compiler/generic/primtype")
113 (comf "target:assembly/mips/support" :load *load-stuff*)
114 (comf "target:compiler/mips/move")
115 (comf "target:compiler/mips/float")
116 (comf "target:compiler/mips/sap")
117 (comf "target:compiler/mips/system")
118 (comf "target:compiler/mips/char")
119 (comf "target:compiler/mips/memory")
120 (comf "target:compiler/mips/static-fn")
121 (comf "target:compiler/mips/arith")
122 (comf "target:compiler/mips/subprim")
123 (comf "target:compiler/mips/debug")
124 (comf "target:compiler/mips/c-call")
125 (comf "target:compiler/mips/cell")
126 (comf "target:compiler/mips/values")
127 (comf "target:compiler/mips/alloc")
128 (comf "target:compiler/mips/call")
129 (comf "target:compiler/mips/nlx")
130 (comf "target:compiler/mips/print")
131 (comf "target:compiler/mips/array")
132 (comf "target:compiler/mips/pred")
133 (comf "target:compiler/mips/type-vops")
134
135 (comf "target:assembly/mips/assem-rtns")
136 (comf "target:assembly/mips/array")
137 (comf "target:assembly/mips/arith")
138 (comf "target:assembly/mips/alloc"))
139
140 (when (c:target-featurep :sparc)
141 (comf "target:compiler/sparc/insts")
142 (comf "target:compiler/sparc/macros" :load *load-stuff*)
143 (comf "target:compiler/sparc/vm")
144 (comf "target:compiler/generic/primtype")
145 (comf "target:compiler/sparc/move")
146 (comf "target:compiler/sparc/float")
147 (comf "target:compiler/sparc/sap")
148 (comf "target:compiler/sparc/system")
149 (comf "target:compiler/sparc/char")
150 (comf "target:compiler/sparc/memory")
151 (comf "target:compiler/sparc/static-fn")
152 (comf "target:compiler/sparc/arith")
153 (comf "target:compiler/sparc/subprim")
154 (comf "target:compiler/sparc/debug")
155 (comf "target:compiler/sparc/c-call")
156 (comf "target:compiler/sparc/cell")
157 (comf "target:compiler/sparc/values")
158 (comf "target:compiler/sparc/alloc")
159 (comf "target:compiler/sparc/call")
160 (comf "target:compiler/sparc/nlx")
161 (comf "target:compiler/sparc/print")
162 (comf "target:compiler/sparc/array")
163 (comf "target:compiler/sparc/pred")
164 (comf "target:compiler/sparc/type-vops")
165
166 (comf "target:assembly/sparc/support" :load *load-stuff*)
167 (comf "target:assembly/sparc/assem-rtns")
168 (comf "target:assembly/sparc/array")
169 (comf "target:assembly/sparc/arith")
170 (comf "target:assembly/sparc/alloc"))
171
172 (when (c:target-featurep :rt)
173 (comf "target:compiler/rt/insts")
174 (comf "target:compiler/rt/macros" :load *load-stuff*)
175 (comf "target:compiler/rt/vm")
176 (comf "target:compiler/rt/move")
177 (if (c:target-featurep :afpa)
178 (comf "target:compiler/rt/afpa")
179 (comf "target:compiler/rt/mc68881"))
180 (comf "target:compiler/rt/sap")
181 (comf "target:compiler/rt/system")
182 (comf "target:compiler/rt/char")
183 (comf "target:compiler/rt/memory")
184 (comf "target:compiler/rt/static-fn")
185 (comf "target:compiler/rt/arith")
186 (comf "target:compiler/rt/subprim")
187 (comf "target:compiler/rt/debug")
188 (comf "target:compiler/rt/c-call")
189 (comf "target:compiler/rt/cell")
190 (comf "target:compiler/rt/values")
191 (comf "target:compiler/rt/alloc")
192 (comf "target:compiler/rt/call")
193 (comf "target:compiler/rt/nlx")
194 (comf "target:compiler/rt/print")
195 (comf "target:compiler/rt/array")
196 (comf "target:compiler/rt/pred")
197 (comf "target:compiler/rt/type-vops")
198
199 (comf "target:assembly/rt/support" :load *load-stuff*)
200 (comf "target:assembly/rt/assem-rtns")
201 (comf "target:assembly/rt/array")
202 (comf "target:assembly/rt/arith")
203 (comf "target:assembly/rt/alloc"))
204
205 (when (c:target-featurep :hppa)
206 (comf "target:compiler/hppa/insts")
207 (comf "target:compiler/hppa/macros" :load *load-stuff*)
208 (comf "target:compiler/hppa/vm")
209 (comf "target:compiler/generic/primtype")
210 (comf "target:assembly/hppa/support" :load *load-stuff*)
211 (comf "target:compiler/hppa/move")
212 (comf "target:compiler/hppa/float")
213 (comf "target:compiler/hppa/sap")
214 (comf "target:compiler/hppa/system")
215 (comf "target:compiler/hppa/char")
216 (comf "target:compiler/hppa/memory")
217 (comf "target:compiler/hppa/static-fn")
218 (comf "target:compiler/hppa/arith")
219 (comf "target:compiler/hppa/subprim")
220 (comf "target:compiler/hppa/debug")
221 (comf "target:compiler/hppa/c-call")
222 (comf "target:compiler/hppa/cell")
223 (comf "target:compiler/hppa/values")
224 (comf "target:compiler/hppa/alloc")
225 (comf "target:compiler/hppa/call")
226 (comf "target:compiler/hppa/nlx")
227 (comf "target:compiler/hppa/print")
228 (comf "target:compiler/hppa/array")
229 (comf "target:compiler/hppa/pred")
230 (comf "target:compiler/hppa/type-vops")
231
232 (comf "target:assembly/hppa/assem-rtns")
233 (comf "target:assembly/hppa/array")
234 (comf "target:assembly/hppa/arith")
235 (comf "target:assembly/hppa/alloc"))
236
237 (when (c:target-featurep :x86)
238 (comf "target:compiler/x86/insts")
239 (comf "target:compiler/x86/macros" :load *load-stuff*)
240 (comf "target:compiler/x86/vm")
241 (comf "target:compiler/generic/primtype")
242 (comf "target:assembly/x86/support" :load *load-stuff*)
243 (comf "target:compiler/x86/move")
244 (comf "target:compiler/x86/float")
245 (comf "target:compiler/x86/sap")
246 (comf "target:compiler/x86/system")
247 (comf "target:compiler/x86/char")
248 (comf "target:compiler/x86/memory")
249 (comf "target:compiler/x86/static-fn")
250 (comf "target:compiler/x86/arith")
251 (comf "target:compiler/x86/subprim")
252 (comf "target:compiler/x86/debug")
253 (comf "target:compiler/x86/c-call")
254 (comf "target:compiler/x86/cell")
255 (comf "target:compiler/x86/values")
256 (comf "target:compiler/x86/alloc")
257 (comf "target:compiler/x86/call")
258 (comf "target:compiler/x86/nlx")
259 (comf "target:compiler/x86/print")
260 (comf "target:compiler/x86/array")
261 (comf "target:compiler/x86/pred")
262 (comf "target:compiler/x86/type-vops")
263
264 (comf "target:assembly/x86/assem-rtns")
265 (comf "target:assembly/x86/array")
266 (comf "target:assembly/x86/arith")
267 (comf "target:assembly/x86/alloc"))
268
269 (comf "target:compiler/pseudo-vops")
270
271 ); with-compilation-unit for back end.
272
273 (comf "target:compiler/aliencomp")
274 (comf "target:compiler/ltv")
275 (comf "target:compiler/gtn")
276 (with-compilation-unit
277 (:optimize '(optimize (debug 2) (safety 1)))
278 (comf "target:compiler/ltn"))
279 (comf "target:compiler/stack")
280 (comf "target:compiler/control")
281 (comf "target:compiler/entry")
282 (with-compilation-unit
283 (:optimize '(optimize (debug 2) (safety 1)))
284 (comf "target:compiler/ir2tran")
285 (comf "target:compiler/generic/vm-ir2tran"))
286 (comf "target:compiler/copyprop")
287 (with-compilation-unit
288 (:optimize '(optimize (debug 2) (safety 1)))
289 (comf "target:compiler/represent"))
290 (comf "target:compiler/generic/vm-tran")
291 (with-compilation-unit
292 (:optimize '(optimize (debug 2) (safety 1)))
293 (comf "target:compiler/pack"))
294 (comf "target:compiler/codegen")
295 (with-compilation-unit
296 (:optimize '(optimize (debug 2) (safety 2)))
297 (comf "target:compiler/debug"))
298 (comf "target:compiler/statcount")
299 (comf "target:compiler/dyncount")
300
301 (comf "target:compiler/dump")
302
303 (comf "target:compiler/generic/core")
304 (comf "target:compiler/generic/new-genesis")
305
306 (comf "target:compiler/eval-comp")
307 (comf "target:compiler/eval")
308 (comf "target:compiler/byte-comp")
309
310 ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5