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(), fix lvalue

This commit is contained in:
rlar 2016-05-16 11:45:51 +02:00
parent cc932725ac
commit 47f1e7b1fa
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1610,17 +1610,17 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name)
while ((jp - t_p) < ls) {
/* try to fetch valid arguments */
int (kp - t_p) = (int) (jp - t_p);
char *kp = t_p + (int) (jp - t_p);
spice_dstring_reinit(&ustr);
if (t_p[(kp - t_p)] == Intro) {
/* handle historical syntax... */
if (alfa(t_p[(kp - t_p) + 1])) {
(kp - t_p)++;
kp++;
} else if (t_p[(kp - t_p) + 1] == '(') {
/* transform to braces... */
(kp - t_p)++;
kp++;
t_p[(kp - t_p)] = '{';
int g = (int) (kp - t_p);
int nest = 1;
@ -1642,7 +1642,7 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name)
/* number, identifier */
int h = (int) (kp - t_p);
while (t_p[(kp - t_p)] > ' ')
(kp - t_p)++;
kp++;
pscopy(&ustr, t_p, h, (int) (kp - t_p) - h);
jp = t_p + (kp - t_p);
} else if (t_p[(kp - t_p)] == '{') {