shithub: mc

Info  •  Files  •  Log  •  Branches

Install union constructors when loading types.

    Union constructors are parts of union types that need to
    appear in the global namespace. This change puts them there.

--- a/parse/use.c

+++ b/parse/use.c

@@ -39,8 +39,9 @@

     char *pkg;

     Stab *s;

     Node *dcl;

-    Type *t;

+    Type *t, *u;

     int c;

+    size_t i;

     if (fgetc(f) != 'U')

         return 0;

@@ -72,6 +73,12 @@

                 t = tyunpickle(f);

                 assert(t->type == Tyname || t->type == Tygeneric);

                 puttype(s, t->name, t);

+                u = tybase(t);

+                if (u->type == Tyunion)  {

+                    for (i = 0; i < u->nmemb; i++)

+                        putucon(s, u->udecls[i]);

+                }

+

                 break;

             case EOF:

                 break;