Mercurial > hg > octave-lojdl > gnulib-hg

changeset 9790:47a0f373fb6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Recognize optional cast of the argument to free. * build-aux/useless-if-before-free: Update regexps.
author Jim Meyering <meyering@redhat.com>
date Wed, 12 Mar 2008 14:07:11 +0100
parents babcfb154c60
children af7bd60c9b2f
files ChangeLog build-aux/useless-if-before-free
diffstat 2 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-12  Jim Meyering  <meyering@redhat.com>
 
+	Recognize optional cast of the argument to free.
+	* build-aux/useless-if-before-free: Update regexps.
+
 	* build-aux/bootstrap (gnulib_tool): Remove trailing blanks.
 
 2008-03-11  Bruno Haible  <bruno@clisp.org>
--- a/build-aux/useless-if-before-free
+++ b/build-aux/useless-if-before-free
@@ -2,7 +2,7 @@
 # Detect instances of "if (p) free (p);".
 # Likewise for "if (p != NULL) free (p);".  And with braces.
 
-my $VERSION = '2008-02-11 08:08'; # UTC
+my $VERSION = '2008-03-12 13:06'; # UTC
 # The definition above must lie within the first 8 lines in order
 # for the Emacs time-stamp write hook (at end) to update it.
 # If you change this file with Emacs, please let the write hook
@@ -123,8 +123,8 @@
         {
           if ($line =~
               /\b(if\s*\(\s*(\S+?)(?:\s*!=\s*NULL)?\s*\)
-               (?:   \s*$regexp\s*\(\s*\2\s*\)|
-                \s*\{\s*$regexp\s*\(\s*\2\s*\)\s*;\s*\}))/sx)
+               (?:   \s*$regexp\s*\((?:\s*\([^)]+\))\s*\2\s*\)|
+                \s*\{\s*$regexp\s*\((?:\s*\([^)]+\))\s*\2\s*\)\s*;\s*\}))/sx)
             {
               $found_match = 1;
               $list