680 |
|
} |
681 |
|
|
682 |
|
|
683 |
< |
isconstvar(ep) /* is ep linked to a constant? */ |
683 |
> |
isconstvar(ep) /* is ep linked to a constant expression? */ |
684 |
|
register EPNODE *ep; |
685 |
|
{ |
686 |
|
#ifdef VARIABLE |
687 |
|
register EPNODE *ep1; |
688 |
|
#ifdef FUNCTION |
689 |
– |
LIBR *lp; |
689 |
|
|
690 |
|
if (ep->type == FUNC) { |
691 |
< |
if (ep->v.kid->type != VAR) |
692 |
< |
return(0); |
694 |
< |
ep1 = ep->v.kid->v.ln->def; |
695 |
< |
if (ep1 != NULL && ep1->type != ':') |
696 |
< |
return(0); |
697 |
< |
if ((ep1 == NULL || ep1->v.kid->type != FUNC) |
698 |
< |
&& ((lp = liblookup(ep->v.kid->v.ln->name)) == NULL |
699 |
< |
|| lp->atyp != ':')) |
700 |
< |
return(0); |
691 |
> |
if (!isconstfun(ep->v.kid)) |
692 |
> |
return(0); |
693 |
|
for (ep1 = ep->v.kid->sibling; ep1 != NULL; ep1 = ep1->sibling) |
694 |
< |
if (ep1->type != NUM) |
694 |
> |
if (ep1->type != NUM && !isconstfun(ep1)) |
695 |
|
return(0); |
696 |
|
return(1); |
697 |
|
} |
710 |
|
return(ep->type == FUNC); |
711 |
|
#endif |
712 |
|
} |
713 |
+ |
|
714 |
+ |
|
715 |
+ |
#if defined(FUNCTION) && defined(VARIABLE) |
716 |
+ |
isconstfun(ep) /* is ep linked to a constant function? */ |
717 |
+ |
register EPNODE *ep; |
718 |
+ |
{ |
719 |
+ |
register EPNODE *dp; |
720 |
+ |
register LIBR *lp; |
721 |
+ |
|
722 |
+ |
if (ep->type != VAR) |
723 |
+ |
return(0); |
724 |
+ |
dp = ep->v.ln->def; |
725 |
+ |
if (dp != NULL && dp->type != ':') |
726 |
+ |
return(0); |
727 |
+ |
if ((dp == NULL || dp->v.kid->type != FUNC) |
728 |
+ |
&& ((lp = liblookup(ep->v.ln->name)) == NULL |
729 |
+ |
|| lp->atyp != ':')) |
730 |
+ |
return(0); |
731 |
+ |
return(1); |
732 |
+ |
} |
733 |
+ |
#endif |
734 |
|
#endif |