From 4901b570ba13bad06a6418a636f6bdf98585a753 Mon Sep 17 00:00:00 2001 From: Rich Salz Date: Mon, 3 Feb 2020 21:41:20 -0500 Subject: Initial rewrite of config as a Perl module - Use $^X; to find perl. - Big re-ordering: Put all variables at the top, move most inline code into functions. The heart of the script now basically just calls functions to do its work. - Unify warning text, add -w option - Don't use needless (subshells) - Ensure Windows gets a VC-xxx option - Make config a perl module - Top-level "config" command-line is a dummy that just calls the module. Added module stuff so that it can be called from Configure. Reviewed-by: Tim Hudson Reviewed-by: Richard Levitte (Merged from https://github.com/openssl/openssl/pull/11230) --- util/perl/OpenSSL/config.pm | 922 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 922 insertions(+) create mode 100755 util/perl/OpenSSL/config.pm (limited to 'util/perl/OpenSSL/config.pm') diff --git a/util/perl/OpenSSL/config.pm b/util/perl/OpenSSL/config.pm new file mode 100755 index 0000000000..c1bbd32fbf --- /dev/null +++ b/util/perl/OpenSSL/config.pm @@ -0,0 +1,922 @@ +#! /usr/bin/env perl +# Copyright 1998-2020 The OpenSSL Project Authors. All Rights Reserved. +# +# Licensed under the Apache License 2.0 (the "License"). You may not use +# this file except in compliance with the License. You can obtain a copy +# in the file LICENSE in the source distribution or at +# https://www.openssl.org/source/license.html + +# Determine the operating system and run ./Configure. Far descendant from +# Apache's minarch and GuessOS. + +package OpenSSL::config; + +use strict; +use warnings; +use Getopt::Std; +use File::Basename; + +# These control our behavior. +my $DRYRUN; +my $VERBOSE; +my $WAIT = 1; +my $WHERE = dirname($0); + +# Machine type, etc., used to determine the platform +my $MACHINE; +my $RELEASE; +my $SYSTEM; +my $VERSION; +my $CCVER; +my $GCCVER; +my $GCC_BITS; +my $GCC_ARCH; + +# Some environment variables; they will affect Configure +my $PERL = $ENV{PERL} // $^X // 'perl'; +my $CONFIG_OPTIONS = $ENV{CONFIG_OPTIONS} // ''; +my $CC = $ENV{CC} // 'cc'; +my $CROSS_COMPILE = $ENV{CROSS_COMPILE} // ""; +my $KERNEL_BITS = $ENV{KERNEL_BITS} // ''; + +# This is what we will set as the target for calling Configure. +my $options = ''; + +# Environment that will be passed to Configure +my $__CNF_CPPDEFINES = ''; +my $__CNF_CPPINCLUDES = ''; +my $__CNF_CPPFLAGS = ''; +my $__CNF_CFLAGS = ''; +my $__CNF_CXXFLAGS = ''; +my $__CNF_LDFLAGS = ''; +my $__CNF_LDLIBS = ''; + +# Pattern matches against "${SYSTEM}:${RELEASE}:${VERSION}:${MACHINE}" +my $simple_guess_patterns = [ + [ 'A\/UX:', 'm68k-apple-aux3' ], + [ 'AIX:[3-9]:4:', '${MACHINE}-ibm-aix' ], + [ 'AIX:.*:[5-9]:', '${MACHINE}-ibm-aix' ], + [ 'AIX:', '${MACHINE}-ibm-aix3' ], + [ 'HI-UX:', '${MACHINE}-hi-hiux' ], + [ 'IRIX:6.', 'mips3-sgi-irix' ], + [ 'IRIX64:', 'mips4-sgi-irix64' ], + [ 'Linux:[2-9]', '${MACHINE}-whatever-linux2' ], + [ 'Linux:1', '${MACHINE}-whatever-linux1' ], + [ 'GNU', 'hurd-x86' ], + [ 'LynxOS:', '${MACHINE}-lynx-lynxos' ], + # BSD/OS always says 386 + [ 'BSD\/OS:4.*', 'i486-whatever-bsdi4' ], + [ 'BSD\/386:.*|BSD\/OS:', '${MACHINE}-whatever-bsdi' ], + [ 'DragonFly:', '${MACHINE}-whatever-dragonfly' ], + [ 'FreeBSD:', '${MACHINE}-whatever-freebsd' ], + [ 'Haiku:', '${MACHINE}-whatever-haiku' ], + [ 'NetBSD:', '${MACHINE}-whatever-netbsd' ], + [ 'OpenBSD:', '${MACHINE}-whatever-openbsd' ], + [ 'OpenUNIX:', '${MACHINE}-unknown-OpenUNIX${VERSION}' ], + [ 'Paragon.*:', 'i860-intel-osf1' ], + [ 'Rhapsody:', 'ppc-apple-rhapsody' ], + [ 'SunOS:5.', '${MACHINE}-whatever-solaris2' ], + [ 'SunOS:', '${MACHINE}-sun-sunos4' ], + [ 'UNIX_System_V:4.*:', '${MACHINE}-whatever-sysv4' ], + [ 'VOS:.*:.*:i786', 'i386-stratus-vos' ], + [ 'VOS:.*:.*:', 'hppa1.1-stratus-vos' ], + [ '.*:4.*:R4.*:m88k', '${MACHINE}-whatever-sysv4' ], + [ 'DYNIX\/ptx:4.*:', '${MACHINE}-whatever-sysv4' ], + [ ':4.0:3.0:3[34]', 'i486-ncr-sysv4' ], + [ 'ULTRIX:', '${MACHINE}-unknown-ultrix' ], + [ 'POSIX-BC', 'BS2000-siemens-sysv4' ], + [ 'machten:', '${MACHINE}-tenon-${SYSTEM}' ], + [ 'library:', '${MACHINE}-ncr-sysv4' ], + [ 'ConvexOS:.*:11.0:', '${MACHINE}-v11-${SYSTEM}' ], + [ 'MINGW64.*:.*x86_64', '${MACHINE}-whatever-mingw64' ], + [ 'MINGW', '${MACHINE}-whatever-mingw' ], + [ 'CYGWIN', '${MACHINE}-pc-cygwin' ], + [ 'vxworks', '${MACHINE}-whatever-vxworks' ], + [ 'Darwin:.*Power', 'ppc-apple-darwin' ], + [ 'Darwin:.*x86_64', 'x86_64-apple-darwin' ], + [ 'Darwin:', 'i686-apple-darwin' ], +]; + +# More complex cases that require run-time code. +my $complex_sys_list = [ + [ 'HP-UX:', sub { + my $HPUXVER = $RELEASE; + $HPUXVER = s/[^.]*.[0B]*//; + # HPUX 10 and 11 targets are unified + return "${MACHINE}-hp-hpux1x" if $HPUXVER =~ m@1[0-9]@; + return "${MACHINE}-hp-hpux"; + } ], + + [ 'BSD/386:.*:.*:.*486.*|BSD/OS:.*:.*:.*:.*486', sub { + my $BSDVAR = `/sbin/sysctl -n hw.model`; + return "i586-whatever-bsdi" if $BSDVAR =~ m@Pentium@; + return "i386-whatever-bsdi"; + } ], + + [ 'FreeBSD:.*:.*:.*386', sub { + my $VERS = $RELEASE; + $VERS =~ s/[-(].*//; + my $MACH = `sysctl -n hw.model`; + $MACH = "i386" if $MACH =~ m@386@; + $MACH = "i486" if $MACH =~ m@486@; + $MACH = "i686" if $MACH =~ m@Pentium II@; + $MACH = "i586" if $MACH =~ m@Pentium@; + $MACH = "$MACHINE" if $MACH !~ /i.86/; + my $ARCH = 'whatever'; + $ARCH = "pc" if $MACH =~ m@i[0-9]86@; + return "${MACH}-${ARCH}-freebsd${VERS}"; + } ], + + [ 'NetBSD:.*:.*:.*386', sub { + my $hw = `/usr/sbin/sysctl -n hw.model || /sbin/sysctl -n hw.model`; + $hw =~ s@.*(.)86-class.*@i${1}86@; + return "${hw}-whatever-netbsd"; + } ], + + [ 'OSF1:.*:.*:.*alpha', sub { + my $OSFMAJOR = $RELEASE; + $OSFMAJOR =~ 's/^V([0-9]*)\..*$/\1/'; + return "${MACHINE}-dec-tru64" if $OSFMAJOR =~ m@[45]@; + return "${MACHINE}-dec-osf"; + } ], +]; + + +# Run a command, return true if exit zero else false. +# Multiple args are glued together into a pipeline. +# Name comes from OpenSSL tests, often written as "ok(run(...." +sub okrun { + my $command = join(' | ', @_); + my $status = system($command) >> 8; + return $status == 0; +} + +# Give user a chance to abort/interrupt if interactive if interactive. +sub maybe_abort { + if ( $WAIT && -t 1 ) { + eval { + local $SIG{ALRM} = sub { die "Timeout"; }; + local $| = 1; + alarm(5); + print "You have about five seconds to abort: "; + my $ignored = ; + alarm(0); + }; + print "\n" if $@ =~ /Timeout/; + } +} + +# Parse options. +sub call_getopt { + our($opt_d); + our($opt_h); + our($opt_t); + our($opt_v); + our($opt_w); + getopts("dhtvw"); + + # Building on windows needs a VisualC target. + my $iswin = $^O eq 'MSWin32'; + my $foundvc = 0; + + if ( $opt_h ) { + print <<'EOF'; +Usage: config [options] [args...] + -d Build with debugging when possible. + -t Test mode, do not run the Configure perl script. + -v Verbose mode, show the exact Configure call that is being made. + -w Do not wait after displaying any warnings. + -h This help. +All other arguments are passed to the Configure script. +See INSTALL for instructions. +EOF + exit; + } + # All other parameters are passed to Configure + foreach my $opt ( @ARGV ) { + # Could make the VC- part optional, but that might cause + # confusion. + if ( $iswin && $opt =~ /^VC-(WIN32|WIN64A|WIN64I|CE)$/i ) { + $opt = tr/a-z/A-Z/; + $opt = "VC-$opt" unless $opt =~ /^VC-/; + $foundvc = 1; + } + $options .= " $opt"; + } + if ( $iswin && !$foundvc ) { + print </dev/null|" or return "unknown"; + my $line = ; + close UNAME; + $line =~ s/[\r\n]+$//; + return "unknown" if $line eq ''; + return $line; +} + +# Set machine type, release, etc., variables. +sub get_machine_etc { + $MACHINE = $ENV{MACHINE} // uname('-m'); + $RELEASE = $ENV{RELEASE} // uname('-r'); + $SYSTEM = $ENV{SYSTEM} // uname("-s"); + $VERSION = uname('-v'); +} + +# Expand variable references in a string. +sub expand { + my $var = shift; + $var =~ s/\$\{MACHINE\}/${MACHINE}/; + return $var; +} + +# Add no-xxx if someone removed a crypto algorithm directory. +# TODO: This should be moved to Configure. +my @cryptodir = ( + 'aes', 'aria', 'bf', 'camellia', 'cast', 'des', 'dh', 'dsa', 'ec', 'hmac', + 'idea', 'md2', 'md5', 'mdc2', 'rc2', 'rc4', 'rc5', 'ripemd', 'rsa', + 'seed', 'sha', 'sm2', 'sm3', 'sm4' +); +sub remove_removed_crypto_directories { + foreach my $d ( @cryptodir ) { + $options .= " no-$d" if ! -d "$WHERE/crypto/$d"; + } +} + +# Look for ISC/SCO with its unique uname program +sub is_sco_uname { + open UNAME, "uname -X 2>/dev/null|" or return ''; + my $line = ""; + while ( ) { + chop; + $line = $_ if m@^Release@; + } + close UNAME; + return "" if $line eq ''; + my @fields = split($line); + return $fields[2]; +} + +sub get_sco_type { + my $REL = shift; + + if ( -f "/etc/kconfig" ) { + return "${MACHINE}-whatever-isc4" if $REL eq '4.0' || $REL eq '4.1'; + } else { + return "whatever-whatever-sco3" if $REL eq '3.2v4.2'; + return "whatever-whatever-sco5" if $REL =~ m@3\.2v5\.0.*@; + if ( $REL eq "4.2MP" ) { + return "whatever-whatever-unixware20" if $VERSION =~ m@2\.0.*@; + return "whatever-whatever-unixware21" if $VERSION =~ m@2\.1.*@; + return "whatever-whatever-unixware2" if $VERSION =~ m@2.*@; + } + return "whatever-whatever-unixware1" if $REL eq "4.2"; + if ( $REL =~ m@5.*@ ) { + # We hardcode i586 in place of ${MACHINE} for the following + # reason: even though Pentium is minimum requirement for + # platforms in question, ${MACHINE} gets always assigned to + # i386. This means i386 gets passed to Configure, which will + # cause bad assembler code to be generated. + return "i586-sco-unixware7" if $VERSION =~ m@[678].*@; + } + } +} + +# Return the cputype-vendor-osversion +sub guess_system { + # Special-cases for ISC, SCO, Unixware + my $REL = is_sco_uname(); + if ( $REL ne "" ) { + my $result = get_sco_type($REL); + return expand($result) if $result ne ''; + } + + # Now pattern-match + my $sys = "${SYSTEM}:${RELEASE}:${VERSION}:${MACHINE}"; + + # Simple cases + foreach my $tuple ( @$simple_guess_patterns ) { + my $pat = @$tuple[0]; + # Trailing $ omitted on purpose. + next if $sys !~ /^$pat/; + my $result = @$tuple[1]; + return expand($result); + } + + # Complex cases. + foreach my $tuple ( @$complex_sys_list ) { + my $pat = @$tuple[0]; + # Trailing $ omitted on purpose. + next if $sys !~ /^$pat/; + my $ref = @$tuple[1]; + my $result = &$ref; + return expand($result); + } + + # Oh well. + return "${MACHINE}-whatever-${SYSTEM}"; +} + +# Figure out CC, GCCVAR, etc. +sub determine_compiler_settings { + if ( "$CROSS_COMPILE$CC" eq '' ) { + $GCCVER = `gcc -dumpversion 2>/dev/null`; + if ( $GCCVER ne "" ) { + # Strip off whatever prefix egcs prepends the number with. + # Hopefully, this will work for any future prefixes as well. + $GCCVER =~ s/^[a-zA-Z]*\-//; + # Since gcc 3.1 gcc --version behaviour has changed, but + # -dumpversion gives us what we want though, so use that. + # We only want the major and minor version numbers. The + # pattern is deliberate; single digit before and after first + # dot, e.g. 2.95.1 gives 29 + $GCCVER =~ s/([0-9])\.([0-9]).*/$1$2/; + $GCCVER = int($GCCVER); + $CC = 'gcc'; + } + } + + $GCCVER //= 0; + + if ( $SYSTEM eq "HP-UX" ) { + # By default gcc is a ILP32 compiler (with long long == 64). + $GCC_BITS = "32"; + if ( $GCCVER >= 30 ) { + # PA64 support only came in with gcc 3.0.x. + # We check if the preprocessor symbol __LP64__ is defined. + if ( okrun('echo __LP64__', + 'gcc -v -E -x c - 2>/dev/null', + 'grep "^__LP64__" 2>&1 >/dev/null') ) { + # __LP64__ has slipped through, it therefore is not defined + } else { + $GCC_BITS = '64'; + } + } + return; + } + + if ( ${SYSTEM} eq 'AIX' ) { + # favor vendor cc over gcc + if ( okrun('(cc) 2>&1', + 'grep -iv "not found" >/dev/null') ) { + $CC = 'cc'; + } + return; + } + + if ( $SYSTEM eq "SunOS" ) { + if ( $GCCVER >= 30 ) { + # 64-bit ABI isn't officially supported in gcc 3.0, but seems + # to be working; at the very least 'make test' passes. + if ( okrun('gcc -v -E -x c /dev/null 2>&1', + 'grep __arch64__ >/dev/null') ) { + $GCC_ARCH = "-m64" + } else { + $GCC_ARCH = "-m32" + } + } + # check for WorkShop C, expected output is "cc: blah-blah C x.x" + $CCVER = `(cc -V 2>&1) 2>/dev/null | egrep -e '^cc: .* C [0-9]\.[0-9]'`; + $CCVER =~ s/.* C \([0-9]\)\.\([0-9]\).*/$1$2/; + $CCVER //= 0; + if ( $MACHINE ne 'i86pc' && $CCVER > 40 ) { + # overrides gcc!!! + $CC = 'cc'; + if ( $CCVER == 50 ) { + print <<'EOF'; +WARNING! Found WorkShop C 5.0. + Make sure you have patch #107357-01 or later applied. +EOF + maybe_abort(); + } + } + } +} + +# Map GUESSOS into OpenSSL terminology. Also sets some of variables +# like $options, $__CNX_xxx. And uses some, like the KERNEL flags +# and MACHINE. +# It would be nice to fix this so that this weren't necessary. :( XXX +sub map_guess { + my $GUESSOS = shift; + my $OUT; + return 'uClinux-dist64' if $GUESSOS =~ 'uClinux.*64.*'; + return 'uClinux-dist' if $GUESSOS =~ 'uClinux.*'; + return "irix-mips3-$CC" if $GUESSOS =~ 'mips3-sgi-irix'; + if ( $GUESSOS =~ 'mips4-sgi-irix64' ) { + print </dev/null`; + if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) { + print </dev/null`; + if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) { + print </dev/null', + 'grep "^__LP64__" 2>&1 >/dev/null') ) { + $__CNF_CFLAGS .= " -m32"; + $__CNF_CXXFLAGS .= " -m32"; + } + return "linux-ppc"; + } + return "linux-ppc64le" if $GUESSOS =~ 'ppc64le-.*-linux2'; + return "linux-ppc" if $GUESSOS =~ 'ppc-.*-linux2'; + if ( $GUESSOS =~ 'mips64.*-*-linux2' ) { + print < 7100LC (1.1) + # PA8200 -> 8000 (2.0) + # PA8500 -> 8000 (2.0) + # PA8600 -> 8000 (2.0) + $CPUSCHEDULE =~ s/7300LC/7100LC/; + $CPUSCHEDULE =~ s/8.00/8000/; + # Finish Model transformations + $__CNF_CPPFLAGS .= " -DB_ENDIAN"; + $__CNF_CFLAGS .= " -mschedule=$CPUSCHEDULE -march=$CPUARCH"; + $__CNF_CXXFLAGS .= " -mschedule=$CPUSCHEDULE -march=$CPUARCH"; + return "linux-generic32"; + } + return "linux-generic32" if $GUESSOS =~ 'armv[1-3].*-.*-linux2'; + if ( $GUESSOS =~ 'armv[7-9].*-.*-linux2' ) { + $__CNF_CFLAGS .= " -march=armv7-a"; + $__CNF_CXXFLAGS .= " -march=armv7-a"; + return "linux-armv4"; + } + return "linux-armv4" if $GUESSOS =~ 'arm.*-.*-linux2'; + return "linux-aarch64" if $GUESSOS =~ 'aarch64-.*-linux2'; + if ( $GUESSOS =~ 'sh.*b-.*-linux2' ) { + $__CNF_CPPFLAGS .= " -DB_ENDIAN"; + return "linux-generic32"; + } + if ( $GUESSOS =~ 'sh.*-.*-linux2' ) { + $__CNF_CPPFLAGS .= " -DL_ENDIAN"; + return "linux-generic32"; + } + if ( $GUESSOS =~ 'm68k.*-.*-linux2' || $GUESSOS =~ 's390-.*-linux2' ) { + $__CNF_CPPFLAGS .= " -DB_ENDIAN"; + return "linux-generic32"; + } + if ( $GUESSOS =~ 's390x-.*-linux2' ) { + # Disabled until a glibc bug is fixed; see Configure. + if (0 || okrun( + 'egrep -e \'^features.* highgprs\' /proc/cpuinfo >/dev/null') ) + { + print <&1", + 'grep -q ILP32 >/dev/null'); + return "linux-x86_64"; + } + if ( $GUESSOS =~ '.*86-.*-linux2' ) { + # On machines where the compiler understands -m32, prefer a + # config target that uses it + return "linux-x86" + if okrun("$CC -m32 -E -x c /dev/null >/dev/null 2>&1"); + return "linux-elf" + } + return "linux-aout" if $GUESSOS =~ '.*86-.*-linux1'; + return "linux-generic32" if $GUESSOS =~ '.*-.*-linux.'; + if ( $GUESSOS =~ 'sun4[uv].*-.*-solaris2' ) { + my $ISA64 = `isainfo 2>/dev/null | grep sparcv9`; + if ( $ISA64 ne "" && $KERNEL_BITS eq '' ) { + if ( $CC eq "cc" && $CCVER >= 50 ) { + print < + print </dev/null | grep amd64`; + my $KB = $KERNEL_BITS // '64'; + return "solaris64-x86_64-$CC" if $ISA64 ne "" && $KB eq '64'; + my $REL = uname('-r'); + $REL =~ s/5\.//; + $options .= " no-sse2" if int($REL) < 10; + return "solaris-x86-$CC"; + } + return "sunos-$CC" if $GUESSOS =~ '.*-.*-sunos4'; + if ( $GUESSOS =~ '.*86.*-.*-bsdi4' ) { + $options .= " no-sse2"; + $__CNF_LDFLAGS .= " -ldl"; + return "BSD-x86-elf"; + } + if ( $GUESSOS =~ 'alpha.*-.*-.*bsd.*' ) { + $__CNF_CPPFLAGS .= " -DL_ENDIAN"; + return "BSD-generic64"; + } + if ( $GUESSOS =~ 'powerpc64-.*-.*bsd.*' ) { + $__CNF_CPPFLAGS .= " -DB_ENDIAN"; + return "BSD-generic64"; + } + return "BSD-sparc64" if $GUESSOS =~ 'sparc64-.*-.*bsd.*'; + return "BSD-ia64" if $GUESSOS =~ 'ia64-.*-.*bsd.*'; + return "BSD-x86_64" if $GUESSOS =~ 'x86_64-.*-dragonfly.*'; + return "BSD-x86_64" if $GUESSOS =~ 'amd64-.*-.*bsd.*'; + if ( $GUESSOS =~ '.*86.*-.*-.*bsd.*' ) { + # mimic ld behaviour when it's looking for libc... + my $libc; + if ( -l "/usr/lib/libc.so" ) { + $libc = "/usr/lib/libc.so"; + } else { + # ld searches for highest libc.so.* and so do we + $libc = + `(ls /usr/lib/libc.so.* /lib/libc.so.* | tail -1) 2>/dev/null`; + } + my $what = `file -L $libc 2>/dev/null`; + return "BSD-x86-elf" if $what =~ /ELF/; + $options .= " no-sse2"; + return "BSD-x86"; + } + return "BSD-generic32" if $GUESSOS =~ '.*-.*-.*bsd.*'; + return "haiku-x86_64" if $GUESSOS =~ 'x86_64-.*-haiku'; + return "haiku-x86" if $GUESSOS =~ '.*-.*-haiku'; + return "osf1-alpha-cc" if $GUESSOS =~ '.*-.*-osf'; + return "tru64-alpha-cc" if $GUESSOS =~ '.*-.*-tru64'; + if ( $GUESSOS =~ '.*-.*-[Uu]nix[Ww]are7' ) { + $options .= "no-sse2"; + return "unixware-7-gcc" if $CC eq "gcc"; + $__CNF_CPPFLAGS .= " -D__i386__"; + return "unixware-7"; + } + if ( $GUESSOS =~ '.*-.*-[Uu]nix[Ww]are20*' ) { + $options .= " no-sse2 no-sha512"; + return "unixware-2.0"; + } + if ( $GUESSOS =~ '.*-.*-[Uu]nix[Ww]are21*' ) { + $options .= " no-sse2 no-sha512"; + return "unixware-2.1"; + } + if ( $GUESSOS =~ '.*-.*-vos' ) { + $options .= " no-threads no-shared no-asm no-dso"; + return "vos-$CC"; + } + return "BS2000-OSD" if $GUESSOS =~ 'BS2000-siemens-sysv4'; + return "Cygwin-x86" if $GUESSOS =~ 'i[3456]86-.*-cygwin'; + return "Cygwin-${MACHINE}" if $GUESSOS =~ '.*-.*-cygwin'; + return "android-x86" if $GUESSOS =~ 'x86-.*-android|i.86-.*-android'; + if ( $GUESSOS =~ 'armv[7-9].*-.*-android' ) { + $__CNF_CFLAGS .= " -march=armv7-a"; + $__CNF_CXXFLAGS .= " -march=armv7-a"; + return "android-armeabi"; + } + return "android-armeabi" if $GUESSOS =~ 'arm.*-.*-android'; + if ( $GUESSOS =~ '.*-hpux1.*' ) { + $OUT = "hpux64-parisc2-gcc" if $CC = "gcc" && $GCC_BITS eq '64'; + $KERNEL_BITS //= `getconf KERNEL_BITS 2>/dev/null` // '32'; + # See for further info on CPU_VERSION. + my $CPU_VERSION = `getconf CPU_VERSION 2>/dev/null` // 0; + $__CNF_CPPFLAGS .= " -D_REENTRANT"; + if ( $CPU_VERSION >= 768 ) { + # IA-64 CPU + return "hpux64-ia64-cc" if $KERNEL_BITS eq '64' && $CC eq "cc"; + return "hpux-ia64-cc" + } + if ( $CPU_VERSION >= 532 ) { + # PA-RISC 2.x CPU + # PA-RISC 2.0 is no longer supported as separate 32-bit + # target. This is compensated for by run-time detection + # in most critical assembly modules and taking advantage + # of 2.0 architecture in PA-RISC 1.1 build. + $OUT //= "hpux-parisc1_1-${CC}"; + if ( $KERNEL_BITS eq '64' && $CC eq "cc" ) { + print <= 528; + # PA-RISC 1.0 CPU + return "hpux-parisc-${CC}" if $CPU_VERSION >= 523; + # Motorola(?) CPU + return "hpux-$CC"; + return $OUT; + } + return "hpux-parisc-$CC" if $GUESSOS =~ '.*-hpux'; + if ( $GUESSOS =~ '.*-aix' ) { + $KERNEL_BITS //= `getconf KERNEL_BITMODE 2>/dev/null`; + $KERNEL_BITS //= '32'; + my $OBJECT_MODE //= 32; + if ( $CC eq "gcc" ) { + $OUT = "aix-gcc"; + if ( $OBJECT_MODE == 64 ) { + print 'Your $OBJECT_MODE was found to be set to 64'; + $OUT = "aix64-gcc" + } + } elsif ( $OBJECT_MODE == 64 ) { + print 'Your $OBJECT_MODE was found to be set to 64'; + $OUT = "aix64-cc"; + } else { + $OUT = "aix-cc"; + if ( $KERNEL_BITS eq '64' ) { + print </dev/null 2>&1') ) { + # this applies even to Power3 and later, as they return + # PowerPC_POWER[345] + } else { + $options .= " no-asm"; + } + return $OUT; + } + + # Last case, return "z" from x-y-z + my @fields = split(/-/, $GUESSOS); + return $fields[2]; +} + +# gcc < 2.8 does not support -march=ultrasparc +sub check_solaris_sparc8 { + my $OUT = shift; + if ( $OUT eq 'solaris-sparcv9-gcc' && $GCCVER < 28 ) { + print < ) { + chop; + $table{$_} = 1; + } + close T; + return "$OUT-$CC" if defined $table{"$OUT-$CC"}; + return "$OUT" if defined $table{$OUT}; + print "This system ($OUT) is not supported. See INSTALL for details.\n"; + exit 1; +} + + +### +### MAIN PROCESSING +### + +# Common part, does all the real work. +sub common { + my $showguess = shift; + + get_machine_etc(); + my $GUESSOS = guess_system(); + print "Operating system: $GUESSOS\n" if $VERBOSE || $showguess; + $options .= " 386" if $GUESSOS =~ /i386-/; + remove_removed_crypto_directories(); + determine_compiler_settings(); + my $TARGET = map_guess($GUESSOS) // $CC; + $TARGET = check_solaris_sparc8($TARGET); + $TARGET = check_target_exists($TARGET); + $options .= " $CONFIG_OPTIONS" if $CONFIG_OPTIONS ne ''; + return $TARGET; +} + +## If called from Configure +sub get_platform { + my $ref = shift; + my %options = %{$ref}; + $VERBOSE = 1 if defined $options{verbose}; + $options .= " --debug" if defined $options{debug}; + $WAIT = 0 if defined $options{nowait}; + + my $TARGET = common(0); + + # Populate the environment settings. + my %env; + $env{__CNF_CPPDEFINES} = $__CNF_CPPDEFINES; + $env{__CNF_CPPINCLUDES} = $__CNF_CPPINCLUDES; + $env{__CNF_CPPFLAGS} = $__CNF_CPPFLAGS; + $env{__CNF_CFLAGS} = $__CNF_CFLAGS; + $env{__CNF_CXXFLAGS} = $__CNF_CXXFLAGS; + + # Prepare results and return them + my %ret = { + 'target' => $TARGET, + 'options' => $options, + 'envvars' => %env, + }; + return %ret; +} + + +# If running tandlone (via the "config" shell script) +sub main { + call_getopt(); + + my $TARGET = common(1); + + if ( $VERBOSE ) { + print <