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

com_spec(), use for(;;) loops

This commit is contained in:
rlar 2012-09-30 21:57:22 +02:00
parent 5102735df9
commit 5a58281e7b
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/frontend/spec.c
View File

@ -166,36 +166,34 @@ com_spec(wordlist *wl)
}
}
pn = ft_getpnames(wl, TRUE);
names = pn;
names = ft_getpnames(wl, TRUE);
vlist = NULL;
ngood = 0;
while (pn) {
for (pn = names; pn; pn = pn->pn_next) {
vec = ft_evaluate(pn);
pn = pn->pn_next;
while (vec) {
for (; vec; vec = vec->v_link2) {
if (vec->v_length != tlen) {
fprintf(cp_err, "Error: lengths don't match: %d, %d\n",
vec->v_length, tlen);
vec = vec->v_link2;
continue;
}
if (!isreal(vec)) {
fprintf(cp_err, "Error: %s isn't real!\n",
vec->v_name);
vec = vec->v_link2;
fprintf(cp_err, "Error: %s isn't real!\n", vec->v_name);
continue;
}
if (vec->v_type == SV_TIME) {
vec = vec->v_link2;
continue;
}
if (!vlist)
vlist = vec;
else
lv->v_link2 = vec;
lv = vec;
vec = vec->v_link2;
ngood++;
}
}