f2f32b88b8
It's not used in tools at all and fits a lot better in global. Also fix the qsimd_x86* files to have a proper copyright header. Change-Id: Id3d8e7cfcd7769a1ca9f3d8cf6d357a31a99ba40 Reviewed-by: Thiago Macieira <thiago.macieira@intel.com> Reviewed-by: Lars Knoll <lars.knoll@qt.io>
278 lines
9.3 KiB
Perl
Executable File
278 lines
9.3 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
#############################################################################
|
|
##
|
|
## Copyright (C) 2018 Intel Corporation.
|
|
## Contact: https://www.qt.io/licensing/
|
|
##
|
|
## This file is part of the build configuration tools of the Qt Toolkit.
|
|
##
|
|
## $QT_BEGIN_LICENSE:MIT$
|
|
## Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
## of this software and associated documentation files (the "Software"), to deal
|
|
## in the Software without restriction, including without limitation the rights
|
|
## to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
## copies of the Software, and to permit persons to whom the Software is
|
|
## furnished to do so, subject to the following conditions:
|
|
##
|
|
## The above copyright notice and this permission notice shall be included in
|
|
## all copies or substantial portions of the Software.
|
|
##
|
|
## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
## IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
## FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
## AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
## LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
## OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
## THE SOFTWARE.
|
|
## $QT_END_LICENSE$
|
|
##
|
|
#############################################################################
|
|
|
|
use strict;
|
|
$\ = "\n";
|
|
$/ = "\n";
|
|
my %leaves = (
|
|
Leaf1EDX => "CPUID Leaf 1, EDX",
|
|
Leaf1ECX => "CPUID Leaf 1, ECX",
|
|
Leaf7_0EBX => "CPUID Leaf 7, Sub-leaf 0, EBX",
|
|
Leaf7_0ECX => "CPUID Leaf 7, Sub-leaf 0, ECX",
|
|
Leaf7_0EDX => "CPUID Leaf 7, Sub-leaf 0, EDX",
|
|
);
|
|
my @leafNames = sort keys %leaves;
|
|
|
|
# Read data from stdin
|
|
my $i = 1;
|
|
my @features;
|
|
while (<STDIN>) {
|
|
s/#.*$//;
|
|
chomp;
|
|
next if $_ eq "";
|
|
|
|
my ($name, $function, $bit, $depends) = split /\s+/;
|
|
die("Unknown CPUID function \"$function\"")
|
|
unless grep $function, @leafNames;
|
|
|
|
my $id = uc($name);
|
|
$id =~ s/[^A-Z0-9_]/_/g;
|
|
push @features,
|
|
{ name => $name, depends => $depends, id => $id, bit => $bit, leaf => $function };
|
|
++$i;
|
|
}
|
|
|
|
if (my $h = shift @ARGV) {
|
|
open HEADER, ">", $h;
|
|
select HEADER;
|
|
}
|
|
|
|
# Print the qsimd_x86_p.h output
|
|
print q{/****************************************************************************
|
|
**
|
|
** Copyright (C) 2018 Intel Corporation.
|
|
** Contact: https://www.qt.io/licensing/
|
|
**
|
|
** This file is part of the QtCore module of the Qt Toolkit.
|
|
**
|
|
** $QT_BEGIN_LICENSE:LGPL$
|
|
** Commercial License Usage
|
|
** Licensees holding valid commercial Qt licenses may use this file in
|
|
** accordance with the commercial license agreement provided with the
|
|
** Software or, alternatively, in accordance with the terms contained in
|
|
** a written agreement between you and The Qt Company. For licensing terms
|
|
** and conditions see https://www.qt.io/terms-conditions. For further
|
|
** information use the contact form at https://www.qt.io/contact-us.
|
|
**
|
|
** GNU Lesser General Public License Usage
|
|
** Alternatively, this file may be used under the terms of the GNU Lesser
|
|
** General Public License version 3 as published by the Free Software
|
|
** Foundation and appearing in the file LICENSE.LGPL3 included in the
|
|
** packaging of this file. Please review the following information to
|
|
** ensure the GNU Lesser General Public License version 3 requirements
|
|
** will be met: https://www.gnu.org/licenses/lgpl-3.0.html.
|
|
**
|
|
** GNU General Public License Usage
|
|
** Alternatively, this file may be used under the terms of the GNU
|
|
** General Public License version 2.0 or (at your option) the GNU General
|
|
** Public license version 3 or any later version approved by the KDE Free
|
|
** Qt Foundation. The licenses are as published by the Free Software
|
|
** Foundation and appearing in the file LICENSE.GPL2 and LICENSE.GPL3
|
|
** included in the packaging of this file. Please review the following
|
|
** information to ensure the GNU General Public License requirements will
|
|
** be met: https://www.gnu.org/licenses/gpl-2.0.html and
|
|
** https://www.gnu.org/licenses/gpl-3.0.html.
|
|
**
|
|
** $QT_END_LICENSE$
|
|
**
|
|
****************************************************************************/
|
|
|
|
// This is a generated file. DO NOT EDIT.
|
|
// Please see util/x86simdgen/generate.pl";
|
|
#ifndef QSIMD_P_H
|
|
# error "Please include <private/qsimd_p.h> instead"
|
|
#endif
|
|
#ifndef QSIMD_X86_P_H
|
|
#define QSIMD_X86_P_H
|
|
|
|
#include "qsimd_p.h"
|
|
|
|
//
|
|
// W A R N I N G
|
|
// -------------
|
|
//
|
|
// This file is not part of the Qt API. It exists purely as an
|
|
// implementation detail. This header file may change from version to
|
|
// version without notice, or even be removed.
|
|
//
|
|
// We mean it.
|
|
//
|
|
|
|
QT_BEGIN_NAMESPACE
|
|
|
|
// used only to indicate that the CPU detection was initialized
|
|
#define QSimdInitialized (Q_UINT64_C(1) << 0)};
|
|
|
|
# Print the enum
|
|
my $lastleaf;
|
|
for (my $i = 0; $i < scalar @features; ++$i) {
|
|
my $feature = $features[$i];
|
|
# Leaf header:
|
|
printf "\n// in %s:\n", $leaves{$feature->{leaf}}
|
|
if $feature->{leaf} ne $lastleaf;
|
|
$lastleaf = $feature->{leaf};
|
|
|
|
# Feature
|
|
printf "#define CpuFeature%-33s (Q_UINT64_C(1) << %d)\n", $feature->{id}, $i + 1;
|
|
|
|
# Feature string names for Clang and GCC
|
|
my $str = $feature->{name};
|
|
$str .= ",$feature->{depends}" if defined($feature->{depends});
|
|
printf "#define QT_FUNCTION_TARGET_STRING_%-17s \"%s\"\n",
|
|
$feature->{id}, $str;
|
|
}
|
|
|
|
print q{
|
|
static const quint64 qCompilerCpuFeatures = 0};
|
|
|
|
# And print the compiler-enabled features part:
|
|
for (my $i = 0; $i < scalar @features; ++$i) {
|
|
my $feature = $features[$i];
|
|
printf
|
|
"#ifdef __%s__\n" .
|
|
" | CpuFeature%s\n" .
|
|
"#endif\n",
|
|
$feature->{id}, $feature->{id};
|
|
}
|
|
|
|
print q{ ;
|
|
|
|
QT_END_NAMESPACE
|
|
|
|
#endif // QSIMD_X86_P_H
|
|
};
|
|
|
|
if (my $cpp = shift @ARGV) {
|
|
open CPP, ">", $cpp;
|
|
select CPP;
|
|
} else {
|
|
print q{
|
|
|
|
---- cut here, paste the rest into qsimd_x86.cpp ---
|
|
|
|
|
|
};
|
|
};
|
|
|
|
print q{/****************************************************************************
|
|
**
|
|
** Copyright (C) 2018 Intel Corporation.
|
|
** Contact: https://www.qt.io/licensing/
|
|
**
|
|
** This file is part of the QtCore module of the Qt Toolkit.
|
|
**
|
|
** $QT_BEGIN_LICENSE:LGPL$
|
|
** Commercial License Usage
|
|
** Licensees holding valid commercial Qt licenses may use this file in
|
|
** accordance with the commercial license agreement provided with the
|
|
** Software or, alternatively, in accordance with the terms contained in
|
|
** a written agreement between you and The Qt Company. For licensing terms
|
|
** and conditions see https://www.qt.io/terms-conditions. For further
|
|
** information use the contact form at https://www.qt.io/contact-us.
|
|
**
|
|
** GNU Lesser General Public License Usage
|
|
** Alternatively, this file may be used under the terms of the GNU Lesser
|
|
** General Public License version 3 as published by the Free Software
|
|
** Foundation and appearing in the file LICENSE.LGPL3 included in the
|
|
** packaging of this file. Please review the following information to
|
|
** ensure the GNU Lesser General Public License version 3 requirements
|
|
** will be met: https://www.gnu.org/licenses/lgpl-3.0.html.
|
|
**
|
|
** GNU General Public License Usage
|
|
** Alternatively, this file may be used under the terms of the GNU
|
|
** General Public License version 2.0 or (at your option) the GNU General
|
|
** Public license version 3 or any later version approved by the KDE Free
|
|
** Qt Foundation. The licenses are as published by the Free Software
|
|
** Foundation and appearing in the file LICENSE.GPL2 and LICENSE.GPL3
|
|
** included in the packaging of this file. Please review the following
|
|
** information to ensure the GNU General Public License requirements will
|
|
** be met: https://www.gnu.org/licenses/gpl-2.0.html and
|
|
** https://www.gnu.org/licenses/gpl-3.0.html.
|
|
**
|
|
** $QT_END_LICENSE$
|
|
**
|
|
****************************************************************************/
|
|
|
|
// This is a generated file. DO NOT EDIT.
|
|
// Please see util/x86simdgen/generate.pl";
|
|
#include "qsimd_p.h"
|
|
};
|
|
|
|
# Now generate the string table and bit-location array
|
|
my $offset = 0;
|
|
my @offsets;
|
|
print "static const char features_string[] =";
|
|
for my $feature (@features) {
|
|
print " \" $feature->{name}\\0\"";
|
|
push @offsets, $offset;
|
|
$offset += 2 + length($feature->{name});
|
|
}
|
|
print " \"\\0\";";
|
|
|
|
# Print the string offset table
|
|
printf "\nstatic const %s features_indices[] = {\n %3d",
|
|
$offset > 255 ? "quint16" : "quint8", $offset;
|
|
for (my $j = 0; $j < scalar @offsets; ++$j) {
|
|
printf ",%s%3d",
|
|
($j + 1) % 8 ? " " : "\n ", $offsets[$j];
|
|
}
|
|
print "\n};";
|
|
|
|
# Print the locator enum and table
|
|
print "\nenum X86CpuidLeaves {";
|
|
map { print " $_," } @leafNames;
|
|
print " X86CpuidMaxLeaf\n};";
|
|
|
|
my $type = scalar %leaves > 8 ? "quint16" : "quint8";
|
|
printf "\nstatic const %s x86_locators[] = {",
|
|
$type, $type;
|
|
my $lastname;
|
|
for (my $j = 0; $j < scalar @features; ++$j) {
|
|
my $feature = $features[$j];
|
|
printf ", // %s", $lastname
|
|
if defined($lastname);
|
|
printf "\n %s*32 + %2d",
|
|
$feature->{leaf}, $feature->{bit};
|
|
$lastname = $feature->{name};
|
|
}
|
|
printf qq{ // $lastname
|
|
\};
|
|
|
|
// List of AVX512 features (see detectProcessorFeatures())
|
|
static const quint64 AllAVX512 = 0};
|
|
|
|
# Print AVX512 features
|
|
for (my $j = 0; $j < scalar @features; ++$j) {
|
|
my $feature = $features[$j];
|
|
$_ = $feature->{id};
|
|
printf "\n | CpuFeature%s", $_ if /AVX512/;
|
|
}
|
|
print ";";
|