call to nupa_done() to release memory

This commit is contained in:
h_vogt
2009-04-05 18:31:25 +00:00
parent faada68e9d
commit 3f7201376c
3 changed files with 8 additions and 5 deletions
+1 -1
View File
@@ -630,7 +630,7 @@ nupa_copy (char *s, int linenum)
pscopy (u, s, 1, ls); /* strip trailing space, CrLf and so on */
dico->srcline = linenum;
if ((!inexpansion) && (linenum >= 0) && (linenum < dynmaxline))
if ((!inexpansion) && (linenum >= 0) && (linenum <= dynmaxline))
{
linecount++;
dico->dynrefptr[linenum] = s;
+3 -2
View File
@@ -184,7 +184,7 @@ inp_subcktexpand(struct line *deck)
c= c->li_next;
}
c=deck;
while ( c != NULL) { /* first Numparam pass */
while ( c != NULL) { /* first Numparam pass */
c->li_line = nupa_copy(c->li_line, c->li_linenum);
c= c->li_next;
}
@@ -344,9 +344,10 @@ inp_subcktexpand(struct line *deck)
c= c->li_next;
}
#endif /* TRACE */
//ok= ok && nupa_signal(NUPAEVALDONE, NULL);
//nupa_list_params(stdout);
nupa_copy_inst_dico();
ok= ok && nupa_signal(NUPAEVALDONE, NULL);
}
return (ll); /* return the spliced deck. */
}