1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
discard """
outputsub: "no leak: "
"""
type
Cyclic = object
sibling: PCyclic
data: array[0..200, char]
PCyclic = ref Cyclic
proc makePair: PCyclic =
new(result)
new(result.sibling)
when not defined(gcDestructors):
result.sibling.sibling = result
proc loop =
for i in 0..10000:
var x = makePair()
GC_fullCollect()
x = nil
GC_fullCollect()
if getOccupiedMem() > 300_000:
echo "still a leak! ", getOccupiedMem()
quit(1)
else:
echo "no leak: ", getOccupiedMem()
loop()
|