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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.53.2.1 - (show annotations)
Sat May 22 12:13:45 2004 UTC (9 years, 10 months ago) by rtoy
Branch: UNICODE-BRANCH
Changes since 1.53: +10 -5 lines
Perform trivial merge from head to unicode-branch.
1 ;;; -*- Package: CL-USER -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;;
5 (ext:file-comment
6 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/comcom.lisp,v 1.53.2.1 2004/05/22 12:13:45 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/ir1final")
117 ;;try(comf "target:compiler/srctran")
118 (comf "target:compiler/array-tran" :byte-compile *byte-compile*)
119 (comf "target:compiler/seqtran" :byte-compile *byte-compile*)
120 (comf "target:compiler/typetran" :byte-compile *byte-compile*)
121 (comf "target:compiler/generic/vm-typetran" :byte-compile *byte-compile*)
122 (comf "target:compiler/float-tran" :byte-compile *byte-compile*)
123 (comf "target:compiler/saptran" :byte-compile *byte-compile*)
124 (comf "target:compiler/srctran") ;; try
125 (comf "target:compiler/locall")
126 (comf "target:compiler/dfo")
127 (comf "target:compiler/checkgen")
128 (comf "target:compiler/constraint")
129 (comf "target:compiler/envanal")
130
131
132 (comf "target:compiler/tn")
133 (comf "target:compiler/life")
134
135 (comf "target:code/debug-info")
136
137 (comf "target:compiler/debug-dump")
138 (comf "target:compiler/generic/utils")
139 #-bootstrap
140 (comf "target:assembly/assemfile")
141 #+bootstrap
142 (comf "target:assembly/assemfile" :byte-compile t)
143 (when *load-stuff* (load "target:assembly/assemfile"))
144
145
146 (with-compilation-unit
147 (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 0)))
148
149 #+original
150 (progn ; this is distributed order
151 (comf (vmdir "target:compiler/insts"))
152 (comf (vmdir "target:compiler/macros") :load *load-stuff*)
153 (comf (vmdir "target:compiler/vm")))
154 #+original
155 (progn ; this works for x86
156 (comf (vmdir "target:compiler/vm"))
157 (comf (vmdir "target:compiler/macros") :load *load-stuff*)
158 (comf (vmdir "target:compiler/insts")))
159 #-tryit
160 (progn ; this also works - better??
161 (comf (vmdir "target:compiler/vm"))
162 (comf (vmdir "target:compiler/insts"))
163 (comf (vmdir "target:compiler/macros")
164 :byte-compile #+bootstrap t #-bootstrap nil)
165 (when *load-stuff*
166 (load (vmdir "target:compiler/macros")))
167 )
168
169 (comf "target:compiler/generic/primtype")
170 (comf (vmdir "target:assembly/support")
171 :byte-compile #+bootstrap t #-bootstrap nil) ; pw
172 (when *load-stuff*
173 (load (vmdir "target:assembly/support")))
174 (comf (vmdir "target:compiler/move"))
175 (comf (vmdir "target:compiler/float") :byte-compile *byte-compile*)
176 (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)
177 (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*)
178 (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*)
179 (comf (vmdir "target:compiler/memory"))
180 (comf (vmdir "target:compiler/static-fn"))
181 (comf (vmdir "target:compiler/arith"))
182 (comf (vmdir "target:compiler/subprim") :byte-compile *byte-compile*)
183
184 (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*)
185 (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*)
186 (comf (vmdir "target:compiler/cell"))
187 (comf (vmdir "target:compiler/values") :byte-compile *byte-compile*)
188 (comf (vmdir "target:compiler/alloc"))
189 (comf (vmdir "target:compiler/call"))
190 (comf (vmdir "target:compiler/nlx") :byte-compile *byte-compile*)
191 (comf (vmdir "target:compiler/print") :byte-compile *byte-compile*)
192 (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*)
193 (comf (vmdir "target:compiler/pred"))
194 (comf (vmdir "target:compiler/type-vops") :byte-compile *byte-compile*)
195
196 (comf (vmdir "target:assembly/assem-rtns") :byte-compile *byte-compile*)
197 (comf (vmdir "target:assembly/array") :byte-compile *byte-compile*)
198 (comf (vmdir "target:assembly/arith"))
199 (comf (vmdir "target:assembly/alloc"))
200
201 (comf "target:compiler/pseudo-vops")
202
203 ); with-compilation-unit for back end.
204
205 (comf "target:compiler/aliencomp" :byte-compile *byte-compile*)
206
207 (comf "target:compiler/ltv")
208 (comf "target:compiler/gtn")
209 (with-compilation-unit
210 (:optimize '(optimize (debug 2)))
211 (comf "target:compiler/ltn"))
212 (comf "target:compiler/stack")
213 (comf "target:compiler/control")
214 (comf "target:compiler/entry")
215 (with-compilation-unit
216 (:optimize '(optimize (debug 2)))
217 (comf "target:compiler/ir2tran")
218 (comf "target:compiler/generic/vm-ir2tran"))
219 (comf "target:compiler/copyprop")
220 (with-compilation-unit
221 (:optimize '(optimize (debug 2)))
222 (comf "target:compiler/represent"))
223 (comf "target:compiler/generic/vm-tran")
224 (with-compilation-unit
225 (:optimize '(optimize (debug 2)))
226 (comf "target:compiler/pack"))
227 (comf "target:compiler/codegen")
228 (with-compilation-unit
229 (:optimize '(optimize (debug 2) (safety 2)))
230 (comf "target:compiler/debug" :byte-compile *byte-compile*)
231 (comf "target:compiler/xref" :byte-compile *byte-compile*))
232 #+nil
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/new-genesis")
240
241 (comf "target:compiler/eval-comp")
242 (comf "target:compiler/eval")
243 (comf "target:compiler/byte-comp")
244
245 ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5