paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bugs

Browse Source
This commit is contained in:
peter 2003-10-07 20:36:57 +00:00
parent b7cf110884
commit 4c9c767687
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbf/tw2721.pp
View File

@ -13,9 +13,17 @@ type
t2 = class(Tintfpersistent) t2 = class(Tintfpersistent)
public public
// Different calling convention
function _Release: Integer; override; stdcall; function _Release: Integer; override; stdcall;
end; end;
function TIntfPersistent._Release: Integer;
begin
end;
function t2._Release: Integer;
begin
end;
begin begin
end. end.

8
tests/webtbs/tw2721.pp
View File

@ -14,6 +14,14 @@ type
function _Release: Integer; override; function _Release: Integer; override;
end; end;
function TIntfPersistent._Release: Integer;
begin
end;
function t2._Release: Integer;
begin
end;
begin begin
end. end.