tests/destructor/tcycle2.nim


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

discard """
  output: "MEM 0"
  cmd: "nim c --gc:orc $file"
"""

type
  Node = ref object
    kids: seq[Node]
    data: string

proc main(x: int) =
  var n = Node(kids: @[], data: "3" & $x)
  let m = n
  n.kids.add m

let mem = getOccupiedMem()
main(90)
echo "MEM ", getOccupiedMem() - mem