* inpeval.c: Bugfix for subcircuits contributed by Michael

Widlok.
This commit is contained in:
arno 2000-10-12 21:39:18 +00:00
parent f237c66aee
commit 526313390b
2 changed files with 10 additions and 3 deletions

View File

@ -1,3 +1,8 @@
2000-10-12 Arno W. Peters <A.W.Peters@ieee.org>
* inpeval.c: Bugfix for subcircuits contributed by Michael
Widlok.
2000-09-09 Arno W. Peters <A.W.Peters@ieee.org>
* inp2dot.c: Removed unused static functions dot_ic and

View File

@ -24,9 +24,11 @@ double INPevaluate(char **line, int *error, int gobble)
/* setup */
tmpline = *line;
if (gobble) {
*error = INPgetUTok(line, &token, 1);
if (*error)
return ((double) 0.0);
/* MW. INPgetUTok should be called with gobble=0 or it make
* errors in v(1,2) exp */
*error = INPgetUTok(line, &token, 0);
if (*error)
return ((double) 0.0);
} else {
token = *line;
*error = 0;