/[cmucl]/src/compiler/loadcom.lisp
ViewVC logotype

Contents of /src/compiler/loadcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.12 - (hide annotations)
Sun Oct 28 06:33:06 1990 UTC (23 years, 5 months ago) by wlott
Branch: MAIN
Changes since 1.11: +104 -100 lines
Moved assemfile to .../assembly and moved assembly code into a machine
specific subdir.  Added a load of assem:mips/arith.
1 wlott 1.1 ;;; -*- Package: C -*-
2     ;;;
3     ;;; Load up the compiler.
4     ;;;
5     (in-package "C")
6    
7 wlott 1.12 (setf *load-verbose* t)
8    
9 wlott 1.1 #-new-compiler
10     (progn
11     (ext:gc-off)
12    
13 wlott 1.12 (load "code:fdefinition")
14     (load "c:globaldb")
15 wlott 1.1 (globaldb-init)
16    
17 wlott 1.12 (load "c:patch")
18     (load "code:macros")
19     (load "code:struct")
20     (load "c:proclaim")
21     (load "code:extensions")
22     (load "code:defmacro")
23     (load "code:sysmacs")
24     (load "code:defrecord")
25     (load "code:error")
26     (load "code:debug-info")
27     (load "code:defstruct")
28     (load "code:c-call")
29     (load "code:salterror")
30     (load "code:machdef")
31 wlott 1.1
32 wlott 1.12 (load "c:boot-globaldb"))
33 wlott 1.1
34 wlott 1.12 (load "c:macros")
35     #-pmax (load "c:type")
36     #-pmax (load "c:vm-type")
37     #-pmax (load "c:type-init")
38 wlott 1.8 #-pmax (setq *type-system-initialized* t)
39     #+pmax (load "mips:parms")
40 wlott 1.12 (load "c:sset")
41     (load "c:node")
42     (load "c:alloc")
43     (load "c:ctype")
44     (load "c:knownfun")
45     (load "c:fndb")
46     #+pmax (load "mips:vm-fndb")
47     (load "c:ir1util")
48     (load "c:ir1tran")
49     (load "c:ir1final")
50     (load "c:srctran")
51     (load "c:seqtran")
52     (load "c:typetran")
53     #+pmax (load "mips:vm-typetran")
54     #+pmax (load "c:float-tran")
55     (load "c:locall")
56     (load "c:dfo")
57     (load "c:ir1opt")
58     ;(load "c:loop")
59     (load "c:checkgen")
60     (load "c:constraint")
61     (load "c:envanal")
62 wlott 1.8 #-pmax
63 wlott 1.12 (load "c:parms")
64     (load "c:vop")
65     (load "c:tn")
66     (load "c:bit-util")
67     (load "c:life")
68     (load "c:vmdef")
69     (load "c:gtn")
70     (load "c:ltn")
71     (load "c:stack")
72     (load "c:control")
73     (load "c:entry")
74     (load "c:ir2tran")
75     (load "c:pack")
76     (load "c:codegen")
77     (load "c:main")
78     (load "c:assembler")
79     (load "assem:assemfile")
80     #+pmax (load "mips:dismips")
81     #-pmax (load "c:assem-insts")
82     #+pmax (load "mips:mips-insts")
83     #-pmax (load "c:assem-macs")
84     #+pmax (load "mips:mips-macs")
85     (load "c:aliencomp")
86     (load "c:debug-dump")
87 wlott 1.1
88     #-new-compiler
89 wlott 1.12 (load "code:alieneval")
90 wlott 1.1
91     #+rt-target(progn
92     #-new-compiler
93     (handler-bind ((error #'(lambda (condition)
94     (format t "~%~A~%Continuing...~%" condition)
95     (continue))))
96     (progn
97 wlott 1.12 (load "code:constants")
98     (load "assem:rompconst")))
99 wlott 1.1
100     #-new-compiler
101 wlott 1.12 (load "c:fop")
102 wlott 1.1
103 wlott 1.12 (load "c:dump")
104 wlott 1.1 #+new-compiler
105 wlott 1.12 (load "c:core")
106 wlott 1.1
107 wlott 1.12 (load "c:vm")
108     (load "c:move")
109     (load "c:char")
110     (load "c:miscop")
111     (load "c:subprim")
112     (load "c:print")
113     (load "c:memory")
114     (load "c:cell")
115     (load "c:call")
116     (load "c:nlx")
117     (load "c:values")
118     (load "c:array")
119     (load "c:pred")
120     (load "c:system")
121     (load "c:type-vops")
122     (load "c:arith")
123 wlott 1.1 ); #+RT-TARGET PROGN
124    
125 wlott 1.8 #+pmax(progn
126 wlott 1.11 (load "c:dump")
127 wlott 1.10 (load "mips:core")
128 wlott 1.8 ;(load "mips:genesis")
129    
130     (load "mips:vm")
131     (load "mips:move")
132     (load "mips:sap")
133     (load "mips:system")
134     (load "mips:char")
135     (load "mips:float")
136     (load "mips:memory")
137     (load "mips:static-fn")
138     (load "mips:arith")
139     (load "mips:cell")
140     (load "mips:subprim")
141     (load "mips:debug")
142     (load "mips:print")
143     (load "mips:alloc")
144     (load "mips:call")
145     (load "mips:nlx")
146     (load "mips:values")
147     (load "mips:array")
148     (load "mips:pred")
149     (load "mips:type-vops")
150     (load "mips:vm-tran")
151 wlott 1.12
152     #+pmax (load "assem:mips/assem-rtns")
153     #+pmax (load "assem:mips/bit-bash")
154     #+pmax (load "assem:mips/array")
155     #+pmax (load "assem:mips/arith")
156 wlott 1.8 ); mips progn
157    
158 wlott 1.12 (load "c:pseudo-vops")
159     #-pmax (load "c:vm-tran")
160     #+pmax (load "mips:vm-tran")
161     (load "c:debug")
162     (load "c:represent")
163 wlott 1.1
164     #+new-compiler
165 wlott 1.12 (load "c:eval-comp")
166 wlott 1.1 #+new-compiler
167 wlott 1.12 (load "c:eval")
168 wlott 1.1
169    
170     #-new-compiler
171     (progn
172     #+rt-target
173 wlott 1.12 (load "assem:assembler")
174 ram 1.3 (%proclaim '(optimize (debug-info 2)))
175 wlott 1.1
176     (setq *info-environment*
177     (list (make-info-environment :name "Working")
178     (compact-info-environment (car *info-environment*))))
179     (lisp::purify :root-structures '(ncompile-file))
180     (ext:gc-on))
181 wlott 1.9
182     #+pmax (%proclaim '(optimize (speed 1) (safety 1)))

  ViewVC Help
Powered by ViewVC 1.1.5