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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Tue Feb 6 11:27:37 1990 UTC (24 years, 2 months ago) by wlott
Branch: MAIN
Initial revision
1 ;;; -*- Package: User -*-
2 ;;;
3 (in-package "USER")
4
5 (with-compiler-log-file ("c:compile-compiler.log")
6
7 (unless *new-compile*
8 (comf "ncode:fdefinition")
9 (load "ncode:extensions.lisp")
10 (comf "c:globaldb" :load t)
11 (unless (boundp 'ext::*info-environment*)
12 (c::globaldb-init))
13
14 (comf "c:patch")
15
16 (comf "ncode:macros" :load t)
17 (comf "ncode:extensions" :bootstrap-macros :both)
18 (load "ncode:extensions.fasl")
19 (comf "ncode:struct" :load t)
20 (comf "c:macros" :load t :bootstrap-macros :both))
21
22 (when *new-compile*
23 (comf "ncode:globals" :always-once t) ; For global variables.
24 (comf "ncode:struct" :always-once t) ; For structures.
25 (comf "c:globals" :always-once t)
26 (comf "c:proclaim" :always-once t)) ; For COOKIE structure.
27
28 (comf "c:type" :always-once *new-compile*)
29 (comf "c:rt/vm-type")
30 (comf "c:type-init")
31 (comf "c:sset" :always-once *new-compile*)
32 (comf "c:node" :always-once *new-compile*)
33 (comf "c:ctype")
34 #-new-compiler
35 (comf "c:knownfun" :always-once *new-compile*)
36 (comf "c:fndb")
37 (comf "c:main")
38
39 #-new-compiler
40 (unless *new-compile*
41 (comf "c:proclaim" :load t))
42
43 (comf "c:ir1tran")
44 (comf "c:ir1util" :bootstrap-macros :both)
45 (comf "c:ir1opt")
46 (comf "c:ir1final")
47 (comf "c:srctran")
48 (comf "c:seqtran")
49 (comf "c:typetran")
50 (comf "c:rt/vm-tran")
51 (comf "c:locall")
52 (comf "c:dfo")
53 (comf "c:checkgen")
54 (comf "c:constraint")
55 (comf "c:envanal")
56 (comf "c:rt/parms")
57 (comf "c:vop" :always-once *new-compile*)
58
59 (unless *new-compile*
60 (comf "c:vmdef" :load t :bootstrap-macros :both))
61
62 (comf "c:tn" :bootstrap-macros :both)
63 (comf "c:bit-util")
64 (comf "c:life")
65
66 (comf "c:assembler"
67 :load t
68 :bootstrap-macros :both
69 :always-once *new-compile*)
70
71 (comf "ncode:debug-info"
72 :load t
73 :bootstrap-macros :both
74 :always-once *new-compile*)
75
76 (unless *new-compile*
77 (comf "c:rt/assem-insts" :load t))
78
79 (comf "c:aliencomp")
80 (comf "c:debug-dump")
81
82 (unless *new-compile*
83 (comf "ncode:constants" :load t :proceed t)
84 (comf "assem:rompconst" :load t :proceed t)
85 (comf "assem:assembler")
86 (comf "c:fop"))
87
88 (unless *new-compile*
89 (comf "c:rt/assem-macs" :load t :bootstrap-macros :both))
90
91 (comf "c:rt/dump")
92
93 (when *new-compile*
94 (comf "c:rt/core"))
95
96 (comf "c:rt/vm" :always-once *new-compile*)
97 (comf "c:rt/move")
98 (comf "c:rt/miscop")
99 (comf "c:rt/subprim")
100 (comf "c:rt/values")
101 (comf "c:rt/memory")
102 (comf "c:rt/cell")
103 (comf "c:rt/call")
104 (comf "c:rt/nlx")
105 (comf "c:rt/print")
106 (comf "c:rt/array")
107 (comf "c:rt/pred")
108 (comf "c:rt/type-vops")
109 (comf "c:rt/arith")
110 (comf "c:rt/system")
111 (comf "c:rt/char")
112 (comf "c:gtn")
113 (comf "c:ltn")
114 (comf "c:stack")
115 (comf "c:control")
116 (comf "c:entry")
117 (comf "c:ir2tran")
118 (comf "c:pack")
119 (comf "c:codegen")
120 (comf "c:debug")
121
122 (unless *new-compile* ; Until this is fixed up to compile properly...
123 (comf "c:rt/genesis"))
124
125 (unless *new-compile*
126 (comf "ncode:defstruct")
127 (comf "ncode:error")
128 (comf "ncode:defrecord")
129 (comf "ncode:defmacro")
130 (comf "ncode:alieneval")
131 (comf "ncode:c-call")
132 (comf "ncode:salterror")
133 (comf "ncode:sysmacs")
134 (comf "ncode:machdef")
135 (comf "ncode:mmlispdefs")
136 (comf "nicode:machdefs")
137 (comf "nicode:netnamedefs")
138 (comf "c:globaldb" :output-file "c:boot-globaldb.fasl"
139 :bootstrap-macros :both))
140
141 (when *new-compile*
142 (comf "c:eval-comp")
143 (comf "c:eval" :bootstrap-macros :both)
144 (comf "c:rt/assem-insts")
145 (comf "c:rt/assem-macs")
146 (comf "c:vmdef")
147 (comf "c:macros"))
148
149 ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5