185 |
|
#endif |
186 |
|
|
187 |
|
|
188 |
< |
dcleanup(lvl) /* clear definitions (0->vars,1->consts,2->output) */ |
188 |
> |
dcleanup(lvl) /* clear definitions (0->vars,1->output,2->consts) */ |
189 |
|
int lvl; |
190 |
|
{ |
191 |
|
register int i; |
194 |
|
|
195 |
|
for (i = 0; i < NHASH; i++) |
196 |
|
for (vp = hashtbl[i]; vp != NULL; vp = vp->next) |
197 |
< |
if (lvl >= 1) |
197 |
> |
if (lvl >= 2) |
198 |
|
dremove(vp->name); |
199 |
|
else |
200 |
|
dclear(vp->name); |
201 |
|
#ifdef OUTCHAN |
202 |
< |
if (lvl >= 2) { |
202 |
> |
if (lvl >= 1) { |
203 |
|
for (ep = outchan; ep != NULL; ep = ep->sibling) |
204 |
|
epfree(ep); |
205 |
|
outchan = NULL; |