make-config.sh

   1 #!/bin/sh
   2 set -e
   3
   4 # The make-config.sh script uses information about the target machine
   5 # to set things up for compilation. It's vaguely like a stripped-down
   6 # version of autoconf. It's intended to be run as part of make.sh. The
   7 # only time you'd want to run it by itself is if you're trying to
   8 # cross-compile the system or if you're doing some kind of
   9 # troubleshooting.
  10
  11 # This software is part of the SBCL system. See the README file for
  12 # more information.
  13 #
  14 # This software is derived from the CMU CL system, which was
  15 # written at Carnegie Mellon University and released into the
  16 # public domain. The software is in the public domain and is
  17 # provided with absolutely no warranty. See the COPYING and CREDITS
  18 # files for more information.
  19
  20 print_help="no"
  21
  22 # The classic form here was to use --userinit $DEVNULL --sysinit
  23 # $DEVNULL, but that doesn't work on Win32 because SBCL doesn't handle
  24 # device names properly. We still need $DEVNULL to be NUL on Win32
  25 # because it's used elsewhere (such as canonicalize-whitespace), so we
  26 # need an alternate solution for the init file overrides. --no-foos
  27 # have now been available long enough that this should not stop anyone
  28 # from building.
  29 if [ "$OSTYPE" = "cygwin" -o "$OSTYPE" = "msys" ]
  30 then
  31     SBCL_PREFIX="$PROGRAMFILES/sbcl"
  32 else
  33     SBCL_PREFIX="/usr/local"
  34 fi
  35 SBCL_XC_HOST="sbcl --no-userinit --no-sysinit"
  36 export SBCL_XC_HOST
  37
  38 # Parse command-line options.
  39 bad_option() {
  40     echo $1
  41     echo "Enter \"$0 --help\" for list of valid options."
  42     exit 1
  43 }
  44
  45 WITH_FEATURES=""
  46 WITHOUT_FEATURES=""
  47 FANCY_FEATURES=":sb-core-compression :sb-xref-for-internals :sb-after-xc-core"
  48
  49 fancy=false
  50 some_options=false
  51 for option
  52 do
  53   optarg_ok=true
  54   # Split --foo=bar into --foo and bar.
  55   case $option in
  56       *=*)
  57         # For ease of scripting skip valued options with empty
  58         # values.
  59         optarg=`expr "X$option" : '[^=]*=\(.*\)'` || optarg_ok=false
  60         option=`expr "X$option" : 'X\([^=]*=\).*'`
  61         ;;
  62       --with*)
  63         optarg=`expr "X$option" : 'X--[^-]*-\(.*\)'` \
  64             || bad_option "Malformed feature toggle: $option"
  65         option=`expr "X$option" : 'X\(--[^-]*\).*'`
  66         ;;
  67       *)
  68         optarg=""
  69         ;;
  70   esac
  71
  72   case $option in
  73       --help | -help | -h)
  74         print_help="yes" ;;
  75       --prefix=)
  76         $optarg_ok && SBCL_PREFIX=$optarg
  77         ;;
  78       --arch=)
  79         $oparg_ok && SBCL_ARCH=$optarg
  80         ;;
  81       --xc-host=)
  82         $optarg_ok && SBCL_XC_HOST=$optarg
  83         ;;
  84       --host-location=)
  85         $optarg_ok && SBCL_HOST_LOCATION=$optarg
  86         ;;
  87       --target-location=)
  88         $optarg_ok && SBCL_TARGET_LOCATION=$optarg
  89         ;;
  90       --dynamic-space-size=)
  91         $optarg_ok && SBCL_DYNAMIC_SPACE_SIZE=$optarg
  92         ;;
  93       --with)
  94         WITH_FEATURES="$WITH_FEATURES :$optarg"
  95         ;;
  96       --without)
  97         WITHOUT_FEATURES="$WITHOUT_FEATURES :$optarg"
  98         ;;
  99       --fancy)
 100         WITH_FEATURES="$WITH_FEATURES $FANCY_FEATURES"
 101         # Lower down we add :sb-thread for platforms where it can be built.
 102         fancy=true
 103         ;;
 104       -*)
 105         bad_option "Unknown command-line option to $0: \"$option\""
 106         ;;
 107       *)
 108         if $some_options
 109         then
 110             bad_option "Unknown command-line option to $0: \"$option\""
 111         else
 112             legacy_xc_spec=$option
 113         fi
 114         ;;
 115   esac
 116   some_options=true
 117 done
 118
 119 if (test -f customize-target-features.lisp && \
 120     (test -n "$WITH_FEATURES" || test -n "$WITHOUT_FEATURES"))
 121 then
 122     # Actually there's no reason why it would not work, but it would
 123     # be confusing to say --with-thread only to have it turned off by
 124     # customize-target-features.lisp...
 125     echo "ERROR: Both customize-target-features.lisp, and feature-options"
 126     echo "to make.sh present -- cannot use both at the same time."
 127     exit 1
 128 fi
 129
 130 # Previously XC host was provided as a positional argument.
 131 if test -n "$legacy_xc_spec"
 132 then
 133     SBCL_XC_HOST="$legacy_xc_spec"
 134 fi
 135
 136 if test "$print_help" = "yes"
 137 then
 138   cat <<EOF
 139 \`make.sh' drives the SBCL build.
 140
 141 Usage: $0 [OPTION]...
 142
 143   Important: make.sh does not currently control the entirety of the
 144   build: configuration file customize-target-features.lisp and certain
 145   environment variables play a role as well. see file INSTALL for
 146   details.
 147
 148 Options:
 149   -h, --help           Display this help and exit.
 150
 151   --prefix=<path>      Specify the install location.
 152
 153       Script install.sh installs SBCL under the specified prefix
 154       path: runtime as prefix/bin/sbcl, additional files under
 155       prefix/lib/sbcl, and documentation under prefix/share.
 156
 157       This option also affects the binaries: built-in default for
 158       SBCL_HOME is: prefix/lib/sbcl/
 159
 160       Default prefix is: /usr/local
 161
 162   --dynamic-space-size=<size> Default dynamic-space size for target.
 163
 164       This specifies the default dynamic-space size for the SBCL
 165       being built. If you need to control the dynamic-space size
 166       of the host SBCL, use the --xc-host option.
 167
 168       If not provided, the default is platform-specific. <size> is
 169       taken to be megabytes unless explicitly suffixed with Gb in
 170       order to specify the size in gigabytes.
 171
 172   --with-<feature>     Build with specified feature.
 173   --without-<feature>  Build wihout the specfied feature.
 174
 175   --fancy              Build with several optional features:
 176
 177                            $FANCY_FEATURES
 178
 179                        Plus threading on platforms which support it.
 180
 181   --arch=<string>      Specify the architecture to build for.
 182
 183       Mainly for doing x86 builds on x86-64.
 184
 185   --xc-host=<string>   Specify the Common Lisp compilation host.
 186
 187       The string provided should be a command to invoke the
 188       cross-compilation Lisp system in such a way, that it reads
 189       commands from standard input, and terminates when it reaches end
 190       of file on standard input.
 191
 192       Examples:
 193
 194        "sbcl --disable-debugger --no-sysinit --no-userinit"
 195                   Use an existing SBCL binary as a cross-compilation
 196                   host even though you have stuff in your
 197                   initialization files which makes it behave in such a
 198                   non-standard way that it keeps the build from
 199                   working. Also disable the debugger instead of
 200                   waiting endlessly for a programmer to help it out
 201                   with input on *DEBUG-IO*. (This is the default.)
 202
 203        "sbcl"
 204                   Use an existing SBCL binary as a cross-compilation
 205                   host, including your initialization files and
 206                   building with the debugger enabled. Not recommended
 207                   for casual users.
 208
 209        "lisp -noinit -batch"
 210                   Use an existing CMU CL binary as a cross-compilation
 211                   host when you have weird things in your .cmucl-init
 212                   file.
 213
 214   --host-location=<string> Location of the source directory on compilation host
 215
 216       The string is passed to the command rsync to transfer the
 217       necessary files between the target and host directories during
 218       the make-target-*.sh steps of cross-compilation (cf. make.sh)
 219
 220       Examples:
 221
 222        user@host-machine:/home/user/sbcl
 223                   Transfer the files to/from directory /home/user/sbcl
 224                   on host-machine.
 225
 226 EOF
 227   exit 1
 228 fi
 229
 230 # Running make.sh with different options without clean.sh in the middle
 231 # can break things.
 232 sh clean.sh
 233
 234 mkdir -p output
 235 # Save prefix for make and install.sh.
 236 echo "SBCL_PREFIX='$SBCL_PREFIX'" > output/prefix.def
 237 echo "$SBCL_DYNAMIC_SPACE_SIZE" > output/dynamic-space-size.txt
 238
 239 # FIXME: Tweak this script, and the rest of the system, to support
 240 # a second bootstrapping pass in which the cross-compilation host is
 241 # known to be SBCL itself, so that the cross-compiler can do some
 242 # optimizations (especially specializable arrays) that it doesn't
 243 # know how to implement how in a portable way. (Or maybe that wouldn't
 244 # require a second pass, just testing at build-the-cross-compiler time
 245 # whether the cross-compilation host returns suitable values from
 246 # UPGRADED-ARRAY-ELEMENT-TYPE?)
 247
 248 if [ "$OSTYPE" = "cygwin" -o "$OSTYPE" = "msys" ] ; then
 249     DEVNULL=NUL
 250 else
 251     DEVNULL=/dev/null
 252 fi
 253 export DEVNULL
 254
 255 . ./find-gnumake.sh
 256 find_gnumake
 257
 258 ./generate-version.sh
 259
 260 # Now that we've done our option parsing and found various
 261 # dependencies, write them out to a file to be sourced by other
 262 # scripts.
 263
 264 echo "DEVNULL=\"$DEVNULL\"; export DEVNULL" > output/build-config
 265 echo "GNUMAKE=\"$GNUMAKE\"; export GNUMAKE" >> output/build-config
 266 echo "SBCL_XC_HOST=\"$SBCL_XC_HOST\"; export SBCL_XC_HOST" >> output/build-config
 267 echo "legacy_xc_spec=\"$legacy_xc_spec\"; export legacy_xc_spec" >> output/build-config
 268 if [ -n "$SBCL_HOST_LOCATION" ]; then
 269     echo "SBCL_HOST_LOCATION=\"$SBCL_HOST_LOCATION\"; export SBCL_HOST_LOCATION" >> output/build-config
 270 fi
 271 if [ -n "$SBCL_TARGET_LOCATION" ]; then
 272     echo "SBCL_TARGET_LOCATION=\"$SBCL_TARGET_LOCATION\"; export SBCL_TARGET_LOCATION" >> output/build-config
 273 fi
 274
 275 # And now, sorting out the per-target dependencies...
 276
 277 case `uname` in
 278     Linux)
 279         sbcl_os="linux"
 280         ;;
 281     OSF1)
 282         # it's changed name twice since it was called OSF/1: clearly
 283         # the marketers forgot to tell the engineers about Digital Unix
 284         # _or_ OSF/1 ...
 285         sbcl_os="osf1"
 286         ;;
 287     *BSD)
 288         case `uname` in
 289             FreeBSD)
 290                 sbcl_os="freebsd"
 291                 ;;
 292             GNU/kFreeBSD)
 293                 sbcl_os="gnu-kfreebsd"
 294                 ;;
 295             OpenBSD)
 296                 sbcl_os="openbsd"
 297                 ;;
 298             NetBSD)
 299                 sbcl_os="netbsd"
 300                 ;;
 301             *)
 302                 echo unsupported BSD variant: `uname`
 303                 exit 1
 304                 ;;
 305         esac
 306         ;;
 307     DragonFly)
 308         sbcl_os="dragonfly"
 309         ;;
 310     Darwin)
 311         sbcl_os="darwin"
 312         ;;
 313     SunOS)
 314         sbcl_os="sunos"
 315         ;;
 316     CYGWIN* | WindowsNT | MINGW* | MSYS*)
 317         sbcl_os="win32"
 318         ;;
 319     HP-UX)
 320         sbcl_os="hpux"
 321         ;;
 322     *)
 323         echo unsupported OS type: `uname`
 324         exit 1
 325         ;;
 326 esac
 327
 328 link_or_copy() {
 329    if [ "$sbcl_os" = "win32" ] ; then
 330       # Use preprocessor or makefile includes instead of copying if
 331       # possible, to avoid unexpected use of the original, unchanged
 332       # files when re-running only make-target-1 during development.
 333       if echo "$1" | egrep '[.][ch]$'; then
 334          echo "#include \"$1\"" >"$2"
 335       elif echo "$1" | egrep '^Config[.]'; then
 336          echo "include $1" >"$2"
 337       else
 338          cp -r "$1" "$2"
 339       fi
 340    else
 341        ln -s "$1" "$2"
 342    fi
 343 }
 344
 345 remove_dir_safely() {
 346    if [ "$sbcl_os" = "win32" ] ; then
 347         if [ -d "$1" ] ; then
 348             rm -rf "$1"
 349         elif [ -e "$1" ] ; then
 350             echo "I'm afraid to remove non-directory $1."
 351             exit 1
 352         fi
 353     else
 354         if [ -h "$1" ] ; then
 355             rm "$1"
 356         elif [ -w "$1" ] ; then
 357             echo "I'm afraid to replace non-symlink $1 with a symlink."
 358             exit 1
 359         fi
 360     fi
 361 }
 362
 363 echo //entering make-config.sh
 364
 365 echo //ensuring the existence of output/ directory
 366 if [ ! -d output ] ; then mkdir output; fi
 367
 368 echo //guessing default target CPU architecture from host architecture
 369 case `uname -m` in
 370     *86) guessed_sbcl_arch=x86 ;;
 371     i86pc) guessed_sbcl_arch=x86 ;;
 372     *x86_64) guessed_sbcl_arch=x86-64 ;;
 373     amd64) guessed_sbcl_arch=x86-64 ;;
 374     [Aa]lpha) guessed_sbcl_arch=alpha ;;
 375     sparc*) guessed_sbcl_arch=sparc ;;
 376     sun*) guessed_sbcl_arch=sparc ;;
 377     *ppc) guessed_sbcl_arch=ppc ;;
 378     ppc64) guessed_sbcl_arch=ppc ;;
 379     Power*Macintosh) guessed_sbcl_arch=ppc ;;
 380     ibmnws) guessed_sbcl_arch=ppc ;;
 381     parisc) guessed_sbcl_arch=hppa ;;
 382     9000/800) guessed_sbcl_arch=hppa ;;
 383     mips*) guessed_sbcl_arch=mips ;;
 384     *arm*) guessed_sbcl_arch=arm ;;
 385     aarch64) guessed_sbcl_arch=arm64 ;;
 386     *)
 387         # If we're not building on a supported target architecture, we
 388         # we have no guess, but it's not an error yet, since maybe
 389         # target architecture will be specified explicitly below.
 390         guessed_sbcl_arch=''
 391         ;;
 392 esac
 393
 394 # Under Solaris, uname -m returns "i86pc" even if CPU is amd64.
 395 if [ "$sbcl_os" = "sunos" ] && [ `isainfo -k` = "amd64" ]; then
 396     guessed_sbcl_arch=x86-64
 397 fi
 398
 399 # Under Darwin, uname -m returns "i386" even if CPU is x86_64.
 400 if [ "$sbcl_os" = "darwin" ] && [ "`/usr/sbin/sysctl -n hw.optional.x86_64`" = "1" ]; then
 401     guessed_sbcl_arch=x86-64
 402 fi
 403
 404 echo //setting up CPU-architecture-dependent information
 405 if test -n "$SBCL_ARCH"
 406 then
 407     # Normalize it.
 408     SBCL_ARCH=`echo $SBCL_ARCH | tr '[A-Z]' '[a-z]' | tr _ -`
 409 fi
 410 sbcl_arch=${SBCL_ARCH:-$guessed_sbcl_arch}
 411 echo sbcl_arch=\"$sbcl_arch\"
 412 if [ "$sbcl_arch" = "" ] ; then
 413     echo "can't guess target SBCL architecture, please specify --arch=<name>"
 414     exit 1
 415 fi
 416 if $fancy
 417 then
 418     # If --fancy, enable threads on platforms where they can be built.
 419     case $sbcl_arch in
 420         x86|x86-64|ppc|arm64)
 421             if ([ "$sbcl_os" = "sunos" ] && [ "$sbcl_arch" = "x86-64" ]) || \
 422                 [ "$sbcl_os" = "dragonfly" ]
 423             then
 424                 echo "No threads on this platform."
 425             else
 426                 WITH_FEATURES="$WITH_FEATURES :sb-thread"
 427                 echo "Enabling threads due to --fancy."
 428             fi
 429             ;;
 430         *)
 431             echo "No threads on this platform."
 432             ;;
 433     esac
 434 else
 435     case $sbcl_arch in
 436         x86|x86-64|arm64)
 437             case $sbcl_os in
 438     # Be aware that if you use multiple threads on Darwin,
 439     # it works well enough when threads don't interact much, but
 440     # you might encounter https://bugs.launchpad.net/sbcl/+bug/901441
 441                 linux|darwin)
 442                     WITH_FEATURES="$WITH_FEATURES :sb-thread"
 443             esac
 444     esac
 445 fi
 446
 447 ltf=`pwd`/local-target-features.lisp-expr
 448 echo //initializing $ltf
 449 echo ';;;; This is a machine-generated file.' > $ltf
 450 echo ';;;; Please do not edit it by hand.' >> $ltf
 451 echo ';;;; See make-config.sh.' >> $ltf
 452 echo "(lambda (features) (set-difference (union features (list$WITH_FEATURES " >> $ltf
 453
 454 printf ":%s" "$sbcl_arch" >> $ltf
 455
 456 echo //setting up OS-dependent information
 457 # Under Darwin x86-64, guess whether Darwin 9+ or below.
 458 if [ "$sbcl_os" = "darwin" ] && [ "$sbcl_arch" = "x86-64" ]; then
 459     darwin_version=`uname -r`
 460     darwin_version_major=${DARWIN_VERSION_MAJOR:-${darwin_version%%.*}}
 461     if (( 8 < $darwin_version_major )); then
 462         printf ' :inode64 :darwin9-or-better' >> $ltf
 463     fi
 464 fi
 465
 466 original_dir=`pwd`
 467 cd ./src/runtime/
 468 rm -f Config target-arch-os.h target-arch.h target-os.h target-lispregs.h
 469 rm -f sbcl.mk sbcl.o libsbcl.a
 470 # KLUDGE: these two logically belong in the previous section
 471 # ("architecture-dependent"); it seems silly to enforce this in terms
 472 # of the shell script, though. -- CSR, 2002-02-03
 473 link_or_copy $sbcl_arch-arch.h target-arch.h
 474 link_or_copy $sbcl_arch-lispregs.h target-lispregs.h
 475 case "$sbcl_os" in
 476     linux)
 477         printf ' :unix' >> $ltf
 478         printf ' :elf' >> $ltf
 479         printf ' :linux' >> $ltf
 480         case "$sbcl_arch" in
 481           x86 | x86-64 | arm64)
 482                 printf ' :gcc-tls' >> $ltf
 483         esac
 484
 485         # If you add other platforms here, don't forget to edit
 486         # src/runtime/Config.foo-linux too.
 487         case "$sbcl_arch" in
 488             mips | arm)
 489                 printf ' :largefile' >> $ltf
 490                 ;;
 491             x86 | x86-64)
 492                 printf ' :sb-futex :largefile' >> $ltf
 493                 ;;
 494             ppc | arm64)
 495                 printf ' :sb-futex' >> $ltf
 496                 ;;
 497         esac
 498
 499
 500         link_or_copy Config.$sbcl_arch-linux Config
 501         link_or_copy $sbcl_arch-linux-os.h target-arch-os.h
 502         link_or_copy linux-os.h target-os.h
 503         ;;
 504     osf1)
 505         printf ' :unix' >> $ltf
 506         printf ' :elf' >> $ltf
 507         printf ' :osf1' >> $ltf
 508         link_or_copy Config.$sbcl_arch-osf1 Config
 509         link_or_copy $sbcl_arch-osf1-os.h target-arch-os.h
 510         link_or_copy osf1-os.h target-os.h
 511         ;;
 512     hpux)
 513         printf ' :unix' >> $ltf
 514         printf ' :elf' >> $ltf
 515         printf ' :hpux' >> $ltf
 516         link_or_copy Config.$sbcl_arch-hpux Config
 517         link_or_copy $sbcl_arch-hpux-os.h target-arch-os.h
 518         link_or_copy hpux-os.h target-os.h
 519         ;;
 520     *bsd)
 521         printf ' :unix' >> $ltf
 522         printf ' :bsd' >> $ltf
 523         link_or_copy $sbcl_arch-bsd-os.h target-arch-os.h
 524         link_or_copy bsd-os.h target-os.h
 525         case "$sbcl_os" in
 526             *freebsd)
 527                 printf ' :elf' >> $ltf
 528                 printf ' :freebsd' >> $ltf
 529                 printf ' :gcc-tls' >> $ltf
 530                 if [ $sbcl_os = "gnu-kfreebsd" ]; then
 531                     printf ' :gnu-kfreebsd' >> $ltf
 532                 fi
 533
 534                 if [ $sbcl_arch = "x86" ]; then
 535                     printf ' :restore-fs-segment-register-from-tls' >> $ltf
 536                 fi
 537                 link_or_copy Config.$sbcl_arch-$sbcl_os Config
 538                 ;;
 539             openbsd)
 540                 printf ' :elf' >> $ltf
 541                 printf ' :openbsd' >> $ltf
 542                 link_or_copy Config.$sbcl_arch-openbsd Config
 543                 ;;
 544             netbsd)
 545                 printf ' :netbsd' >> $ltf
 546                 printf ' :elf' >> $ltf
 547                 link_or_copy Config.$sbcl_arch-netbsd Config
 548                 ;;
 549             *)
 550                 echo unsupported BSD variant: `uname`
 551                 exit 1
 552                 ;;
 553         esac
 554         ;;
 555     dragonfly)
 556         printf ' :unix' >> $ltf
 557         printf ' :bsd' >> $ltf
 558         printf ' :elf' >> $ltf
 559         printf ' :dragonfly' >> $ltf
 560         printf ' :sb-qshow' >> $ltf
 561         if [ $sbcl_arch = "x86" ]; then
 562             printf ' :restore-fs-segment-register-from-tls' >> $ltf
 563         fi
 564         link_or_copy $sbcl_arch-bsd-os.h target-arch-os.h
 565         link_or_copy bsd-os.h target-os.h
 566         link_or_copy Config.$sbcl_arch-dragonfly Config
 567         ;;
 568     darwin)
 569         printf ' :unix' >> $ltf
 570         printf ' :mach-o' >> $ltf
 571         printf ' :bsd' >> $ltf
 572         printf ' :darwin' >> $ltf
 573         if [ $sbcl_arch = "x86" ]; then
 574             printf ' :mach-exception-handler :restore-fs-segment-register-from-tls :ud2-breakpoints' >> $ltf
 575         fi
 576         if [ $sbcl_arch = "x86-64" ]; then
 577             printf ' :mach-exception-handler :ud2-breakpoints' >> $ltf
 578         fi
 579         link_or_copy $sbcl_arch-darwin-os.h target-arch-os.h
 580         link_or_copy bsd-os.h target-os.h
 581         link_or_copy Config.$sbcl_arch-darwin Config
 582         ;;
 583     sunos)
 584         printf ' :unix' >> $ltf
 585         printf ' :elf' >> $ltf
 586         printf ' :sunos' >> $ltf
 587         if [ $sbcl_arch = "x86-64" ]; then
 588             printf ' :largefile' >> $ltf
 589         fi
 590         link_or_copy Config.$sbcl_arch-sunos Config
 591         link_or_copy $sbcl_arch-sunos-os.h target-arch-os.h
 592         link_or_copy sunos-os.h target-os.h
 593         ;;
 594     win32)
 595         printf ' :win32' >> $ltf
 596         #
 597         # Optional features -- We enable them by default, but the build
 598         # ought to work perfectly without them:
 599         #
 600         printf ' :sb-futex' >> $ltf
 601         printf ' :sb-qshow' >> $ltf
 602         #
 603         # Required features -- Some of these used to be optional, but
 604         # building without them is no longer considered supported:
 605         #
 606         # (Of course it doesn't provide dlopen, but there is
 607         # roughly-equivalent magic nevertheless:)
 608         printf ' :sb-dynamic-core :os-provides-dlopen' >> $ltf
 609         printf ' :sb-thread :sb-safepoint :sb-thruption :sb-wtimer' >> $ltf
 610         printf ' :sb-safepoint-strictly' >> $ltf
 611         #
 612         link_or_copy Config.$sbcl_arch-win32 Config
 613         link_or_copy $sbcl_arch-win32-os.h target-arch-os.h
 614         link_or_copy win32-os.h target-os.h
 615         ;;
 616     *)
 617         echo unsupported OS type: `uname`
 618         exit 1
 619         ;;
 620 esac
 621 case "$sbcl_os" in
 622     win32)
 623         ;;
 624     *)
 625         printf ' :relocatable-heap' >> $ltf
 626         ;;
 627 esac
 628 cd "$original_dir"
 629
 630 # FIXME: Things like :c-stack-grows-..., etc, should be
 631 # *derived-target-features* or equivalent, so that there was a nicer
 632 # way to specify them then sprinkling them in this file. They should
 633 # still be tweakable by advanced users, though, but probably not
 634 # appear in *features* of target. #!+/- should be adjusted to take
 635 # them in account as well. At minimum the nicer specification stuff,
 636 # though:
 637 #
 638 # (define-feature :dlopen (features)
 639 #   (union '(:bsd :linux :darwin :sunos) features))
 640 #
 641 # (define-feature :c-stack-grows-downwards-not-upwards (features)
 642 #   (member :x86 features))
 643
 644 # KLUDGE: currently the x86 only works with the generational garbage
 645 # collector (indicated by the presence of :GENCGC in *FEATURES*) and
 646 # alpha, sparc and ppc with the stop'n'copy collector (indicated by
 647 # the absence of :GENCGC in *FEATURES*). This isn't a great
 648 # separation, but for now, rather than have :GENCGC in
 649 # base-target-features.lisp-expr, we add it into local-target-features
 650 # if we're building for x86. -- CSR, 2002-02-21 Then we do something
 651 # similar with :STACK-GROWS-FOOWARD, too. -- WHN 2002-03-03
 652 if [ "$sbcl_arch" = "x86" ]; then
 653     printf ' :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack' >> $ltf
 654     printf ' :compare-and-swap-vops :unwind-to-frame-and-call-vop :raw-instance-init-vops' >> $ltf
 655     printf ' :stack-allocatable-closures :stack-allocatable-vectors' >> $ltf
 656     printf ' :stack-allocatable-lists :stack-allocatable-fixed-objects' >> $ltf
 657     printf ' :alien-callbacks :cycle-counter :inline-constants' >> $ltf
 658     printf ' :memory-barrier-vops :multiply-high-vops :ash-right-vops :symbol-info-vops' >> $ltf
 659     printf ' :fp-and-pc-standard-save :raw-signed-word' >> $ltf
 660     case "$sbcl_os" in
 661     linux | freebsd | gnu-kfreebsd | netbsd | openbsd | sunos | darwin | win32 | dragonfly)
 662         printf ' :linkage-table' >> $ltf
 663     esac
 664     if [ "$sbcl_os" = "win32" ]; then
 665         # of course it doesn't provide dlopen, but there is
 666         # roughly-equivalent magic nevertheless.
 667         printf ' :os-provides-dlopen' >> $ltf
 668     fi
 669     if [ "$sbcl_os" = "openbsd" ]; then
 670         rm -f src/runtime/openbsd-sigcontext.h
 671         sh tools-for-build/openbsd-sigcontext.sh > src/runtime/openbsd-sigcontext.h
 672     fi
 673 elif [ "$sbcl_arch" = "x86-64" ]; then
 674     printf ' :64-bit :64-bit-registers :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table' >> $ltf
 675     printf ' :compare-and-swap-vops :unwind-to-frame-and-call-vop :raw-instance-init-vops' >> $ltf
 676     printf ' :fp-and-pc-standard-save :unbind-n-vop' >> $ltf
 677     printf ' :stack-allocatable-closures :stack-allocatable-vectors' >> $ltf
 678     printf ' :stack-allocatable-lists :stack-allocatable-fixed-objects' >> $ltf
 679     printf ' :alien-callbacks :cycle-counter :complex-float-vops :raw-signed-word' >> $ltf
 680     printf ' :float-eql-vops :integer-eql-vop :inline-constants :memory-barrier-vops' >> $ltf
 681     printf ' :multiply-high-vops :sb-simd-pack :ash-right-vops :symbol-info-vops' >> $ltf
 682     printf ' :undefined-fun-restarts' >> $ltf
 683     case "$sbcl_os" in
 684     linux | darwin | *bsd)
 685         printf ' :immobile-space :immobile-code :compact-instance-header' >> $ltf
 686     esac
 687 elif [ "$sbcl_arch" = "mips" ]; then
 688     printf ' :cheneygc :linkage-table' >> $ltf
 689     printf ' :stack-allocatable-closures :stack-allocatable-vectors' >> $ltf
 690     printf ' :stack-allocatable-lists :stack-allocatable-fixed-objects' >> $ltf
 691     printf ' :alien-callbacks' >> $ltf
 692 elif [ "$sbcl_arch" = "ppc" ]; then
 693     printf ' :gencgc :stack-allocatable-closures :stack-allocatable-vectors' >> $ltf
 694     printf ' :stack-allocatable-lists :stack-allocatable-fixed-objects' >> $ltf
 695     printf ' :linkage-table :raw-instance-init-vops :memory-barrier-vops' >> $ltf
 696     printf ' :compare-and-swap-vops :multiply-high-vops :alien-callbacks' >> $ltf
 697     if [ "$sbcl_os" = "linux" ]; then
 698         # Use a C program to detect which kind of glibc we're building on,
 699         # to bandage across the break in source compatibility between
 700         # versions 2.3.1 and 2.3.2
 701         #
 702         # FIXME: integrate to grovel-features, mayhaps
 703         $GNUMAKE -C tools-for-build where-is-mcontext -I ../src/runtime
 704         tools-for-build/where-is-mcontext > src/runtime/ppc-linux-mcontext.h || (echo "error running where-is-mcontext"; exit 1)
 705     elif [ "$sbcl_os" = "darwin" ]; then
 706         # We provide a dlopen shim, so a little lie won't hurt
 707         printf ' :os-provides-dlopen' >> $ltf
 708         # The default stack ulimit under darwin is too small to run PURIFY.
 709         # Best we can do is complain and exit at this stage
 710         if [ "`ulimit -s`" = "512" ]; then
 711             echo "Your stack size limit is too small to build SBCL."
 712             echo "See the limit(1) or ulimit(1) commands and the README file."
 713             exit 1
 714         fi
 715     fi
 716 elif [ "$sbcl_arch" = "sparc" ]; then
 717     # Test the compiler in order to see if we are building on Sun
 718     # toolchain as opposed to GNU binutils, and write the appropriate
 719     # FUNCDEF macro for assembler. No harm in running this on sparc-linux
 720     # as well.
 721     sh tools-for-build/sparc-funcdef.sh > src/runtime/sparc-funcdef.h
 722     if [ "$sbcl_os" = "sunos" ] || [ "$sbcl_os" = "linux" ]; then
 723         printf ' :gencgc' >> $ltf
 724     else
 725         echo '***'
 726         echo '*** You are running SPARC on non-SunOS, non-Linux.  Since'
 727         echo '*** GENCGC is untested on this combination, make-config.sh'
 728         echo '*** is falling back to CHENEYGC.  Please consider adjusting'
 729         echo '*** parms.lisp to build with GENCGC instead.'
 730         echo '***'
 731         printf ' :cheneygc' >> $ltf
 732     fi
 733     if [ "$sbcl_os" = "sunos" ] || [ "$sbcl_os" = "linux" ]; then
 734         printf ' :linkage-table' >> $ltf
 735     fi
 736     printf ' :stack-allocatable-closures :stack-allocatable-lists' >> $ltf
 737 elif [ "$sbcl_arch" = "alpha" ]; then
 738     printf ' :cheneygc' >> $ltf
 739     printf ' :64-bit-registers' >> $ltf
 740     printf ' :stack-allocatable-closures :stack-allocatable-lists' >> $ltf
 741     printf ' :stack-allocatable-fixed-objects' >> $ltf
 742 elif [ "$sbcl_arch" = "hppa" ]; then
 743     printf ' :cheneygc' >> $ltf
 744     printf ' :stack-allocatable-vectors :stack-allocatable-fixed-objects' >> $ltf
 745     printf ' :stack-allocatable-closures :stack-allocatable-lists' >> $ltf
 746 elif [ "$sbcl_arch" = "arm" ]; then
 747     printf ' :gencgc :linkage-table :alien-callbacks' >> $ltf
 748     # As opposed to soft-float or FPA, we support VFP only (and
 749     # possibly VFPv2 and higher only), but we'll leave the obvious
 750     # hooks in for someone to add the support later.
 751     printf ' :arm-vfp :arm-vfpv2' >> $ltf
 752     printf ' :ash-right-vops :multiply-high-vops :symbol-info-vops' >> $ltf
 753     printf ' :stack-allocatable-lists :stack-allocatable-fixed-objects' >> $ltf
 754     printf ' :stack-allocatable-vectors :stack-allocatable-closures' >> $ltf
 755     printf ' :unwind-to-frame-and-call-vop' >> $ltf
 756     printf ' :fp-and-pc-standard-save' >> $ltf
 757 elif [ "$sbcl_arch" = "arm64" ]; then
 758     printf ' :64-bit :64-bit-registers :gencgc :linkage-table :fp-and-pc-standard-save' >> $ltf
 759     printf ' :alien-callbacks :inline-constants' >> $ltf
 760     printf ' :ash-right-vops :multiply-high-vops :symbol-info-vops' >> $ltf
 761     printf ' :stack-allocatable-lists :stack-allocatable-fixed-objects' >> $ltf
 762     printf ' :stack-allocatable-vectors :stack-allocatable-closures' >> $ltf
 763     printf ' :unbind-n-vop :unwind-to-frame-and-call-vop :raw-signed-word' >> $ltf
 764     printf ' :compare-and-swap-vops :memory-barrier-vops :undefined-fun-restarts' >> $ltf
 765 else
 766     # Nothing need be done in this case, but sh syntax wants a placeholder.
 767     echo > /dev/null
 768 fi
 769
 770 # Use a little C program to try to guess the endianness.  Ware
 771 # cross-compilers!
 772 #
 773 # FIXME: integrate to grovel-features, mayhaps
 774 $GNUMAKE -C tools-for-build determine-endianness -I ../src/runtime
 775 tools-for-build/determine-endianness >> $ltf
 776
 777 export sbcl_os sbcl_arch
 778 sh tools-for-build/grovel-features.sh >> $ltf
 779
 780 echo //finishing $ltf
 781 echo ")) (list$WITHOUT_FEATURES)))" >> $ltf
 782
 783 # FIXME: The version system should probably be redone along these lines:
 784 #
 785 # echo //setting up version information.
 786 # versionfile=version.txt
 787 # cp base-version.txt $versionfile
 788 # echo " (built `date -u` by `whoami`@`hostname`)" >> $versionfile
 789 # echo 'This is a machine-generated file and should not be edited by hand.' >> $versionfile
 790
 791 # Make a unique ID for this build (to discourage people from
 792 # mismatching sbcl and *.core files).
 793 if [ `uname` = "SunOS" ] ; then
 794   # use /usr/xpg4/bin/id instead of /usr/bin/id
 795   PATH=/usr/xpg4/bin:$PATH
 796 fi
 797 echo '"'`hostname`-`id -un`-`date +%Y-%m-%d-%H-%M-%S`'"' > output/build-id.inc
 798
 799 if [ -n "$SBCL_HOST_LOCATION" ]; then
 800     echo //setting up host configuration
 801     rsync --delete-after -a output/ "$SBCL_HOST_LOCATION/output/"
 802     rsync -a local-target-features.lisp-expr version.lisp-expr "$SBCL_HOST_LOCATION/"
 803 fi
 804