improved error messages with opaque types

1988-06-09 11:39:11 +00:00
parent 3fec1232da
commit 3d044db749
2 changed files with 26 additions and 19 deletions
--- a/lang/m2/comp/chk_expr.c
+++ b/lang/m2/comp/chk_expr.c
@@ -892,7 +892,11 @@ ChkBinOper(expp)
 		/* Operands must be compatible (distilled from Def 8.2)
 		*/
 		if (!TstCompat(tpr, tpl)) {
-			return ex_error(expp, "incompatible operand types");
+			extern char *incompat();
+			char buf[128];
+
+			sprint(buf, "%s in operand(s)", incompat(tpl, tpr));
+			return ex_error(expp, buf);
 		}

 		MkCoercion(&(expp->nd_left), tpl);