mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 23:19:29 +02:00
29 lines
427 B
ObjectPascal
29 lines
427 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2721 }
|
|
{ Submitted by "marcov" on 2003-10-07 }
|
|
{ e-mail: }
|
|
{$mode Delphi}
|
|
|
|
type
|
|
TIntfPersistent = class
|
|
public
|
|
function _Release: Integer; virtual; cdecl;
|
|
end;
|
|
|
|
t2 = class(Tintfpersistent)
|
|
public
|
|
function _Release: Integer; override;
|
|
end;
|
|
|
|
function TIntfPersistent._Release: Integer;
|
|
begin
|
|
end;
|
|
|
|
function t2._Release: Integer;
|
|
begin
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|
|
|