| 604 |
|
/* ARG */ |
| 605 |
|
{ |
| 606 |
|
int i; |
| 607 |
+ |
char *nam; |
| 608 |
|
register EPNODE *ep1, *ep2; |
| 609 |
|
|
| 610 |
|
if (nextc == '(') { |
| 628 |
|
|
| 629 |
|
#if defined(VARIABLE) || defined(FUNCTION) |
| 630 |
|
if (isalpha(nextc)) { |
| 631 |
< |
ep1 = newnode(); |
| 631 |
< |
ep1->type = VAR; |
| 632 |
< |
ep1->v.ln = varinsert(getname()); |
| 633 |
< |
|
| 631 |
> |
nam = getname(); |
| 632 |
|
#if defined(VARIABLE) && defined(FUNCTION) |
| 633 |
+ |
ep1 = NULL; |
| 634 |
|
if (curfunc != NULL) |
| 635 |
|
for (i = 1, ep2 = curfunc->v.kid->sibling; |
| 636 |
|
ep2 != NULL; i++, ep2 = ep2->sibling) |
| 637 |
< |
if (!strcmp(ep2->v.name, ep1->v.ln->name)) { |
| 639 |
< |
epfree(ep1); |
| 637 |
> |
if (!strcmp(ep2->v.name, nam)) { |
| 638 |
|
ep1 = newnode(); |
| 639 |
|
ep1->type = ARG; |
| 640 |
|
ep1->v.chan = i; |
| 641 |
|
break; |
| 642 |
|
} |
| 643 |
+ |
if (ep1 == NULL) |
| 644 |
|
#endif |
| 645 |
+ |
{ |
| 646 |
+ |
ep1 = newnode(); |
| 647 |
+ |
ep1->type = VAR; |
| 648 |
+ |
ep1->v.ln = varinsert(nam); |
| 649 |
+ |
} |
| 650 |
|
#ifdef FUNCTION |
| 651 |
|
if (nextc == '(') { |
| 652 |
|
ep2 = newnode(); |
