| 136 |
|
case VAR: |
| 137 |
|
varfree(epar->v.ln); |
| 138 |
|
break; |
| 139 |
– |
#endif |
| 139 |
|
|
| 140 |
|
case SYM: |
| 141 |
|
freestr(epar->v.name); |
| 142 |
|
break; |
| 143 |
+ |
#endif |
| 144 |
|
|
| 145 |
|
case NUM: |
| 146 |
|
case CHAN: |
| 437 |
|
} |
| 438 |
|
|
| 439 |
|
|
| 440 |
+ |
#if defined(VARIABLE) || defined(FUNCTION) |
| 441 |
|
char * |
| 442 |
|
getname() /* scan an identifier */ |
| 443 |
|
{ |
| 453 |
|
|
| 454 |
|
return(str); |
| 455 |
|
} |
| 456 |
+ |
#endif |
| 457 |
|
|
| 458 |
|
|
| 459 |
|
int |
| 757 |
|
return(0); |
| 758 |
|
if ((dp = ep->v.ln->def) != NULL && dp->v.kid->type == FUNC) |
| 759 |
|
return(dp->type == ':'); |
| 760 |
< |
if ((lp = liblookup(ep->v.ln->name)) != NULL) |
| 760 |
> |
if ((lp = ep->v.ln->lib) != NULL) |
| 761 |
|
return(lp->atyp == ':'); |
| 762 |
|
return(0); |
| 763 |
|
} |