d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

improvements for the , (comma) operator

Browse source
This commit is contained in:
ceriel 1989-10-23 13:45:19 +00:00
parent 741b43044d
commit 788788edc0
2 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lang/cem/cemcom/arith.c
View file

@ -412,10 +412,17 @@ opnd2test(expp, oper)
register struct expr **expp; register struct expr **expp;
{ {
opnd2logical(expp, oper); opnd2logical(expp, oper);
if ((*expp)->ex_class == Oper && is_test_op((*expp)->OP_OPER)) if ((*expp)->ex_class == Oper) {
{ /* It is already a test */ } if (is_test_op((*expp)->OP_OPER)) {
else /* It is already a test */
ch7bin(expp, NOTEQUAL, intexpr((arith)0, INT)); return;
}
if ((*expp)->OP_OPER == ',') {
opnd2test(&((*expp)->OP_RIGHT), oper);
return;
}
}
ch7bin(expp, NOTEQUAL, intexpr((arith)0, INT));
} }
int int

2
lang/cem/cemcom/eval.c
View file

@ -526,7 +526,7 @@ EVAL(expr, val, code, true_label, false_label)
break; break;
case ',': case ',':
EVAL(left, RVAL, FALSE, NO_LABEL, NO_LABEL); EVAL(left, RVAL, FALSE, NO_LABEL, NO_LABEL);
EVAL(right, RVAL, gencode, NO_LABEL, NO_LABEL); EVAL(right, RVAL, gencode, true_label, false_label);
break; break;
case '~': case '~':
EVAL(right, RVAL, gencode, NO_LABEL, NO_LABEL); EVAL(right, RVAL, gencode, NO_LABEL, NO_LABEL);