|
|
|
@ -1657,11 +1657,11 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name) |
|
|
|
if (u_p[0]) { |
|
|
|
char *dollar = strchr(spice_dstring_value(&idlist), '$'); |
|
|
|
if (dollar) { |
|
|
|
k = (int) (dollar - spice_dstring_value(&idlist)); |
|
|
|
int kk = (int) (dollar - spice_dstring_value(&idlist)); |
|
|
|
/* replace dollar with expression string u */ |
|
|
|
pscopy(&vstr, spice_dstring_value(&idlist), 0, k); |
|
|
|
pscopy(&vstr, spice_dstring_value(&idlist), 0, kk); |
|
|
|
sadd(&vstr, spice_dstring_value(&ustr)); |
|
|
|
pscopy(&ustr, spice_dstring_value(&idlist), k+1, spice_dstring_length(&idlist)); |
|
|
|
pscopy(&ustr, spice_dstring_value(&idlist), kk+1, spice_dstring_length(&idlist)); |
|
|
|
scopyd(&idlist, &vstr); |
|
|
|
sadd(&idlist, spice_dstring_value(&ustr)); |
|
|
|
} |
|
|
|
|