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

define.c, cleanup

This commit is contained in:
rlar 2012-09-13 21:21:46 +02:00
parent b68259ff2d
commit 6a3c20706a
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/frontend/define.c
View File

@ -210,9 +210,10 @@ prdefs(char *name)
for (udf = udfuncs; udf; udf = udf->ud_next)
if (eq(name, udf->ud_name))
prtree(udf);
} else
} else {
for (udf = udfuncs; udf; udf = udf->ud_next)
prtree(udf);
}
}
@ -264,8 +265,9 @@ prtree1(struct pnode *pn, FILE *fp)
fprintf(fp, "%s(", pn->pn_op->op_name);
prtree1(pn->pn_left, fp);
fputs(")", fp);
} else
} else {
fputs("<something strange>", fp);
}
}
@ -351,8 +353,9 @@ trcopy(struct pnode *tree, char *args, struct pnode *nn)
return (ntharg(i, nn));
else
return (tree);
} else
} else {
return (tree);
}
} else if (tree->pn_func) {
@ -382,8 +385,9 @@ trcopy(struct pnode *tree, char *args, struct pnode *nn)
if (pn->pn_op->op_arity == 2) {
pn->pn_right = trcopy(tree->pn_right, args, nn);
pn->pn_right->pn_use++;
} else
} else {
pn->pn_right = NULL;
}
pn->pn_next = NULL;
} else {
@ -441,7 +445,7 @@ com_undefine(wordlist *wlist)
return;
}
while (wlist) {
for (; wlist; wlist = wlist->wl_next) {
ludf = NULL;
for (udf = udfuncs; udf; udf = udf->ud_next) {
if (eq(wlist->wl_word, udf->ud_name)) {
@ -450,10 +454,10 @@ com_undefine(wordlist *wlist)
else
udfuncs = udf->ud_next;
cp_remkword(CT_UDFUNCS, wlist->wl_word);
} else
} else {
ludf = udf;
}
}
wlist = wlist->wl_next;
}
}