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) |