diff --git a/Configure b/Configure index a56e085adb..43e4a5f6f8 100755 --- a/Configure +++ b/Configure @@ -20,6 +20,7 @@ use File::Path qw/mkpath/; use OpenSSL::fallback "$FindBin::Bin/external/perl/MODULES.txt"; use OpenSSL::Glob; use OpenSSL::Template; +use OpenSSL::config; # see INSTALL.md for instructions. @@ -608,8 +609,6 @@ while ((my $first, my $second) = (shift @list, shift @list)) { # To remove something from %disabled, use "enable-foo". # For symmetry, "disable-foo" is a synonym for "no-foo". -&usage if ($#ARGV < 0); - # For the "make variables" CPPINCLUDES and CPPDEFINES, we support lists with # platform specific list separators. Users from those platforms should # recognise those separators from how you set up the PATH to find executables. @@ -1068,6 +1067,23 @@ if (grep { /-rpath\b/ } ($user{LDFLAGS} ? @{$user{LDFLAGS}} : ()) "***** any of asan, msan or ubsan\n"; } +# If no target was given, try guessing. +unless ($target) { + my %system_config = OpenSSL::config::get_platform(%config, %user); + + # The $system_config{disable} is used to populate %disabled with + # entries that aren't already there. + foreach ( @{$system_config{disable} // []} ) { + $disabled{$_} = 'system' unless defined $disabled{$_}; + } + delete $system_config{disable}; + + # Override config entries with stuff from the guesser. + # It's assumed that this really is nothing new. + %config = ( %config, %system_config ); + $target = $system_config{target}; +} + sub disable { my $disable_type = shift; diff --git a/util/perl/OpenSSL/config.pm b/util/perl/OpenSSL/config.pm index 5e0372ac2e..53a77b3424 100755 --- a/util/perl/OpenSSL/config.pm +++ b/util/perl/OpenSSL/config.pm @@ -36,11 +36,9 @@ 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} // ''; -my $CROSS_COMPILE = $ENV{CROSS_COMPILE} // ""; -my $KERNEL_BITS = $ENV{KERNEL_BITS} // ''; +my $CC; +my $CROSS_COMPILE; # For determine_compiler_settings, the list of known compilers my @c_compilers = qw(clang gcc cc); @@ -67,15 +65,6 @@ my @cc_version = # 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' ], @@ -450,392 +439,451 @@ EOF } } -# 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 < 'uClinux-dist64' } ], + [ 'uClinux.*', { target => 'uClinux-dist' } ], + [ 'mips3-sgi-irix', { target => 'irix-mips3' } ], + [ 'mips4-sgi-irix64', + sub { + print </dev/null`; - if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) { - print < "irix-mips3" }; + } + ], + [ 'ppc-apple-rhapsody', { target => "rhapsody-ppc" } ], + [ 'ppc-apple-darwin.*', + sub { + my $KERNEL_BITS = $ENV{KERNEL_BITS}; + my $ISA64 = `sysctl -n hw.optional.64bitops 2>/dev/null`; + if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) { + print </dev/null`; - if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) { - print < "darwin64-ppc" } + if $ISA64 == 1 && $KERNEL_BITS eq '64'; + return { target => "darwin-ppc" }; } - return "linux-alpha-$CC"; - } - if ( $GUESSOS =~ 'ppc64-.*-linux2' ) { - if ( $KERNEL_BITS eq '' ) { + ], + [ 'i.86-apple-darwin.*', + sub { + my $KERNEL_BITS = $ENV{KERNEL_BITS}; + my $ISA64 = `sysctl -n hw.optional.x86_64 2>/dev/null`; + if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) { + print < "darwin64-x86_64" } + if $ISA64 == 1 && $KERNEL_BITS eq '64'; + return { target => "darwin-i386" }; + } + ], + [ 'x86_64-apple-darwin.*', + sub { + my $KERNEL_BITS = $ENV{KERNEL_BITS}; + return { target => "darwin-i386" } if $KERNEL_BITS eq '32'; + print < "darwin64-x86_64" }; + } + ], + [ 'armv6\+7-.*-iphoneos', + { target => "iphoneos-cross", + cflags => [ qw(-arch armv6 -arch armv7) ], + cxxflags => [ qw(-arch armv6 -arch armv7) ] } + ], + [ 'arm64-.*-iphoneos|.*-.*-ios64', + { target => "ios64-cross" } + ], + [ '.*-.*-iphoneos', + sub { return { target => "iphoneos-cross", + cflags => [ "-arch ${MACHINE}" ], + cxxflags => [ "-arch ${MACHINE}" ] }; } + ], + [ 'alpha-.*-linux2.*', + sub { + my $ISA = `awk '/cpu model/{print \$4;exit(0);}' /proc/cpuinfo`; + $ISA //= 'generic'; + my %config = (); + if ( $CCVENDOR eq "gnu" ) { + if ( $ISA =~ 'EV5|EV45' ) { + %config = ( cflags => [ '-mcpu=ev5' ], + cxxflags => [ '-mcpu=ev5' ] ); + } elsif ( $ISA =~ 'EV56|PCA56' ) { + %config = ( cflags => [ '-mcpu=ev56' ], + cxxflags => [ '-mcpu=ev56' ] ); + } else { + %config = ( cflags => [ '-mcpu=ev6' ], + cxxflags => [ '-mcpu=ev6' ] ); + } + } + return { target => "linux-alpha", + %config }; + } + ], + [ 'ppc64-.*-linux2', + sub { + my $KERNEL_BITS = $ENV{KERNEL_BITS}; + if ( $KERNEL_BITS eq '' ) { + print < "linux-ppc64" } if $KERNEL_BITS eq '64'; + + my %config = (); + if (!okrun('echo __LP64__', + 'gcc -E -x c - 2>/dev/null', + 'grep "^__LP64__" 2>&1 >/dev/null') ) { + %config = ( cflags => [ '-m32' ], + cxxflags => [ '-m32' ] ); + } + return { target => "linux-ppc", + %config }; } - return "linux-ppc64" if $KERNEL_BITS eq '64'; - if (!okrun('echo __LP64__', - 'gcc -E -x c - 2>/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 < "linux-ppc64le" } ], + [ 'ppc-.*-linux2', { target => "linux-ppc" } ], + [ 'mips64.*-*-linux2', + sub { + print < "linux-mips64" }; + } + ], + [ 'mips.*-.*-linux2', { target => "linux-mips32" } ], + [ 'ppc60x-.*-vxworks.*', { target => "vxworks-ppc60x" } ], + [ 'ppcgen-.*-vxworks.*', { target => "vxworks-ppcgen" } ], + [ 'pentium-.*-vxworks.*', { target => "vxworks-pentium" } ], + [ 'simlinux-.*-vxworks.*', { target => "vxworks-simlinux" } ], + [ 'mips-.*-vxworks.*', { target => "vxworks-mips" } ], + [ 'e2k-.*-linux.*', { target => "linux-generic64", + defines => [ 'L_ENDIAN' ] } ], + [ 'ia64-.*-linux.', { target => "linux-ia64" } ], + [ 'sparc64-.*-linux2', + sub { + 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 < "linux-sparcv9" }; + } + ], + [ 'sparc-.*-linux2', + sub { + my $KARCH = `awk '/^type/{print \$3;exit(0);}' /proc/cpuinfo`; + $KARCH //= "sun4"; + return { target => "linux-sparcv9" } if $KARCH =~ 'sun4u.*'; + return { target => "linux-sparcv8" } if $KARCH =~ 'sun4[md]'; + return { target => "linux-generic32", + defines => [ 'L_ENDIAN' ] }; + } + ], + [ 'parisc.*-.*-linux2', + sub { + # 64-bit builds under parisc64 linux are not supported and + # compiler is expected to generate 32-bit objects... + my $CPUARCH = + `awk '/cpu family/{print substr(\$5,1,3); exit(0);}' /proc/cpuinfo`; + my $CPUSCHEDULE = + `awk '/^cpu.[ ]*: PA/{print substr(\$3,3); exit(0);}' /proc/cpuinfo`; + # TODO XXX Model transformations + # 0. CPU Architecture for the 1.1 processor has letter suffixes. + # We strip that off assuming no further arch. identification + # will ever be used by GCC. + # 1. I'm most concerned about whether is a 7300LC is closer to a + # 7100 versus a 7100LC. + # 2. The variant 64-bit processors cause concern should GCC support + # explicit schedulers for these chips in the future. + # PA7300LC -> 7100LC (1.1) + # PA8200 -> 8000 (2.0) + # PA8500 -> 8000 (2.0) + # PA8600 -> 8000 (2.0) + $CPUSCHEDULE =~ s/7300LC/7100LC/; + $CPUSCHEDULE =~ s/8.00/8000/; + return + { target => "linux-generic32", + defines => [ 'B_ENDIAN' ], + cflags => [ "-mschedule=$CPUSCHEDULE", "-march=$CPUARCH" ], + cxxflags => [ "-mschedule=$CPUSCHEDULE", "-march=$CPUARCH" ] + }; + } + ], + [ 'armv[1-3].*-.*-linux2', { target => "linux-generic32" } ], + [ 'armv[7-9].*-.*-linux2', { target => "linux-armv4", + defines => [ 'B_ENDIAN' ], + cflags => [ '-march=armv7-a' ], + cxxflags => [ '-march=armv7-a' ] } ], + [ 'arm.*-.*-linux2', { target => "linux-armv4" } ], + [ 'aarch64-.*-linux2', { target => "linux-aarch64" } ], + [ 'sh.*b-.*-linux2', { target => "linux-generic32", + defines => [ 'B_ENDIAN' ] } ], + [ 'sh.*-.*-linux2', { target => "linux-generic32", + defines => [ 'L_ENDIAN' ] } ], + [ 'm68k.*-.*-linux2', { target => "linux-generic32", + defines => [ 'B_ENDIAN' ] } ], + [ 's390-.*-linux2', { target => "linux-generic32", + defines => [ 'B_ENDIAN' ] } ], + [ 's390x-.*-linux2', + sub { + # Disabled until a glibc bug is fixed; see Configure. + if (0 + || okrun('egrep -e \'^features.* highgprs\' /proc/cpuinfo >/dev/null') ) + { + print < "linux64-s390x" }; } - return "linux64-s390x"; - } - if ( $GUESSOS =~ 'x86_64-.*-linux.' ) { - return "linux-x32" - if okrun("$CC -dM -E -x c /dev/null 2>&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 ( $CCVENDOR eq "sun" && $CCVER >= 500 ) { - print < "linux-x32" } + if okrun("$CC -dM -E -x c /dev/null 2>&1", + 'grep -q ILP32 >/dev/null'); + return { target => "linux-x86_64" }; + } + ], + [ '.*86-.*-linux2', + sub { + # On machines where the compiler understands -m32, prefer a + # config target that uses it + return { target => "linux-x86" } + if okrun("$CC -m32 -E -x c /dev/null >/dev/null 2>&1"); + return { target => "linux-elf" }; + } + ], + [ '.*86-.*-linux1', { target => "linux-aout" } ], + [ '.*-.*-linux.', { target => "linux-generic32" } ], + [ 'sun4[uv].*-.*-solaris2', + sub { + my $KERNEL_BITS = $ENV{KERNEL_BITS}; + my $ISA64 = `isainfo 2>/dev/null | grep sparcv9`; + if ( $ISA64 ne "" && $KERNEL_BITS eq '' ) { + if ( $CCVENDOR eq "sun" && $CCVER >= 500 ) { + print < - print < + print < "solaris64-sparcv9" }; + } elsif ( $GCC_ARCH eq "-m32" ) { + print < "solaris64-sparcv9" } + if $ISA64 ne "" && $KERNEL_BITS eq '64'; + return { target => "solaris-sparcv9" }; } - return "solaris64-sparcv9-$CC" if $ISA64 ne "" && $KERNEL_BITS eq '64'; - return "solaris-sparcv9-$CC"; - } - return "solaris-sparcv8-$CC" if $GUESSOS =~ 'sun4m-.*-solaris2'; - return "solaris-sparcv8-$CC" if $GUESSOS =~ 'sun4d-.*-solaris2'; - return "solaris-sparcv7-$CC" if $GUESSOS =~ 'sun4.*-.*-solaris2'; - if ( $GUESSOS =~ '.*86.*-.*-solaris2' ) { - my $ISA64 = `isainfo 2>/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`; + ], + [ 'sun4m-.*-solaris2', { target => "solaris-sparcv8" } ], + [ 'sun4d-.*-solaris2', { target => "solaris-sparcv8" } ], + [ 'sun4.*-.*-solaris2', { target => "solaris-sparcv7" } ], + [ '.*86.*-.*-solaris2', + sub { + my $KERNEL_BITS = $ENV{KERNEL_BITS}; + my $ISA64 = `isainfo 2>/dev/null | grep amd64`; + my $KB = $KERNEL_BITS // '64'; + return { target => "solaris64-x86_64" } + if $ISA64 ne "" && $KB eq '64'; + my $REL = uname('-r'); + $REL =~ s/5\.//; + my @tmp_disable = (); + push @tmp_disable, 'sse2' if int($REL) < 10; + return { target => "solaris-x86", + disable => [ @tmp_disable ] }; } - 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 $CCVENDOR eq "gnu"; - $__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 $CCVENDOR eq "gnu" && $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' && ! $CCVENDOR; - return "hpux-ia64-cc" + ], + # We don't have any sunos target in Configurations/*.conf, so why here? + [ '.*-.*-sunos4', { target => "sunos" } ], + [ '.*86.*-.*-bsdi4', { target => "BSD-x86-elf", + lflags => [ '-ldl' ], + disable => [ 'sse2' ] } ], + [ 'alpha.*-.*-.*bsd.*', { target => "BSD-generic64", + defines => [ 'L_ENDIAN' ] } ], + [ 'powerpc64-.*-.*bsd.*', { target => "BSD-generic64", + defines => [ 'B_ENDIAN' ] } ], + [ 'sparc64-.*-.*bsd.*', { target => "BSD-sparc64" } ], + [ 'ia64-.*-.*bsd.*', { target => "BSD-ia64" } ], + [ 'x86_64-.*-dragonfly.*', { target => "BSD-x86_64" } ], + [ 'amd64-.*-.*bsd.*', { target => "BSD-x86_64" } ], + [ '.*86.*-.*-.*bsd.*', + sub { + # 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 { target => "BSD-x86-elf" } if $what =~ /ELF/; + return { target => "BSD-x86", + disable => [ 'sse2' ] }; } - 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' && ! $CCVENDOR ) { - print < "BSD-generic32" } ], + [ 'x86_64-.*-haiku', { target => "haiku-x86_64" } ], + [ '.*-.*-haiku', { target => "haiku-x86" } ], + [ '.*-.*-osf', { target => "osf1-alpha" } ], + [ '.*-.*-tru64', { target => "tru64-alpha" } ], + [ '.*-.*-[Uu]nix[Ww]are7', + sub { + return { target => "unixware-7", + disable => [ 'sse2' ] } if $CCVENDOR eq "gnu"; + return { target => "unixware-7", + defines => [ '__i386__' ] }; + } + ], + [ '.*-.*-[Uu]nix[Ww]are20.*', { target => "unixware-2.0", + disable => [ 'sse2', 'sha512' ] } ], + [ '.*-.*-[Uu]nix[Ww]are21.*', { target => "unixware-2.1", + disable => [ 'sse2', 'sha512' ] } ], + [ '.*-.*-vos', { target => "vos", + disable => [ 'threads', 'shared', 'asm', + 'dso' ] } ], + [ 'BS2000-siemens-sysv4', { target => "BS2000-OSD" } ], + [ 'i[3456]86-.*-cygwin', { target => "Cygwin-x86" } ], + [ '.*-.*-cygwin', + sub { return { target => "Cygwin-${MACHINE}" } } ], + [ 'x86-.*-android|i.86-.*-android', { target => "android-x86" } ], + [ 'armv[7-9].*-.*-android', { target => "android-armeabi", + cflags => [ '-march=armv7-a' ], + cxxflags => [ '-march=armv7-a' ] } ], + [ 'arm.*-.*-android', { target => "android-armeabi" } ], + [ '.*-hpux1.*', + sub { + my $KERNEL_BITS = $ENV{KERNEL_BITS}; + my %common_return = ( defines => [ '_REENTRANT' ] ); + $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; + if ( $CPU_VERSION >= 768 ) { + # IA-64 CPU + return { target => "hpux64-ia64", + %common_return } + if $KERNEL_BITS eq '64' && ! $CCVENDOR; + return { target => "hpux-ia64", + %common_return }; + } + 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. + my $target = ($CCVENDOR eq "gnu" && $GCC_BITS eq '64') + ? "hpux64-parisc2" + : "hpux-parisc1_1"; + if ( $KERNEL_BITS eq '64' && ! $CCVENDOR ) { + print < $target, + %common_return }; } - return $OUT; + # PA-RISC 1.1+ CPU? + return { target => "hpux-parisc1_1", + %common_return } if $CPU_VERSION >= 528; + # PA-RISC 1.0 CPU + return { target => "hpux-parisc", + %common_return } if $CPU_VERSION >= 523; + # Motorola(?) CPU + return { target => "hpux", + %common_return }; } - # PA-RISC 1.1+ CPU? - return "hpux-parisc1_1-${CC}" if $CPU_VERSION >= 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 ( $CCVENDOR eq "gcc" ) { - $OUT = "aix-gcc"; + ], + [ '.*-hpux', { target => "hpux-parisc" } ], + [ '.*-aix', + sub { + my %config = (); + my $KERNEL_BITS = $ENV{KERNEL_BITS}; + $KERNEL_BITS ||= `getconf KERNEL_BITMODE 2>/dev/null`; + $KERNEL_BITS ||= '32'; + my $OBJECT_MODE = $ENV{OBJECT_MODE}; + $OBJECT_MODE ||= 32; + $config{target} = "aix"; 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 { + $config{disable} = [ 'asm' ]; + } + return %config; } - if ( okrun( - "lsattr -E -O -l `lsdev -c processor|awk '{print \$1;exit}'`", - 'grep -i powerpc) >/dev/null 2>&1') ) { - # this applies even to Power3 and later, as they return - # PowerPC_POWER[345] - } else { - $config{disable} = [ 'asm' ]; - } - return %config; + ], + ]; + +# Map GUESSOS into OpenSSL terminology. +# Returns a hash table with diverse entries, most importantly 'target', +# but also other entries that are fitting for Configure's %config +# and MACHINE. +# It would be nice to fix this so that this weren't necessary. :( XXX +sub map_guess { + my $GUESSOS = shift; + + foreach my $tuple ( @$map_patterns ) { + my $pat = @$tuple[0]; + next if $GUESSOS !~ /^${pat}$/; + my $result = @$tuple[1]; + $result = $result->() if ref $result eq 'CODE'; + return %$result; } # Last case, return "z" from x-y-z @@ -871,50 +919,20 @@ EOF ### 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}; + my %options = @_; + $VERBOSE = 1 if defined $options{verbose}; - $options .= " --debug" if defined $options{debug}; $WAIT = 0 if defined $options{nowait}; + $CC = $options{CC}; + $CROSS_COMPILE = $options{CROSS_COMPILE} // ''; - my $TARGET = common(0); + my $GUESSOS = guess_system(); + determine_compiler_settings(); - # 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, - }; + my %ret = map_guess($GUESSOS); + $ret{target} = check_solaris_sparc8($ret{target}); return %ret; } -} - 1;