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

com_write(), com_write_sparam(), com_cross(), cleanup storage more thoroughly

This commit is contained in:
rlar 2012-10-01 21:03:53 +02:00
parent 7b2c9db809
commit 124f0f4727
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/frontend/postcoms.c
View File

@ -410,7 +410,7 @@ com_write(wordlist *wl)
for (pn = names; pn; pn = pn->pn_next) {
d = ft_evaluate(pn);
if (!d)
return;
goto done;
if (vecs)
lv->v_link2 = d;
else
@ -506,6 +506,9 @@ com_write(wordlist *wl)
/* If there are more plots we want them appended... */
appendwrite = TRUE;
}
done:
free_pnode(names);
}
@ -552,7 +555,7 @@ com_write_sparam(wordlist *wl)
for (pn = names; pn; pn = pn->pn_next) {
d = ft_evaluate(pn);
if (!d)
return;
goto done;
if (vecs)
lv->v_link2 = d;
@ -568,7 +571,7 @@ com_write_sparam(wordlist *wl)
Rbaseval = Rbasevec->v_realdata[0];
} else {
fprintf(stderr, "Error: No Rbase vector given\n");
return;
goto done;
}
/* Now we have to write them out plot by plot. */
@ -654,6 +657,9 @@ com_write_sparam(wordlist *wl)
/* If there are more plots we want them appended... */
appendwrite = TRUE;
}
done:
free_pnode(names);
}
@ -711,7 +717,7 @@ com_cross(wordlist *wl)
names = ft_getpnames(wl, TRUE);
for (pn = names; pn; pn = pn->pn_next) {
if ((n = ft_evaluate(pn)) == NULL)
return;
goto done;
if (!vecs)
vecs = lv = n;
@ -762,6 +768,9 @@ com_cross(wordlist *wl)
vec_new(v);
v->v_flags |= VF_PERMANENT;
cp_addkword(CT_VECTOR, v->v_name);
done:
free_pnode(names);
}