#! /usr/bin/env perl
-# Copyright 1998-2020 The OpenSSL Project Authors. All Rights Reserved.
+# Copyright 1998-2022 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
use warnings;
use Getopt::Std;
use File::Basename;
+use File::Spec;
use IPC::Cmd;
use POSIX;
+use Config;
use Carp;
# These control our behavior.
my $DRYRUN;
my $VERBOSE;
-my $WAIT = 1;
my $WHERE = dirname($0);
+my $WAIT = 1;
# Machine type, etc., used to determine the platform
my $MACHINE;
my $VERSION;
my $CCVENDOR;
my $CCVER;
+my $CL_ARCH;
my $GCC_BITS;
my $GCC_ARCH;
my @cc_version =
(
clang => sub {
+ return undef unless IPC::Cmd::can_run("$CROSS_COMPILE$CC");
my $v = `$CROSS_COMPILE$CC -v 2>&1`;
$v =~ m/(?:(?:clang|LLVM) version|.*based on LLVM)\s+([0-9]+\.[0-9]+)/;
return $1;
},
gnu => sub {
- my $v = `$CROSS_COMPILE$CC -dumpversion 2>/dev/null`;
+ return undef unless IPC::Cmd::can_run("$CROSS_COMPILE$CC");
+ my $nul = File::Spec->devnull();
+ my $v = `$CROSS_COMPILE$CC -dumpversion 2> $nul`;
# Strip off whatever prefix egcs prepends the number with.
# Hopefully, this will work for any future prefixes as well.
$v =~ s/^[a-zA-Z]*\-//;
[ 'Paragon.*?:.*', 'i860-intel-osf1' ],
[ 'Rhapsody:.*', 'ppc-apple-rhapsody' ],
[ 'Darwin:.*?:.*?:Power.*', 'ppc-apple-darwin' ],
- [ 'Darwin:.*?:.*?:x86_64', 'x86_64-apple-darwin' ],
- [ 'Darwin:.*', 'i686-apple-darwin' ],
+ [ 'Darwin:.*', '${MACHINE}-apple-darwin' ],
[ 'SunOS:5\..*', '${MACHINE}-whatever-solaris2' ],
[ 'SunOS:.*', '${MACHINE}-sun-sunos4' ],
[ 'UNIX_System_V:4\..*?:.*', '${MACHINE}-whatever-sysv4' ],
[ 'CYGWIN.*', '${MACHINE}-pc-cygwin' ],
[ 'vxworks.*', '${MACHINE}-whatever-vxworks' ],
+ # The MACHINE part of the array POSIX::uname() returns on VMS isn't
+ # worth the bits wasted on it. It's better, then, to rely on perl's
+ # %Config, which has a trustworthy item 'archname', especially since
+ # VMS installation aren't multiarch (yet)
+ [ 'OpenVMS:.*', "$Config{archname}-whatever-OpenVMS" ],
+
# Note: there's also NEO and NSR, but they are old and unsupported
[ 'NONSTOP_KERNEL:.*:NSE-.*?', 'nse-tandem-nsk${RELEASE}' ],
[ 'NONSTOP_KERNEL:.*:NSV-.*?', 'nsv-tandem-nsk${RELEASE}' ],
# Look for ISC/SCO with its unique uname program
sub is_sco_uname {
+ return undef unless IPC::Cmd::can_run('uname');
+
open UNAME, "uname -X 2>/dev/null|" or return '';
my $line = "";
+ my $os = "";
while ( <UNAME> ) {
chop;
$line = $_ if m@^Release@;
+ $os = $_ if m@^System@;
}
close UNAME;
- return "" if $line eq '';
+
+ return undef if $line eq '' or $os eq 'System = SunOS';
+
my @fields = split(/\s+/, $line);
- return $fields[2] // '';
+ return $fields[2];
}
sub get_sco_type {
sub guess_system {
($SYSTEM, undef, $RELEASE, $VERSION, $MACHINE) = POSIX::uname();
my $sys = "${SYSTEM}:${RELEASE}:${VERSION}:${MACHINE}";
-
+
# Special-cases for ISC, SCO, Unixware
my $REL = is_sco_uname();
- if ( $REL ne "" ) {
+ if ( defined $REL ) {
my $result = get_sco_type($REL);
return eval "\"$result\"" if $result ne '';
}
# Figure out CC, GCCVAR, etc.
sub determine_compiler_settings {
- # Make a copy and don't touch it. That helps determine if we're
- # finding the compiler here
+ # Make a copy and don't touch it. That helps determine if we're finding
+ # the compiler here (false), or if it was set by the user (true.
my $cc = $CC;
# Set certain default
}
}
- # Find the compiler vendor and version number for certain compilers
- foreach my $pair (_pairs @cc_version) {
- # Try to get the version number.
- # Failure gets us undef or an empty string
- my ( $k, $v ) = @$pair;
- $v = $v->();
-
- # If we got a version number, process it
- if ($v) {
- $CCVENDOR = $k;
-
- # The returned version is expected to be one of
- #
- # MAJOR
- # MAJOR.MINOR
- # MAJOR.MINOR.{whatever}
- #
- # We don't care what comes after MAJOR.MINOR. All we need is to
- # have them calculated into a single number, using this formula:
- #
- # MAJOR * 100 + MINOR
- # Here are a few examples of what we should get:
- #
- # 2.95.1 => 295
- # 3.1 => 301
- # 9 => 900
- my @numbers = split /\./, $v;
- my @factors = (100, 1);
- while (@numbers && @factors) {
- $CCVER += shift(@numbers) * shift(@factors)
+ if ( $CC ) {
+ # Find the compiler vendor and version number for certain compilers
+ foreach my $pair (_pairs @cc_version) {
+ # Try to get the version number.
+ # Failure gets us undef or an empty string
+ my ( $k, $v ) = @$pair;
+ $v = $v->();
+
+ # If we got a version number, process it
+ if ($v) {
+ $CCVENDOR = $k;
+
+ # The returned version is expected to be one of
+ #
+ # MAJOR
+ # MAJOR.MINOR
+ # MAJOR.MINOR.{whatever}
+ #
+ # We don't care what comes after MAJOR.MINOR. All we need is
+ # to have them calculated into a single number, using this
+ # formula:
+ #
+ # MAJOR * 100 + MINOR
+ # Here are a few examples of what we should get:
+ #
+ # 2.95.1 => 295
+ # 3.1 => 301
+ # 9 => 900
+ my @numbers = split /\./, $v;
+ my @factors = (100, 1);
+ while (@numbers && @factors) {
+ $CCVER += shift(@numbers) * shift(@factors)
+ }
+ last;
}
- last;
}
}
- # If no C compiler has been determined at this point, we die. Hard.
- die <<_____
-ERROR!
-No C compiler found, please specify one with the environment variable CC,
-or configure with an explicit configuration target.
-_____
- unless $CC;
-
- # Vendor specific overrides, only if we determined the compiler here
+ # Vendor specific overrides, only if we didn't determine the compiler here
if ( ! $cc ) {
+ if ( $SYSTEM eq 'OpenVMS' ) {
+ my $v = `CC/VERSION NLA0:`;
+ if ($? == 0) {
+ my ($vendor, $version) =
+ ( $v =~ m/^([A-Z]+) C V([0-9\.-]+) on / );
+ my ($major, $minor, $patch) =
+ ( $version =~ m/^([0-9]+)\.([0-9]+)-0*?(0|[1-9][0-9]*)$/ );
+ $CC = 'CC';
+ $CCVENDOR = $vendor;
+ $CCVER = ( $major * 100 + $minor ) * 100 + $patch;
+ }
+ }
+
if ( ${SYSTEM} eq 'AIX' ) {
# favor vendor cc over gcc
if (IPC::Cmd::can_run('cc')) {
}
if ( $SYSTEM eq "SunOS" ) {
- # check for WorkShop C, expected output is "cc: blah-blah C x.x"
+ # check for Oracle Developer Studio, expected output is "cc: blah-blah C x.x blah-blah"
my $v = `(cc -V 2>&1) 2>/dev/null | egrep -e '^cc: .* C [0-9]\.[0-9]'`;
- chomp $v;
- $v =~ s/.* C \([0-9]\)\.\([0-9]\).*/$1.$2/;
- my @numbers = split /\./, $v;
+ my @numbers =
+ ( $v =~ m/^.* C ([0-9]+)\.([0-9]+) .*/ );
my @factors = (100, 1);
$v = 0;
while (@numbers && @factors) {
$v += shift(@numbers) * shift(@factors)
}
- if ( $v > 40000 && $MACHINE ne 'i86pc' ) {
+ if ($v > 500) {
$CC = 'cc';
- $CCVENDOR = ''; # Determine later
+ $CCVENDOR = 'sun';
$CCVER = $v;
+ }
+ }
- if ( $CCVER == 50000 ) {
- print <<'EOF';
-WARNING! Found WorkShop C 5.0.
- Make sure you have patch #107357-01 or later applied.
-EOF
- maybe_abort();
+ # 'Windows NT' is the system name according to POSIX::uname()!
+ if ( $SYSTEM eq "Windows NT" ) {
+ # favor vendor cl over gcc
+ if (IPC::Cmd::can_run('cl')) {
+ $CC = 'cl';
+ $CCVENDOR = ''; # Determine later
+ $CCVER = 0;
+
+ my $v = `cl 2>&1`;
+ if ( $v =~ /Microsoft .* Version ([0-9\.]+) for (x86|x64|ARM|ia64)/ ) {
+ $CCVER = $1;
+ $CL_ARCH = $2;
}
}
}
}
+ # If no C compiler has been determined at this point, we die. Hard.
+ die <<_____
+ERROR!
+No C compiler found, please specify one with the environment variable CC,
+or configure with an explicit configuration target.
+_____
+ unless $CC;
+
# On some systems, we assume a cc vendor if it's not already determined
if ( ! $CCVENDOR ) {
[ 'ppc-apple-rhapsody', { target => "rhapsody-ppc" } ],
[ 'ppc-apple-darwin.*',
sub {
- my $KERNEL_BITS = $ENV{KERNEL_BITS};
+ my $KERNEL_BITS = $ENV{KERNEL_BITS} // '';
my $ISA64 = `sysctl -n hw.optional.64bitops 2>/dev/null`;
if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) {
print <<EOF;
],
[ 'i.86-apple-darwin.*',
sub {
- my $KERNEL_BITS = $ENV{KERNEL_BITS};
+ my $KERNEL_BITS = $ENV{KERNEL_BITS} // '';
my $ISA64 = `sysctl -n hw.optional.x86_64 2>/dev/null`;
if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) {
print <<EOF;
],
[ 'x86_64-apple-darwin.*',
sub {
- my $KERNEL_BITS = $ENV{KERNEL_BITS};
+ my $KERNEL_BITS = $ENV{KERNEL_BITS} // '';
+ # macOS >= 10.15 is 64-bit only
+ my $SW_VERS = `sw_vers -productVersion 2>/dev/null`;
+ if ($SW_VERS =~ /^(\d+)\.(\d+)\.(\d+)$/) {
+ if ($1 > 10 || ($1 == 10 && $2 >= 15)) {
+ die "32-bit applications not supported on macOS 10.15 or later\n" if $KERNEL_BITS eq '32';
+ return { target => "darwin64-x86_64" };
+ }
+ }
return { target => "darwin-i386" } if $KERNEL_BITS eq '32';
print <<EOF;
return { target => "darwin64-x86_64" };
}
],
+ [ 'arm64-apple-darwin.*', { target => "darwin64-arm64" } ],
[ 'armv6\+7-.*-iphoneos',
{ target => "iphoneos-cross",
cflags => [ qw(-arch armv6 -arch armv7) ],
],
[ 'ppc64-.*-linux2',
sub {
- my $KERNEL_BITS = $ENV{KERNEL_BITS};
+ my $KERNEL_BITS = $ENV{KERNEL_BITS} // '';
if ( $KERNEL_BITS eq '' ) {
print <<EOF;
WARNING! To build 64-bit package, do this:
}
],
[ '.*86-.*-linux1', { target => "linux-aout" } ],
+ [ 'riscv64-.*-linux.', { target => "linux64-riscv64" } ],
[ '.*-.*-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 '' ) {
+ my $KB = $KERNEL_BITS // '64';
+ if ( $ISA64 ne "" && $KB eq '64' ) {
if ( $CCVENDOR eq "sun" && $CCVER >= 500 ) {
print <<EOF;
-WARNING! To build 64-bit package, do this:
- $WHERE/Configure solaris64-sparcv9-cc
+WARNING! To build 32-bit package, do this:
+ $WHERE/Configure solaris-sparcv9-cc
EOF
maybe_abort();
} elsif ( $CCVENDOR eq "gnu" && $GCC_ARCH eq "-m64" ) {
$WHERE/Configure solaris-sparcv9-gcc
EOF
maybe_abort();
- return { target => "solaris64-sparcv9" };
+ return { target => "solaris64-sparcv9-gcc" };
} elsif ( $GCC_ARCH eq "-m32" ) {
print <<EOF;
NOTICE! If you *know* that your GNU C supports 64-bit/V9 ABI and you wish
maybe_abort();
}
}
- return { target => "solaris64-sparcv9" }
- if $ISA64 ne "" && $KERNEL_BITS eq '64';
- return { target => "solaris-sparcv9" };
+ return { target => "solaris64-sparcv9-cc" }
+ if $ISA64 ne "" && $KB eq '64';
+ return { target => "solaris-sparcv9-cc" };
}
],
[ 'sun4m-.*-solaris2', { target => "solaris-sparcv8" } ],
defines => [ 'L_ENDIAN' ] } ],
[ 'powerpc64-.*-.*bsd.*', { target => "BSD-generic64",
defines => [ 'B_ENDIAN' ] } ],
+ [ 'riscv64-.*-.*bsd.*', { target => "BSD-riscv64" } ],
[ 'sparc64-.*-.*bsd.*', { target => "BSD-sparc64" } ],
[ 'ia64-.*-.*bsd.*', { target => "BSD-ia64" } ],
[ 'x86_64-.*-dragonfly.*', { target => "BSD-x86_64" } ],
[ 'amd64-.*-.*bsd.*', { target => "BSD-x86_64" } ],
+ [ 'arm64-.*-.*bsd.*', { target => "BSD-aarch64" } ],
[ '.*86.*-.*-.*bsd.*',
sub {
# mimic ld behaviour when it's looking for libc...
}
}
if ( okrun(
- "lsattr -E -O -l `lsdev -c processor|awk '{print \$1;exit}'`",
+ "(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;
+ return { %config };
}
],
# Windows values found by looking at Perl 5's win32/win32.c
- [ 'amd64-.*?-Windows NT', { target => 'VC-WIN64A' } ],
- [ 'ia64-.*?-Windows NT', { target => 'VC-WIN64I' } ],
- [ 'x86-.*?-Windows NT', { target => 'VC-WIN32' } ],
+ [ '(amd64|ia64|x86|ARM)-.*?-Windows NT',
+ sub {
+ # If we determined the arch by asking cl, take that value,
+ # otherwise the SYSTEM we got from from POSIX::uname().
+ my $arch = $CL_ARCH // $1;
+ my $config;
+
+ if ($arch) {
+ $config = { 'amd64' => { target => 'VC-WIN64A' },
+ 'ia64' => { target => 'VC-WIN64I' },
+ 'x86' => { target => 'VC-WIN32' },
+ 'x64' => { target => 'VC-WIN64A' },
+ 'ARM' => { target => 'VC-WIN64-ARM' },
+ } -> {$arch};
+ die <<_____ unless defined $config;
+ERROR
+I do not know how to handle ${arch}.
+_____
+ }
+ die <<_____ unless defined $config;
+ERROR
+Could not figure out the architecture.
+_____
+
+ return $config;
+ }
+ ],
# VMS values found by observation on existing machinery.
- # Unfortunately, the machine part is a bit... overdone. It seems,
- # though, that 'Alpha' exists in that part for Alphas, making it
- # distinguishable from Itanium. It will be interesting to see what
- # we'll get in the upcoming x86_64 port...
- [ '.*Alpha.*?-.*?-OpenVMS', { target => 'vms-alpha' } ],
- [ '.*?-.*?-OpenVMS', { target => 'vms-ia64' } ],
+ [ 'VMS_AXP-.*?-OpenVMS', { target => 'vms-alpha' } ],
+ [ 'VMS_IA64-.*?-OpenVMS', { target => 'vms-ia64' } ],
+ [ 'VMS_x86_64-.*?-OpenVMS', { target => 'vms-x86_64' } ],
# TODO: There are a few more choices among OpenSSL config targets, but
# reaching them involves a bit more than just a host tripet. Select