nupa_subcktcall(), simplify
This commit is contained in:
parent
1298eacdb2
commit
e4a2106cfe
|
|
@ -1658,11 +1658,10 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name)
|
||||||
char * const idlist_p = spice_dstring_value(&idlist);
|
char * const idlist_p = spice_dstring_value(&idlist);
|
||||||
char *dollar = strchr(idlist_p, '$');
|
char *dollar = strchr(idlist_p, '$');
|
||||||
if (dollar) {
|
if (dollar) {
|
||||||
int kk = (int) (dollar - idlist_p);
|
|
||||||
/* replace dollar with expression string u */
|
/* replace dollar with expression string u */
|
||||||
pscopy(&vstr, idlist_p, 0, kk);
|
pscopy(&vstr, idlist_p, 0, (int) (dollar - idlist_p));
|
||||||
sadd(&vstr, spice_dstring_value(&ustr));
|
sadd(&vstr, spice_dstring_value(&ustr));
|
||||||
sadd(&vstr, idlist_p + kk + 1);
|
sadd(&vstr, dollar + 1);
|
||||||
scopyd(&idlist, &vstr);
|
scopyd(&idlist, &vstr);
|
||||||
}
|
}
|
||||||
narg++;
|
narg++;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue