blob: 588e238e97251ca4c5ba3923d68069468637409b (
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
|
discard """
outputsub: "no leak: "
"""
when defined(GC_setMaxPause):
GC_setMaxPause 2_000
type
TSomething = object
s: string
s1: string
var s: seq[TSomething] = @[]
for i in 0..1024:
var obj: TSomething
obj.s = "blah"
obj.s1 = "asd"
s.add(obj)
proc limit*[t](a: var seq[t]) =
var loop = s.len() - 512
for i in 0..loop:
#echo i
#GC_fullCollect()
if getOccupiedMem() > 3000_000: quit("still a leak!")
s.delete(i)
s.limit()
echo "no leak: ", getOccupiedMem()
|