luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

getexpress(), return one less

This commit is contained in:
rlar 2017-11-18 12:50:09 +01:00
parent 33b8936a3b
commit 830b5faf0e
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

@ -1406,7 +1406,7 @@ getexpress(nupa_type *type, SPICE_DSTRINGPTR tstr_p, const char *s)
if (type)
*type = tpe;
return (char *) p + 1;
return (char *) p;
}
@ -1460,7 +1460,7 @@ nupa_assignment(dico_t *dico, char *s, char mode)
error = message(dico, " = sign expected.\n");
const char *tmp = s + i;
tmp = getexpress(&dtype, &ustr, tmp);
tmp = getexpress(&dtype, &ustr, tmp) + 1;
i = (int) (tmp - s);
if (dtype == NUPA_REAL) {
@ -1669,7 +1669,7 @@ nupa_subcktcall(dico_t *dico, char *s, char *x, char *inst_name)
} else if (t_p[k] == '{') {
char *aux = spice_dstring_value(&tstr);
const char *tmp = aux + j;
tmp = getexpress(NULL, &ustr, tmp);
tmp = getexpress(NULL, &ustr, tmp) + 1;
j = (int) (tmp - aux);
j--; /* confusion: j was in Turbo Pascal convention */
} else {