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
|
discard """
output: '''Success'''
"""
# bug #3793
import os
import math
import lists
import strutils
proc mkleak() =
# allocate 1 MB via linked lists
let numberOfLists = 100
for i in countUp(1, numberOfLists):
var leakList = initDoublyLinkedList[string]()
let numberOfLeaks = 5000
for j in countUp(1, numberOfLeaks):
leakList.append(newString(200))
proc mkManyLeaks() =
for i in 0..0:
when false: echo getOccupiedMem()
mkleak()
when false: echo getOccupiedMem()
# Force a full collection. This should free all of the
# lists and bring the memory usage down to a few MB's.
GC_fullCollect()
when false: echo getOccupiedMem()
if getOccupiedMem() > 8 * 200 * 5000 * 2:
echo GC_getStatistics()
quit "leaking"
echo "Success"
mkManyLeaks()
|
