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

(regex_tag_multiline, readline): Never pass pfnote a

Browse source 
string that cannot be freed.
This commit is contained in:
Francesco Potortì 2002-09-03 15:21:07 +00:00
parent bda54be798
commit a127d423b5
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lib-src/etags.c
View file

@ -35,7 +35,7 @@
*
*/
char pot_etags_version[] = "@(#) pot revision number is 16.54";
char pot_etags_version[] = "@(#) pot revision number is $Revision: 16.55 $";
#define TRUE 1
#define FALSE 0
@ -1871,6 +1871,7 @@ pfnote (name, is_func, linestart, linelen, lno, cno)
{
register node *np;
assert (name == NULL || name[0] != '\0');
if (CTAGS && name == NULL)
return;
@ -5727,6 +5728,7 @@ substitute (in, out, regs)
size -= 1;
/* Allocate space and do the substitutions. */
assert (size >= 0);
result = xnew (size + 1, char);
for (t = result; *out != '\0'; out++)
@ -5741,7 +5743,8 @@ substitute (in, out, regs)
*t++ = *out;
*t = '\0';
assert (t <= result + size && t - result == (int)strlen (result));
assert (t <= result + size);
assert (t - result == (int)strlen (result));
return result;
}
@ -5828,8 +5831,9 @@ regex_tag_multiline ()
if (buffer[charno++] == '\n')
lineno++, linecharno = charno;
name = rp->name;
if (name[0] != '\0')
/* Make a named tag. */
if (name[0] == '\0')
name = NULL;
else /* make a named tag */
name = substitute (buffer, rp->name, &rp->regs);
if (rp->force_explicit_name)
/* Force explicit tag name, if a name is there. */
@ -6151,8 +6155,9 @@ readline (lbp, stream)
default:
/* Match occurred. Construct a tag. */
name = rp->name;
if (name[0] != '\0')
/* Make a named tag. */
if (name[0] == '\0')
name = NULL;
else /* make a named tag */
name = substitute (lbp->buffer, rp->name, &rp->regs);
if (rp->force_explicit_name)
/* Force explicit tag name, if a name is there. */