dtneededsize: +$computed
authorJan Kratochvil <jan.kratochvil@redhat.com>
Fri, 4 Sep 2020 19:56:59 +0000 (21:56 +0200)
committerJan Kratochvil <jan.kratochvil@redhat.com>
Fri, 4 Sep 2020 19:56:59 +0000 (21:56 +0200)
dtneededsize

index b9cdb5c..7a7120e 100755 (executable)
@@ -83,6 +83,7 @@ find {
 
 my $dwzsizeall=0;
 my $dtsizeall=0;
 
 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;
 BINFN: for my $binfn (@DEBUG) {
 #  warn "$binfn...\n".Dumper([sort @{$F{$binfn}{"needed"}}]);
   my @l=$binfn;
@@ -122,7 +123,7 @@ BINFN: for my $binfn (@DEBUG) {
   for my $l (keys(%l)) {
     my $ref=$D{$l};
     if (!defined $ref) {
   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) {
       next BINFN;
     }
     if (0==@$ref) {
@@ -135,6 +136,7 @@ BINFN: for my $binfn (@DEBUG) {
     my $dwzsize=$ref->[1];
     die if !defined $dwzsize;
     $dwzsizetot+=$dwzsize;
     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";
     my $dwzcommon=$ref->[0];
     next if $dwzcommon eq "nodwzcommon";
     die if $dwzcommon eq "isdwzcommon";
@@ -153,3 +155,4 @@ warn "$binfn: ".Dumper(\%dwzcommons);
 #  warn "$binfn done\n".Dumper([sort keys(%l)]);
 }
 print "dwzsizeall=$dwzsizeall dtsizeall=$dtsizeall\n";
 #  warn "$binfn done\n".Dumper([sort keys(%l)]);
 }
 print "dwzsizeall=$dwzsizeall dtsizeall=$dtsizeall\n";
+print "computed=$computed of DEBUG=".(0+@DEBUG)."\n";