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

removed crash() call: it was wrong

Browse source
This commit is contained in:
eck 1990-09-14 16:39:11 +00:00
parent 9eefd96eb1
commit a246152240
2 changed files with 6 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/cem/cemcom.ansi/ch3mon.c
View file

@ -37,9 +37,11 @@ ch3mon(oper, expp)
case '*': /* 3.3.3.2 */ case '*': /* 3.3.3.2 */
/* no FIELD type allowed */ /* no FIELD type allowed */
if ((*expp)->ex_type->tp_fund != POINTER) { if ((*expp)->ex_type->tp_fund != POINTER) {
if ((*expp)->ex_type != error_type) {
expr_error(*expp, expr_error(*expp,
"* applied to non-pointer (%s)", "* applied to non-pointer (%s)",
symbol2str((*expp)->ex_type->tp_fund)); symbol2str((*expp)->ex_type->tp_fund));
}
} else { } else {
expr = *expp; expr = *expp;

17
lang/cem/cemcom.ansi/fltcstoper.c
View file

@ -67,24 +67,15 @@ fltcstbin(expp, oper, expr)
case NOTEQUAL: cmpval = (cmpval != 0); break; case NOTEQUAL: cmpval = (cmpval != 0); break;
} }
break; break;
case '%':
case LEFT:
case RIGHT:
case '&':
case '|':
case '^':
/*
expr_error(*expp, "floating operand for %s", symbol2str(oper));
break;
*/
default: default:
crash("(fltcstoper) bad operator %s", symbol2str(oper)); /* in case of situations like a += 3.0; where a undefined */
/*NOTREACHED*/ flt_status = 0;
break;
} }
switch (flt_status) { switch (flt_status) {
case 0: case 0:
case FLT_UNFL: case FLT_UNFL: /* ignore underflow */
break; break;
case FLT_OVFL: case FLT_OVFL:
if (!ResultKnown) if (!ResultKnown)