blob: a2f4a8b59d69374dc154dcad185f56964292ad4f (
plain)
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
|
{$mode objfpc}
type
tc = class
class procedure a; cdecl; static;
class procedure b; cdecl; static;
procedure c;
end;
var
ok: boolean;
class procedure tc.a; cdecl; static;
begin
writeln('a');
ok:=true;
end;
class procedure tc.b; cdecl; static;
begin
a;
end;
procedure tc.c;
begin
a;
end;
var
c: tc;
begin
ok:=false;
tc.b;
if not ok then
halt(1);
ok:=false;
c:=tc.create;
c.c;
c.free;
if not ok then
halt(2);
end.
|
