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

frontend/device.c, com_alter_common(), #4/4 rename and reuse locals

This commit is contained in:
rlar 2015-12-28 12:48:40 +01:00
parent dcef3da677
commit 3ab568fcba
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/frontend/device.c
View File

@ -1122,7 +1122,7 @@ com_alter_common(wordlist *wl, int do_model)
struct pnode *names;
/* DIE 2009_02_06 */
int step = 0, n, wlen, maxelem = 3;
int step = 0, i, wlen, maxelem = 3;
wordlist *wl2 = NULL, *wlin, *rhs;
bool eqfound = FALSE;
@ -1183,7 +1183,7 @@ com_alter_common(wordlist *wl, int do_model)
if (eqfound) {
/* step back in the wordlist, if we have moved forward, to catch 'm1' */
for (n = step; n > 0; n--)
for (i = step; i > 0; i--)
wl2 = wl2->wl_prev;
} else {
/* no equal sign found, probably a pre3f4 input format
@ -1199,7 +1199,7 @@ com_alter_common(wordlist *wl, int do_model)
wlin = wl_nthelem(100, wlin); /* no more than 100 vector elements */
if (eq(wlin->wl_word, "]")) /* we have a vector */
for (n = 0; n < 100; n++) { /* no more than 100 vector elements */
for (i = 0; i < 100; i++) { /* no more than 100 vector elements */
wlin = wlin->wl_prev;
maxelem++;
if (eq(wlin->wl_word, "[")) {
@ -1293,7 +1293,6 @@ com_alter_common(wordlist *wl, int do_model)
alter @vin[pulse] = [ 0 5 10n 10n 10n 50n 100n ]
*/
char *xsbuf, *rem_xsbuf;
int i = 0;
double *list;
double tmp;
@ -1304,8 +1303,7 @@ com_alter_common(wordlist *wl, int do_model)
xsbuf = rem_xsbuf = wl_flatten(words);
/* fprintf(cp_err, "Chain converted %s \n", xsbuf); */
list = NULL;
for (;;) {
for (i = 0, list = NULL;;) {
tmp = INPevaluate(&xsbuf, &error, 1);
if (error)
break;