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
|
{ %target=darwin,iphonesim}
{ %skipcpu=powerpc,powerpc64 }
{$mode delphi}
{$modeswitch cblocks}
type
tblock = reference to procedure(j: longint); cdecl; cblock;
tc = class
i: longint;
procedure callme(j: longint);
end;
var
b: tblock;
p: procedure(j: longint) of object;
c: tc;
procedure tc.callme(j: longint);
const
invocationcount: longint = 0;
begin
writeln('self: ',hexstr(pointer(self)),', i: ',i,', j: ',j);
if self<>c then
halt(1);
if i<>12345 then
halt(2);
if invocationcount=0 then
begin
if j<>1 then
halt(3)
end
else if j<>2 then
halt(4);
inc(invocationcount);
end;
procedure test(b: tblock);
begin
b(2);
end;
begin
c:=tc.create;
c.i:=12345;
b:=c.callme;
b(1);
test(c.callme);
test(b);
end.
|
