code cleanup for mark&sweep GC
This commit is contained in:
parent
ab6f793408
commit
4ee9816a78
7 changed files with 43 additions and 88 deletions
|
|
@ -12,7 +12,9 @@ type
|
|||
proc MakeObj(): TTestObj =
|
||||
result.x = "Hello"
|
||||
|
||||
for i in 1 .. 100_000_000:
|
||||
for i in 1 .. 1_000_000:
|
||||
when defined(gcMarkAndSweep):
|
||||
GC_fullcollect()
|
||||
var obj = MakeObj()
|
||||
if getOccupiedMem() > 300_000: quit("still a leak!")
|
||||
# echo GC_getstatistics()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue