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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.5