1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
discard """
matrix: "--mm:refc"
output: '''
13 abc
called deepCopy for int
called deepCopy for int
done999 999
'''
"""
import threadpool
block one:
type
PBinaryTree = ref object
le, ri: PBinaryTree
value: int
proc main =
var x: PBinaryTree
deepCopy(x, PBinaryTree(ri: PBinaryTree(le: PBinaryTree(value: 13))))
var y: string
deepCopy y, "abc"
echo x.ri.le.value, " ", y
main()
block two:
type
Bar[T] = object
x: T
proc `=deepCopy`[T](b: ref Bar[T]): ref Bar[T] =
result.new
result.x = b.x
when T is int:
echo "called deepCopy for int"
else:
echo "called deepCopy for something else"
proc foo(b: ref Bar[int]): int = 999
# test that the disjoint checker deals with 'a = spawn f(); g = spawn f()':
proc main =
var dummy: ref Bar[int]
new(dummy)
dummy.x = 44
#parallel:
let f = spawn foo(dummy)
let b = spawn foo(dummy)
echo "done", ^f, " ", ^b
main()
|
