newer version

1986-04-12 02:21:24 +00:00
parent 01eb8d8637
commit 892b48787b
8 changed files with 177 additions and 76 deletions
--- a/lang/m2/comp/expression.g
+++ b/lang/m2/comp/expression.g
@@ -49,8 +49,12 @@ qualident(int types; struct def **pdf; char *str; struct node **p;)
 				assert(nd->nd_class == Def);
 				*pdf = df = nd->nd_def;
 			  	if ( !((types|D_ERROR) & df->df_kind)) {
-					error("identifier \"%s\" is not a %s",
-					df->df_idf->id_text, str);
+					if (df->df_kind == D_FORWARD) {
+node_error(*pnd,"%s \"%s\" not declared", str, df->df_idf->id_text);
+					}
+					else {
+node_error(*pnd,"identifier \"%s\" is not a %s", df->df_idf->id_text, str);
+					}
 				}
 			  }
 			  if (!p) FreeNode(nd);