| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- discard """
- outputsub: "true"
- disabled: "32bit"
- """
- type
- TFoo* = object
- id: int
- fn: proc() {.closure.}
- var foo_counter = 0
- var alive_foos = newseq[int](0)
- when defined(gcDestructors):
- proc `=destroy`(some: var TFoo) =
- alive_foos.del alive_foos.find(some.id)
- `=destroy`(some.fn)
- else:
- proc free*(some: ref TFoo) =
- #echo "Tfoo #", some.id, " freed"
- alive_foos.del alive_foos.find(some.id)
- proc newFoo*(): ref TFoo =
- when defined(gcDestructors):
- new result
- else:
- new result, free
- result.id = foo_counter
- alive_foos.add result.id
- inc foo_counter
- for i in 0 ..< 10:
- discard newFoo()
- for i in 0 ..< 10:
- let f = newFoo()
- f.fn = proc =
- echo f.id
- GC_fullcollect()
- echo alive_foos.len <= 3
|
