| 59 |
|
static EPNODE *outchan; |
| 60 |
|
|
| 61 |
|
EPNODE *curfunc = NULL; |
| 62 |
– |
#define dname(ep) ((ep)->v.kid->type == SYM ? \ |
| 63 |
– |
(ep)->v.kid->v.name : \ |
| 64 |
– |
(ep)->v.kid->v.kid->v.name) |
| 62 |
|
|
| 63 |
|
|
| 64 |
|
void |
| 292 |
|
static char nambuf[RMAXWORD+1]; |
| 293 |
|
char *cp = nambuf, *cpp; |
| 294 |
|
/* check for explicit local */ |
| 295 |
< |
if (*nam == CNTXMARK) |
| 295 |
> |
if (*nam == CNTXMARK) { |
| 296 |
|
if (lvl > 0) /* only action is to refuse search */ |
| 297 |
|
return(NULL); |
| 298 |
< |
else |
| 299 |
< |
nam++; |
| 303 |
< |
else if (nam == nambuf) /* check for repeat call */ |
| 298 |
> |
nam++; |
| 299 |
> |
} else if (nam == nambuf) /* check for repeat call */ |
| 300 |
|
return(lvl > 0 ? NULL : nam); |
| 301 |
|
/* copy name to static buffer */ |
| 302 |
|
while (*nam) { |
| 590 |
|
addchan(ep); |
| 591 |
|
} else { /* ordinary definition */ |
| 592 |
|
ep = getdefn(); |
| 593 |
< |
qname = qualname(dname(ep), 0); |
| 593 |
> |
qname = qualname(dfn_name(ep), 0); |
| 594 |
|
if (esupport&E_REDEFW && (vdef = varlookup(qname)) != NULL) { |
| 595 |
|
if (vdef->def != NULL && epcmp(ep, vdef->def)) { |
| 596 |
|
wputs(qname); |
