blob: 12c9145f8c8a61eebd0030d445d685f0c78c088e (
plain) (
blame)
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
33
34
35
36
37
38
39
|
discard """
outputsub: "no leak: "
"""
type
TNode = object
data: array[0..300, char]
PNode = ref TNode
TNodeArray = array[0..10, PNode]
TArrayHolder = object
sons: TNodeArray
proc nullify(a: var TNodeArray) =
for i in 0..high(a):
a[i] = nil
proc newArrayHolder: ref TArrayHolder =
new result
for i in 0..high(result.sons):
new result.sons[i]
nullify result.sons
proc loop =
for i in 0..10000:
discard newArrayHolder()
if getOccupiedMem() > 300_000:
echo "still a leak! ", getOccupiedMem()
quit 1
else:
echo "no leak: ", getOccupiedMem()
loop()
|