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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.25 - (show annotations)
Fri Feb 21 22:06:32 1992 UTC (22 years, 2 months ago) by wlott
Branch: MAIN
Changes since 1.24: +1 -1 lines
Moved float to before sap so that sap stuff can refer to float stuff instead
of float stuff refering to sap stuff.
1 ;;; -*- Package: User -*-
2 ;;;
3 (in-package "USER")
4
5 #+bootstrap
6 (copy-packages (cons (c::backend-name c::*target-backend*) '("ASSEM" "C")))
7 #+bootstrap
8 (export '(assem::nop) "ASSEM")
9
10 (defparameter *load-stuff* #+bootstrap t #-bootstrap nil)
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-info #+small .5 #-small 2))
25 :optimize-interface
26 '(optimize-interface (safety #+small 1 #-small 2)
27 (debug-info .5))
28 :context-declarations
29 '(#+small
30 ((:or :macro
31 (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"
32 "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
33 (declare (optimize (safety 1))))
34 (:external (declare (optimize-interface (safety 2) (debug-info 1))))))
35
36 (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
40 (defvar c::*target-backend* (c::make-backend))
41
42 (when (string= (old-c:backend-name old-c:*backend*) "PMAX")
43 (comf "target:compiler/mips/parms" :proceed t))
44 (when (string= (old-c:backend-name old-c:*backend*) "SPARC")
45 (comf "target:compiler/sparc/parms" :proceed t))
46 (when (string= (old-c:backend-name old-c:*backend*) "RT")
47 (comf "target:compiler/rt/params" :proceed t))
48 (comf "target:compiler/generic/objdef" :proceed t)
49
50 (comf "target:code/struct") ; For defstruct description structures.
51 (comf "target:compiler/proclaim") ; For COOKIE structure.
52 (comf "target:compiler/globals")
53
54 (comf "target:compiler/type")
55 (comf "target:compiler/generic/vm-type")
56 (comf "target:compiler/type-init")
57 (comf "target:compiler/sset")
58 (comf "target:compiler/node")
59 (comf "target:compiler/ctype")
60 (comf "target:compiler/vop" :proceed t)
61 (comf "target:compiler/vmdef" :load *load-stuff* :proceed t)
62
63 (comf "target:compiler/assembler" :proceed t)
64 (comf "target:compiler/disassem")
65 (comf "target:compiler/alloc")
66 (comf "target:compiler/knownfun")
67 (comf "target:compiler/fndb")
68 (comf "target:compiler/generic/vm-fndb")
69 (comf "target:compiler/main")
70
71 (with-compilation-unit
72 (:optimize '(optimize (debug-info 2) (safety 1)))
73 (comf "target:compiler/ir1tran")
74 (comf "target:compiler/ir1util")
75 (comf "target:compiler/ir1opt"))
76
77 (comf "target:compiler/ir1final")
78 (comf "target:compiler/srctran")
79 (comf "target:compiler/array-tran")
80 (comf "target:compiler/seqtran")
81 (comf "target:compiler/typetran")
82 (comf "target:compiler/generic/vm-typetran")
83 (comf "target:compiler/float-tran")
84 (comf "target:compiler/saptran")
85 (comf "target:compiler/locall")
86 (comf "target:compiler/dfo")
87 (comf "target:compiler/checkgen")
88 (comf "target:compiler/constraint")
89 (comf "target:compiler/envanal")
90
91 (comf "target:compiler/tn")
92 (comf "target:compiler/bit-util")
93 (comf "target:compiler/life")
94
95 (comf "target:code/debug-info")
96
97 (comf "target:compiler/debug-dump")
98 (comf "target:compiler/generic/utils")
99 (comf "target:assembly/assemfile" :load *load-stuff*)
100
101 (with-compilation-unit
102 (:optimize '(optimize (safety 0) (debug-info 1)))
103
104 (when (string= (old-c:backend-name old-c:*backend*) "PMAX")
105 (comf "target:compiler/mips/insts")
106 (comf "target:compiler/mips/macros" :load *load-stuff*)
107 (comf "target:compiler/mips/vm")
108 (comf "target:compiler/generic/primtype")
109 (comf "target:assembly/mips/support" :load *load-stuff*)
110 (comf "target:compiler/mips/move")
111 (comf "target:compiler/mips/float")
112 (comf "target:compiler/mips/sap")
113 (comf "target:compiler/mips/system")
114 (comf "target:compiler/mips/char")
115 (comf "target:compiler/mips/memory")
116 (comf "target:compiler/mips/static-fn")
117 (comf "target:compiler/mips/arith")
118 (comf "target:compiler/mips/subprim")
119 (comf "target:compiler/mips/debug")
120 (comf "target:compiler/mips/c-call")
121 (comf "target:compiler/mips/cell")
122 (comf "target:compiler/mips/values")
123 (comf "target:compiler/mips/alloc")
124 (comf "target:compiler/mips/call")
125 (comf "target:compiler/mips/nlx")
126 (comf "target:compiler/mips/print")
127 (comf "target:compiler/mips/array")
128 (comf "target:compiler/mips/pred")
129 (comf "target:compiler/mips/type-vops")
130
131 (comf "target:assembly/mips/assem-rtns")
132 (comf "target:assembly/mips/bit-bash")
133 (comf "target:assembly/mips/array")
134 (comf "target:assembly/mips/arith")
135 (comf "target:assembly/mips/alloc"))
136
137 (when (string= (old-c:backend-name old-c:*backend*) "SPARC")
138 (comf "target:compiler/sparc/insts")
139 (comf "target:compiler/sparc/macros" :load *load-stuff*)
140 (comf "target:compiler/sparc/vm")
141 (comf "target:compiler/generic/primtype")
142 (comf "target:compiler/sparc/move")
143 (comf "target:compiler/sparc/sap")
144 (comf "target:compiler/sparc/system")
145 (comf "target:compiler/sparc/char")
146 (comf "target:compiler/sparc/float")
147 (comf "target:compiler/sparc/memory")
148 (comf "target:compiler/sparc/static-fn")
149 (comf "target:compiler/sparc/arith")
150 (comf "target:compiler/sparc/subprim")
151 (comf "target:compiler/sparc/debug")
152 (comf "target:compiler/sparc/c-call")
153 (comf "target:compiler/sparc/cell")
154 (comf "target:compiler/sparc/values")
155 (comf "target:compiler/sparc/alloc")
156 (comf "target:compiler/sparc/call")
157 (comf "target:compiler/sparc/nlx")
158 (comf "target:compiler/sparc/print")
159 (comf "target:compiler/sparc/array")
160 (comf "target:compiler/sparc/pred")
161 (comf "target:compiler/sparc/type-vops")
162
163 (comf "target:assembly/sparc/support" :load *load-stuff*)
164 (comf "target:assembly/sparc/assem-rtns")
165 (comf "target:assembly/sparc/bit-bash")
166 (comf "target:assembly/sparc/array")
167 (comf "target:assembly/sparc/arith")
168 (comf "target:assembly/sparc/alloc"))
169
170 (when (string= (old-c:backend-name old-c:*backend*) "RT")
171 (comf "target:compiler/rt/insts")
172 (comf "target:compiler/rt/macros" :load *load-stuff*)
173 (comf "target:compiler/rt/vm")
174 (comf "target:compiler/rt/move")
175 (comf "target:compiler/rt/sap")
176 (comf "target:compiler/rt/system")
177 (comf "target:compiler/rt/char")
178 (if (eq vm::*target-float-hardware* :afpa)
179 (comf "target:compiler/rt/afpa")
180 (comf "target:compiler/rt/mc68881"))
181 (comf "target:compiler/rt/memory")
182 (comf "target:compiler/rt/static-fn")
183 (comf "target:compiler/rt/arith")
184 (comf "target:compiler/rt/subprim")
185 (comf "target:compiler/rt/debug")
186 (comf "target:compiler/rt/c-call")
187 (comf "target:compiler/rt/cell")
188 (comf "target:compiler/rt/values")
189 (comf "target:compiler/rt/alloc")
190 (comf "target:compiler/rt/call")
191 (comf "target:compiler/rt/nlx")
192 (comf "target:compiler/rt/print")
193 (comf "target:compiler/rt/array")
194 (comf "target:compiler/rt/pred")
195 (comf "target:compiler/rt/type-vops")
196
197 (comf "target:assembly/rt/support" :load *load-stuff*)
198 (comf "target:assembly/rt/assem-rtns")
199 (comf "target:assembly/rt/array")
200 (comf "target:assembly/rt/arith")
201 (comf "target:assembly/rt/alloc"))
202
203 (comf "target:compiler/pseudo-vops")
204
205 ); with-compilation-unit for back end.
206
207 (comf "target:compiler/aliencomp")
208 (comf "target:compiler/ltv")
209 (comf "target:compiler/gtn")
210 (with-compilation-unit
211 (:optimize '(optimize (debug-info 2) (safety 1)))
212 (comf "target:compiler/ltn"))
213 (comf "target:compiler/stack")
214 (comf "target:compiler/control")
215 (comf "target:compiler/entry")
216 (with-compilation-unit
217 (:optimize '(optimize (debug-info 2) (safety 1)))
218 (comf "target:compiler/ir2tran"))
219 (comf "target:compiler/copyprop")
220 (comf "target:compiler/assem-opt")
221 (with-compilation-unit
222 (:optimize '(optimize (debug-info 2) (safety 1)))
223 (comf "target:compiler/represent"))
224 (comf "target:compiler/generic/vm-tran")
225 (with-compilation-unit
226 (:optimize '(optimize (debug-info 2) (safety 1)))
227 (comf "target:compiler/pack"))
228 (comf "target:compiler/codegen")
229 (with-compilation-unit
230 (:optimize '(optimize (debug-info 2) (safety 2)))
231 (comf "target:compiler/debug"))
232 (comf "target:compiler/assem-check")
233 (comf "target:compiler/statcount")
234 (comf "target:compiler/dyncount")
235
236 (comf "target:compiler/dump")
237
238 (comf "target:compiler/generic/core")
239 (comf "target:compiler/generic/genesis")
240
241 (comf "target:compiler/eval-comp")
242 (comf "target:compiler/eval")
243
244 ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5