version 1.11, 1995/10/02 17:37:02 |
version 1.12, 1995/10/02 17:37:57 |
Line 3261 parg(n, tp, tn) |
|
Line 3261 parg(n, tp, tn) |
|
tnode_t *tn; /* argument */ |
tnode_t *tn; /* argument */ |
{ |
{ |
tnode_t *ln; |
tnode_t *ln; |
|
int warn; |
|
|
ln = xcalloc(1, sizeof (tnode_t)); |
ln = xcalloc(1, sizeof (tnode_t)); |
ln->tn_type = tduptyp(tp); |
ln->tn_type = tduptyp(tp); |
ln->tn_type->t_const = 0; |
ln->tn_type->t_const = 0; |
ln->tn_lvalue = 1; |
ln->tn_lvalue = 1; |
if (typeok(FARG, n, ln, tn)) { |
if (typeok(FARG, n, ln, tn)) { |
if (tp->t_tspec != tn->tn_type->t_tspec) |
if (!eqtype(tp, tn->tn_type, 1, 0, (warn = 0, &warn)) || warn) |
tn = convert(FARG, n, tp, tn); |
tn = convert(FARG, n, tp, tn); |
} |
} |
free(ln); |
free(ln); |