blob: fbfaf3175175527af7118ad1a0669bf656603957 (
plain) (
blame)
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
|
type
Test = object of TObject
method doMethod(a: ref TObject) =
quit "override"
method doMethod(a: ref Test) =
echo "hello"
proc doProc(a: ref Test) =
echo "hello"
proc newTest(): ref Test =
new(result)
var s:ref Test = newTest()
#doesn't work
for z in 1..4:
s.doMethod()
break
#works
#for z in 1..4:
# s.doProc()
# break
#works
#while true:
# s.doMethod()
# break
#works
#while true:
# s.doProc()
# break
|