blob: 57b489721a66ee77700911c89e188c8a0f9d4cd0 (
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()
|