bugfix: the code gen can now handle alias TLock = TSysLock; this fixes threading bugs

This commit is contained in:
Araq 2011-12-23 00:17:59 +01:00
commit 69cc24cdf6
5 changed files with 20 additions and 5 deletions

View file

@ -53,7 +53,7 @@ proc CloseScope*(tab: var TSymTab) =
var it: TTabIter
var s = InitTabIter(it, tab.stack[tab.tos-1])
while s != nil:
if sfForward in s.flags:
if sfForward in s.flags:
LocalError(s.info, errImplOfXexpected, getSymRepr(s))
elif {sfUsed, sfExported} * s.flags == {} and optHints in s.options:
# BUGFIX: check options in s!