From: ceriel <none@none>
Date: Tue, 27 Oct 1987 09:45:27 +0000 (+0000)
Subject: do not warn about not using a type-identifier that indicates
X-Git-Tag: release-5-5~3785
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=04f0550f1d2381fdcf1d0e370b1aa9711357f189;p=ack.git

do not warn about not using a type-identifier that indicates
an enumeration type and is imported, because its enumeration literals
might be used
---

diff --git a/lang/m2/comp/enter.c b/lang/m2/comp/enter.c
index c3f12db7f..90a2c0678 100644
--- a/lang/m2/comp/enter.c
+++ b/lang/m2/comp/enter.c
@@ -240,8 +240,9 @@ DoImport(df, scope, kind)
 	/*	Definition "df" is imported to scope "scope".
 		Handle the case that it is an enumeration type or a module.
 	*/
+	register t_def *idef = define(df->df_idf, scope, kind);
 
-	define(df->df_idf, scope, kind)->imp_def = df;
+	idef->imp_def = df;
 
 	while (df->df_kind & D_IMPORTED) {
 		df = df->imp_def;
@@ -258,6 +259,7 @@ DoImport(df, scope, kind)
 						   are not used
 						*/
 		}
+		idef->df_flags |= D_USED;	/* don't complain ... */
 	}
 	else if (df->df_kind == D_MODULE) {
 		/* Also import all definitions that are exported from this
@@ -280,6 +282,7 @@ DoImport(df, scope, kind)
 				/* don't complain when these are not used */
 			}
 		}
+		idef->df_flags |= D_USED;	/* don't complain ... */
 	}
 }