Fixed infinite loop

diff --git a/lang/cem/cemcom.ansi/proto.c b/lang/cem/cemcom.ansi/proto.c
index f50662a..3e236c3 100644 (file)
--- a/lang/cem/cemcom.ansi/proto.c
+++ b/lang/cem/cemcom.ansi/proto.c
@@ -402,7 +402,7 @@ call_proto(expp)
        if (left != NILEXPR) {          /* in case of an error */
                register struct type *tp = left->ex_type;
 
-               while (tp && tp->tp_fund != FUNCTION)
+               while (tp && tp->tp_fund != FUNCTION && tp != error_type)
                        tp = tp->tp_up;
                if (tp && tp->tp_proto)
                        pl = tp->tp_proto;