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

more modifications due to lint

Browse Source
This commit is contained in:
dick
1988-08-23 12:45:11 +00:00
parent 9b082e6d5a
commit 78599e150a
15 changed files with 60 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lang/cem/cemcom/code.c
View File

@@ -460,14 +460,16 @@ loc_init(expr, id)
}
}
else { /* not embraced */
struct value vl;
ch7cast(&expr, '=', tp); /* may modify expr */
EVAL(expr, RVAL, TRUE, NO_LABEL, NO_LABEL);
vl.vl_class = Name;
vl.vl_data.vl_idf = id;
vl.vl_value = (arith)0;
store_val(&vl, tp);
{
struct value vl;
EVAL(expr, RVAL, TRUE, NO_LABEL, NO_LABEL);
vl.vl_class = Name;
vl.vl_data.vl_idf = id;
vl.vl_value = (arith)0;
store_val(&vl, tp);
}
free_expression(expr);
}
}