Fix: MkCoercion did not handle error_type

This commit is contained in:
ceriel 1992-11-20 13:37:49 +00:00
parent e43e6b8100
commit 7d34ba62a7

View file

@ -72,7 +72,7 @@ MkCoercion(pnd, tp)
if (nd_tp == tp || nd_tp->tp_fund == T_STRING /* Why ??? */) return; if (nd_tp == tp || nd_tp->tp_fund == T_STRING /* Why ??? */) return;
nd_tp = BaseType(nd_tp); nd_tp = BaseType(nd_tp);
if (nd->nd_class == Value) { if (nd->nd_class == Value && nd->nd_type != error_type && tp != error_type) {
if (nd_tp->tp_fund == T_REAL) { if (nd_tp->tp_fund == T_REAL) {
switch(tp->tp_fund) { switch(tp->tp_fund) {
case T_REAL: case T_REAL: