1 #!/usr/bin/perl -w 2 # -*- Mode: perl; tab-width: 4; indent-tabs-mode: nil; -*- 3 # ***** BEGIN LICENSE BLOCK ***** 4 # Version: MPL 1.1/GPL 2.0/LGPL 2.1 5 # 6 # The contents of this file are subject to the Mozilla Public License Version 7 # 1.1 (the "License"); you may not use this file except in compliance with 8 # the License. You may obtain a copy of the License at 9 # http://www.mozilla.org/MPL/ 10 # 11 # Software distributed under the License is distributed on an "AS IS" basis, 12 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 13 # for the specific language governing rights and limitations under the 14 # License. 15 # 16 # The Original Code is readelf_wrap.pl. 17 # 18 # The Initial Developer of the Original Code is 19 # IBM Corporation. 20 # Portions created by the Initial Developer are Copyright (C) 2003 21 # the Initial Developer. All Rights Reserved. 22 # 23 # Contributor(s): 24 # Brian Ryner <bryner (at] brianryner.com> 25 # 26 # Alternatively, the contents of this file may be used under the terms of 27 # either the GNU General Public License Version 2 or later (the "GPL"), or 28 # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"), 29 # in which case the provisions of the GPL or the LGPL are applicable instead 30 # of those above. If you wish to allow use of your version of this file only 31 # under the terms of either the GPL or the LGPL, and not to allow others to 32 # use your version of this file under the terms of the MPL, indicate your 33 # decision by deleting the provisions above and replace them with the notice 34 # and other provisions required by the GPL or the LGPL. If you do not delete 35 # the provisions above, a recipient may use your version of this file under 36 # the terms of any one of the MPL, the GPL or the LGPL. 37 # 38 # ***** END LICENSE BLOCK ***** 39 40 use strict; 41 42 # Section fields (the full list of values is in <elf.h>) 43 my $SECT_NUM = 0; # section index 44 my $SECT_NAME = 1; # section name 45 my $SECT_TYPE = 2; # section type 46 my $SECT_ADDR = 3; # section virtual address 47 my $SECT_OFF = 4; # section offset in file 48 my $SECT_SIZE = 5; # size of section 49 my $SECT_ES = 6; # section entry size 50 my $SECT_FLG = 7; # section flags 51 my $SECT_LK = 8; # link to another section 52 my $SECT_INF = 9; # additional section info 53 my $SECT_AL = 10; # section alignment 54 55 56 # Symbol fields (note: the full list of possible values for each field 57 # is given in <elf.h>) 58 59 my $SYM_NUM = 0; # unique index of the symbol 60 my $SYM_VALUE = 1; # value of the symbol 61 my $SYM_SIZE = 2; # size of the symbol 62 my $SYM_TYPE = 3; # type (NOTYPE, OBJECT, FUNC, SECTION, FILE, ...) 63 my $SYM_BIND = 4; # binding/scope (LOCAL, GLOBAL, WEAK, ...) 64 my $SYM_VIS = 5; # visibility (DEFAULT, INTERNAL, HIDDEN, PROTECTED) 65 my $SYM_NDX = 6; # index of section the symbol is in 66 my $SYM_NAME = 7; # name of the symbol 67 my $SYM_FILE = 8; # (not part of readelf) file for symbol 68 69 # Tell readelf to print out the list of sections and then the symbols 70 die "Usage: $^X <binary>\n" unless ($#ARGV >= 0); 71 my $readelf = $ENV{'READELF_PROG'}; 72 if (!$readelf) { 73 $readelf = 'readelf'; 74 } 75 open(READELF_OUTPUT, "$readelf -Ss $ARGV[0] 2>/dev/null | c++filt |") or die "readelf failed to run on $ARGV[0]\n"; 76 77 my @section_list; 78 my @symbol_list; 79 my ($module) = ($ARGV[0] =~ /([^\/]+)$/); 80 my $in_symbols = 0; 81 82 while (<READELF_OUTPUT>) { 83 84 if (!$in_symbols) { 85 if (/^ *\[ *(\d+)\]/) { 86 my @section; 87 88 # note that we strip off the leading '.' of section names for 89 # readability 90 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+)/))) { 91 # capture the 'null' section which has no name, so that the 92 # array indices are the same as the section indices. 93 94 @section = ($1, '', 'NULL', '00000000', '000000', '000000', 95 '00', '', '0', '0', '0'); 96 } 97 98 push (@section_list, \@section); 99 } elsif (/^Symbol table/) { 100 $in_symbols = 1; 101 } 102 } else { 103 104 my @sym; 105 106 if (@sym = /^\s*(\d+): (\w+)\s*(\d+)\s*(\w+)\s*(\w+)\s*(\w+)\s*(\w+) (.*)/) 107 { 108 # Filter out types of symbols that we don't care about: 109 # - anything that's not of type OBJECT or FUNC 110 # - any undefined symbols (ndx = UND[EF]) 111 # - any 0-size symbols 112 113 if (($sym[$SYM_TYPE] !~ /^(OBJECT|FUNC)$/) || 114 $sym[$SYM_NDX] eq 'UND' || $sym[$SYM_NDX] eq 'UNDEF' 115 || $sym[$SYM_SIZE] eq '0') { 116 next; 117 } 118 push (@symbol_list, \@sym); 119 } 120 elsif (/^Symbol table .*'\.symtab'/) { 121 # We've been using .dynsym up to this point, but if we have .symtab 122 # available, it will have everything in .dynsym and more. 123 # So, reset our symbol list. 124 125 @symbol_list = (); 126 } 127 } 128 } 129 130 close(READELF_OUTPUT); 131 132 # spit them out in codesighs TSV format 133 my $sym; 134 my @section_sizes; 135 $#section_sizes = $#section_list; 136 foreach (@section_sizes) { $_ = 0; } 137 138 foreach $sym (@symbol_list) { 139 # size 140 printf "%08x\t", $sym->[$SYM_SIZE]; 141 142 # code or data 143 if ($sym->[$SYM_TYPE] eq 'FUNC') { 144 print "CODE\t"; 145 } else { # OBJECT 146 print "DATA\t"; 147 } 148 149 # scope 150 if ($sym->[$SYM_BIND] eq 'LOCAL') { 151 print "STATIC\t"; 152 } elsif ($sym->[$SYM_BIND] =~ /(GLOBAL|WEAK)/) { 153 print "PUBLIC\t"; 154 } else { 155 print "UNDEF\t"; 156 } 157 158 # module name 159 160 print "$module\t"; 161 162 # section 163 my $section = $section_list[$sym->[$SYM_NDX]]->[$SECT_NAME]; 164 print "$section\t"; 165 166 # should be the object file, but for now just module/section 167 print "UNDEF:$module:$section\t"; 168 169 # now the symbol name 170 print $sym->[$SYM_NAME]."\n"; 171 172 # update our cumulative section sizes 173 $section_sizes[$section_list[$sym->[$SYM_NDX]]->[$SECT_NUM]] += $sym->[$SYM_SIZE]; 174 } 175 176 # Output extra entries to make the sum of the symbol sizes equal the 177 # section size. 178 179 my $section; 180 foreach $section (@section_list) { 181 182 my $diff = hex($section->[$SECT_SIZE]) - $section_sizes[$section->[$SECT_NUM]]; 183 if ($diff > 0) { 184 my $sectname = $section->[$SECT_NAME]; 185 if ($section->[$SECT_NAME] =~ /^(rodata|data|text|bss)/) { 186 printf "%08x", $diff; 187 print "\tDATA\tSTATIC\t$module\t$sectname\tUNDEF:$module:$sectname\t.nosyms.$sectname\n"; 188 # } else { 189 # print "ignoring $diff bytes of empty space in $sectname section\n"; 190 } 191 } 192 } 193
