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

Contents of /src/compiler/loadcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (hide annotations)
Fri Apr 13 12:28:06 1990 UTC (24 years ago) by ram
Branch: MAIN
Changes since 1.3: +3 -1 lines
Added represent and pseudo-vops.  Moved char earlier.
1 wlott 1.1 ;;; -*- Package: C -*-
2     ;;;
3     ;;; Load up the compiler.
4     ;;;
5     (in-package "C")
6    
7     #-new-compiler
8     (progn
9     (ext:gc-off)
10    
11 ram 1.2 (load "code:fdefinition" :verbose t)
12 wlott 1.1 (load "c:globaldb" :verbose t)
13     (globaldb-init)
14    
15     (load "c:patch" :verbose t)
16 ram 1.2 (load "code:macros" :verbose t)
17     (load "code:struct" :verbose t)
18 wlott 1.1 (load "c:proclaim" :verbose t)
19 ram 1.2 (load "code:extensions" :verbose t)
20     (load "code:defmacro" :verbose t)
21     (load "code:sysmacs" :verbose t)
22     (load "code:defrecord" :verbose t)
23     (load "code:error" :verbose t)
24     (load "code:debug-info" :verbose t)
25     (load "code:defstruct" :verbose t)
26     (load "code:c-call" :verbose t)
27     (load "code:salterror" :verbose t)
28     (load "code:machdef" :verbose t)
29 wlott 1.1
30     (load "c:boot-globaldb" :verbose t))
31    
32     (load "c:macros" :verbose t)
33     (load "c:type" :verbose t)
34     (load "c:vm-type" :verbose t)
35     (load "c:type-init" :verbose t)
36     (load "c:sset" :verbose t)
37     (load "c:node" :verbose t)
38     (load "c:ctype" :verbose t)
39     (load "c:knownfun" :verbose t)
40     (load "c:fndb" :verbose t)
41     (load "c:ir1util" :verbose t)
42     (load "c:ir1tran" :verbose t)
43     (load "c:ir1final" :verbose t)
44     (load "c:srctran" :verbose t)
45     (load "c:seqtran" :verbose t)
46     (load "c:typetran" :verbose t)
47     (load "c:vm-tran" :verbose t)
48     (load "c:locall" :verbose t)
49     (load "c:dfo" :verbose t)
50     (load "c:ir1opt" :verbose t)
51     ;(load "c:loop" :verbose t)
52     (load "c:checkgen" :verbose t)
53     (load "c:constraint" :verbose t)
54     (load "c:envanal" :verbose t)
55     (load "c:parms" :verbose t)
56     (load "c:vop" :verbose t)
57     (load "c:tn" :verbose t)
58     (load "c:bit-util" :verbose t)
59     (load "c:life" :verbose t)
60     (load "c:vmdef" :verbose t)
61     (load "c:gtn" :verbose t)
62     (load "c:ltn" :verbose t)
63     (load "c:stack" :verbose t)
64     (load "c:control" :verbose t)
65     (load "c:entry" :verbose t)
66     (load "c:ir2tran" :verbose t)
67     (load "c:pack" :verbose t)
68     (load "c:codegen" :verbose t)
69     (load "c:main" :verbose t)
70     (load "c:assembler" :verbose t)
71     (load "c:assem-insts" :verbose t)
72     (load "c:assem-macs" :verbose t)
73     (load "c:aliencomp" :verbose t)
74     (load "c:debug-dump" :verbose t)
75    
76     #-new-compiler
77 ram 1.2 (load "code:alieneval" :verbose t)
78 wlott 1.1
79     #+rt-target(progn
80     #-new-compiler
81     (handler-bind ((error #'(lambda (condition)
82     (format t "~%~A~%Continuing...~%" condition)
83     (continue))))
84     (progn
85 ram 1.2 (load "code:constants" :verbose t)
86 wlott 1.1 (load "assem:rompconst" :verbose t)))
87    
88     #-new-compiler
89     (load "c:fop" :verbose t)
90    
91     (load "c:dump" :verbose t)
92     #+new-compiler
93     (load "c:core" :verbose t)
94    
95     (load "c:vm" :verbose t)
96     (load "c:move" :verbose t)
97 ram 1.4 (load "c:char" :verbose t)
98 wlott 1.1 (load "c:miscop" :verbose t)
99     (load "c:subprim" :verbose t)
100     (load "c:print" :verbose t)
101     (load "c:memory" :verbose t)
102     (load "c:cell" :verbose t)
103     (load "c:call" :verbose t)
104     (load "c:nlx" :verbose t)
105     (load "c:values" :verbose t)
106     (load "c:array" :verbose t)
107     (load "c:pred" :verbose t)
108     (load "c:system" :verbose t)
109     (load "c:type-vops" :verbose t)
110     (load "c:arith" :verbose t)
111     ); #+RT-TARGET PROGN
112    
113 ram 1.4 (load "c:pseudo-vops" :verbose t)
114 wlott 1.1 (load "c:debug" :verbose t)
115 ram 1.4 (load "c:represent" :verbose t)
116 wlott 1.1
117     #+new-compiler
118     (load "c:eval-comp" :verbose t)
119     #+new-compiler
120     (load "c:eval" :verbose t)
121    
122    
123     #-new-compiler
124     (progn
125     #+rt-target
126     (load "assem:assembler" :verbose t)
127 ram 1.3 (%proclaim '(optimize (debug-info 2)))
128 wlott 1.1
129     (setq *info-environment*
130     (list (make-info-environment :name "Working")
131     (compact-info-environment (car *info-environment*))))
132     (lisp::purify :root-structures '(ncompile-file))
133     (ext:gc-on))

  ViewVC Help
Powered by ViewVC 1.1.5