This commit is contained in:
Araq 2012-12-15 22:35:16 +01:00
commit a22c1f444f
9 changed files with 54 additions and 38 deletions

View file

@ -664,6 +664,7 @@ proc semIndirectOp(c: PContext, n: PNode, flags: TExprFlags): PNode =
result = nil
else:
result = m.call
instGenericConvertersSons(c, result, m)
# we assume that a procedure that calls something indirectly
# has side-effects:
if tfNoSideEffect notin t.flags: incl(c.p.owner.flags, sfSideEffect)