better argument checking of standard functions

1988-04-26 10:14:01 +00:00
parent b3ce56e32a
commit 2bbecf2416
2 changed files with 14 additions and 0 deletions
--- a/lang/m2/comp/chk_expr.c
+++ b/lang/m2/comp/chk_expr.c
@@ -1199,6 +1199,17 @@ ChkStandard(expp)
 				  W_STRICT,
 				  "%s on conformant array",
 				  expp->nd_left->nd_def->df_idf->id_text);
+#endif
+#ifndef STRICT_3RD_ED
+		if (! options['3'] && edf->df_value.df_stdname == S_TSIZE) {
+			if (arg->nd_right) {
+				node_warning(arg->nd_right,
+					     W_OLDFASHIONED,
+					     "TSIZE with multiple parameters, only first parameter used");
+				FreeNode(arg->nd_right);
+				arg->nd_right = 0;
+			}
+		}
 #endif
 		break;