diff options
| -rwxr-xr-x | bin/ios-mapfile-statistics | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/bin/ios-mapfile-statistics b/bin/ios-mapfile-statistics new file mode 100755 index 000000000000..0ae275385ed2 --- /dev/null +++ b/bin/ios-mapfile-statistics @@ -0,0 +1,27 @@ +#!/usr/bin/perl -w + +use strict; + +my $state = 0; +my %libofnumber; +my %sizeoflib; + +while (<>) { + if ($state == 0 && m!^# Object files:!) { + $state = 1; + } elsif ($state == 1 && m!^\[ *([0-9]+)\] .*/([-_a-z0-9]+\.a)\(.*!i) { + $libofnumber{$1} = $2; + } elsif ($state == 1 && m!^# Sections:!) { + $state = 2; + } elsif ($state == 2 && m!^# Address\s+Size\s+File\s+Name!) { + $state = 3; + } elsif ($state == 3 && m!^0x[0-9A-F]+\s+(0x[0-9A-F]+)\s+\[ *([0-9]+)\] (.*)!) { + if (defined($libofnumber{$2})) { + $sizeoflib{$libofnumber{$2}} += hex($1); + } + } +} + +foreach (sort keys(%sizeoflib)) { + print $_, ": ", $sizeoflib{$_}, "\n"; +} |