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]
/
dwarfredundant
diff --git
a/dwarfredundant
b/dwarfredundant
index
c0be997
..
a7dd9e0
100755
(executable)
--- a/
dwarfredundant
+++ b/
dwarfredundant
@@
-19,7
+19,7
@@
for my $argv (@ARGV) {
die if !$redundant;
my $saved=eval($addr)+1-eval($redundant_addr);
$saved_total+=$saved;
die if !$redundant;
my $saved=eval($addr)+1-eval($redundant_addr);
$saved_total+=$saved;
- print "saved=$saved:\n$
redundant_text
saved_total=$saved_total\n\n" if !$quiet;
+ print "saved=$saved:\n$
{redundant_text}
saved_total=$saved_total\n\n" if !$quiet;
$redundant=0;
}
while (<F>) {
$redundant=0;
}
while (<F>) {
@@
-49,7
+49,7
@@
for my $argv (@ARGV) {
$redundant_text.=$_ if !$quiet;
}
my $spacesl=length $spaces or die;
$redundant_text.=$_ if !$quiet;
}
my $spacesl=length $spaces or die;
- if ($rest=~/
DW_FORM_addr.*0x0000000000000000
/) {
+ if ($rest=~/
\bDW_FORM_addr\b.*0x0000000000000000|\bDW_AT_signature\b
/) {
next if $redundant;
$redundant=$spacesl;
$redundant_text=$die_text if !$quiet;
next if $redundant;
$redundant=$spacesl;
$redundant_text=$die_text if !$quiet;