blob: 2b416146635199c3e49585f88b3ebd8b6ade6c93 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ Old file: tbs0198.pp }
{ calling specifications aren't allowed in class declarations, this should be allowed OK 0.99.11 (PM) }
{$mode objfpc}
type
to1 = class
function GetCaps1 : Longint;virtual;abstract;
function GetCaps2 : Longint;virtual;stdcall;
function GetCaps : Longint;virtual;stdcall;abstract;
end;
function to1.GetCaps2 : Longint;stdcall;
begin
end;
begin
end.
|
