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 2011-02-19 Robert Larice
* src/frontend/numparam/xpressn.c : * src/frontend/numparam/xpressn.c :
numparm, cleanup, {} 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] > ' ')) while ((j < ls) && (s[j] > ' '))
j++; j++;
if ((j > i)) if (j > i)
{ {
SPICE_DSTRING ustr ; /* temp user string */ SPICE_DSTRING ustr ; /* temp user string */
spice_dstring_init(&ustr) ; spice_dstring_init(&ustr) ;
@ -585,7 +585,7 @@ findsubckt (tdico * dico, char *s, SPICE_DSTRINGPTR subname)
pscopy_up ( &ustr, s, k + 1, j - k) ; pscopy_up ( &ustr, s, k + 1, j - k) ;
entry_p = entrynb (dico, spice_dstring_value(&ustr) ) ; 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; line = entry_p->ivl;
scopyd ( subname, &ustr ) ; scopyd ( subname, &ustr ) ;
@ -1303,7 +1303,7 @@ formula (tdico * dico, char *s, bool *perror)
if (level > topop) if (level > topop)
topop = level; topop = level;
} }
if ((state > 0)) if (state > 0)
oldstate = state; oldstate = state;
} /* while */ ; } /* while */ ;
@ -1381,7 +1381,7 @@ evaluate (tdico * dico, SPICE_DSTRINGPTR qstr_p, char *t, unsigned char mode)
stupcase (t); stupcase (t);
entry_p = entrynb (dico, t); entry_p = entrynb (dico, t);
nolookup = !entry_p; 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 */ entry_p = entry_p->pointer ; /* follow pointer chain */
/* pointer chain */ /* pointer chain */
@ -2211,7 +2211,7 @@ nupa_subcktcall (tdico * dico, char *s, char *x, bool err)
/* try to fetch valid arguments */ /* try to fetch valid arguments */
k = j; k = j;
spice_dstring_reinit(&ustr) ; spice_dstring_reinit(&ustr) ;
if ((t_p[k] == Intro)) if (t_p[k] == Intro)
{ {
/* handle historical syntax... */ /* handle historical syntax... */
if (alfa (t_p[k + 1])) if (alfa (t_p[k + 1]))