procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Perl_functions): Free space allocated for var package.

Browse source 
(Erlang_functions): Possibly free space allocated for var last.
(Prolog_functions): Possibly free space allocated for var last.
This commit is contained in:
Francesco Potortì 2006-05-02 10:15:29 +00:00
parent 41a2f8bab5
commit 7e237d2403
2 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib-src/ChangeLog
View file

@ -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.

13
lib-src/etags.c
View file

@ -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);
}