| 685 |
|
{ |
| 686 |
|
#ifdef VARIABLE |
| 687 |
|
register EPNODE *ep1; |
| 688 |
– |
|
| 688 |
|
#ifdef FUNCTION |
| 689 |
+ |
LIBR *lp; |
| 690 |
+ |
|
| 691 |
|
if (ep->type == FUNC) { |
| 692 |
|
if (ep->v.kid->type != VAR) |
| 693 |
|
return(0); |
| 695 |
|
if (ep1 != NULL && ep1->type != ':') |
| 696 |
|
return(0); |
| 697 |
|
if ((ep1 == NULL || ep1->v.kid->type != FUNC) |
| 698 |
< |
&& liblookup(ep->v.kid->v.ln->name) == NULL) |
| 698 |
> |
&& ((lp = liblookup(ep->v.kid->v.ln->name)) == NULL |
| 699 |
> |
|| lp->atyp != ':')) |
| 700 |
|
return(0); |
| 701 |
|
for (ep1 = ep->v.kid->sibling; ep1 != NULL; ep1 = ep1->sibling) |
| 702 |
|
if (ep1->type != NUM) |
