29 lines
618 B
Nim
29 lines
618 B
Nim
discard """
|
|
output: '''leak: true'''
|
|
cmd: '''nim c --gc:arc $file'''
|
|
"""
|
|
|
|
type
|
|
T = ref object
|
|
s: seq[T]
|
|
data: string
|
|
|
|
proc create(): T = T(s: @[], data: "abc")
|
|
|
|
proc addX(x: T; data: string) =
|
|
x.data = data
|
|
|
|
proc addX(x: T; child: T) =
|
|
x.s.add child
|
|
|
|
proc main(rootName: string) =
|
|
var root = create()
|
|
root.data = rootName
|
|
# this implies we do the refcounting wrong. We should leak memory here
|
|
# and not create a destruction cycle:
|
|
root.addX root
|
|
|
|
let mem = getOccupiedMem()
|
|
main("yeah")
|
|
# since we created a retain cycle, we MUST leak memory here:
|
|
echo "leak: ", getOccupiedMem() - mem > 0
|