gecko-dev/tools/codesighs/readelf_wrap.pl
2012-05-21 12:12:37 +01:00

160 lines
5.0 KiB
Perl
Executable File

#!/usr/bin/perl -w
# -*- Mode: perl; tab-width: 4; indent-tabs-mode: nil; -*-
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
use strict;
# Section fields (the full list of values is in <elf.h>)
my $SECT_NUM = 0; # section index
my $SECT_NAME = 1; # section name
my $SECT_TYPE = 2; # section type
my $SECT_ADDR = 3; # section virtual address
my $SECT_OFF = 4; # section offset in file
my $SECT_SIZE = 5; # size of section
my $SECT_ES = 6; # section entry size
my $SECT_FLG = 7; # section flags
my $SECT_LK = 8; # link to another section
my $SECT_INF = 9; # additional section info
my $SECT_AL = 10; # section alignment
# Symbol fields (note: the full list of possible values for each field
# is given in <elf.h>)
my $SYM_NUM = 0; # unique index of the symbol
my $SYM_VALUE = 1; # value of the symbol
my $SYM_SIZE = 2; # size of the symbol
my $SYM_TYPE = 3; # type (NOTYPE, OBJECT, FUNC, SECTION, FILE, ...)
my $SYM_BIND = 4; # binding/scope (LOCAL, GLOBAL, WEAK, ...)
my $SYM_VIS = 5; # visibility (DEFAULT, INTERNAL, HIDDEN, PROTECTED)
my $SYM_NDX = 6; # index of section the symbol is in
my $SYM_NAME = 7; # name of the symbol
my $SYM_FILE = 8; # (not part of readelf) file for symbol
# Tell readelf to print out the list of sections and then the symbols
die "Usage: $^X <binary>\n" unless ($#ARGV >= 0);
my $readelf = $ENV{'READELF_PROG'};
if (!$readelf) {
$readelf = 'readelf';
}
open(READELF_OUTPUT, "$readelf -Ss $ARGV[0] 2>/dev/null | c++filt |") or die "readelf failed to run on $ARGV[0]\n";
my @section_list;
my @symbol_list;
my ($module) = ($ARGV[0] =~ /([^\/]+)$/);
my $in_symbols = 0;
while (<READELF_OUTPUT>) {
if (!$in_symbols) {
if (/^ *\[ *(\d+)\]/) {
my @section;
# note that we strip off the leading '.' of section names for
# readability
if (! (@section = (/^ *\[ *(\d+)\] \.([\w\.\-]+) *(\w+) *(.{8}) (.{6}[0-9a-fA-F]*) (.{6}[0-9a-fA-F]*) *(\d+) ([a-zA-Z]+ +| +[a-zA-Z]+|) *(\d+) *(\w+) *(\d+)/))) {
# capture the 'null' section which has no name, so that the
# array indices are the same as the section indices.
@section = ($1, '', 'NULL', '00000000', '000000', '000000',
'00', '', '0', '0', '0');
}
push (@section_list, \@section);
} elsif (/^Symbol table/) {
$in_symbols = 1;
}
} else {
my @sym;
if (@sym = /^\s*(\d+): (\w+)\s*(\d+)\s*(\w+)\s*(\w+)\s*(\w+)\s*(\w+) (.*)/)
{
# Filter out types of symbols that we don't care about:
# - anything that's not of type OBJECT or FUNC
# - any undefined symbols (ndx = UND[EF])
# - any 0-size symbols
if (($sym[$SYM_TYPE] !~ /^(OBJECT|FUNC)$/) ||
$sym[$SYM_NDX] eq 'UND' || $sym[$SYM_NDX] eq 'UNDEF'
|| $sym[$SYM_SIZE] eq '0') {
next;
}
push (@symbol_list, \@sym);
}
elsif (/^Symbol table .*'\.symtab'/) {
# We've been using .dynsym up to this point, but if we have .symtab
# available, it will have everything in .dynsym and more.
# So, reset our symbol list.
@symbol_list = ();
}
}
}
close(READELF_OUTPUT);
# spit them out in codesighs TSV format
my $sym;
my @section_sizes;
$#section_sizes = $#section_list;
foreach (@section_sizes) { $_ = 0; }
foreach $sym (@symbol_list) {
# size
printf "%08x\t", $sym->[$SYM_SIZE];
# code or data
if ($sym->[$SYM_TYPE] eq 'FUNC') {
print "CODE\t";
} else { # OBJECT
print "DATA\t";
}
# scope
if ($sym->[$SYM_BIND] eq 'LOCAL') {
print "STATIC\t";
} elsif ($sym->[$SYM_BIND] =~ /(GLOBAL|WEAK)/) {
print "PUBLIC\t";
} else {
print "UNDEF\t";
}
# module name
print "$module\t";
# section
my $section = $section_list[$sym->[$SYM_NDX]]->[$SECT_NAME];
print "$section\t";
# should be the object file, but for now just module/section
print "UNDEF:$module:$section\t";
# now the symbol name
print $sym->[$SYM_NAME]."\n";
# update our cumulative section sizes
$section_sizes[$section_list[$sym->[$SYM_NDX]]->[$SECT_NUM]] += $sym->[$SYM_SIZE];
}
# Output extra entries to make the sum of the symbol sizes equal the
# section size.
my $section;
foreach $section (@section_list) {
my $diff = hex($section->[$SECT_SIZE]) - $section_sizes[$section->[$SECT_NUM]];
if ($diff > 0) {
my $sectname = $section->[$SECT_NAME];
if ($section->[$SECT_NAME] =~ /^(rodata|data|text|bss)/) {
printf "%08x", $diff;
print "\tDATA\tSTATIC\t$module\t$sectname\tUNDEF:$module:$sectname\t.nosyms.$sectname\n";
# } else {
# print "ignoring $diff bytes of empty space in $sectname section\n";
}
}
}