my $die_text;
my $saved_total=0;
my $emptyline;
+ my $anydebug;
sub null($) {
my($addr)=@_;
die if !$redundant;
my($addr,$spaces,$rest)=(/^(0x[0-9a-f]{8}:| {11})( +)(.*)$/) or do {
next;
};
+ $anydebug=1;
if ($addr ne " "x11) {
$addr=~s/:$// or die;
} else {
}
}
close F or die;
- print "$saved_total\n";
+ print "$saved_total ".(stat $argv)[7]." $argv\n" if $anydebug;
}
--- /dev/null
+#! /bin/bash
+# echo build/*.dt5.rpm.rpms/*.rpm|xargs -P192 -n64 ./dwarfredundant.sh >dwarfredundant.out
+# perl -ne <dwarfredundant.out '/^(\d+) (\d+) / or die;$a+=$1;$b+=$2;END{print "$a $b ".$a/$b."\n"}'
+for i in "$@";do
+ mkdir work$$
+ cd work$$
+ ln ../$i
+ j=`basename $i`
+ rpm2archive $j
+ rm -f $j
+ tar xzf $j.tgz
+ rm -f $j
+ find -type f|xargs ../../massrebuild7/dwarfredundant -q 2>>../err
+ cd ..
+ rm -rf work$$
+done