path: root/tests/parallel/tmissing_deepcopy.nim

discard """
  matrix: "--mm:refc"
  ccodeCheck: "@'genericDeepCopy(' .*"
  action: compile
"""

# bug #2286

import threadPool

type
  Person = ref object
    name: string
    friend: Person

var
  people: seq[Person] = @[]

proc newPerson(name:string): Person =
  result.new()
  result.name = name

proc greet(p:Person) =
  p.friend.name &= "-MUT" # this line crashes the program
  echo "Person {",
    " name:", p.name, "(", cast[int](addr p.name),"),",
    " friend:", p.friend.name, "(", cast[int](addr p.friend.name),") }"

proc setup =
  for i in 0 ..< 10:
    people.add newPerson("Person" & $(i + 1))
  for i in 0 ..< 10:
    people[i].friend = people[9-i]

proc update =
  parallel:
    for i in 0 .. people.high:
      spawn people[i].greet()

when true:
  setup()
  update()