closures shouldn't leak anymore

This commit is contained in:
Araq 2012-07-16 08:43:54 +02:00
commit 56b4e3ad91
3 changed files with 4 additions and 4 deletions

View file

@ -80,8 +80,10 @@ proc genTraverseProc(c: var TTraversalClosure, accessor: PRope, typ: PType) =
genTraverseProc(c, ropef("$1.Field$2", accessor, i.toRope), typ.sons[i])
of tyRef, tyString, tySequence:
lineCg(p, cpsStmts, c.visitorFrmt, accessor)
else:
# no marker procs for closures yet
of tyProc:
if typ.callConv == ccClosure:
lineCg(p, cpsStmts, c.visitorFrmt, ropef("$1.ClEnv", accessor))
else:
nil
proc genTraverseProcSeq(c: var TTraversalClosure, accessor: PRope, typ: PType) =