#! /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 $RELEASE;
my $SYSTEM;
my $VERSION;
+my $CCVENDOR;
my $CCVER;
-my $GCCVER;
+my $CL_ARCH;
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} // '';
+my $CC;
+my $CROSS_COMPILE;
+
+# For determine_compiler_settings, the list of known compilers
+my @c_compilers = qw(clang gcc cc);
+# Methods to determine compiler version. The expected output is one of
+# MAJOR or MAJOR.MINOR or MAJOR.MINOR.PATCH... or false if the compiler
+# isn't of the given brand.
+# This is a list to ensure that gnu comes last, as we've made it a fallback
+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 {
+ 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]*\-//;
+ return $v;
+ },
+ );
# 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' ],
+# The patterns are assumed to be wrapped like this: /^(${pattern})$/
+my $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' ],
+ [ '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";
+ }
+ ],
+ [ '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' ],
-
- # Windows values found by looking at Perl 5's win32/win32.c
- [ 'Windows NT:.*:amd64', 'VC-WIN64A' ],
- [ 'Windows NT:.*:ia64', 'VC-WIN64I' ],
- [ 'Windows NT:.*:x86', 'VC-WIN32' ],
-
- # 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, making it distinguishable from Itanium. It will
- # be interesting to see what we'll get in the upcoming x86_64 port...
- [ 'OpenVMS:.*:.*:.*:.*Alpha*', 'vms-alpha' ],
- [ 'OpenVMS:', 'vms-ia64' ],
+ [ 'BSD\/OS:4\..*', 'i486-whatever-bsdi4' ],
+ # Order is important, this has to appear before 'BSD\/386:'
+ [ '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";
+ }
+ ],
+ [ 'BSD\/386:.*|BSD\/OS:.*', '${MACHINE}-whatever-bsdi' ],
+ # Order is important, this has to appear before 'FreeBSD:'
+ [ '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}";
+ }
+ ],
+ [ 'DragonFly:.*', '${MACHINE}-whatever-dragonfly' ],
+ [ 'FreeBSD:.*', '${MACHINE}-whatever-freebsd' ],
+ [ 'Haiku:.*', '${MACHINE}-whatever-haiku' ],
+ # Order is important, this has to appear before 'NetBSD:.*'
+ [ '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";
+ }
+ ],
+ [ 'NetBSD:.*', '${MACHINE}-whatever-netbsd' ],
+ [ 'OpenBSD:.*', '${MACHINE}-whatever-openbsd' ],
+ [ 'OpenUNIX:.*', '${MACHINE}-unknown-OpenUNIX${VERSION}' ],
+ [ 'OSF1:.*?:.*?:.*alpha.*',
+ sub {
+ my $OSFMAJOR = $RELEASE;
+ $OSFMAJOR =~ 's/^V([0-9]*)\..*$/\1/';
+ return "${MACHINE}-dec-tru64" if $OSFMAJOR =~ m@[45]@;
+ return "${MACHINE}-dec-osf";
+ }
+ ],
+ [ 'Paragon.*?:.*', 'i860-intel-osf1' ],
+ [ 'Rhapsody:.*', 'ppc-apple-rhapsody' ],
+ [ 'Darwin:.*?:.*?:Power.*', 'ppc-apple-darwin' ],
+ [ 'Darwin:.*', '${MACHINE}-apple-darwin' ],
+ [ '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' ],
-];
+ # 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" ],
-# 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";
- } ],
-];
+ # 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}' ],
+ [ 'NONSTOP_KERNEL:.*:NSX-.*?', 'nsx-tandem-nsk${RELEASE}' ],
+ [ sub { -d '/usr/apollo' }, 'whatever-apollo-whatever' ],
+];
# Run a command, return true if exit zero else false.
# Multiple args are glued together into a pipeline.
}
}
-# 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 <<EOF;
-WARNING: Did not find VisualC target. See INSTALL for details.
-EOF
- maybe_abort();
- }
- $options = " --debug" if $opt_d;
- $DRYRUN = $opt_t;
- $VERBOSE = $opt_v || $opt_t;
- $WAIT = 0 if $opt_w;
-}
-
-# Expand variable references in a string.
-sub expand {
- my $var = shift;
- $var =~ s/\$\{MACHINE\}/${MACHINE}/;
- return $var;
-}
-
# 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 '';
- my @fields = split($line);
+
+ return undef if $line eq '' or $os eq 'System = SunOS';
+
+ my @fields = split(/\s+/, $line);
return $fields[2];
}
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 expand($result) if $result ne '';
+ return eval "\"$result\"" if $result ne '';
}
# Now pattern-match
# Simple cases
- foreach my $tuple ( @$simple_guess_patterns ) {
+ foreach my $tuple ( @$guess_patterns ) {
my $pat = @$tuple[0];
- # Trailing $ omitted on purpose.
- next if $sys !~ /^$pat/;
- my $result = @$tuple[1];
- return expand($result);
- }
+ my $check = ref $pat eq 'CODE' ? $pat->($sys) : $sys =~ /^(${pat})$/;
+ next unless $check;
- # 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);
+ my $result = @$tuple[1];
+ $result = $result->() if ref $result eq 'CODE';
+ return eval "\"$result\"";
}
# Oh well.
return "${MACHINE}-whatever-${SYSTEM}";
}
+# We would use List::Util::pair() for this... unfortunately, that function
+# only appeared in perl v5.19.3, and we claim to support perl v5.10 and on.
+# Therefore, we implement a quick cheap variant of our own.
+sub _pairs (@) {
+ croak "Odd number of arguments" if @_ & 1;
+
+ my @pairlist = ();
+
+ while (@_) {
+ my $x = [ shift, shift ];
+ push @pairlist, $x;
+ }
+ return @pairlist;
+}
+
# 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';
+ # 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
+ $CCVER = 0; # Unknown
+ $CCVENDOR = ''; # Dunno, don't care (unless found later)
+
+ # Find a compiler if we don't already have one
+ if ( ! $cc ) {
+ foreach (@c_compilers) {
+ next unless IPC::Cmd::can_run("$CROSS_COMPILE$_");
+ $CC = $_;
+ last;
+ }
+ }
+
+ 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;
+ }
+ }
+ }
+
+ # 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')) {
+ $CC = 'cc';
+ $CCVENDOR = ''; # Determine later
+ $CCVER = 0;
+ }
+ }
+
+ if ( $SYSTEM eq "SunOS" ) {
+ # 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]'`;
+ 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 > 500) {
+ $CC = 'cc';
+ $CCVENDOR = 'sun';
+ $CCVER = $v;
+ }
+ }
+
+ # '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;
+ }
+ }
}
}
- $GCCVER //= 0;
+ # 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;
- if ( $SYSTEM eq "HP-UX" ) {
+ # On some systems, we assume a cc vendor if it's not already determined
+
+ if ( ! $CCVENDOR ) {
+ $CCVENDOR = 'aix' if $SYSTEM eq 'AIX';
+ $CCVENDOR = 'sun' if $SYSTEM eq 'SunOS';
+ }
+
+ # Some systems need to know extra details
+
+ if ( $SYSTEM eq "HP-UX" && $CCVENDOR eq 'gnu' ) {
# By default gcc is a ILP32 compiler (with long long == 64).
$GCC_BITS = "32";
- if ( $GCCVER >= 30 ) {
+ if ( $CCVER >= 300 ) {
# 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') ) {
+ "$CC -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 ) {
+ if ( $SYSTEM eq "SunOS" && $CCVENDOR eq 'gnu' ) {
+ if ( $CCVER >= 300 ) {
# 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') ) {
+ if ( okrun("$CC -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();
- }
- }
+ }
+
+ if ($VERBOSE) {
+ my $vendor = $CCVENDOR ? $CCVENDOR : "(undetermined)";
+ my $version = $CCVER ? $CCVER : "(undetermined)";
+ print "C compiler: $CC\n";
+ print "C compiler vendor: $vendor\n";
+ print "C compiler version: $version\n";
}
}
-# 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 <<EOF;
+my $map_patterns =
+ [ [ 'uClinux.*64.*', { target => 'uClinux-dist64' } ],
+ [ 'uClinux.*', { target => 'uClinux-dist' } ],
+ [ 'mips3-sgi-irix', { target => 'irix-mips3' } ],
+ [ 'mips4-sgi-irix64',
+ sub {
+ print <<EOF;
WARNING! To build 64-bit package, do this:
$WHERE/Configure irix64-mips4-$CC
EOF
- maybe_abort();
- return "irix-mips3-$CC";
- }
- return "rhapsody-ppc-cc" if $GUESSOS =~ 'ppc-apple-rhapsody';
- if ( $GUESSOS =~ 'ppc-apple-darwin' ) {
- my $ISA64 = `sysctl -n hw.optional.64bitops 2>/dev/null`;
- if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) {
- print <<EOF;
+ maybe_abort();
+ return { target => "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 <<EOF;
WARNING! To build 64-bit package, do this:
$WHERE/Configure darwin64-ppc-cc
EOF
- maybe_abort();
+ maybe_abort();
+ }
+ return { target => "darwin64-ppc" }
+ if $ISA64 == 1 && $KERNEL_BITS eq '64';
+ return { target => "darwin-ppc" };
}
- return "darwin64-ppc-cc" if $ISA64 == 1 && $KERNEL_BITS eq '64';
- return "darwin-ppc-cc";
- }
- if ( $GUESSOS =~ 'i.86-apple-darwin' ) {
- my $ISA64 = `sysctl -n hw.optional.x86_64 2>/dev/null`;
- if ( $ISA64 == 1 && $KERNEL_BITS eq '' ) {
- print <<EOF;
+ ],
+ [ '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 <<EOF;
WARNING! To build 64-bit package, do this:
- KERNEL_BITS=64 $WHERE/config $options
+ KERNEL_BITS=64 $WHERE/Configure \[\[ options \]\]
EOF
- maybe_abort();
+ maybe_abort();
+ }
+ return { target => "darwin64-x86_64" }
+ if $ISA64 == 1 && $KERNEL_BITS eq '64';
+ return { target => "darwin-i386" };
}
- return "darwin64-x86_64-cc" if $ISA64 == 1 && $KERNEL_BITS eq '64';
- return "darwin-i386-cc";
- }
- if ( $GUESSOS =~ 'x86_64-apple-darwin' ) {
- return "darwin-i386-cc" if $KERNEL_BITS eq '32';
+ ],
+ [ 'x86_64-apple-darwin.*',
+ sub {
+ 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;
+ print <<EOF;
WARNING! To build 32-bit package, do this:
- KERNEL_BITS=32 $WHERE/config $options
+ KERNEL_BITS=32 $WHERE/Configure \[\[ options \]\]
EOF
- maybe_abort();
- return "darwin64-x86_64-cc"
- }
- if ( $GUESSOS =~ 'armv6+7-.*-iphoneos' ) {
- $__CNF_CFLAGS .= " -arch armv6 -arch armv7";
- $__CNF_CXXFLAGS .= " -arch armv6 -arch armv7";
- return "iphoneos-cross";
- }
- if ( $GUESSOS =~ '.*-.*-iphoneos' ) {
- $__CNF_CFLAGS .= " -arch ${MACHINE}";
- $__CNF_CXXFLAGS .= " -arch ${MACHINE}";
- return "iphoneos-cross";
- }
- return "ios64-cross" if $GUESSOS =~ 'arm64-.*-iphoneos|.*-.*-ios64';
- if ( $GUESSOS =~ 'alpha-.*-linux2' ) {
- my $ISA = `awk '/cpu model/{print \$4;exit(0);}' /proc/cpuinfo`;
- $ISA //= 'generic';
- if ( $CC eq "gcc" ) {
- if ( $ISA =~ 'EV5|EV45' ) {
- $__CNF_CFLAGS .= " -mcpu=ev5";
- $__CNF_CFLAGS .= " -mcpu=ev5";
- } elsif ( $ISA =~ 'EV56|PCA56' ) {
- $__CNF_CFLAGS .= " -mcpu=ev56";
- $__CNF_CXXFLAGS .= " -mcpu=ev56";
- } else {
- $__CNF_CFLAGS .= "-mcpu=ev6";
- $__CNF_CXXFLAGS .= "-mcpu=ev6";
+ maybe_abort();
+ return { target => "darwin64-x86_64" };
+ }
+ ],
+ [ 'arm64-apple-darwin.*', { target => "darwin64-arm64" } ],
+ [ '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 };
}
- return "linux-alpha-$CC";
- }
- if ( $GUESSOS =~ 'ppc64-.*-linux2' ) {
- if ( $KERNEL_BITS eq '' ) {
- print <<EOF;
+ ],
+ [ 'ppc64-.*-linux2',
+ sub {
+ my $KERNEL_BITS = $ENV{KERNEL_BITS} // '';
+ if ( $KERNEL_BITS eq '' ) {
+ print <<EOF;
WARNING! To build 64-bit package, do this:
$WHERE/Configure linux-ppc64
EOF
- maybe_abort();
- }
- 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";
+ maybe_abort();
+ }
+ return { target => "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-ppc";
- }
- return "linux-ppc64le" if $GUESSOS =~ 'ppc64le-.*-linux2';
- return "linux-ppc" if $GUESSOS =~ 'ppc-.*-linux2';
- if ( $GUESSOS =~ 'mips64.*-*-linux2' ) {
- print <<EOF;
+ ],
+ [ 'ppc64le-.*-linux2', { target => "linux-ppc64le" } ],
+ [ 'ppc-.*-linux2', { target => "linux-ppc" } ],
+ [ 'mips64.*-*-linux2',
+ sub {
+ print <<EOF;
WARNING! To build 64-bit package, do this:
$WHERE/Configure linux64-mips64
EOF
- maybe_abort();
- return "linux-mips64";
- }
- return "linux-mips32" if $GUESSOS =~ 'mips.*-.*-linux2';
- return "vxworks-ppc60x" if $GUESSOS =~ 'ppc60x-.*-vxworks*';
- return "vxworks-ppcgen" if $GUESSOS =~ 'ppcgen-.*-vxworks*';
- return "vxworks-pentium" if $GUESSOS =~ 'pentium-.*-vxworks*';
- return "vxworks-simlinux" if $GUESSOS =~ 'simlinux-.*-vxworks*';
- return "vxworks-mips" if $GUESSOS =~ 'mips-.*-vxworks*';
- return "linux-generic64 -DL_ENDIAN" if $GUESSOS =~ 'e2k-.*-linux*';
- return "linux-ia64" if $GUESSOS =~ 'ia64-.*-linux.';
- if ( $GUESSOS =~ 'sparc64-.*-linux2' ) {
- print <<EOF;
+ maybe_abort();
+ return { target => "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 <<EOF;
WARNING! If you *know* that your GNU C supports 64-bit/V9 ABI and you
want to build 64-bit library, do this:
$WHERE/Configure linux64-sparcv9
EOF
- maybe_abort();
- return "linux-sparcv9";
- }
- if ( $GUESSOS =~ 'sparc-.*-linux2' ) {
- my $KARCH = `awk '/^type/{print \$3;exit(0);}' /proc/cpuinfo`;
- $KARCH //= "sun4";
- return "linux-sparcv9" if $KARCH =~ 'sun4u*';
- return "linux-sparcv8" if $KARCH =~ 'sun4[md]';
- $__CNF_CPPFLAGS .= " -DB_ENDIAN";
- return "linux-generic32";
- }
- if ( $GUESSOS =~ 'parisc.*-.*-linux2' ) {
- # 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/;
- # 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 <<EOF;
+ maybe_abort();
+ return { target => "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",
+ 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 <<EOF;
WARNING! To build "highgprs" 32-bit package, do this:
$WHERE/Configure linux32-s390x
EOF
- maybe_abort();
+ maybe_abort();
+ }
+ return { target => "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 ( $CC eq "cc" && $CCVER >= 50 ) {
- print <<EOF;
-WARNING! To build 64-bit package, do this:
- $WHERE/Configure solaris64-sparcv9-cc
+ ],
+ [ 'x86_64-.*-linux.',
+ sub {
+ return { target => "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" } ],
+ [ '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`;
+ my $KB = $KERNEL_BITS // '64';
+ if ( $ISA64 ne "" && $KB eq '64' ) {
+ if ( $CCVENDOR eq "sun" && $CCVER >= 500 ) {
+ print <<EOF;
+WARNING! To build 32-bit package, do this:
+ $WHERE/Configure solaris-sparcv9-cc
EOF
- maybe_abort();
- } elsif ( $CC eq "gcc" && $GCC_ARCH eq "-m64" ) {
- # $GCC_ARCH denotes default ABI chosen by compiler driver
- # (first one found on the $PATH). I assume that user
- # expects certain consistency with the rest of his builds
- # and therefore switch over to 64-bit. <appro>
- print <<EOF;
+ maybe_abort();
+ } elsif ( $CCVENDOR eq "gnu" && $GCC_ARCH eq "-m64" ) {
+ # $GCC_ARCH denotes default ABI chosen by compiler driver
+ # (first one found on the $PATH). I assume that user
+ # expects certain consistency with the rest of his builds
+ # and therefore switch over to 64-bit. <appro>
+ print <<EOF;
WARNING! To build 32-bit package, do this:
$WHERE/Configure solaris-sparcv9-gcc
EOF
- maybe_abort();
- return "solaris64-sparcv9-gcc";
- } elsif ( $GCC_ARCH eq "-m32" ) {
- print <<EOF;
+ maybe_abort();
+ 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
to build 64-bit library, do this:
$WHERE/Configure solaris64-sparcv9-gcc
EOF
- maybe_abort();
+ maybe_abort();
+ }
}
+ return { target => "solaris64-sparcv9-cc" }
+ if $ISA64 ne "" && $KB eq '64';
+ return { target => "solaris-sparcv9-cc" };
}
- 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`;
- }
- 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 <sys/unistd.h> 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 <<EOF;
+ ],
+ [ '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';
+ if ($ISA64 ne "" && $KB eq '64') {
+ return { target => "solaris64-x86_64-gcc" } if $CCVENDOR eq "gnu";
+ return { target => "solaris64-x86_64-cc" };
+ }
+ my $REL = uname('-r');
+ $REL =~ s/5\.//;
+ my @tmp_disable = ();
+ push @tmp_disable, 'sse2' if int($REL) < 10;
+ #There is no solaris-x86-cc target
+ return { target => "solaris-x86-gcc",
+ disable => [ @tmp_disable ] };
+ }
+ ],
+ # 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' ] } ],
+ [ '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...
+ 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' ] };
+ }
+ ],
+ [ '.*-.*-.*bsd.*', { target => "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 <sys/unistd.h> 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 <<EOF;
WARNING! To build 64-bit package, do this:
$WHERE/Configure hpux64-parisc2-cc
EOF
- maybe_abort();
+ maybe_abort();
+ }
+ return { target => $target,
+ %common_return };
}
- return $OUT;
- }
- # 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 ( $CC eq "gcc" ) {
- $OUT = "aix-gcc";
+ # 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 };
+ }
+ ],
+ [ '.*-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 <<EOF;
+ $config{target} = "aix64";
+ } else {
+ if ( $CCVENDOR ne 'gnu' && $KERNEL_BITS eq '64' ) {
+ print <<EOF;
WARNING! To build 64-bit package, do this:
$WHERE/Configure aix64-cc
EOF
- maybe_abort();
+ maybe_abort();
+ }
+ }
+ 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 };
}
- 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 {
- $options .= " no-asm";
+ ],
+
+ # Windows values found by looking at Perl 5's win32/win32.c
+ [ '(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;
}
- return $OUT;
+ ],
+
+ # VMS values found by observation on existing machinery.
+ [ '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
+ # environment variables could do the job to cover for more granular
+ # build options such as data model (ILP32 or LP64), thread support
+ # model (PUT, SPT or nothing), target execution environment (OSS or
+ # GUARDIAN). And still, there must be some kind of default when
+ # nothing else is said.
+ #
+ # nsv is a virtual x86 environment, equivalent to nsx, so we enforce
+ # the latter.
+ [ 'nse-tandem-nsk.*', { target => 'nonstop-nse' } ],
+ [ 'nsv-tandem-nsk.*', { target => 'nonstop-nsx' } ],
+ [ 'nsx-tandem-nsk.*', { target => 'nonstop-nsx' } ],
+
+ ];
+
+# 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
my @fields = split(/-/, $GUESSOS);
- return $fields[2];
+ return ( target => $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 <<EOF;
+ if ( $CCVENDOR eq 'gnu' && $CCVER < 208 ) {
+ if ( $OUT eq 'solaris-sparcv9-gcc' ) {
+ print <<EOF;
WARNING! Downgrading to solaris-sparcv8-gcc
Upgrade to gcc-2.8 or later.
EOF
- maybe_abort();
- return 'solaris-sparcv8-gcc';
- }
- if ( $OUT eq "linux-sparcv9" && $GCCVER < 28 ) {
- print <<EOF;
+ maybe_abort();
+ return 'solaris-sparcv8-gcc';
+ }
+ if ( $OUT eq "linux-sparcv9" ) {
+ print <<EOF;
WARNING! Downgrading to linux-sparcv8
Upgrade to gcc-2.8 or later.
EOF
- maybe_abort();
- return 'linux-sparcv8';
+ maybe_abort();
+ return 'linux-sparcv8';
+ }
}
return $OUT;
}
-# Append $CC to the target if that's in the Config list.
-sub check_target_exists {
- my $OUT = shift;
- my %table;
-
- open T, "$PERL $WHERE/Configure LIST|" or die "Can't get LIST, $!";
- while ( <T> ) {
- 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};
+ 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);
-
- # 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 <<EOF;
-
-export __CNF_CPPDEFINES="$__CNF_CPPDEFINES"
-export __CNF_CPPINCLUDES="$__CNF_CPPINCLUDES"
-export __CNF_CPPFLAGS="$__CNF_CPPFLAGS"
-export __CNF_CFLAGS="$__CNF_CFLAGS"
-export __CNF_CXXFLAGS="$__CNF_CXXFLAGS"
-export __CNF_LDFLAGS="$__CNF_LDFLAGS"
-export __CNF_LDLIBS="$__CNF_LDLIBS"
-$PERL $WHERE/Configure $TARGET $options
-EOF
- }
+ my $GUESSOS = guess_system();
+ determine_compiler_settings();
- return if $DRYRUN;
-
- print "\n";
- $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;
- $ENV{__CNF_LDFLAGS} = $__CNF_LDFLAGS;
- $ENV{__CNF_LDLIBS} = $__CNF_LDLIBS;
- exit 1 if ! okrun("$PERL $WHERE/Configure $TARGET $options");
+ my %ret = map_guess($GUESSOS);
+ $ret{target} = check_solaris_sparc8($ret{target});
+ return %ret;
}
1;