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

getexpress(), fix lvalues

This commit is contained in:
rlar 2017-11-18 12:00:23 +01:00
parent dc8eb2b956
commit a47348526c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1349,14 +1349,14 @@ getexpress(const char * const s, SPICE_DSTRINGPTR tstr_p, const char **pi)
nupa_type tpe;
ls_ptr = s + strlen(s);
(ia_ptr - s) = (int) (iptr - s) + 1;
ia_ptr = s + (iptr - s) + 1;
while (((ia_ptr - s) < (ls_ptr - s)) && (s[(ia_ptr - s) - 1] <= ' '))
(ia_ptr - s)++; /*white space ? */
ia_ptr++; /*white space ? */
if (s[(ia_ptr - s) - 1] == '"') {
/* string constant */
(ia_ptr - s)++;
ia_ptr++;
iptr = (ia_ptr - s) + s;
while (((iptr - s) < (ls_ptr - s)) && (s[(iptr - s) - 1] != '"'))
@ -1371,7 +1371,7 @@ getexpress(const char * const s, SPICE_DSTRINGPTR tstr_p, const char **pi)
} else {
if (s[(ia_ptr - s) - 1] == '{')
(ia_ptr - s)++;
ia_ptr++;
iptr = (ia_ptr - s) - 1 + s;