diff options
author | Francesco Potortì <pot@gnu.org> | 2006-05-02 10:15:29 +0000 |
---|---|---|
committer | Francesco Potortì <pot@gnu.org> | 2006-05-02 10:15:29 +0000 |
commit | 7e237d2403a7650ebbf1ded6518c850cb0225956 (patch) | |
tree | 82f13cf4ee78cdb7405f460510456cce1d03dffb /lib-src | |
parent | 41a2f8bab50e0ccecf410910c445bce1e281876c (diff) | |
download | emacs-7e237d2403a7650ebbf1ded6518c850cb0225956.tar.gz |
(Perl_functions): Free space allocated for var package.
(Erlang_functions): Possibly free space allocated for var last.
(Prolog_functions): Possibly free space allocated for var last.
Diffstat (limited to 'lib-src')
-rw-r--r-- | lib-src/ChangeLog | 6 | ||||
-rw-r--r-- | lib-src/etags.c | 13 |
2 files changed, 17 insertions, 2 deletions
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index 115e43c2d03..2e8581a6f57 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog @@ -1,3 +1,9 @@ +2006-05-02 Francesco Potort,Al(B <pot@gnu.org> + + * etags.c (Perl_functions): Free space allocated for var package. + (Erlang_functions): Possibly free space allocated for var last. + (Prolog_functions): Possibly free space allocated for var last. + 2006-04-29 Dan Nicolaescu <dann@ics.uci.edu> * sorted-doc.c (main): Initialize docs to NULL. diff --git a/lib-src/etags.c b/lib-src/etags.c index a7c98f090bb..e206443f39b 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -41,7 +41,7 @@ * configuration file containing regexp definitions for etags. */ -char pot_etags_version[] = "@(#) pot revision number is 17.15"; +char pot_etags_version[] = "@(#) pot revision number is 17.17"; #define TRUE 1 #define FALSE 0 @@ -4543,6 +4543,7 @@ Perl_functions (inf) lb.buffer, cp - lb.buffer + 1, lineno, linecharno); } } + free (package); } @@ -5441,6 +5442,8 @@ Prolog_functions (inf) last[len] = '\0'; } } + if (last != NULL) + free (last); } @@ -5597,7 +5600,11 @@ Erlang_functions (inf) else if (cp[0] == '-') /* attribute, e.g. "-define" */ { erlang_attribute (cp); - last = NULL; + if (last != NULL) + { + free (last); + last = NULL; + } } else if ((len = erlang_func (cp, last)) > 0) { @@ -5614,6 +5621,8 @@ Erlang_functions (inf) last[len] = '\0'; } } + if (last != NULL) + free (last); } |