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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.48.2.2 - (show annotations)
Tue May 23 16:39:06 2000 UTC (13 years, 10 months ago) by pw
Branch: RELENG_18
CVS Tags: RELEASE_18d, RELEASE_18c
Changes since 1.48.2.1: +7 -0 lines
This set of revisions brings the RELENG_18 branch up to HEAD in preparation
for an 18c release.
1 ;;; -*- Package: User -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;;
5 (ext:file-comment
6 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/comcom.lisp,v 1.48.2.2 2000/05/23 16:39:06 pw Exp $")
7 ;;;
8 ;;; **********************************************************************
9 ;;;
10 (in-package "USER")
11
12 #+bootstrap
13 (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))
14
15 (defvar *load-stuff*
16 #+bootstrap t
17 #-bootstrap (eq c:*backend* c:*native-backend*))
18
19 (defvar *byte-compile* #+small t #-small :maybe)
20
21 ;;; Import so that these types which appear in the globldb are the same...
22 #+bootstrap
23 (import '(old-c::approximate-function-type
24 old-c::function-info old-c::defstruct-description
25 old-c::defstruct-slot-description)
26 "C")
27
28
29 (with-compiler-log-file
30 ("target:compile-compiler.log"
31 :optimize
32 '(optimize (speed 2) (space 2) (inhibit-warnings 2)
33 (safety #+small 0 #-small 1)
34 (debug #+small .5 #-small 2))
35 :optimize-interface
36 '(optimize-interface (safety #+small 1 #-small 2)
37 (debug #+small .5 #-small 2))
38 :context-declarations
39 '(#+small
40 ((:or :macro
41 (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"
42 "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
43 (declare (optimize (safety 1))))
44 ((:or :macro (:match "$%PRINT-"))
45 (declare (optimize (speed 0))))
46 (:external (declare (optimize-interface (safety 2) (debug 1))))))
47
48
49 (comf "target:compiler/macros"
50 :byte-compile #+bootstrap t #-bootstrap *byte-compile*)
51 (when *load-stuff*
52 (load "target:compiler/macros"))
53
54 (comf "target:compiler/generic/vm-macs" :proceed t
55 :byte-compile #+bootstrap t #-bootstrap nil)
56 (when *load-stuff*
57 (load "target:compiler/generic/vm-macs"))
58
59 (comf "target:compiler/backend" :proceed t
60 :byte-compile #+bootstrap t #-bootstrap nil)
61 (when *load-stuff*
62 (load "target:compiler/backend"))
63
64 (defvar c::*target-backend* (c::make-backend))
65
66 (comf (vmdir "target:compiler/parms") :proceed t)
67
68 (comf "target:compiler/generic/objdef" :proceed t)
69 (comf "target:compiler/generic/interr")
70
71 (comf "target:code/struct") ; For defstruct description structures.
72 (comf "target:compiler/proclaim") ; For COOKIE structure.
73 (comf "target:compiler/globals")
74
75 (comf "target:compiler/sset")
76 (comf "target:compiler/bit-util")
77 (comf "target:compiler/node")
78 (comf "target:compiler/ctype")
79 (comf "target:compiler/vop" :proceed t)
80 (comf "target:compiler/vmdef")
81
82 #-bootstrap
83 (comf "target:compiler/meta-vmdef" :proceed t)
84 #+bootstrap ;; pw adds
85 (comf "target:compiler/meta-vmdef" :byte-compile t)
86 (when *load-stuff*
87 (load "target:compiler/meta-vmdef"))
88 (comf "target:compiler/disassem" :byte-compile *byte-compile*)
89 (comf "target:compiler/new-assem")
90 (comf "target:compiler/alloc")
91 (comf "target:compiler/knownfun")
92 (comf "target:compiler/fndb")
93 (comf "target:compiler/generic/vm-fndb")
94 (comf "target:compiler/main")
95
96 (with-compilation-unit
97 (:optimize '(optimize (safety 1)))
98 (comf "target:compiler/ir1tran"))
99
100 (with-compilation-unit
101 (:optimize '(optimize (debug 2)))
102 (comf "target:compiler/ir1util")
103 (comf "target:compiler/ir1opt"))
104
105 (comf "target:compiler/ir1final")
106 ;;try(comf "target:compiler/srctran")
107 (comf "target:compiler/array-tran" :byte-compile *byte-compile*)
108 (comf "target:compiler/seqtran" :byte-compile *byte-compile*)
109 (comf "target:compiler/typetran" :byte-compile *byte-compile*)
110 (comf "target:compiler/generic/vm-typetran" :byte-compile *byte-compile*)
111 (comf "target:compiler/float-tran" :byte-compile *byte-compile*)
112 (comf "target:compiler/saptran" :byte-compile *byte-compile*)
113 (comf "target:compiler/srctran") ;; try
114 (comf "target:compiler/locall")
115 (comf "target:compiler/dfo")
116 (comf "target:compiler/checkgen")
117 (comf "target:compiler/constraint")
118 (comf "target:compiler/envanal")
119
120
121 (comf "target:compiler/tn")
122 (comf "target:compiler/life")
123
124 (comf "target:code/debug-info")
125
126 (comf "target:compiler/debug-dump")
127 (comf "target:compiler/generic/utils")
128 #-bootstrap
129 (comf "target:assembly/assemfile")
130 #+bootstrap
131 (comf "target:assembly/assemfile" :byte-compile t)
132 (when *load-stuff* (load "target:assembly/assemfile"))
133
134
135 (with-compilation-unit
136 (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 0)))
137
138 #+original
139 (progn ; this is distributed order
140 (comf (vmdir "target:compiler/insts"))
141 (comf (vmdir "target:compiler/macros") :load *load-stuff*)
142 (comf (vmdir "target:compiler/vm")))
143 #+original
144 (progn ; this works for x86
145 (comf (vmdir "target:compiler/vm"))
146 (comf (vmdir "target:compiler/macros") :load *load-stuff*)
147 (comf (vmdir "target:compiler/insts")))
148 #-tryit
149 (progn ; this also works - better??
150 (comf (vmdir "target:compiler/vm"))
151 (comf (vmdir "target:compiler/insts"))
152 (comf (vmdir "target:compiler/macros")
153 :byte-compile #+bootstrap t #-bootstrap nil)
154 (when *load-stuff*
155 (load (vmdir "target:compiler/macros")))
156 )
157
158 (comf "target:compiler/generic/primtype")
159 (comf (vmdir "target:assembly/support")
160 :byte-compile #+bootstrap t #-bootstrap nil) ; pw
161 (when *load-stuff*
162 (load (vmdir "target:assembly/support")))
163 (comf (vmdir "target:compiler/move"))
164 (comf (vmdir "target:compiler/float") :byte-compile *byte-compile*)
165 (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)
166 (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*)
167 (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*)
168 (comf (vmdir "target:compiler/memory"))
169 (comf (vmdir "target:compiler/static-fn"))
170 (comf (vmdir "target:compiler/arith"))
171 (comf (vmdir "target:compiler/subprim") :byte-compile *byte-compile*)
172
173 (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*)
174 (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*)
175 (comf (vmdir "target:compiler/cell"))
176 (comf (vmdir "target:compiler/values") :byte-compile *byte-compile*)
177 (comf (vmdir "target:compiler/alloc"))
178 (comf (vmdir "target:compiler/call"))
179 (comf (vmdir "target:compiler/nlx") :byte-compile *byte-compile*)
180 (comf (vmdir "target:compiler/print") :byte-compile *byte-compile*)
181 (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*)
182 (comf (vmdir "target:compiler/pred"))
183 (comf (vmdir "target:compiler/type-vops") :byte-compile *byte-compile*)
184
185 (comf (vmdir "target:assembly/assem-rtns") :byte-compile *byte-compile*)
186 (comf (vmdir "target:assembly/array") :byte-compile *byte-compile*)
187 (comf (vmdir "target:assembly/arith"))
188 (comf (vmdir "target:assembly/alloc"))
189
190 (comf "target:compiler/pseudo-vops")
191
192 ); with-compilation-unit for back end.
193
194 (comf "target:compiler/aliencomp" :byte-compile *byte-compile*)
195
196 (comf "target:compiler/ltv")
197 (comf "target:compiler/gtn")
198 (with-compilation-unit
199 (:optimize '(optimize (debug 2)))
200 (comf "target:compiler/ltn"))
201 (comf "target:compiler/stack")
202 (comf "target:compiler/control")
203 (comf "target:compiler/entry")
204 (with-compilation-unit
205 (:optimize '(optimize (debug 2)))
206 (comf "target:compiler/ir2tran")
207 (comf "target:compiler/generic/vm-ir2tran"))
208 (comf "target:compiler/copyprop")
209 (with-compilation-unit
210 (:optimize '(optimize (debug 2)))
211 (comf "target:compiler/represent"))
212 (comf "target:compiler/generic/vm-tran")
213 (with-compilation-unit
214 (:optimize '(optimize (debug 2)))
215 (comf "target:compiler/pack"))
216 (comf "target:compiler/codegen")
217 (with-compilation-unit
218 (:optimize '(optimize (debug 2) (safety 2)))
219 (comf "target:compiler/debug" :byte-compile *byte-compile*))
220 #+nil
221 (comf "target:compiler/statcount")
222 (comf "target:compiler/dyncount")
223
224 (comf "target:compiler/dump")
225
226 (comf "target:compiler/generic/core")
227 (comf "target:compiler/generic/new-genesis")
228
229 (comf "target:compiler/eval-comp")
230 (comf "target:compiler/eval")
231 (comf "target:compiler/byte-comp")
232
233 ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5