Browse Source

nupa_subcktcall(), split personality of `k'

pre-master-46
rlar 10 years ago
parent
commit
d991296b82
  1. 6
      src/frontend/numparam/xpressn.c

6
src/frontend/numparam/xpressn.c

@ -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));
}

Loading…
Cancel
Save