From: erikb <none@none>
Date: Thu, 20 Mar 1986 13:09:47 +0000 (+0000)
Subject: fixed a bug in check_*_expr()
X-Git-Tag: release-5-5~5343
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=9f8f8c1a9c48fb8a57afdfdead20871569564ae3;p=ack.git

fixed a bug in check_*_expr()
---

diff --git a/lang/cem/cemcom/ch7.c b/lang/cem/cemcom/ch7.c
index 8a10fec8b..9812e8f85 100644
--- a/lang/cem/cemcom/ch7.c
+++ b/lang/cem/cemcom/ch7.c
@@ -390,8 +390,8 @@ check_integral_type(expp, oper)
 	if (!is_integral_type(expr->ex_type))	{
 		expr_error(expr, "%s on non-integral type (%s)",
 			symbol2str(oper), symbol2str(expr->ex_type->tp_fund));
+		erroneous2int(expp);
 	}
-	erroneous2int(expp);
 }
 
 int
@@ -424,6 +424,6 @@ check_arith_type(expp, oper)
 	if (!is_arith_type(expr->ex_type))	{
 		expr_error(expr, "%s on non-arithmetical type (%s)",
 			symbol2str(oper), symbol2str(expr->ex_type->tp_fund));
+		erroneous2int(expp);
 	}
-	erroneous2int(expp);
 }