jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

implemented 'pure' enums

Browse source
This commit is contained in:
Araq 2012-09-08 20:51:50 +02:00
commit 580d85d233
3 changed files with 21 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
compiler/semtypes.nim
View file

@ -38,6 +38,7 @@ proc semEnum(c: PContext, n: PNode, prev: PType): PType =
localError(n.sons[0].info, errInheritanceOnlyWithEnums)
counter = lastOrd(base) + 1
rawAddSon(result, base)
let isPure = result.sym != nil and sfPure in result.sym.flags
for i in countup(1, sonsLen(n) - 1):
case n.sons[i].kind
of nkEnumFieldDef:
@ -73,12 +74,12 @@ proc semEnum(c: PContext, n: PNode, prev: PType): PType =
else: illFormedAst(n)
e.typ = result
e.position = int(counter)
if result.sym != nil and sfExported in result.sym.flags:
incl(e.flags, sfUsed) # BUGFIX
incl(e.flags, sfExported) # BUGFIX
StrTableAdd(c.module.tab, e) # BUGFIX
if result.sym != nil and sfExported in result.sym.flags:
incl(e.flags, sfUsed)
incl(e.flags, sfExported)
if not isPure: StrTableAdd(c.module.tab, e)
addSon(result.n, newSymNode(e))
if sfGenSym notin e.flags: addDeclAt(c, e, c.tab.tos - 1)
if sfGenSym notin e.flags and not isPure: addDeclAt(c, e, c.tab.tos - 1)
inc(counter)
proc semSet(c: PContext, n: PNode, prev: PType): PType =