fixes #5529; don't merge type visibility flags

This commit is contained in:
Araq 2017-03-14 15:55:23 +01:00
commit 142b604c13
2 changed files with 4 additions and 4 deletions

View file

@ -1259,7 +1259,7 @@ proc assignType*(dest, src: PType) =
# this fixes 'type TLock = TSysLock': # this fixes 'type TLock = TSysLock':
if src.sym != nil: if src.sym != nil:
if dest.sym != nil: if dest.sym != nil:
dest.sym.flags = dest.sym.flags + src.sym.flags dest.sym.flags = dest.sym.flags + (src.sym.flags-{sfExported})
if dest.sym.annex == nil: dest.sym.annex = src.sym.annex if dest.sym.annex == nil: dest.sym.annex = src.sym.annex
mergeLoc(dest.sym.loc, src.sym.loc) mergeLoc(dest.sym.loc, src.sym.loc)
else: else: