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 c3f12db..90a2c06 100644 (file)
--- 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 ... */
        }
 }