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

getword(), fix lvalues

This commit is contained in:
rlar 2016-05-06 19:40:08 +02:00
parent 51dc7037d3
commit d5893cd1cb
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

@ -1321,20 +1321,20 @@ getword(const char * const s, SPICE_DSTRINGPTR tstr_p, const char **pi)
/* isolate a word from s after position "after". return i= last read+1 */
{
const char *iptr;
(iptr - s) = (int) (*pi - s);
iptr = *pi;
int ls;
ls = (int) strlen(s);
do
(iptr - s)++;
iptr++;
while (((iptr - s) < ls) && !alfa(s[(iptr - s) - 1]));
spice_dstring_reinit(tstr_p);
while (((iptr - s) <= ls) && (alfa(s[(iptr - s) - 1]) || isdigit_c(s[(iptr - s) - 1]))) {
cadd(tstr_p, toupper_c(s[(iptr - s) - 1]));
(iptr - s)++;
iptr++;
}
*pi = s + (iptr - s);