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

doit, shrink scope of `lc' and `last'

This commit is contained in:
rlar 2012-03-08 20:21:50 +01:00
parent a78251d5da
commit 1ea5561a18
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/frontend/subckt.c
View File

@ -396,7 +396,7 @@ inp_subcktexpand(struct line *deck) {
/*-------------------------------------------------------------------*/
static struct line *
doit(struct line *deck) {
struct line *c, *last, *lc, *lcc;
struct line *c, *lcc;
struct subs *sssfree = NULL, *sss = NULL; /* *sss temporarily hold decks to substitute */
char *s, *t;
int nest, numpasses = MAXNEST, i;
@ -416,6 +416,9 @@ doit(struct line *deck) {
for(c=deck; c; c=c->li_next)
printf(" %s\n",c->li_line);
#endif
{
struct line *last, *lc;
/* First pass: xtract all the .subckts and stick pointers to them into sss. */
for (last = deck, lc = NULL; last; ) {
@ -502,6 +505,7 @@ doit(struct line *deck) {
last = last->li_next;
}
} /* for (last = deck . . . . */
}
/* At this point, sss holds the .subckt definition found, subs holds
@ -533,6 +537,7 @@ doit(struct line *deck) {
error = 0;
/* Second pass: do the replacements. */
do { /* while (!error && numpasses-- && gotone) */
struct line *lc;
gotone = FALSE;
for (c = deck, lc = NULL; c; ) {
if (ciprefix(invoke, c->li_line)) { /* found reference to .subckt (i.e. component with refdes X) */