On Tue, Jan 22, 2008 at 10:48:22PM +0100, Jim Meyering wrote:
Likewise, given if (foo != NULL) free (foo); remove the useless
"if" test.
Do the same for sexpr_free, since it has similar semantics.
Detect with this:
(-0x3b tells Perl to use ';' as the input record separator)
perl -0x3b -ne '/\b(if \((.+?)(?:\s*!=\s*NULL\s*)?\)\s+(sexpr_)?free *\(\2\))/s and
print "$ARGV: $1\n"'\ $(git ls-files)
Note that it also changes the code produced by generator.py.
This is just a heads-up.
Before committing it, I will add a rule using something like
the above to help avoid regressions.
BTW, there is some very misleading indentation in the vicinity
of some of these changes, but I didn't correct any of that.
I gave it a once-over and it looks correct to me.
Dan.
--
|=- Red Hat, Engineering, Emerging Technologies, Boston. +1 978 392 2496 -=|
|=- Perl modules:
http://search.cpan.org/~danberr/ -=|
|=- Projects:
http://freshmeat.net/~danielpb/ -=|
|=- GnuPG: 7D3B9505 F3C9 553F A1DA 4AC2 5648 23C1 B3DF F742 7D3B 9505 -=|