| 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; |
| 404 |
|
else if (ep->v.kid->type == FUNC && |
| 405 |
|
liblookup(ep->v.kid->v.kid->v.name) != NULL) { |
| 406 |
|
wputs(ep->v.kid->v.kid->v.name); |
| 407 |
< |
wputs(": redefined library function\n"); |
| 407 |
> |
wputs(": definition hides library function\n"); |
| 408 |
|
} |
| 409 |
|
#endif |
| 410 |
|
#endif |
