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

nupa_subcktcall(), g ==> gp - (const) t_p

This commit is contained in:
rlar 2017-11-17 21:19:43 +01:00
parent 3267bf8d63
commit a773601b84
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/frontend/numparam/xpressn.c
View File

@ -1622,19 +1622,19 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name)
/* transform to braces... */
kp++;
t_p[(kp - t_p)] = '{';
int g = (int) (kp - t_p);
int (gp - t_p) = (int) (kp - t_p);
int nest = 1;
while ((nest > 0) && (g < ls)) {
g++;
if (t_p[g] == '(')
while ((nest > 0) && ((gp - t_p) < ls)) {
(gp - t_p)++;
if (t_p[(gp - t_p)] == '(')
nest++;
else if (t_p[g] == ')')
else if (t_p[(gp - t_p)] == ')')
nest--;
}
if ((g < ls) && (nest == 0))
t_p[g] = '}';
if (((gp - t_p) < ls) && (nest == 0))
t_p[(gp - t_p)] = '}';
}
}