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(), split personality of `k'

This commit is contained in:
rlar 2016-05-16 11:47:33 +02:00
parent b9750ee59f
commit d991296b82
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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