paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

Mantis #21622 was fixed by partial specializations addition in revision 27861

Browse Source 
+ added test

git-svn-id: trunk@27898 -
This commit is contained in:
svenbarth 2014-06-08 11:38:24 +00:00
parent 8b290f4cb2
commit 1ebff1a963
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -13728,6 +13728,7 @@ tests/webtbs/tw21593.pp svneol=native#text/pascal
tests/webtbs/tw21593a.pp svneol=native#text/pascal
tests/webtbs/tw21593b.pp svneol=native#text/pascal
tests/webtbs/tw21593c.pp svneol=native#text/pascal
tests/webtbs/tw21622.pp svneol=native#text/pascal
tests/webtbs/tw2163.pp svneol=native#text/plain
tests/webtbs/tw21654.pp svneol=native#text/pascal
tests/webtbs/tw21674.pp svneol=native#text/pascal

27
tests/webtbs/tw21622.pp Normal file
View File

@ -0,0 +1,27 @@
{ %NORUN }
program tw21622;
{$MODE DELPHI}
{$DEFINE CAUSE_ERROR}
type
TProceduralMethod<T> = procedure (arg: T) of object;
TWrapper<T> = class
strict private
type
TOnChanging = TProceduralMethod<T>;
{ Replace T with e.g. Integer, the problem persists }
strict private
{$IFDEF CAUSE_ERROR}
FOnChanging: TOnChanging;
{ Error: Generics without specialization cannot be used as a type for
a variable }
{$ELSE}
FOnChanging: TProceduralMethod<T>;
{$ENDIF}
end;
begin
end.