4 use File::Basename qw(&dirname);
7 use Statistics::Basic::StdDev;
14 open F,"$fname" or die $fname;
16 defined(my $r=<F>) or die $fname;
17 close F or die $fname;
22 if (($ARGV[0]||"") eq "-r") {
25 $R{$1}=1 while $r=~s/^(.*?)\n//;
30 # ==> build/Cadence-1.0.0-0.12.20200504git5787908.fc33.src.rpm.dtneeded <==
31 # /usr/lib/debug/.dwz/Cadence isdwzcommon 479079 NA
32 # /usr/bin/cadence-jackmeter /usr/lib/debug/.dwz/Cadence 717792 1329040
33 # /usr/bin/cadence-xycontroller /usr/lib/debug/.dwz/Cadence 1763616 2369832
34 # ==> build/CVector-1.0.3.1-21.fc33.src.rpm.dtneeded <==
35 # /usr/lib64/libCVector-1.0.3.so.2.0.0 nodwzcommon 28088 28896
36 for my $dtneededfn (glob "build/*.dtneeded") {
37 next if %R && !$R{($dtneededfn=~m{^build/(.*?)-[^-]*-[^-]*$})[0]."-debuginfo"};
39 open F,$dtneededfn or die "$dtneededfn: $1";
43 my($fn,$dwzcommon,$dwzsize,$dtsize)=/^(\S+) (\S+) (\S+) (\S+)$/ or die "$dtneededfn: $_";
44 die if $dwzcommon eq "isdwzcommon" && $dtsize ne "NA";
47 die if $dwzcommon eq "isdwzcommon";
50 $$ref=[$dwzcommon,$dwzsize,$dtsize];
53 close F or die "close $dtneededfn: $1";
56 chdir "dtneeded.out" or die "dtneeded.out: $!";
64 die $File::Find::dir if $File::Find::dir=~m{/$};
65 my $binfn=$File::Find::name;
66 return if $binfn eq ".";
67 die $binfn if $binfn!~m{^[.]/};
70 my $bin=readfile $binfn;
71 $binfn=~s{^[.]}{} or die;
72 return if $bin=~m{^\s*0x0{8}\s+\Q(NULL)\E\s+0x0$}m;
73 return if $bin!~m{^\s*0x0{16}\s+\Q(NULL)\E\s+0x0$}m;
74 my $rpath=($bin=~m{^.*\Q(R\E(?:UN)?\QPATH)\E\s*Library r(?:un)?path: \Q[\E(.*)\Q]\E$}m)[0];
76 my $dirname=$File::Find::dir;
77 die if $dirname!~s{^[.]/}{/};
78 $rpath=~s{\$ORIGIN}{$dirname}g;
80 my $soname=($bin=~m{^.*\Q(SONAME)\E\s*Library soname: \Q[\E(.*)\Q]\E$}m)[0];
83 "needed"=>[$bin=~m{^\s*0x0000000000000001\s*\Q(NEEDED)\E\s*\QShared library: [\E(.*)\Q]\E$}gm],
85 $h->{"rpath"}=$rpath if $rpath;
87 #warn "$binfn=".Dumper($h)."\n" if $binfn=~/libc.so.6/;
88 # my $total=keys %F; warn "$total...\n" if 0==$total%1000;
90 my $sonamefn=$File::Find::dir."/".$soname;
91 $sonamefn=~s{^[.]/}{/} or die $sonamefn;
92 my $ref=\$SONAME{$binfn};
93 # warn "soname=<$sonamefn> <$binfn> vs. <".$$ref->{"binfn"}.">\n" if $$ref;
94 #warn "soname=<$sonamefn> <$binfn>" if $soname=~/libc/;
97 push @DEBUG,$binfn if $bin=~m{ \Q(DEBUG) \E };
103 die if $binfn!~m{^/};
104 return $binfn if !-l ".$binfn";
106 my $target=readlink $binfn or die $binfn;
109 if ($target=~m{^/}) {
111 #warn "$binfn,target=final=$final\n";
113 my $base=dirname(".$binfn");
114 my $abs=File::Spec->rel2abs($target,$base);
115 $final="/".File::Spec->abs2rel($abs);
116 #warn "$binfn,base=$base,target=$target,abs=$abs,final=$final\n";
118 1 while $final=~s{/[^/]+/[.][.]/}{/};
119 1 while $final=~s{/[^/]+/[.][.]$}{};
120 if ($final=~m{/[.][.]}) {
121 warn "$binfn,target=$target,final=$final\n";
124 #warn "$binfn,final=$final\n";
125 return &resolve($final);
129 my $dwzsizeduplall=0;
134 #@DEBUG="/usr/bin/elfedit";
135 BINFN: for my $binfn (@DEBUG) {
136 # warn "$binfn...\n".Dumper([sort @{$F{$binfn}{"needed"}}]);
137 die $binfn if -l ".$binfn";
143 #warn "$binfn: $l: ".Dumper($h);
144 for my $needed (@{$h->{"needed"}}) {
146 if ($needed=~m{^/}) {
147 $found=resolve $needed;
149 # die "$binfn: $l: $needed" if $needed=~m{/};
151 my $rpath=$h->{"rpath"};
152 push @rpath,split /:/,$rpath if $rpath;
153 push @rpath,qw(/lib64 /usr/lib64);
154 for my $rpath (@rpath) {
156 warn "$binfn: $l: $rpath";
159 my $fn="$rpath/$needed";
160 #warn "A:$fn\n" if $fn=~/libc/;
162 #warn "B:$fn\n" if $fn=~/libc/;
163 next if !$SONAME{$fn};
164 #warn "C:$fn\n" if $fn=~/libc/;
168 warn "$binfn: $l: $needed not found; rpath=".join(":",@rpath)."\n" if !$found;
170 push @l,$found if $found&&!$l{$found}++;
173 #warn Dumper $binfn,\%l;
175 my $dwzsizedupltot=0;
178 #warn "$binfn: ".Dumper(\%l);
179 for my $l (keys(%l)) {
182 warn "$binfn: $l: missing\n";
186 warn "$binfn: $l: ambiguous\n";
189 my $dtsize=$ref->[2];
190 die if !defined $dtsize;
192 my $dwzsize=$ref->[1];
193 die if !defined $dwzsize;
194 $dwzsizetot+=$dwzsize;
195 $dwzsizedupltot+=$dwzsize;
196 my $dwzcommon=$ref->[0];
197 next if $dwzcommon eq "nodwzcommon";
198 die if $dwzcommon eq "isdwzcommon";
199 my $duplicate=$dwzcommons{$dwzcommon}++;
200 my $dwzcommonref=$D{$dwzcommon};
201 die if !$dwzcommonref;
202 die if $dwzcommonref->[0] ne "isdwzcommon";
203 die if $dwzcommonref->[2] ne "NA";
204 my $dwzcommonsize=$dwzcommonref->[1];
205 $dwzsizetot+=$dwzcommonsize if !$duplicate;
206 $dwzsizedupltot+=$dwzcommonsize;
208 print "$binfn: dwzsizetot=$dwzsizetot dtsizetot=$dtsizetot\n";
209 #warn "$binfn: ".Dumper(\%dwzcommons);
211 $dwzsizeall+=$dwzsizetot;
212 $dwzsizeduplall+=$dwzsizedupltot;
213 $dtsizeall+=$dtsizetot;
214 warn "ratio ".$dwzsizetot /$dtsizetot." dwzsizetot=$dwzsizetot dtsizetot=$dtsizetot: $binfn\n";
215 push @ratioall ,$dwzsizetot /$dtsizetot;
216 push @ratioduplall,$dwzsizedupltot/$dtsizetot;
217 # warn "$binfn done\n".Dumper([sort keys(%l)]);
219 print "dwzsizeall =$dwzsizeall" ." dtsizeall=$dtsizeall =".$dwzsizeall /$dtsizeall." avg=".List::Util::sum(@ratioall )/@ratioall ." stddev=".Statistics::Basic::stddev(\@ratioall )."\n";
220 print "dwzsizeduplall=$dwzsizeduplall"." dtsizeall=$dtsizeall =".$dwzsizeduplall/$dtsizeall." avg=".List::Util::sum(@ratioduplall)/@ratioduplall." stddev=".Statistics::Basic::stddev(\@ratioduplall)."\n";
221 print "computed=$computed of DEBUG=".(0+@DEBUG)." =".$computed/@DEBUG."\n";
222 #print Dumper \@ratioall;