mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
22b819c0cd
CLISP build megapatch ... mostly putting #-SB-XC in front of :COMPILE-TOPLEVEL, because clisp gives a full warning for function and macro redefinition; ... workaround clisp's buggy pretty printer by not exercising it as much: use (INHIBIT-WARNINGS 3); ... explicit :INITIAL-ELEMENT 0 when we're using 0 to mean "uninitialized" in MAKE-ARRAY; ... SPECIAL-OPERATOR-P isn't a good test on the host for what can become a target macro; ... slightly more portable floating point logic: Explicitly set *READ-DEFAULT-FLOAT-FORMAT* so that we don't create host LONG-FLOATs by accident; LOAD-TIME-VALUE magic for negative floating point zeros; Minor associated text file frobbage ... braindump some unrelated TODO items Obligatory runtime code improvement ... fix one warning in gencgc.h
64 lines
2.7 KiB
Bash
64 lines
2.7 KiB
Bash
#!/bin/sh
|
|
|
|
# This is a script to be run as part of make.sh. The only time you'd
|
|
# want to run it by itself is if you're trying to cross-compile the
|
|
# system or if you're doing some kind of troubleshooting.
|
|
|
|
# This software is part of the SBCL system. See the README file for
|
|
# more information.
|
|
#
|
|
# This software is derived from the CMU CL system, which was
|
|
# written at Carnegie Mellon University and released into the
|
|
# public domain. The software is in the public domain and is
|
|
# provided with absolutely no warranty. See the COPYING and CREDITS
|
|
# files for more information.
|
|
|
|
echo //entering make-genesis-2.sh
|
|
|
|
# In a fresh host Lisp invocation, load the cross-compiler (in order
|
|
# to get various definitions that GENESIS needs, not in order to
|
|
# cross-compile GENESIS, then load and run GENESIS. (We use a fresh
|
|
# host Lisp invocation here for basically the same reasons we did
|
|
# before when loading and running the cross-compiler.)
|
|
#
|
|
# (Why do we need this second invocation of GENESIS? In order to
|
|
# create a .core file, as opposed to just a .h file, GENESIS needs
|
|
# symbol table data on the C runtime. And we can get that symbol
|
|
# data only after the C runtime has been built. Therefore, even
|
|
# though we ran GENESIS earlier, we couldn't get it to make a .core
|
|
# file at that time; but we needed to run it earlier in order to
|
|
# get to where we can write a .core file.)
|
|
echo //loading and running GENESIS to create cold-sbcl.core
|
|
$SBCL_XC_HOST <<-'EOF' || exit 1
|
|
(setf *print-level* 5 *print-length* 5)
|
|
(load "src/cold/shared.lisp")
|
|
(in-package "SB-COLD")
|
|
(setf *host-obj-prefix* "obj/from-host/"
|
|
*target-obj-prefix* "obj/from-xc/")
|
|
(load "src/cold/set-up-cold-packages.lisp")
|
|
(load "src/cold/defun-load-or-cload-xcompiler.lisp")
|
|
(load-or-cload-xcompiler #'host-load-stem)
|
|
(defparameter *target-object-file-names*
|
|
(with-open-file (s "output/object-filenames-for-genesis.lisp-expr"
|
|
:direction :input)
|
|
(read s)))
|
|
(host-load-stem "src/compiler/generic/genesis")
|
|
(sb!vm:genesis :object-file-names *target-object-file-names*
|
|
:c-header-dir-name "output/genesis-2"
|
|
:symbol-table-file-name "src/runtime/sbcl.nm"
|
|
:core-file-name "output/cold-sbcl.core"
|
|
;; The map file is not needed by the system, but can
|
|
;; be very handy when debugging cold init problems.
|
|
:map-file-name "output/cold-sbcl.map")
|
|
#+cmu (ext:quit)
|
|
#+clisp (ext:quit)
|
|
EOF
|
|
|
|
echo //testing for consistency of first and second GENESIS passes
|
|
if diff -r src/runtime/genesis output/genesis-2; then
|
|
echo //header files match between first and second GENESIS -- good
|
|
else
|
|
echo error: header files do not match between first and second GENESIS
|
|
exit 1
|
|
fi
|