+#warn Dumper $binfn,\%l;
+ my $dwzsizetot=0;
+ my $dtsizetot=0;
+ my %dwzcommons;
+ for my $l (keys(%l)) {
+ my $ref=$D{$l};
+ if (!defined $ref) {
+# warn "$binfn: $l: missing\n";
+ next BINFN;
+ }
+ if (0==@$ref) {
+ warn "$binfn: $l: ambiguous\n";
+ next BINFN;
+ }
+ my $dtsize=$ref->[2];
+ die if !defined $dtsize;
+ $dtsizetot+=$dtsize;
+ my $dwzsize=$ref->[1];
+ die if !defined $dwzsize;
+ $dwzsizetot+=$dwzsize;
+ my $dwzcommon=$ref->[0];
+ next if $dwzcommon eq "nodwzcommon";
+ die if $dwzcommon eq "isdwzcommon";
+ next if $dwzcommons{$dwzcommon}++;
+ my $dwzcommonref=$D{$dwzcommon};
+ die if !$dwzcommonref;
+ die if $dwzcommonref->[0] ne "isdwzcommon";
+ die if $dwzcommonref->[2] ne "NA";
+ my $dwzcommonsize=$dwzcommonref->[1];
+ $dwzsizetot+=$dwzcommonsize;
+ }
+ print "$binfn: dwzsizetot=$dwzsizetot dtsizetot=$dtsizetot\n";
+warn "$binfn: ".Dumper(\%dwzcommons);
+ $dwzsizeall+=$dwzsizetot;
+ $dtsizeall+=$dtsizetot;