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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.5