mirror of
https://github.com/nim-lang/Nim.git
synced 2026-01-01 02:42:05 +00:00
22 lines
390 B
Nim
22 lines
390 B
Nim
|
|
# Program to detect bug #1796 reliably
|
|
|
|
type
|
|
Node = ref object
|
|
a, b: Node
|
|
leaf: string
|
|
|
|
proc createCycle(leaf: string): Node =
|
|
new result
|
|
result.a = result
|
|
shallowCopy result.leaf, leaf
|
|
|
|
proc main =
|
|
for i in 0 .. 100_000:
|
|
var leaf = "this is the leaf. it allocates"
|
|
let x = createCycle(leaf)
|
|
let y = createCycle(leaf)
|
|
echo "done ", getOccupiedMem()
|
|
|
|
main()
|