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

inp.c, rem_tlist(), cleanup

This commit is contained in:
rlar 2016-11-05 14:56:45 +01:00
parent 3a27cb43ba
commit c8ce9d963d
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/frontend/inp.c
View File

@ -1846,23 +1846,26 @@ set_tlist(struct circ *curckt)
void
rem_tlist(void)
{
struct pt_temper *dmtmp;
while (devtlist) {
dmtmp = devtlist->next;
tfree(devtlist->expression);
wl_free(devtlist->wl);
INPfreeTree((IFparseTree *) devtlist->pt);
tfree(devtlist);
devtlist = dmtmp;
struct pt_temper *p;
for (p = devtlist; p;) {
struct pt_temper *next_p = p->next;
tfree(p->expression);
wl_free(p->wl);
INPfreeTree((IFparseTree *) p->pt);
tfree(p);
p = next_p;
}
while (modtlist) {
dmtmp = modtlist->next;
tfree(modtlist->expression);
wl_free(modtlist->wl);
INPfreeTree((IFparseTree *) modtlist->pt);
tfree(modtlist);
modtlist = dmtmp;
for (p = modtlist; p;) {
struct pt_temper *next_p = p->next;
tfree(p->expression);
wl_free(p->wl);
INPfreeTree((IFparseTree *) p->pt);
tfree(p);
p = next_p;
}
devtlist = NULL;
modtlist = NULL;
}
void