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

numparm, cleanup, (())

This commit is contained in:
rlar 2011-02-19 15:06:13 +00:00
parent 49b7e340d5
commit 18352e827d
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2011-02-19 Robert Larice
* src/frontend/numparam/xpressn.c :
numparm, cleanup, (())
2011-02-19 Robert Larice
* src/frontend/numparam/xpressn.c :
numparm, cleanup, {}

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

@ -547,7 +547,7 @@ defsubckt (tdico * dico, char *s, int w, char categ)
while ((j < ls) && (s[j] > ' '))
j++;
if ((j > i))
if (j > i)
{
SPICE_DSTRING ustr ; /* temp user string */
spice_dstring_init(&ustr) ;
@ -585,7 +585,7 @@ findsubckt (tdico * dico, char *s, SPICE_DSTRINGPTR subname)
pscopy_up ( &ustr, s, k + 1, j - k) ;
entry_p = entrynb (dico, spice_dstring_value(&ustr) ) ;
if ((entry_p) && ( entry_p->tp == 'U'))
if (entry_p && (entry_p->tp == 'U'))
{
line = entry_p->ivl;
scopyd ( subname, &ustr ) ;
@ -1303,7 +1303,7 @@ formula (tdico * dico, char *s, bool *perror)
if (level > topop)
topop = level;
}
if ((state > 0))
if (state > 0)
oldstate = state;
} /* while */ ;
@ -1381,7 +1381,7 @@ evaluate (tdico * dico, SPICE_DSTRINGPTR qstr_p, char *t, unsigned char mode)
stupcase (t);
entry_p = entrynb (dico, t);
nolookup = !entry_p;
while ((entry_p) && (entry_p->tp == 'P'))
while (entry_p && (entry_p->tp == 'P'))
entry_p = entry_p->pointer ; /* follow pointer chain */
/* pointer chain */
@ -2211,7 +2211,7 @@ nupa_subcktcall (tdico * dico, char *s, char *x, bool err)
/* try to fetch valid arguments */
k = j;
spice_dstring_reinit(&ustr) ;
if ((t_p[k] == Intro))
if (t_p[k] == Intro)
{
/* handle historical syntax... */
if (alfa (t_p[k + 1]))