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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.50 - (hide annotations)
Thu Jan 22 00:01:03 1998 UTC (16 years, 3 months ago) by dtc
Branch: MAIN
Changes since 1.49: +20 -10 lines
Rework the loading of files so that lisp source files are loaded when
the backend differers from the native backend - allows cross-compiling
form the x86 to the sparc which have differing byte orderings.
1 wlott 1.1 ;;; -*- Package: User -*-
2     ;;;
3     (in-package "USER")
4    
5 ram 1.12 #+bootstrap
6 ram 1.36 (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))
7 ram 1.9
8 ram 1.39 (defvar *load-stuff*
9 wlott 1.35 #+bootstrap t
10     #-bootstrap (eq c:*backend* c:*native-backend*))
11 wlott 1.13
12 ram 1.44 (defvar *byte-compile* #+small t #-small :maybe)
13    
14 ram 1.12 ;;; 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 wlott 1.1
21 ram 1.48
22 ram 1.16 (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 ram 1.42 (debug #+small .5 #-small 2))
28 ram 1.16 :optimize-interface
29     '(optimize-interface (safety #+small 1 #-small 2)
30 ram 1.42 (debug #+small .5 #-small 2))
31 ram 1.16 :context-declarations
32     '(#+small
33     ((:or :macro
34     (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"
35     "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
36     (declare (optimize (safety 1))))
37 ram 1.46 ((:or :macro (:match "$%PRINT-"))
38 ram 1.45 (declare (optimize (speed 0))))
39 ram 1.42 (:external (declare (optimize-interface (safety 2) (debug 1))))))
40 wlott 1.1
41 ram 1.48
42 dtc 1.50 (comf "target:compiler/macros"
43 dtc 1.49 :byte-compile #+bootstrap t #-bootstrap *byte-compile*)
44 dtc 1.50 (when *load-stuff*
45     (load "target:compiler/macros"))
46 ram 1.48
47 dtc 1.50 (comf "target:compiler/generic/vm-macs" :proceed t
48 ram 1.48 :byte-compile #+bootstrap t #-bootstrap nil)
49 dtc 1.50 (when *load-stuff*
50     (load "target:compiler/generic/vm-macs"))
51 ram 1.48
52 dtc 1.50 (comf "target:compiler/backend" :proceed t
53 ram 1.48 :byte-compile #+bootstrap t #-bootstrap nil)
54 dtc 1.50 (when *load-stuff*
55     (load "target:compiler/backend"))
56 wlott 1.1
57 ram 1.12 (defvar c::*target-backend* (c::make-backend))
58 wlott 1.1
59 ram 1.44 (comf (vmdir "target:compiler/parms") :proceed t)
60 ram 1.48
61 wlott 1.17 (comf "target:compiler/generic/objdef" :proceed t)
62 wlott 1.27 (comf "target:compiler/generic/interr")
63 wlott 1.1
64 ram 1.12 (comf "target:code/struct") ; For defstruct description structures.
65     (comf "target:compiler/proclaim") ; For COOKIE structure.
66     (comf "target:compiler/globals")
67 wlott 1.1
68 ram 1.12 (comf "target:compiler/sset")
69 ram 1.43 (comf "target:compiler/bit-util")
70 ram 1.12 (comf "target:compiler/node")
71     (comf "target:compiler/ctype")
72     (comf "target:compiler/vop" :proceed t)
73 wlott 1.34 (comf "target:compiler/vmdef")
74 ram 1.48
75 dtc 1.49 #-bootstrap
76 ram 1.44 (comf "target:compiler/meta-vmdef" :proceed t)
77 ram 1.48 #+bootstrap ;; pw adds
78     (comf "target:compiler/meta-vmdef" :byte-compile t)
79 ram 1.44 (when *load-stuff*
80     (load "target:compiler/meta-vmdef"))
81     (comf "target:compiler/disassem" :byte-compile *byte-compile*)
82 wlott 1.28 (comf "target:compiler/new-assem")
83 ram 1.12 (comf "target:compiler/alloc")
84     (comf "target:compiler/knownfun")
85     (comf "target:compiler/fndb")
86     (comf "target:compiler/generic/vm-fndb")
87     (comf "target:compiler/main")
88 wlott 1.1
89 ram 1.16 (with-compilation-unit
90 ram 1.47 (:optimize '(optimize (safety 1)))
91     (comf "target:compiler/ir1tran"))
92    
93     (with-compilation-unit
94     (:optimize '(optimize (debug 2)))
95 ram 1.16 (comf "target:compiler/ir1util")
96     (comf "target:compiler/ir1opt"))
97    
98 ram 1.12 (comf "target:compiler/ir1final")
99 ram 1.48 ;;try(comf "target:compiler/srctran")
100 ram 1.44 (comf "target:compiler/array-tran" :byte-compile *byte-compile*)
101     (comf "target:compiler/seqtran" :byte-compile *byte-compile*)
102     (comf "target:compiler/typetran" :byte-compile *byte-compile*)
103     (comf "target:compiler/generic/vm-typetran" :byte-compile *byte-compile*)
104     (comf "target:compiler/float-tran" :byte-compile *byte-compile*)
105     (comf "target:compiler/saptran" :byte-compile *byte-compile*)
106 ram 1.48 (comf "target:compiler/srctran") ;; try
107 ram 1.12 (comf "target:compiler/locall")
108     (comf "target:compiler/dfo")
109     (comf "target:compiler/checkgen")
110     (comf "target:compiler/constraint")
111     (comf "target:compiler/envanal")
112 ram 1.6
113 ram 1.48
114 ram 1.12 (comf "target:compiler/tn")
115     (comf "target:compiler/life")
116 ram 1.4
117 ram 1.12 (comf "target:code/debug-info")
118 ram 1.4
119 ram 1.12 (comf "target:compiler/debug-dump")
120     (comf "target:compiler/generic/utils")
121 dtc 1.49 #-bootstrap
122 ram 1.44 (comf "target:assembly/assemfile")
123 ram 1.48 #+bootstrap
124     (comf "target:assembly/assemfile" :byte-compile t)
125 ram 1.44 (when *load-stuff* (load "target:assembly/assemfile"))
126 ram 1.48
127    
128 ram 1.16 (with-compilation-unit
129 ram 1.44 (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 0)))
130 ram 1.16
131 dtc 1.50 #+original
132 ram 1.48 (progn ; this is distributed order
133     (comf (vmdir "target:compiler/insts"))
134     (comf (vmdir "target:compiler/macros") :load *load-stuff*)
135     (comf (vmdir "target:compiler/vm")))
136 dtc 1.50 #+original
137 ram 1.48 (progn ; this works for x86
138     (comf (vmdir "target:compiler/vm"))
139     (comf (vmdir "target:compiler/macros") :load *load-stuff*)
140     (comf (vmdir "target:compiler/insts")))
141 dtc 1.50 #-tryit
142     (progn ; this also works - better??
143 ram 1.48 (comf (vmdir "target:compiler/vm"))
144     (comf (vmdir "target:compiler/insts"))
145 dtc 1.50 (comf (vmdir "target:compiler/macros")
146 ram 1.48 :byte-compile #+bootstrap t #-bootstrap nil)
147 dtc 1.50 (when *load-stuff*
148     (load (vmdir "target:compiler/macros")))
149     )
150 ram 1.48
151 ram 1.44 (comf "target:compiler/generic/primtype")
152 dtc 1.50 (comf (vmdir "target:assembly/support")
153 ram 1.48 :byte-compile #+bootstrap t #-bootstrap nil) ; pw
154 dtc 1.50 (when *load-stuff*
155     (load (vmdir "target:assembly/support")))
156 ram 1.44 (comf (vmdir "target:compiler/move"))
157     (comf (vmdir "target:compiler/float") :byte-compile *byte-compile*)
158     (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)
159     (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*)
160     (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*)
161     (comf (vmdir "target:compiler/memory"))
162     (comf (vmdir "target:compiler/static-fn"))
163     (comf (vmdir "target:compiler/arith"))
164     (comf (vmdir "target:compiler/subprim") :byte-compile *byte-compile*)
165 ram 1.48
166 ram 1.44 (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*)
167     (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*)
168     (comf (vmdir "target:compiler/cell"))
169     (comf (vmdir "target:compiler/values") :byte-compile *byte-compile*)
170     (comf (vmdir "target:compiler/alloc"))
171     (comf (vmdir "target:compiler/call"))
172     (comf (vmdir "target:compiler/nlx") :byte-compile *byte-compile*)
173     (comf (vmdir "target:compiler/print") :byte-compile *byte-compile*)
174     (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*)
175     (comf (vmdir "target:compiler/pred"))
176     (comf (vmdir "target:compiler/type-vops") :byte-compile *byte-compile*)
177 wlott 1.1
178 ram 1.44 (comf (vmdir "target:assembly/assem-rtns") :byte-compile *byte-compile*)
179     (comf (vmdir "target:assembly/array") :byte-compile *byte-compile*)
180     (comf (vmdir "target:assembly/arith"))
181     (comf (vmdir "target:assembly/alloc"))
182 wlott 1.1
183 ram 1.12 (comf "target:compiler/pseudo-vops")
184 ram 1.14
185 ram 1.16 ); with-compilation-unit for back end.
186 wlott 1.1
187 ram 1.44 (comf "target:compiler/aliencomp" :byte-compile *byte-compile*)
188 ram 1.48
189 wlott 1.21 (comf "target:compiler/ltv")
190 ram 1.12 (comf "target:compiler/gtn")
191 ram 1.16 (with-compilation-unit
192 ram 1.47 (:optimize '(optimize (debug 2)))
193 ram 1.16 (comf "target:compiler/ltn"))
194 ram 1.12 (comf "target:compiler/stack")
195     (comf "target:compiler/control")
196     (comf "target:compiler/entry")
197 ram 1.16 (with-compilation-unit
198 ram 1.47 (:optimize '(optimize (debug 2)))
199 wlott 1.38 (comf "target:compiler/ir2tran")
200     (comf "target:compiler/generic/vm-ir2tran"))
201 ram 1.12 (comf "target:compiler/copyprop")
202 ram 1.16 (with-compilation-unit
203 ram 1.47 (:optimize '(optimize (debug 2)))
204 ram 1.16 (comf "target:compiler/represent"))
205 ram 1.12 (comf "target:compiler/generic/vm-tran")
206 ram 1.16 (with-compilation-unit
207 ram 1.47 (:optimize '(optimize (debug 2)))
208 ram 1.16 (comf "target:compiler/pack"))
209 ram 1.12 (comf "target:compiler/codegen")
210 ram 1.23 (with-compilation-unit
211 ram 1.42 (:optimize '(optimize (debug 2) (safety 2)))
212 ram 1.44 (comf "target:compiler/debug" :byte-compile *byte-compile*))
213     #+nil
214 ram 1.12 (comf "target:compiler/statcount")
215     (comf "target:compiler/dyncount")
216 ram 1.3
217 ram 1.12 (comf "target:compiler/dump")
218 wlott 1.1
219 ram 1.12 (comf "target:compiler/generic/core")
220 wlott 1.37 (comf "target:compiler/generic/new-genesis")
221 wlott 1.1
222 ram 1.12 (comf "target:compiler/eval-comp")
223     (comf "target:compiler/eval")
224 ram 1.40 (comf "target:compiler/byte-comp")
225 wlott 1.1
226     ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5