qt5base-lts/bin/elf2e32_qtwrapper.pl

326 lines
10 KiB
Perl
Raw Normal View History

#!/usr/bin/perl -w
#############################################################################
##
## Copyright (C) 2011 Nokia Corporation and/or its subsidiary(-ies).
## All rights reserved.
## Contact: Nokia Corporation (qt-info@nokia.com)
##
## This file is part of the utilities of the Qt Toolkit.
##
## $QT_BEGIN_LICENSE:LGPL$
## GNU Lesser General Public License Usage
## This file may be used under the terms of the GNU Lesser General Public
## License version 2.1 as published by the Free Software Foundation and
## appearing in the file LICENSE.LGPL included in the packaging of this
## file. Please review the following information to ensure the GNU Lesser
## General Public License version 2.1 requirements will be met:
## http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
##
## In addition, as a special exception, Nokia gives you certain additional
## rights. These rights are described in the Nokia Qt LGPL Exception
## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
##
## GNU General Public License Usage
## Alternatively, this file may be used under the terms of the GNU General
## Public License version 3.0 as published by the Free Software Foundation
## and appearing in the file LICENSE.GPL included in the packaging of this
## file. Please review the following information to ensure the GNU General
## Public License version 3.0 requirements will be met:
## http://www.gnu.org/copyleft/gpl.html.
##
## Other Usage
## Alternatively, this file may be used in accordance with the terms and
## conditions contained in a signed written agreement between you and Nokia.
##
##
##
##
##
## $QT_END_LICENSE$
##
#############################################################################
# A script to get around some shortcomings in elf2e32, namely:
# - Returning 0 even when there are errors.
# - Excluding symbols from the dso file even when they are present in the ELF file.
# - Including symbols in the the dso file even when they are not present in the ELF file.
# - Overwriting the old dso file even when there are no changes (increases build time).
use File::Copy;
my @args = ();
my @definput;
my @defoutput;
my @dso;
my @tmpdso;
foreach (@ARGV) {
if (/^--definput/o) {
@definput = split('=', $_);
} elsif (/^--defoutput/o) {
@defoutput = split('=', $_);
} elsif (/^--dso/o) {
@dso = split('=', $_);
} elsif (/^--tmpdso/o) {
@tmpdso = split('=', $_);
$tmpdso[0] = "--dso";
} else {
push(@args, $_);
}
}
@definput = () if (!@definput || ! -e $definput[1]);
if (@dso && !@tmpdso || !@dso && @tmpdso) {
print("--dso and --tmpdso must be used together.\n");
exit 1;
}
my $buildingLibrary = (@defoutput && @dso) ? 1 : 0;
my $fixupFile = "";
my $runCount = 0;
my $returnCode = 0;
# For debugging. Make it nonzero to give verbose output.
my $debugScript = 1;
my @usedDefFiles;
sub recordDefFile {
return if (!$debugScript);
my ($msg, $file) = @_;
my $content = "$msg, $file:\n";
my $defFileFd;
if (!open($defFileFd, "< $file")) {
print("Warning: Could not open $file (for debug analysis)\n");
return;
}
while (<$defFileFd>) {
$content .= $_;
}
push(@usedDefFiles, $content);
}
sub printRecordedDefFiles {
return if (!$debugScript);
foreach (@usedDefFiles) {
print ("$_\n");
}
}
sub missingSymbolMismatch
{
my $missingSymbolSum = $_[0];
printRecordedDefFiles;
print("Bug in the native elf2e32 tool: Number of missing symbols does not\n");
print("match number of removed symbols in the output DEF file.\n\n");
print("Original elf2e32 output:\n");
print(" $missingSymbolSum Frozen Export\(s\) missing from the ELF file\n\n");
print("However $defoutput[1] contains more missing entries than that.\n\n");
print("This needs to be fixed manually in the DEF file.\n");
exit(2);
}
if ($debugScript) {
print("PATH: $ENV{PATH}\n");
print("EPOCROOT: $ENV{EPOCROOT}\n");
}
while (1) {
if (++$runCount > 2) {
printRecordedDefFiles if ($debugScript);
print("Internal error in $0, link succeeded, but exports may be wrong.\n");
last;
}
my $elf2e32Pipe;
my $elf2e32Cmd = "elf2e32 @args"
. " " . join("=", @definput)
. " " . join("=", @defoutput)
. " " . join("=", @tmpdso);
open($elf2e32Pipe, "$elf2e32Cmd 2>&1 |") or die ("Could not run elf2e32");
my %fixupSymbols;
my $foundBrokenSymbols = 0;
my $missingSymbolSum = 0;
my $missingSymbolCount = 0;
my $errors = 0;
while (<$elf2e32Pipe>) {
print;
if (/Error:/io) {
$errors = 1;
} elsif (/symbol ([a-z0-9_]+) absent in the DEF file, but present in the ELF file/io) {
$fixupSymbols{$1} = 1;
$foundBrokenSymbols = 1;
} elsif (/([0-9]+) Frozen Export\(s\) missing from the ELF file/io) {
$missingSymbolSum = $1;
$foundBrokenSymbols = 1;
}
}
close($elf2e32Pipe);
if ($debugScript) {
recordDefFile("Run no $runCount, elf2e32 DEF file input", "$definput[1]");
recordDefFile("Run no $runCount, elf2e32 DEF file output", "$defoutput[1]");
}
if ($errors) {
$returnCode = 1;
last;
}
if ($buildingLibrary && $runCount == 1) {
my $tmpDefFile;
my $newDefFile;
my $origDefFile;
my $savedNewDefFileLine = "";
if ($definput[1]) {
open($origDefFile, "< $definput[1]") or die("Could not open $definput[1]");
}
open($newDefFile, "< $defoutput[1]") or die("Could not open $defoutput[1]");
open($tmpDefFile, "> $defoutput[1].tmp") or die("Could not open $defoutput[1].tmp");
print($tmpDefFile "EXPORTS\n") or die("Could not write to temporary DEF file: $!");
$fixupFile = "$defoutput[1].tmp";
while (1) {
my $origDefLine;
my $origSym;
my $origOrdinal;
my $origExtraData;
my $newDefLine;
my $newSym;
my $newOrdinal;
my $newExtraData;
my $defLine;
my $sym;
my $ordinal;
my $extraData;
if ($definput[1]) {
# Read from original def file, and skip non-symbol lines
while (1) {
$origDefLine = <$origDefFile>;
if (defined($origDefLine)) {
$origDefLine =~ s/[\n\r]//;
if ($origDefLine =~ /([a-z0-9_]+) +\@ *([0-9]+) (.*)/i) {
$origSym = $1;
$origOrdinal = $2;
$origExtraData = $3;
last;
}
} else {
last;
}
}
}
if ($savedNewDefFileLine) {
# This happens if the new def file was missing an entry.
$newDefLine = $savedNewDefFileLine;
$newDefLine =~ /([a-z0-9_]+) +\@ *([0-9]+) (.*)/i or die("$0: Shouldn't happen");
$newSym = $1;
$newOrdinal = $2;
$newExtraData = $3;
} else {
# Read from new def file, and skip non-symbol lines
while (1) {
$newDefLine = <$newDefFile>;
if (defined($newDefLine)) {
$newDefLine =~ s/[\n\r]//;
if ($newDefLine =~ /([a-z0-9_]+) +\@ *([0-9]+) (.*)/i) {
$newSym = $1;
$newOrdinal = $2;
$newExtraData = $3;
last;
}
} else {
last;
}
}
}
$savedNewDefFileLine = "";
last if (!defined($origDefLine) && !defined($newDefLine));
if (defined($origOrdinal) && (!defined($newOrdinal) || $origOrdinal != $newOrdinal)) {
# If the symbol is missing from the new def file, use the original symbol.
$savedNewDefFileLine = $newDefLine;
$defLine = $origDefLine;
$sym = $origSym;
$ordinal = $origOrdinal;
$extraData = $origExtraData;
} else {
$defLine = $newDefLine;
$sym = $newSym;
$ordinal = $newOrdinal;
if ($newExtraData =~ /ABSENT/) {
# Special case to keep "DATA [0-9]+" data in absent entries.
$extraData = $origExtraData;
} else {
$extraData = $newExtraData;
}
}
if (exists($fixupSymbols{$sym})) {
# Fix symbols that have returned after first being marked ABSENT.
$extraData =~ s/ ABSENT//;
} elsif ($defLine =~ s/; MISSING://) {
# Auto-absent symbols.
$extraData .= " ABSENT";
if (++$missingSymbolCount > $missingSymbolSum) {
missingSymbolMismatch($missingSymbolSum);
}
}
print($tmpDefFile "\t$sym \@ $ordinal $extraData\n") or die("Could not write to temporary DEF file: $!");
}
print($tmpDefFile "\n") or die("Could not write to temporary DEF file: $!");
close($origDefFile) if ($definput[1]);
close($newDefFile);
close($tmpDefFile);
$definput[1] = "$defoutput[1].tmp";
}
if (!$foundBrokenSymbols || $errors) {
last;
}
print("Rerunning elf2e32 due to DEF file / ELF file mismatch\n");
};
if ($fixupFile) {
unlink($defoutput[1]);
move($fixupFile, $defoutput[1]);
}
exit $returnCode if ($returnCode != 0);
if ($buildingLibrary) {
my $differenceFound = 0;
if (-e $dso[1]) {
my $dsoFile;
my $tmpdsoFile;
my $dsoBuf;
my $tmpdsoBuf;
open($dsoFile, "< $dso[1]") or die("Could not open $dso[1]");
open($tmpdsoFile, "< $tmpdso[1]") or die("Could not open $tmpdso[1]");
binmode($dsoFile);
binmode($tmpdsoFile);
while(read($dsoFile, $dsoBuf, 4096) && read($tmpdsoFile, $tmpdsoBuf, 4096)) {
if ($dsoBuf ne $tmpdsoBuf) {
$differenceFound = 1;
}
}
close($tmpdsoFile);
close($dsoFile);
} else {
$differenceFound = 1;
}
if ($differenceFound) {
copy($tmpdso[1], $dso[1]) or die("Could not copy $tmpdso[1] to $dso[1]: $!");
}
}