From 2229caba05ab067f60fbf7c3d7e147723216e51a Mon Sep 17 00:00:00 2001
From: Jan Kratochvil <jan.kratochvil@redhat.com>
Date: Fri, 4 Sep 2020 21:56:59 +0200
Subject: [PATCH] dtneededsize: +$computed

---
 dtneededsize | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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";
-- 
1.8.3.1