mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 10:49:26 +02:00
31 lines
482 B
ObjectPascal
31 lines
482 B
ObjectPascal
{ %fail }
|
|
|
|
{ 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
|
|
// Different calling convention
|
|
function _Release: Integer; override; stdcall;
|
|
end;
|
|
|
|
function TIntfPersistent._Release: Integer;
|
|
begin
|
|
end;
|
|
|
|
function t2._Release: Integer;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|