lynx-snapshots - Unnamed repository; edit this file 'description' to name the repository.

# 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)

main()

	Commit message (Collapse)	Author	Age	Files	Lines
*	snapshot of project "lynx", label v2-8-1dev_2	Thomas E. Dickey	1998-03-18	1	-1/+0
\|
*	snapshot of project "lynx", label 2-8rel_3