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

frontend/define.c, com_undefine(), rename `ludf' --> `prev_udf'

This commit is contained in:
rlar 2015-11-11 21:05:04 +01:00
parent 3be8335224
commit 15f0f5f22f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/frontend/define.c
View File

@ -409,7 +409,7 @@ ntharg(int num, struct pnode *args)
void void
com_undefine(wordlist *wlist) com_undefine(wordlist *wlist)
{ {
struct udfunc *udf, *ludf; struct udfunc *udf;
if (!wlist) if (!wlist)
return; return;
@ -428,12 +428,12 @@ com_undefine(wordlist *wlist)
} }
for (; wlist; wlist = wlist->wl_next) { for (; wlist; wlist = wlist->wl_next) {
ludf = NULL; struct udfunc *prev_udf = NULL;
for (udf = udfuncs; udf;) { for (udf = udfuncs; udf;) {
struct udfunc *next = udf->ud_next; struct udfunc *next = udf->ud_next;
if (eq(wlist->wl_word, udf->ud_name)) { if (eq(wlist->wl_word, udf->ud_name)) {
if (ludf) if (prev_udf)
ludf->ud_next = udf->ud_next; prev_udf->ud_next = udf->ud_next;
else else
udfuncs = udf->ud_next; udfuncs = udf->ud_next;
cp_remkword(CT_UDFUNCS, wlist->wl_word); cp_remkword(CT_UDFUNCS, wlist->wl_word);
@ -441,7 +441,7 @@ com_undefine(wordlist *wlist)
free(udf->ud_name); free(udf->ud_name);
free(udf); free(udf);
} else { } else {
ludf = udf; prev_udf = udf;
} }
udf = next; udf = next;
} }