From: Jan Kratochvil <jan.kratochvil@redhat.com>
Date: Fri, 4 Sep 2020 19:56:59 +0000 (+0200)
Subject: dtneededsize: +$computed
X-Git-Url: https://git.jankratochvil.net/?p=massrebuild.git;a=commitdiff_plain;h=2229caba05ab067f60fbf7c3d7e147723216e51a;hp=5b5e7c220be79fa6feef812678b1b48c45f5dc2b

dtneededsize: +$computed
---

diff --git a/dtneededsize b/dtneededsize
index b9cdb5c..7a7120e 100755
--- a/dtneededsize
+++ b/dtneededsize
@@ -83,6 +83,7 @@ find {
 
 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;
@@ -122,7 +123,7 @@ BINFN: for my $binfn (@DEBUG) {
   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) {
@@ -135,6 +136,7 @@ BINFN: for my $binfn (@DEBUG) {
     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";
@@ -153,3 +155,4 @@ warn "$binfn: ".Dumper(\%dwzcommons);
 #  warn "$binfn done\n".Dumper([sort keys(%l)]);
 }
 print "dwzsizeall=$dwzsizeall dtsizeall=$dtsizeall\n";
+print "computed=$computed of DEBUG=".(0+@DEBUG)."\n";