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

evaluate switch-expression on a different spot,

Browse Source 
allow for *STRING expressions
This commit is contained in:
ceriel
1989-01-23 15:37:57 +00:00
parent 14ca6ec8e2
commit dee27422e1
4 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lang/cem/cemcom/eval.c
View File

@@ -198,8 +198,12 @@ EVAL(expr, val, code, true_label, false_label)
}
break;
case '*':
if (left == 0) /* unary */
if (left == 0) { /* unary */
EVAL(right, RVAL, gencode, NO_LABEL, NO_LABEL);
if (gencode && right->ex_class == String) {
C_loi((arith)1);
}
}
else { /* binary */
EVAL(left, RVAL, gencode, NO_LABEL, NO_LABEL);
EVAL(right, RVAL, gencode, NO_LABEL, NO_LABEL);