epilectrik
/
pyNgSpice
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

nupa_subcktcall(), fix lvalue

pre-master-46
rlar 10 years ago
parent
cc932725ac
commit
47f1e7b1fa
1 changed files with 4 additions and 4 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 8
      src/frontend/numparam/xpressn.c

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

Write Preview
Loading…
Cancel
Save