Fixed internal error for stray type names in structure field declarations.

diff --git a/src/clabstract.c b/src/clabstract.c
index 0a4edb4170bed52f718934c2fba89e0e76ca21eb..bf9e58fd850b4d41f9540c97e59431e233920ac7 100644 (file)
--- a/src/clabstract.c
+++ b/src/clabstract.c
@@ -1088,12 +1088,6 @@ fixUnnamedDecl (qtype q)
 
   if (ctype_isStruct (ct) || ctype_isUnion (ct))
     {
-      /* evans 2002-03-16: this seems like a really bad idea!
-      uentryList res = ctype_getFields (ct);
-
-      return (uentryList_copy (res));
-      */
-
       return uentryList_single (uentry_makeUnnamedVariable (ct));
     }
   else if (ctype_isEnum (ct))
@@ -1102,8 +1096,11 @@ fixUnnamedDecl (qtype q)
       return uentryList_undefined;
     }
   else
-    {      
-      BADBRANCHCONT;
+    { 
+      voptgenerror 
+       (FLG_SYNTAX,
+        message ("Type name in field declarations: %s", qtype_unparse (q)),
+        g_currentloc);
     }
 
   return uentryList_undefined;