godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Delinted a bit

Browse Source
This commit is contained in:
ceriel
1991-04-25 16:47:47 +00:00
parent 831b8ab578
commit fa89b0f280
4 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lang/m2/comp/walk.c
View File

@@ -901,10 +901,12 @@ DoForInit(nd)
register t_def *df;
t_type *base_tp;
t_type *tpl, *tpr;
int r;
if (!( ChkVariable(&(nd->nd_LEFT), D_USED|D_DEFINED) &
ChkExpression(&(right->nd_LEFT)) &
ChkExpression(&(right->nd_RIGHT)))) return 0;
r = ChkVariable(&(nd->nd_LEFT), D_USED|D_DEFINED);
r &= ChkExpression(&(right->nd_LEFT));
r &= ChkExpression(&(right->nd_RIGHT));
if (!r) return 0;
df = nd->nd_LEFT->nd_def;
if (df->df_kind == D_FIELD) {