mirror of
https://github.com/nim-lang/Nim.git
synced 2025-12-30 01:44:37 +00:00
29 lines
480 B
Nim
29 lines
480 B
Nim
discard """
|
|
outputsub: "no leak: "
|
|
"""
|
|
|
|
when defined(GC_setMaxPause):
|
|
GC_setMaxPause 2_000
|
|
|
|
type
|
|
TTestObj = object of TObject
|
|
x: string
|
|
s: seq[int]
|
|
|
|
proc MakeObj(): TTestObj =
|
|
result.x = "Hello"
|
|
result.s = @[1,2,3]
|
|
|
|
proc inProc() =
|
|
for i in 1 .. 1_000_000:
|
|
when defined(gcMarkAndSweep):
|
|
GC_fullcollect()
|
|
var obj: TTestObj
|
|
obj = MakeObj()
|
|
if getOccupiedMem() > 300_000: quit("still a leak!")
|
|
|
|
inProc()
|
|
echo "no leak: ", getOccupiedMem()
|
|
|
|
|