git://git.jankratochvil.net
/
massrebuild.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dtneededsize: +$computed
[massrebuild.git]
/
dtneededsize
diff --git
a/dtneededsize
b/dtneededsize
index
b9cdb5c
..
7a7120e
100755
(executable)
--- a/
dtneededsize
+++ b/
dtneededsize
@@
-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";