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

nupa_assignment(), fix lvalues

This commit is contained in:
rlar 2017-11-18 15:27:00 +01:00
parent 8300021c7a
commit ba2c95243f
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1420,7 +1420,7 @@ nupa_assignment(dico_t *dico, const char * const s, char mode)
{
/* s has the format: ident = expression; ident= expression ... */
int ls;
const char *p;
const char *p = s;
bool error, err;
nupa_type dtype;
int wval = 0;
@ -1433,21 +1433,20 @@ nupa_assignment(dico_t *dico, const char * const s, char mode)
spice_dstring_init(&ustr);
ls = (int) strlen(s);
error = 0;
(p - s) = 0;
while (((p - s) < ls) && (s[(p - s)] <= ' '))
(p - s)++;
p++;
if (s[(p - s)] == Intro)
(p - s)++;
p++;
if (s[(p - s)] == '.') /* skip any dot keyword */
while (s[(p - s)] > ' ')
(p - s)++;
p++;
while (((p - s) < ls) && !error) {
(p - s) = (int) (getword(s + (p - s), &tstr) + 1 - s);
p = getword(s + (p - s), &tstr) + 1;
t_p = spice_dstring_value(&tstr);
if (t_p[0] == '\0')
error = message(dico, " Identifier expected\n");
@ -1455,14 +1454,14 @@ nupa_assignment(dico_t *dico, const char * const s, char mode)
if (!error) {
/* assignment expressions */
while (((p - s) <= ls) && (s[(p - s) - 1] != '='))
(p - s)++;
p++;
if ((p - s) > ls)
error = message(dico, " = sign expected.\n");
const char *tmp = s + (p - s);
tmp = getexpress(&dtype, &ustr, tmp) + 1;
(p - s) = (int) (tmp - s);
p = tmp;
if (dtype == NUPA_REAL) {
const char *tmp = spice_dstring_value(&ustr);
@ -1483,7 +1482,7 @@ nupa_assignment(dico_t *dico, const char * const s, char mode)
if (((p - s) < ls) && (s[(p - s) - 1] != ';'))
error = message(dico, " ; sign expected.\n");
/* else
(p - s)++; */
p++; */
}
spice_dstring_free(&tstr);