6 open NM,"-|",'m68k-pic-coff-nm efax.coff|sort'
8 my(%big,$prevhex,$prevsym,$tot);
11 /^([0-9a-f]+) (\w) (.*)$/ or die "parse: $_";
15 next if $type!~/[tT]/ || $sym=~/^\./ || $sym=~/^L\d+$/ || $sym eq "__gnu_compiled_c" || $sym eq "gcc2_compiled.";
17 warn "dup: $prevsym" if exists $big{$prevsym};
18 $big{$prevsym}=$hex-$prevhex;
26 for (sort { $big{$b} <=> $big{$a} } keys %big) {
27 printf "%4u %s\n",$big{$_},$_;