mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 04:58:06 +02:00
18 lines
435 B
ObjectPascal
18 lines
435 B
ObjectPascal
{ 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.
|