| 1 |
< |
/* Copyright (c) 1986 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1991 Regents of the University of California */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
| 185 |
|
#endif |
| 186 |
|
|
| 187 |
|
|
| 188 |
< |
dclearall() /* clear all definitions */ |
| 188 |
> |
dcleanup(cons, ochans) /* clear definitions */ |
| 189 |
> |
int cons, ochans; |
| 190 |
|
{ |
| 191 |
|
register int i; |
| 192 |
|
register VARDEF *vp; |
| 194 |
|
|
| 195 |
|
for (i = 0; i < NHASH; i++) |
| 196 |
|
for (vp = hashtbl[i]; vp != NULL; vp = vp->next) |
| 197 |
< |
dremove(vp->name); |
| 197 |
> |
if (cons) |
| 198 |
> |
dremove(vp->name); |
| 199 |
> |
else |
| 200 |
> |
dclear(vp->name); |
| 201 |
|
#ifdef OUTCHAN |
| 202 |
< |
for (ep = outchan; ep != NULL; ep = ep->sibling) |
| 203 |
< |
epfree(ep); |
| 204 |
< |
outchan = NULL; |
| 202 |
> |
if (ochans) { |
| 203 |
> |
for (ep = outchan; ep != NULL; ep = ep->sibling) |
| 204 |
> |
epfree(ep); |
| 205 |
> |
outchan = NULL; |
| 206 |
> |
} |
| 207 |
|
#endif |
| 208 |
|
} |
| 209 |
|
|
