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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.26 - (hide annotations)
Thu Feb 27 06:08:03 1992 UTC (22 years, 1 month ago) by wlott
Branch: MAIN
Branch point for: gengc
Changes since 1.25: +4 -4 lines
Moved float.lisp to before sap.lisp.
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 ram 1.18 (debug-info .5))
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 ram 1.12 (when (string= (old-c:backend-name old-c:*backend*) "PMAX")
43 wlott 1.17 (comf "target:compiler/mips/parms" :proceed t))
44 ram 1.12 (when (string= (old-c:backend-name old-c:*backend*) "SPARC")
45 wlott 1.17 (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 wlott 1.1
50 ram 1.12 (comf "target:code/struct") ; For defstruct description structures.
51     (comf "target:compiler/proclaim") ; For COOKIE structure.
52     (comf "target:compiler/globals")
53 wlott 1.1
54 ram 1.12 (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 wlott 1.13 (comf "target:compiler/vmdef" :load *load-stuff* :proceed t)
62 wlott 1.1
63 ram 1.20 (comf "target:compiler/assembler" :proceed t)
64     (comf "target:compiler/disassem")
65 ram 1.12 (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 wlott 1.1
71 ram 1.16 (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 ram 1.12 (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 wlott 1.24 (comf "target:compiler/saptran")
85 ram 1.12 (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 ram 1.6
91 ram 1.12 (comf "target:compiler/tn")
92     (comf "target:compiler/bit-util")
93     (comf "target:compiler/life")
94 ram 1.4
95 ram 1.12 (comf "target:code/debug-info")
96 ram 1.4
97 ram 1.12 (comf "target:compiler/debug-dump")
98     (comf "target:compiler/generic/utils")
99 wlott 1.13 (comf "target:assembly/assemfile" :load *load-stuff*)
100 wlott 1.1
101 ram 1.16 (with-compilation-unit
102     (:optimize '(optimize (safety 0) (debug-info 1)))
103    
104 ram 1.12 (when (string= (old-c:backend-name old-c:*backend*) "PMAX")
105 wlott 1.22 (comf "target:compiler/mips/insts")
106     (comf "target:compiler/mips/macros" :load *load-stuff*)
107 ram 1.12 (comf "target:compiler/mips/vm")
108     (comf "target:compiler/generic/primtype")
109 wlott 1.13 (comf "target:assembly/mips/support" :load *load-stuff*)
110 ram 1.12 (comf "target:compiler/mips/move")
111 wlott 1.25 (comf "target:compiler/mips/float")
112 ram 1.12 (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 wlott 1.1
131 ram 1.12 (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 wlott 1.1
137 ram 1.12 (when (string= (old-c:backend-name old-c:*backend*) "SPARC")
138     (comf "target:compiler/sparc/insts")
139 wlott 1.13 (comf "target:compiler/sparc/macros" :load *load-stuff*)
140 ram 1.12 (comf "target:compiler/sparc/vm")
141     (comf "target:compiler/generic/primtype")
142     (comf "target:compiler/sparc/move")
143 wlott 1.26 (comf "target:compiler/sparc/float")
144 ram 1.12 (comf "target:compiler/sparc/sap")
145     (comf "target:compiler/sparc/system")
146     (comf "target:compiler/sparc/char")
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 wlott 1.1
163 wlott 1.13 (comf "target:assembly/sparc/support" :load *load-stuff*)
164 ram 1.12 (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 wlott 1.17
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 wlott 1.26 (if (eq vm::*target-float-hardware* :afpa)
176     (comf "target:compiler/rt/afpa")
177     (comf "target:compiler/rt/mc68881"))
178 wlott 1.17 (comf "target:compiler/rt/sap")
179     (comf "target:compiler/rt/system")
180     (comf "target:compiler/rt/char")
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 wlott 1.1
203 ram 1.12 (comf "target:compiler/pseudo-vops")
204 ram 1.14
205 ram 1.16 ); with-compilation-unit for back end.
206 wlott 1.1
207 ram 1.12 (comf "target:compiler/aliencomp")
208 wlott 1.21 (comf "target:compiler/ltv")
209 ram 1.12 (comf "target:compiler/gtn")
210 ram 1.16 (with-compilation-unit
211     (:optimize '(optimize (debug-info 2) (safety 1)))
212     (comf "target:compiler/ltn"))
213 ram 1.12 (comf "target:compiler/stack")
214     (comf "target:compiler/control")
215     (comf "target:compiler/entry")
216 ram 1.16 (with-compilation-unit
217     (:optimize '(optimize (debug-info 2) (safety 1)))
218     (comf "target:compiler/ir2tran"))
219 ram 1.12 (comf "target:compiler/copyprop")
220     (comf "target:compiler/assem-opt")
221 ram 1.16 (with-compilation-unit
222     (:optimize '(optimize (debug-info 2) (safety 1)))
223     (comf "target:compiler/represent"))
224 ram 1.12 (comf "target:compiler/generic/vm-tran")
225 ram 1.16 (with-compilation-unit
226     (:optimize '(optimize (debug-info 2) (safety 1)))
227     (comf "target:compiler/pack"))
228 ram 1.12 (comf "target:compiler/codegen")
229 ram 1.23 (with-compilation-unit
230     (:optimize '(optimize (debug-info 2) (safety 2)))
231     (comf "target:compiler/debug"))
232 ram 1.19 (comf "target:compiler/assem-check")
233 ram 1.12 (comf "target:compiler/statcount")
234     (comf "target:compiler/dyncount")
235 ram 1.3
236 ram 1.12 (comf "target:compiler/dump")
237 wlott 1.1
238 ram 1.12 (comf "target:compiler/generic/core")
239     (comf "target:compiler/generic/genesis")
240 wlott 1.1
241 ram 1.12 (comf "target:compiler/eval-comp")
242     (comf "target:compiler/eval")
243 wlott 1.1
244     ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5