fixed embarrassing memory leak in 'collectCycles'

This commit is contained in:
Araq
2013-01-31 19:55:11 +01:00
parent f96d612e98
commit 9bb11a48a6

View File

@@ -575,6 +575,7 @@ proc collectCycles(gch: var TGcHeap) =
d.refcount = d.refcount +% rcIncrement
if d in gch.cycleRoots and not containsOrIncl(marker, d):
forAllChildren(d, waPush)
Deinit(marker)
# remove cycles:
for c in elements(gch.cycleRoots):
if c.refcount <% rcIncrement: