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

defsubckt(), fix lvalue

This commit is contained in:
rlar 2016-05-08 18:47:59 +02:00
parent 6d285d927a
commit 1a44e4fb42
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

@ -515,16 +515,16 @@ defsubckt(dico_t *dico, struct card *card, nupa_type categ)
const char * const ls_ptr = s + strlen(s); const char * const ls_ptr = s + strlen(s);
const char *i_ptr; const char *i_ptr;
(i_ptr - s) = 0; i_ptr = s;
while (((i_ptr - s) < (ls_ptr - s)) && (s[(i_ptr - s)] != '.')) while (((i_ptr - s) < (ls_ptr - s)) && (s[(i_ptr - s)] != '.'))
(i_ptr - s)++; /* skip 1st dotword */ i_ptr++; /* skip 1st dotword */
while (((i_ptr - s) < (ls_ptr - s)) && (s[(i_ptr - s)] > ' ')) while (((i_ptr - s) < (ls_ptr - s)) && (s[(i_ptr - s)] > ' '))
(i_ptr - s)++; i_ptr++;
while (((i_ptr - s) < (ls_ptr - s)) && (s[(i_ptr - s)] <= ' ')) while (((i_ptr - s) < (ls_ptr - s)) && (s[(i_ptr - s)] <= ' '))
(i_ptr - s)++; /* skip blank */ i_ptr++; /* skip blank */
j = (int) (i_ptr - s); j = (int) (i_ptr - s);