Added diagnostic about use of for example union tag as a struct tag

diff --git a/lang/cem/cemcom.ansi/struct.c b/lang/cem/cemcom.ansi/struct.c
index 5c2083e..06a3094 100644 (file)
--- a/lang/cem/cemcom.ansi/struct.c
+++ b/lang/cem/cemcom.ansi/struct.c
@@ -248,8 +248,15 @@ apply_struct(fund, idf, tpp)
 
        tgp = &idf->id_tag;
 
-       if (*tgp)
+       if (*tgp) {
+               if (fund != (*tgp)->tg_type->tp_fund) {
+                       error("tag %s indicates a %s, not a %s",
+                               idf->id_text,
+                               symbol2str((*tgp)->tg_type->tp_fund),
+                               symbol2str(fund));
+               }
                *tpp = (*tgp)->tg_type;
+       }
        else
                declare_struct(fund, idf, tpp);
 }