my $dwzsizeall=0;
my $dtsizeall=0;
+my $computed=0;
BINFN: for my $binfn (@DEBUG) {
# warn "$binfn...\n".Dumper([sort @{$F{$binfn}{"needed"}}]);
my @l=$binfn;
for my $l (keys(%l)) {
my $ref=$D{$l};
if (!defined $ref) {
-# warn "$binfn: $l: missing\n";
+ warn "$binfn: $l: missing\n";
next BINFN;
}
if (0==@$ref) {
my $dwzsize=$ref->[1];
die if !defined $dwzsize;
$dwzsizetot+=$dwzsize;
+ $computed++;
my $dwzcommon=$ref->[0];
next if $dwzcommon eq "nodwzcommon";
die if $dwzcommon eq "isdwzcommon";
# warn "$binfn done\n".Dumper([sort keys(%l)]);
}
print "dwzsizeall=$dwzsizeall dtsizeall=$dtsizeall\n";
+print "computed=$computed of DEBUG=".(0+@DEBUG)."\n";