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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.45 - (hide annotations)
Fri Aug 20 00:25:17 1993 UTC (20 years, 8 months ago) by ram
Branch: MAIN
Changes since 1.44: +2 -14 lines
Byte-compile %print- functions.
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.16 (with-compiler-log-file
22     ("target:compile-compiler.log"
23     :optimize
24     '(optimize (speed 2) (space 2) (inhibit-warnings 2)
25     (safety #+small 0 #-small 1)
26 ram 1.42 (debug #+small .5 #-small 2))
27 ram 1.16 :optimize-interface
28     '(optimize-interface (safety #+small 1 #-small 2)
29 ram 1.42 (debug #+small .5 #-small 2))
30 ram 1.16 :context-declarations
31     '(#+small
32     ((:or :macro
33     (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"
34     "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
35     (declare (optimize (safety 1))))
36 ram 1.45 ((:or :macro (match "$%PRINT-"))
37     (declare (optimize (speed 0))))
38 ram 1.42 (:external (declare (optimize-interface (safety 2) (debug 1))))))
39 wlott 1.1
40 ram 1.44 (comf "target:compiler/macros" :load *load-stuff* :byte-compile *byte-compile*)
41 wlott 1.13 (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)
42     (comf "target:compiler/backend" :load *load-stuff* :proceed t)
43 wlott 1.1
44 ram 1.12 (defvar c::*target-backend* (c::make-backend))
45 wlott 1.1
46 ram 1.44 (comf (vmdir "target:compiler/parms") :proceed t)
47 wlott 1.17 (comf "target:compiler/generic/objdef" :proceed t)
48 wlott 1.27 (comf "target:compiler/generic/interr")
49 wlott 1.1
50 ram 1.12 (comf "target:code/struct") ; For defstruct description structures.
51     (comf "target:compiler/proclaim") ; For COOKIE structure.
52     (comf "target:compiler/globals")
53 wlott 1.1
54 ram 1.12 (comf "target:compiler/sset")
55 ram 1.43 (comf "target:compiler/bit-util")
56 ram 1.12 (comf "target:compiler/node")
57     (comf "target:compiler/ctype")
58     (comf "target:compiler/vop" :proceed t)
59 wlott 1.34 (comf "target:compiler/vmdef")
60 ram 1.44 (comf "target:compiler/meta-vmdef" :proceed t)
61     (when *load-stuff*
62     (load "target:compiler/meta-vmdef"))
63 wlott 1.1
64 ram 1.44 (comf "target:compiler/disassem" :byte-compile *byte-compile*)
65 wlott 1.28 (comf "target:compiler/new-assem")
66 ram 1.12 (comf "target:compiler/alloc")
67     (comf "target:compiler/knownfun")
68     (comf "target:compiler/fndb")
69     (comf "target:compiler/generic/vm-fndb")
70     (comf "target:compiler/main")
71 wlott 1.1
72 ram 1.16 (with-compilation-unit
73 ram 1.42 (:optimize '(optimize (debug 2) (safety 1)))
74 ram 1.16 (comf "target:compiler/ir1tran")
75     (comf "target:compiler/ir1util")
76     (comf "target:compiler/ir1opt"))
77    
78 ram 1.12 (comf "target:compiler/ir1final")
79     (comf "target:compiler/srctran")
80 ram 1.44 (comf "target:compiler/array-tran" :byte-compile *byte-compile*)
81     (comf "target:compiler/seqtran" :byte-compile *byte-compile*)
82     (comf "target:compiler/typetran" :byte-compile *byte-compile*)
83     (comf "target:compiler/generic/vm-typetran" :byte-compile *byte-compile*)
84     (comf "target:compiler/float-tran" :byte-compile *byte-compile*)
85     (comf "target:compiler/saptran" :byte-compile *byte-compile*)
86 ram 1.12 (comf "target:compiler/locall")
87     (comf "target:compiler/dfo")
88     (comf "target:compiler/checkgen")
89     (comf "target:compiler/constraint")
90     (comf "target:compiler/envanal")
91 ram 1.6
92 ram 1.12 (comf "target:compiler/tn")
93     (comf "target:compiler/life")
94 ram 1.4
95 ram 1.12 (comf "target:code/debug-info")
96 ram 1.4
97 ram 1.12 (comf "target:compiler/debug-dump")
98     (comf "target:compiler/generic/utils")
99 ram 1.44 (comf "target:assembly/assemfile")
100     (when *load-stuff* (load "target:assembly/assemfile"))
101    
102 ram 1.16 (with-compilation-unit
103 ram 1.44 (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 0)))
104 ram 1.16
105 ram 1.44 (comf (vmdir "target:compiler/insts"))
106     (comf (vmdir "target:compiler/macros") :load *load-stuff*)
107     (comf (vmdir "target:compiler/vm"))
108     (comf "target:compiler/generic/primtype")
109     (comf (vmdir "target:assembly/support") :load *load-stuff*)
110     (comf (vmdir "target:compiler/move"))
111     (comf (vmdir "target:compiler/float") :byte-compile *byte-compile*)
112     (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)
113     (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*)
114     (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*)
115     (comf (vmdir "target:compiler/memory"))
116     (comf (vmdir "target:compiler/static-fn"))
117     (comf (vmdir "target:compiler/arith"))
118     (comf (vmdir "target:compiler/subprim") :byte-compile *byte-compile*)
119     (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*)
120     (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*)
121     (comf (vmdir "target:compiler/cell"))
122     (comf (vmdir "target:compiler/values") :byte-compile *byte-compile*)
123     (comf (vmdir "target:compiler/alloc"))
124     (comf (vmdir "target:compiler/call"))
125     (comf (vmdir "target:compiler/nlx") :byte-compile *byte-compile*)
126     (comf (vmdir "target:compiler/print") :byte-compile *byte-compile*)
127     (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*)
128     (comf (vmdir "target:compiler/pred"))
129     (comf (vmdir "target:compiler/type-vops") :byte-compile *byte-compile*)
130 wlott 1.1
131 ram 1.44 (comf (vmdir "target:assembly/assem-rtns") :byte-compile *byte-compile*)
132     (comf (vmdir "target:assembly/array") :byte-compile *byte-compile*)
133     (comf (vmdir "target:assembly/arith"))
134     (comf (vmdir "target:assembly/alloc"))
135 wlott 1.1
136 ram 1.12 (comf "target:compiler/pseudo-vops")
137 ram 1.14
138 ram 1.16 ); with-compilation-unit for back end.
139 wlott 1.1
140 ram 1.44 (comf "target:compiler/aliencomp" :byte-compile *byte-compile*)
141 wlott 1.21 (comf "target:compiler/ltv")
142 ram 1.12 (comf "target:compiler/gtn")
143 ram 1.16 (with-compilation-unit
144 ram 1.42 (:optimize '(optimize (debug 2) (safety 1)))
145 ram 1.16 (comf "target:compiler/ltn"))
146 ram 1.12 (comf "target:compiler/stack")
147     (comf "target:compiler/control")
148     (comf "target:compiler/entry")
149 ram 1.16 (with-compilation-unit
150 ram 1.42 (:optimize '(optimize (debug 2) (safety 1)))
151 wlott 1.38 (comf "target:compiler/ir2tran")
152     (comf "target:compiler/generic/vm-ir2tran"))
153 ram 1.12 (comf "target:compiler/copyprop")
154 ram 1.16 (with-compilation-unit
155 ram 1.42 (:optimize '(optimize (debug 2) (safety 1)))
156 ram 1.16 (comf "target:compiler/represent"))
157 ram 1.12 (comf "target:compiler/generic/vm-tran")
158 ram 1.16 (with-compilation-unit
159 ram 1.42 (:optimize '(optimize (debug 2) (safety 1)))
160 ram 1.16 (comf "target:compiler/pack"))
161 ram 1.12 (comf "target:compiler/codegen")
162 ram 1.23 (with-compilation-unit
163 ram 1.42 (:optimize '(optimize (debug 2) (safety 2)))
164 ram 1.44 (comf "target:compiler/debug" :byte-compile *byte-compile*))
165     #+nil
166 ram 1.12 (comf "target:compiler/statcount")
167     (comf "target:compiler/dyncount")
168 ram 1.3
169 ram 1.12 (comf "target:compiler/dump")
170 wlott 1.1
171 ram 1.12 (comf "target:compiler/generic/core")
172 wlott 1.37 (comf "target:compiler/generic/new-genesis")
173 wlott 1.1
174 ram 1.12 (comf "target:compiler/eval-comp")
175     (comf "target:compiler/eval")
176 ram 1.40 (comf "target:compiler/byte-comp")
177 wlott 1.1
178     ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5