326 lines
10 KiB
Perl
326 lines
10 KiB
Perl
|
#!/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$
|
||
|
|
## No Commercial Usage
|
||
|
|
## This file contains pre-release code and may not be distributed.
|
||
|
|
## You may use this file in accordance with the terms and conditions
|
||
|
|
## contained in the Technology Preview License Agreement accompanying
|
||
|
|
## this package.
|
||
|
|
##
|
||
|
|
## GNU Lesser General Public License Usage
|
||
|
|
## Alternatively, 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.
|
||
|
|
##
|
||
|
|
## If you have questions regarding the use of this file, please contact
|
||
|
|
## Nokia at qt-info@nokia.com.
|
||
|
|
##
|
||
|
|
##
|
||
|
|
##
|
||
|
|
##
|
||
|
|
##
|
||
|
|
##
|
||
|
|
##
|
||
|
|
##
|
||
|
|
## $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]: $!");
|
||
|
|
}
|
||
|
|
}
|