Simplify ALLOCATE-INSTANCE->CONSTRUCTOR-CALL
[sbcl.git] / tests / run-compiler.sh
blob3974fae89eaf9d16a9b5f8dc6423630006b388fb
1 #!/bin/sh
3 platform="${SBCL_SOFTWARE_TYPE}-${SBCL_MACHINE_TYPE}"
5 if [ -z $CC ]; then
6 if [ -x "`command -v cc`" ]; then
7 CC=cc
8 else
9 CC=gcc
13 args=
14 case "$platform" in
15 Darwin-X86-64) args="-arch x86_64" ;;
16 Darwin-X86) args="-arch i386" ;;
17 SunOS-X86-64) args=-m64 ;;
18 Linux-X86) args="-m32" ;;
19 Linux-PowerPC) args="-m32" ;;
20 FreeBSD-X86) args="-m32" ;;
21 esac
23 while [ $# -gt 0 ]; do
24 arg="$1"
25 new=
26 case "$arg" in
27 -sbcl-pic)
28 case "$platform" in
29 FreeBSD-X86-64) new=-fPIC ;;
30 Linux-Alpha) new=-fPIC ;;
31 Linux-ARM) new=-fPIC ;;
32 Linux-HPPA) new=-fPIC ;;
33 Linux-MIPS) new=-fPIC ;;
34 Linux-X86-64) new=-fPIC ;;
35 Linux-PowerPC) new=-fPIC ;;
36 NetBSD-PowerPC) new=-fPIC ;;
37 NetBSD-X86-64) new=-fPIC ;;
38 OpenBSD-PowerPC) new=-fPIC ;;
39 OpenBSD-X86-64) new=-fPIC ;;
40 SunOS-SPARC) new=-fPIC ;;
41 SunOS-X86) new=-fPIC ;;
42 SunOS-X86-64) new=-fPIC ;;
43 DragonFly-X86-64)new=-fPIC ;;
44 DragonFly-X86) new=-fPIC ;;
45 esac
48 -sbcl-shared)
49 case "$platform" in
50 Darwin-*) new=-bundle ;;
51 *) new=-shared ;;
52 esac
56 break
58 esac
60 shift
61 if [ x"$new" != x ]; then
62 args="$args $new"
64 done
66 echo "/ $CC $args $@"
67 "$CC" $args "$@"