| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- 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()
|
