X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-config.sh;h=686a9c238218b52ef645d03dca37de506f06265d;hb=4e3b57699314dbd3883470d9b196287b178f3e6d;hp=6a6c86040490532efacfede74af71643707d71fc;hpb=f2aa2d01b8d69f1c7bff18f86279d4f1018fe127;p=sbcl.git diff --git a/make-config.sh b/make-config.sh index 6a6c860..686a9c2 100644 --- a/make-config.sh +++ b/make-config.sh @@ -24,14 +24,17 @@ if [ ! -d output ] ; then mkdir output; fi ltf=`pwd`/local-target-features.lisp-expr echo //initializing $ltf echo ';;;; This is a machine-generated file.' > $ltf -echo ';;;; Please do not edit it by hand.' > $ltf -echo ';;;; See make-config.sh.' > $ltf -echo -n '(' >> $ltf +echo ';;;; Please do not edit it by hand.' >> $ltf +echo ';;;; See make-config.sh.' >> $ltf +printf '(' >> $ltf echo //guessing default target CPU architecture from host architecture case `uname -m` in *86) guessed_sbcl_arch=x86 ;; [Aa]lpha) guessed_sbcl_arch=alpha ;; + sparc*) guessed_sbcl_arch=sparc ;; + sun*) guessed_sbcl_arch=sparc ;; + ppc) guessed_sbcl_arch=ppc ;; *) # If we're not building on a supported target architecture, we # we have no guess, but it's not an error yet, since maybe @@ -42,18 +45,33 @@ esac echo //setting up CPU-architecture-dependent information sbcl_arch=${SBCL_ARCH:-$guessed_sbcl_arch} +echo sbcl_arch=\"$sbcl_arch\" if [ "$sbcl_arch" = "" ] ; then echo "can't guess target SBCL architecture, need SBCL_ARCH environment var" exit 1 fi -echo -n ":$sbcl_arch" >> $ltf +printf ":%s" "$sbcl_arch" >> $ltf +# KLUDGE: currently the x86 only works with the generational garbage +# collector (indicated by the presence of :GENCGC in *FEATURES*) and +# alpha, sparc and ppc with the stop'n'copy collector (indicated by +# the absence of :GENCGC in *FEATURES*). This isn't a great +# separation, but for now, rather than have :GENCGC in +# base-target-features.lisp-expr, we add it into local-target-features +# if we're building for x86. -- CSR, 2002-02-21 Then we do something +# similar with :STACK-GROWS-FOOWARD, too. -- WHN 2002-03-03 +if [ "$sbcl_arch" = "x86" ] ; then + printf ' :gencgc :stack-grows-downward-not-upward' >> $ltf +else + # Nothing need be done in this case, but sh syntax wants a placeholder. + echo > /dev/null +fi for d in src/compiler src/assembly; do echo //setting up symlink $d/target original_dir=`pwd` cd $d - if [ -L target ] ; then + if [ -h target ] ; then rm target - elif [ -e target ] ; then + elif [ -w target ] ; then echo "I'm afraid to replace non-symlink $d/target with a symlink." exit 1 fi @@ -69,21 +87,39 @@ done echo //setting up OS-dependent information original_dir=`pwd` cd src/runtime/ -rm -f Config +rm -f Config target-arch-os.h target-arch.h target-os.h target-lispregs.h +# KLUDGE: these two logically belong in the previous section +# ("architecture-dependent"); it seems silly to enforce this in terms +# of the shell script, though. -- CSR, 2002-02-03 +ln -s $sbcl_arch-arch.h target-arch.h +ln -s $sbcl_arch-lispregs.h target-lispregs.h case `uname` in Linux) - echo -n ' :linux' >> $ltf + printf ' :linux' >> $ltf ln -s Config.$sbcl_arch-linux Config + ln -s $sbcl_arch-linux-os.h target-arch-os.h + ln -s linux-os.h target-os.h + ;; + OSF1) + # it's changed name twice since it was called OSF/1: clearly + # the marketers forgot to tell the engineers about Digital Unix + # _or_ OSF/1 ... + printf ' :osf1' >> $ltf + ln -s Config.$sbcl_arch-osf1 Config + ln -s $sbcl_arch-osf1-os.h target-arch-os.h + ln -s osf1-os.h target-os.h ;; *BSD) - echo -n ' :bsd' >> $ltf + printf ' :bsd' >> $ltf + ln -s $sbcl_arch-bsd-os.h target-arch-os.h + ln -s bsd-os.h target-os.h case `uname` in FreeBSD) - echo -n ' :freebsd' >> $ltf + printf ' :freebsd' >> $ltf ln -s Config.$sbcl_arch-freebsd Config ;; OpenBSD) - echo -n ' :openbsd' >> $ltf + printf ' :openbsd' >> $ltf ln -s Config.$sbcl_arch-openbsd Config ;; *) @@ -92,6 +128,12 @@ case `uname` in ;; esac ;; + SunOS) + printf ' :sunos' >> $ltf + ln -s Config.$sbcl_arch-sunos Config + ln -s $sbcl_arch-sunos-os.h target-arch-os.h + ln -s sunos-os.h target-os.h + ;; *) echo unsupported OS type: `uname` exit 1