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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.13 - (hide annotations)
Wed Mar 20 23:52:14 1991 UTC (23 years, 1 month ago) by wlott
Branch: MAIN
Changes since 1.12: +12 -10 lines
Changed to get the name of the VM package from the backend instead of
assuming that it's a pmax.  Only load files if we are bootstrapping.
1 wlott 1.1 ;;; -*- Package: User -*-
2     ;;;
3     (in-package "USER")
4    
5 ram 1.12 #+bootstrap
6 wlott 1.13 (copy-packages (cons (c::backend-name c::*target-backend*) '("ASSEM" "C")))
7 ram 1.12 #+bootstrap
8     (export '(assem::nop) "ASSEM")
9 ram 1.9
10 wlott 1.13 (defparameter *load-stuff* #+bootstrap t #-bootstrap nil)
11    
12 ram 1.12 ;;; Import so that these types which appear in the globldb are the same...
13     #+bootstrap
14     (import '(old-c::approximate-function-type
15     old-c::function-info old-c::defstruct-description
16     old-c::defstruct-slot-description)
17     "C")
18 wlott 1.1
19 ram 1.12 (with-compiler-log-file ("target:compile-compiler.log")
20 wlott 1.1
21 ram 1.12 (declaim (optimize (speed 2) (space 2) (inhibit-warnings 2)))
22 wlott 1.1
23 wlott 1.13 (comf "target:compiler/macros" :load *load-stuff*)
24     (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)
25     (comf "target:compiler/backend" :load *load-stuff* :proceed t)
26 wlott 1.1
27 ram 1.12 (defvar c::*target-backend* (c::make-backend))
28 wlott 1.1
29 ram 1.12 (when (string= (old-c:backend-name old-c:*backend*) "PMAX")
30     (comf "target:compiler/mips/parms" :proceed t)
31     (comf "target:compiler/generic/objdef" :proceed t))
32     (when (string= (old-c:backend-name old-c:*backend*) "SPARC")
33     (comf "target:compiler/sparc/parms" :proceed t)
34     (comf "target:compiler/generic/objdef" :proceed t))
35 wlott 1.1
36 ram 1.12 (comf "target:code/struct") ; For defstruct description structures.
37     (comf "target:compiler/proclaim") ; For COOKIE structure.
38     (comf "target:compiler/globals")
39 wlott 1.1
40 ram 1.12 (comf "target:compiler/type")
41     (comf "target:compiler/generic/vm-type")
42     (comf "target:compiler/type-init")
43     (comf "target:compiler/sset")
44     (comf "target:compiler/node")
45     (comf "target:compiler/ctype")
46     (comf "target:compiler/vop" :proceed t)
47 wlott 1.13 (comf "target:compiler/vmdef" :load *load-stuff* :proceed t)
48 wlott 1.1
49 ram 1.12 (comf "target:compiler/assembler" :proceed t)
50     (comf "target:compiler/alloc")
51     (comf "target:compiler/knownfun")
52     (comf "target:compiler/fndb")
53     (comf "target:compiler/generic/vm-fndb")
54     (comf "target:compiler/main")
55 wlott 1.1
56 ram 1.12 (comf "target:compiler/ir1tran")
57     (comf "target:compiler/ir1util")
58     (comf "target:compiler/ir1opt")
59     (comf "target:compiler/ir1final")
60     (comf "target:compiler/srctran")
61     (comf "target:compiler/array-tran")
62     (comf "target:compiler/seqtran")
63     (comf "target:compiler/typetran")
64     (comf "target:compiler/generic/vm-typetran")
65     (comf "target:compiler/float-tran")
66     (comf "target:compiler/locall")
67     (comf "target:compiler/dfo")
68     (comf "target:compiler/checkgen")
69     (comf "target:compiler/constraint")
70     (comf "target:compiler/envanal")
71 ram 1.6
72 ram 1.12 (comf "target:compiler/tn")
73     (comf "target:compiler/bit-util")
74     (comf "target:compiler/life")
75 ram 1.4
76 ram 1.12 (comf "target:code/debug-info")
77 ram 1.4
78 ram 1.12 (comf "target:compiler/debug-dump")
79     (comf "target:compiler/generic/utils")
80 wlott 1.13 (comf "target:assembly/assemfile" :load *load-stuff*)
81 wlott 1.1
82 ram 1.12 (when (string= (old-c:backend-name old-c:*backend*) "PMAX")
83     (comf "target:compiler/mips/mips-insts")
84 wlott 1.13 (comf "target:compiler/mips/mips-macs" :load *load-stuff*)
85 ram 1.12 (comf "target:compiler/mips/vm")
86     (comf "target:compiler/generic/primtype")
87 wlott 1.13 (comf "target:assembly/mips/support" :load *load-stuff*)
88 ram 1.12 (comf "target:compiler/mips/move")
89     (comf "target:compiler/mips/sap")
90     (comf "target:compiler/mips/system")
91     (comf "target:compiler/mips/char")
92     (comf "target:compiler/mips/float")
93     (comf "target:compiler/mips/memory")
94     (comf "target:compiler/mips/static-fn")
95     (comf "target:compiler/mips/arith")
96     (comf "target:compiler/mips/subprim")
97     (comf "target:compiler/mips/debug")
98     (comf "target:compiler/mips/c-call")
99     (comf "target:compiler/mips/cell")
100     (comf "target:compiler/mips/values")
101     (comf "target:compiler/mips/alloc")
102     (comf "target:compiler/mips/call")
103     (comf "target:compiler/mips/nlx")
104     (comf "target:compiler/mips/print")
105     (comf "target:compiler/mips/array")
106     (comf "target:compiler/mips/pred")
107     (comf "target:compiler/mips/type-vops")
108 wlott 1.1
109 ram 1.12 (comf "target:assembly/mips/assem-rtns")
110     (comf "target:assembly/mips/bit-bash")
111     (comf "target:assembly/mips/array")
112     (comf "target:assembly/mips/arith")
113     (comf "target:assembly/mips/alloc"))
114 wlott 1.1
115 ram 1.12 (when (string= (old-c:backend-name old-c:*backend*) "SPARC")
116     (comf "target:compiler/sparc/insts")
117 wlott 1.13 (comf "target:compiler/sparc/macros" :load *load-stuff*)
118 ram 1.12 (comf "target:compiler/sparc/vm")
119     (comf "target:compiler/generic/primtype")
120     (comf "target:compiler/sparc/move")
121     (comf "target:compiler/sparc/sap")
122     (comf "target:compiler/sparc/system")
123     (comf "target:compiler/sparc/char")
124     (comf "target:compiler/sparc/float")
125     (comf "target:compiler/sparc/memory")
126     (comf "target:compiler/sparc/static-fn")
127     (comf "target:compiler/sparc/arith")
128     (comf "target:compiler/sparc/subprim")
129     (comf "target:compiler/sparc/debug")
130     (comf "target:compiler/sparc/c-call")
131     (comf "target:compiler/sparc/cell")
132     (comf "target:compiler/sparc/values")
133     (comf "target:compiler/sparc/alloc")
134     (comf "target:compiler/sparc/call")
135     (comf "target:compiler/sparc/nlx")
136     (comf "target:compiler/sparc/print")
137     (comf "target:compiler/sparc/array")
138     (comf "target:compiler/sparc/pred")
139     (comf "target:compiler/sparc/type-vops")
140 wlott 1.1
141 wlott 1.13 (comf "target:assembly/sparc/support" :load *load-stuff*)
142 ram 1.12 (comf "target:assembly/sparc/assem-rtns")
143     (comf "target:assembly/sparc/bit-bash")
144     (comf "target:assembly/sparc/array")
145     (comf "target:assembly/sparc/arith")
146     (comf "target:assembly/sparc/alloc"))
147 wlott 1.1
148 ram 1.12 (comf "target:compiler/pseudo-vops")
149 wlott 1.1
150 ram 1.12 (comf "target:compiler/aliencomp")
151     (comf "target:compiler/gtn")
152     (comf "target:compiler/ltn")
153     (comf "target:compiler/stack")
154     (comf "target:compiler/control")
155     (comf "target:compiler/entry")
156     (comf "target:compiler/ir2tran")
157     (comf "target:compiler/copyprop")
158     (comf "target:compiler/assem-opt")
159     (comf "target:compiler/represent")
160     (comf "target:compiler/generic/vm-tran")
161     (comf "target:compiler/pack")
162     (comf "target:compiler/codegen")
163     (comf "target:compiler/debug")
164     (comf "target:compiler/statcount")
165     (comf "target:compiler/dyncount")
166 ram 1.3
167 ram 1.12 (comf "target:compiler/dump")
168 wlott 1.1
169 ram 1.12 (comf "target:compiler/generic/core")
170     (comf "target:compiler/generic/genesis")
171 wlott 1.1
172 ram 1.12 (comf "target:compiler/eval-comp")
173     (comf "target:compiler/eval")
174 wlott 1.1
175     ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5