almost every pragma is allowed in a 'push' pragma

This commit is contained in:
Araq 2012-11-20 23:58:45 +01:00
commit 022ff2e86e
7 changed files with 259 additions and 231 deletions

View file

@ -758,6 +758,8 @@ proc semProcAux(c: PContext, n: PNode, kind: TSymKind,
addInterfaceDeclAt(c, s, c.tab.tos - 2)
if n.sons[pragmasPos].kind != nkEmpty:
pragma(c, s, n.sons[pragmasPos], validPragmas)
else:
implictPragmas(c, s, n, validPragmas)
else:
if n.sons[pragmasPos].kind != nkEmpty:
LocalError(n.sons[pragmasPos].info, errPragmaOnlyInHeaderOfProc)