fix hashing and typeeq for enums

1 files changed, 3 insertions, 1 deletions

diff --git a/src/parse.cff b/src/parse.cff
index 5caa998..cbeccb1 100644
--- a/src/parse.cff
+++ b/src/parse.cff
@@ -737,7 +737,9 @@ fn parseagg(P *Parser, loc Loc, kind AggKind, name *const u8, retdecl **Decl) *c
       if kind == :EUnion {
          // add enum tag field on top and offset every other field down
          static id int = 0;
-         let enumty Type = { .u: :Enum { #null, name, .id: --id }};
+         let enumname [200]u8 = {};
+         snprintf(enumname, sizeof(enumname) - 1, "%s#tag",name);
+         let enumty Type = { .u: :Enum { #null, internstr(enumname), .id: --id }};
          let n = flds.len;
          enumty.u.Enum.vals = (as(*EnumVal)malloc(n * sizeof EnumVal))[0::n];
          if n < 256 {