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

Contents of /src/tools/worldbuild.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.56 - (show annotations)
Fri Mar 19 15:19:04 2010 UTC (4 years, 1 month ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, release-20b-pre1, release-20b-pre2, sparc-tramp-assem-2010-07-19, GIT-CONVERSION, cross-sol-x86-merged, RELEASE_20b, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-08, cross-sol-x86-2010-12-20, cross-sparc-branch-base, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, sparc-tramp-assem-branch, cross-sol-x86-branch
Changes since 1.55: +3 -2 lines
Merge intl-branch 2010-03-18 to HEAD.  To build, you need to use
boot-2010-02-1 as the bootstrap file.  You should probably also use
the new -P option for build.sh to generate and update the po files
while building.
1 ;;; -*- Mode: Lisp; Package: Lisp -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8 ;;;
9 (ext:file-comment
10 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/worldbuild.lisp,v 1.56 2010/03/19 15:19:04 rtoy Rel $")
11 ;;;
12 ;;; **********************************************************************
13 ;;;
14 ;;; When loaded, this file builds a core image from all the .fasl files that
15 ;;; are part of the kernel CMU Common Lisp system.
16
17 (in-package "LISP")
18
19 (setf *enable-package-locked-errors* nil)
20
21 (unless (fboundp 'genesis)
22 (load "target:compiler/generic/new-genesis"))
23
24 (defparameter lisp-files
25 `(,@(when (c:backend-featurep :pmax)
26 '("target:assembly/mips/assem-rtns.assem"
27 "target:assembly/mips/array.assem"
28 "target:assembly/mips/arith.assem"
29 "target:assembly/mips/alloc.assem"))
30 ,@(when (c:backend-featurep :sparc)
31 '("target:assembly/sparc/assem-rtns.assem"
32 "target:assembly/sparc/array.assem"
33 "target:assembly/sparc/arith.assem"
34 "target:assembly/sparc/alloc.assem"))
35 ,@(when (c:backend-featurep :rt)
36 '("target:assembly/rt/assem-rtns.assem"
37 "target:assembly/rt/array.assem"
38 "target:assembly/rt/arith.assem"
39 "target:assembly/rt/alloc.assem"))
40 ,@(when (c:backend-featurep :hppa)
41 '("target:assembly/hppa/assem-rtns.assem"
42 "target:assembly/hppa/array.assem"
43 "target:assembly/hppa/arith.assem"
44 "target:assembly/hppa/alloc.assem"))
45 ,@(when (c:backend-featurep :x86)
46 '("target:assembly/x86/assem-rtns.assem"
47 "target:assembly/x86/array.assem"
48 "target:assembly/x86/arith.assem"
49 "target:assembly/x86/alloc.assem"))
50 ,@(when (c:backend-featurep :amd64)
51 '("target:assembly/amd64/assem-rtns.assem"
52 "target:assembly/amd64/array.assem"
53 "target:assembly/amd64/arith.assem"
54 "target:assembly/amd64/alloc.assem"))
55 ,@(when (c:backend-featurep :alpha)
56 '("target:assembly/alpha/assem-rtns.assem"
57 "target:assembly/alpha/array.assem"
58 "target:assembly/alpha/arith.assem"
59 "target:assembly/alpha/alloc.assem"))
60 ,@(when (c:backend-featurep :sgi)
61 '("target:assembly/mips/assem-rtns.assem"
62 "target:assembly/mips/array.assem"
63 "target:assembly/mips/arith.assem"
64 "target:assembly/mips/alloc.assem"))
65 ,@(when (c:backend-featurep :ppc)
66 '("target:assembly/ppc/assem-rtns.assem"
67 "target:assembly/ppc/array.assem"
68 "target:assembly/ppc/arith.assem"
69 "target:assembly/ppc/alloc.assem"))
70
71
72
73 "target:code/type-boot"
74 "target:code/fdefinition"
75 "target:code/eval"
76
77 "target:code/struct"
78 "target:code/fwrappers"
79 "target:code/typedefs"
80 "target:code/class"
81 "target:code/type"
82 "target:compiler/generic/vm-type"
83 "target:code/type-init"
84 "target:code/error"
85
86 "target:code/defstruct"
87 "target:compiler/proclaim"
88 "target:compiler/globaldb"
89 "target:code/pred"
90
91 "target:code/pathname"
92 "target:code/filesys"
93
94 "target:code/kernel"
95 "target:code/bit-bash"
96 "target:code/byte-interp"
97 "target:code/array"
98 "target:code/unidata"
99 "target:code/char"
100 "target:code/lispinit"
101 "target:code/seq"
102 "target:code/numbers"
103 "target:code/float"
104 "target:code/float-trap"
105 "target:code/irrat"
106 ,@(when (c::backend-featurep :double-double)
107 '("target:code/irrat-dd"))
108 "target:code/bignum"
109 "target:code/list"
110 "target:code/hash-new"
111 "target:code/macros"
112 "target:code/symbol"
113 "target:code/string"
114 "target:code/mipsstrops"
115 "target:code/misc"
116 "target:code/dfixnum"
117 ,@(unless (c:backend-featurep :gengc)
118 '("target:code/gc"))
119 ,@(when (c:backend-featurep :gengc)
120 '("target:code/gengc"))
121 "target:code/scavhook"
122
123 "target:code/save"
124 ,@(if (c:backend-featurep :random-mt19937)
125 '("target:code/rand-mt19937")
126 '("target:code/rand"))
127 "target:code/alieneval"
128 "target:code/c-call"
129 "target:code/sap"
130 ,@(if (c:backend-featurep :glibc2)
131 '("target:code/unix-glibc2")
132 '("target:code/unix"))
133 ,@(when (c:backend-featurep :mach)
134 '("target:code/mach"
135 "target:code/mach-os"))
136 ,@(when (c:backend-featurep :sunos)
137 '("target:code/sunos-os"))
138 ,@(when (c:backend-featurep :hpux)
139 '("target:code/hpux-os"))
140 ,@(when (c:backend-featurep :osf1)
141 '("target:code/osf1-os"))
142 ,@(when (c:backend-featurep :irix)
143 '("target:code/irix-os"))
144 ,@(when (c:backend-featurep :BSD)
145 '("target:code/bsd-os"))
146 ,@(when (c:backend-featurep :Linux)
147 '("target:code/linux-os"))
148 "target:code/serve-event"
149 "target:code/stream"
150 "target:code/fd-stream"
151 "target:code/print"
152 "target:code/pprint"
153 "target:code/format"
154 "target:code/package"
155 "target:code/reader"
156 "target:code/load"
157 ,@(when (c:backend-featurep :linkage-table)
158 '("target:code/foreign-linkage"))
159 ,@(when (c:backend-featurep :pmax)
160 '("target:code/pmax-vm"))
161 ,@(when (c:backend-featurep :sparc)
162 (if (c:backend-featurep :svr4)
163 '("target:code/sparc-svr4-vm")
164 '("target:code/sparc-vm")))
165 ,@(when (c:backend-featurep :rt)
166 '("target:code/rt-vm"))
167 ,@(when (c:backend-featurep :hppa)
168 '("target:code/hppa-vm"))
169 ,@(when (c:backend-featurep :x86)
170 '("target:code/x86-vm"))
171 ,@(when (c:backend-featurep :amd64)
172 '("target:code/amd64-vm"))
173 ,@(when (c:backend-featurep :alpha)
174 '("target:code/alpha-vm"))
175 ,@(when (c:backend-featurep :sgi)
176 '("target:code/sgi-vm"))
177 ,@(when (c:backend-featurep :ppc)
178 '("target:code/ppc-vm"))
179
180 "target:code/signal"
181 "target:code/interr"
182 "target:code/debug-info"
183 "target:code/debug-int"
184 "target:code/debug"
185
186 ,@(when (c:backend-featurep :mp)
187 '("target:code/multi-proc"))
188 "target:code/intl-tramp"
189 ))
190
191 (setf *genesis-core-name* "target:lisp/kernel.core")
192 (setf *genesis-c-header-name* "target:lisp/internals.h")
193 (setf *genesis-symbol-table* "target:lisp/lisp.nm")
194 (setf *genesis-map-name* "target:lisp/lisp.map")
195
196 (when (boundp '*target-page-size*)
197 (locally (declare (optimize (inhibit-warnings 3)))
198 (setf *target-page-size*
199 (c:backend-page-size c:*backend*))))
200
201 (genesis lisp-files)

  ViewVC Help
Powered by ViewVC 1.1.5