| 1234567891011121314151617181920212223242526272829303132333435 |
- discard """
- outputsub: "true"
- disabled: "32bit"
- """
- from strutils import join
- type
- TFoo * = object
- id: int
- fn: proc(){.closure.}
- var foo_counter = 0
- var alive_foos = newseq[int](0)
- proc free*(some: ref TFoo) =
- #echo "Tfoo #", some.id, " freed"
- alive_foos.del alive_foos.find(some.id)
- proc newFoo*(): ref TFoo =
- 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
|
