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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.5