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

fix: variable sets were handled wrong

Browse Source
This commit is contained in:
ceriel
1987-08-03 18:20:55 +00:00
parent f5f47f26fc
commit cd8d48a0e9
2 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lang/m2/comp/chk_expr.c
View File

@@ -425,11 +425,12 @@ ChkSet(expp)
register struct def *df;
unsigned size;
int retval = 1;
int SetIsConstant = 1;
assert(expp->nd_symb == SET);
expp->nd_class = Set;
expp->nd_type = error_type;
expp->nd_class = Set;
/* First determine the type of the set
*/
@@ -472,10 +473,11 @@ ChkSet(expp)
expp->nd_set)) {
retval = 0;
}
if (nd->nd_left) SetIsConstant = 0;
nd = nd->nd_right;
}
if (expp->nd_class == Set) {
if (SetIsConstant) {
FreeNode(expp->nd_right);
expp->nd_right = 0;
}