/[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 - (hide annotations)
Tue May 23 16:39:06 2000 UTC (13 years, 11 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 wlott 1.1 ;;; -*- Package: User -*-
2     ;;;
3 pw 1.48.2.2 ;;; **********************************************************************
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 wlott 1.1 (in-package "USER")
11    
12 ram 1.12 #+bootstrap
13 ram 1.36 (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))
14 ram 1.9
15 ram 1.39 (defvar *load-stuff*
16 wlott 1.35 #+bootstrap t
17     #-bootstrap (eq c:*backend* c:*native-backend*))
18 wlott 1.13
19 ram 1.44 (defvar *byte-compile* #+small t #-small :maybe)
20    
21 ram 1.12 ;;; 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 wlott 1.1
28 ram 1.48
29 ram 1.16 (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 ram 1.42 (debug #+small .5 #-small 2))
35 ram 1.16 :optimize-interface
36     '(optimize-interface (safety #+small 1 #-small 2)
37 ram 1.42 (debug #+small .5 #-small 2))
38 ram 1.16 :context-declarations
39     '(#+small
40     ((:or :macro
41     (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"
42     "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
43     (declare (optimize (safety 1))))
44 ram 1.46 ((:or :macro (:match "$%PRINT-"))
45 ram 1.45 (declare (optimize (speed 0))))
46 ram 1.42 (:external (declare (optimize-interface (safety 2) (debug 1))))))
47 wlott 1.1
48 ram 1.48
49 pw 1.48.2.1 (comf "target:compiler/macros"
50     :byte-compile #+bootstrap t #-bootstrap *byte-compile*)
51     (when *load-stuff*
52     (load "target:compiler/macros"))
53 ram 1.48
54 pw 1.48.2.1 (comf "target:compiler/generic/vm-macs" :proceed t
55 ram 1.48 :byte-compile #+bootstrap t #-bootstrap nil)
56 pw 1.48.2.1 (when *load-stuff*
57     (load "target:compiler/generic/vm-macs"))
58 ram 1.48
59 pw 1.48.2.1 (comf "target:compiler/backend" :proceed t
60 ram 1.48 :byte-compile #+bootstrap t #-bootstrap nil)
61 pw 1.48.2.1 (when *load-stuff*
62     (load "target:compiler/backend"))
63 wlott 1.1
64 ram 1.12 (defvar c::*target-backend* (c::make-backend))
65 wlott 1.1
66 ram 1.44 (comf (vmdir "target:compiler/parms") :proceed t)
67 ram 1.48
68 wlott 1.17 (comf "target:compiler/generic/objdef" :proceed t)
69 wlott 1.27 (comf "target:compiler/generic/interr")
70 wlott 1.1
71 ram 1.12 (comf "target:code/struct") ; For defstruct description structures.
72     (comf "target:compiler/proclaim") ; For COOKIE structure.
73     (comf "target:compiler/globals")
74 wlott 1.1
75 ram 1.12 (comf "target:compiler/sset")
76 ram 1.43 (comf "target:compiler/bit-util")
77 ram 1.12 (comf "target:compiler/node")
78     (comf "target:compiler/ctype")
79     (comf "target:compiler/vop" :proceed t)
80 wlott 1.34 (comf "target:compiler/vmdef")
81 ram 1.48
82 pw 1.48.2.1 #-bootstrap
83 ram 1.44 (comf "target:compiler/meta-vmdef" :proceed t)
84 ram 1.48 #+bootstrap ;; pw adds
85     (comf "target:compiler/meta-vmdef" :byte-compile t)
86 ram 1.44 (when *load-stuff*
87     (load "target:compiler/meta-vmdef"))
88     (comf "target:compiler/disassem" :byte-compile *byte-compile*)
89 wlott 1.28 (comf "target:compiler/new-assem")
90 ram 1.12 (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 wlott 1.1
96 ram 1.16 (with-compilation-unit
97 ram 1.47 (:optimize '(optimize (safety 1)))
98     (comf "target:compiler/ir1tran"))
99    
100     (with-compilation-unit
101     (:optimize '(optimize (debug 2)))
102 ram 1.16 (comf "target:compiler/ir1util")
103     (comf "target:compiler/ir1opt"))
104    
105 ram 1.12 (comf "target:compiler/ir1final")
106 ram 1.48 ;;try(comf "target:compiler/srctran")
107 ram 1.44 (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 ram 1.48 (comf "target:compiler/srctran") ;; try
114 ram 1.12 (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 ram 1.6
120 ram 1.48
121 ram 1.12 (comf "target:compiler/tn")
122     (comf "target:compiler/life")
123 ram 1.4
124 ram 1.12 (comf "target:code/debug-info")
125 ram 1.4
126 ram 1.12 (comf "target:compiler/debug-dump")
127     (comf "target:compiler/generic/utils")
128 pw 1.48.2.1 #-bootstrap
129 ram 1.44 (comf "target:assembly/assemfile")
130 ram 1.48 #+bootstrap
131     (comf "target:assembly/assemfile" :byte-compile t)
132 ram 1.44 (when *load-stuff* (load "target:assembly/assemfile"))
133 ram 1.48
134    
135 ram 1.16 (with-compilation-unit
136 ram 1.44 (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 0)))
137 ram 1.16
138 pw 1.48.2.1 #+original
139 ram 1.48 (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 pw 1.48.2.1 #+original
144 ram 1.48 (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 pw 1.48.2.1 #-tryit
149     (progn ; this also works - better??
150 ram 1.48 (comf (vmdir "target:compiler/vm"))
151     (comf (vmdir "target:compiler/insts"))
152 pw 1.48.2.1 (comf (vmdir "target:compiler/macros")
153 ram 1.48 :byte-compile #+bootstrap t #-bootstrap nil)
154 pw 1.48.2.1 (when *load-stuff*
155     (load (vmdir "target:compiler/macros")))
156     )
157 ram 1.48
158 ram 1.44 (comf "target:compiler/generic/primtype")
159 pw 1.48.2.1 (comf (vmdir "target:assembly/support")
160 ram 1.48 :byte-compile #+bootstrap t #-bootstrap nil) ; pw
161 pw 1.48.2.1 (when *load-stuff*
162     (load (vmdir "target:assembly/support")))
163 ram 1.44 (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 ram 1.48
173 ram 1.44 (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 wlott 1.1
185 ram 1.44 (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 wlott 1.1
190 ram 1.12 (comf "target:compiler/pseudo-vops")
191 ram 1.14
192 ram 1.16 ); with-compilation-unit for back end.
193 wlott 1.1
194 ram 1.44 (comf "target:compiler/aliencomp" :byte-compile *byte-compile*)
195 ram 1.48
196 wlott 1.21 (comf "target:compiler/ltv")
197 ram 1.12 (comf "target:compiler/gtn")
198 ram 1.16 (with-compilation-unit
199 ram 1.47 (:optimize '(optimize (debug 2)))
200 ram 1.16 (comf "target:compiler/ltn"))
201 ram 1.12 (comf "target:compiler/stack")
202     (comf "target:compiler/control")
203     (comf "target:compiler/entry")
204 ram 1.16 (with-compilation-unit
205 ram 1.47 (:optimize '(optimize (debug 2)))
206 wlott 1.38 (comf "target:compiler/ir2tran")
207     (comf "target:compiler/generic/vm-ir2tran"))
208 ram 1.12 (comf "target:compiler/copyprop")
209 ram 1.16 (with-compilation-unit
210 ram 1.47 (:optimize '(optimize (debug 2)))
211 ram 1.16 (comf "target:compiler/represent"))
212 ram 1.12 (comf "target:compiler/generic/vm-tran")
213 ram 1.16 (with-compilation-unit
214 ram 1.47 (:optimize '(optimize (debug 2)))
215 ram 1.16 (comf "target:compiler/pack"))
216 ram 1.12 (comf "target:compiler/codegen")
217 ram 1.23 (with-compilation-unit
218 ram 1.42 (:optimize '(optimize (debug 2) (safety 2)))
219 ram 1.44 (comf "target:compiler/debug" :byte-compile *byte-compile*))
220     #+nil
221 ram 1.12 (comf "target:compiler/statcount")
222     (comf "target:compiler/dyncount")
223 ram 1.3
224 ram 1.12 (comf "target:compiler/dump")
225 wlott 1.1
226 ram 1.12 (comf "target:compiler/generic/core")
227 wlott 1.37 (comf "target:compiler/generic/new-genesis")
228 wlott 1.1
229 ram 1.12 (comf "target:compiler/eval-comp")
230     (comf "target:compiler/eval")
231 ram 1.40 (comf "target:compiler/byte-comp")
232 wlott 1.1
233     ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5