luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

free the original wlist, made by getcommand(), 

not a derived wlist that is just part of the original
This commit is contained in:
Holger Vogt 2018-08-25 00:38:26 +02:00
parent c5cea6d6c1
commit 9332801382
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/frontend/control.c
View File

@ -620,7 +620,7 @@ getcommand(char *string)
int
cp_evloop(char *string)
{
wordlist *wlist, *ww;
wordlist *wlist, *ww, *freewl;
struct control *x;
char *i;
int nn;
@ -635,7 +635,7 @@ cp_evloop(char *string)
} while(0)
for (;;) {
wlist = getcommand(string);
freewl = wlist = getcommand(string);
if (wlist == NULL) { /* End of file or end of user input. */
if (cend[stackp]->co_parent && !string) {
cp_resetcontrol();
@ -748,7 +748,7 @@ cp_evloop(char *string)
fprintf(stderr,
"Error: missing foreach variable.\n");
}
wlist = cp_doglob(wlist); /*CDHW Possible leak around here? */
wlist = cp_doglob(wlist);
cend[stackp]->co_text = wl_copy(wlist);
newblock;
} else if (eq(wlist->wl_word, "label")) {
@ -864,8 +864,7 @@ cp_evloop(char *string)
x = x->co_next;
} while (x);
}
wl_free(wlist);
wlist = NULL;
wl_free(freewl);
if (string)
return (1); /* The return value is irrelevant. */
}