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

* old syntax

Browse Source 
git-svn-id: trunk@5173 -
This commit is contained in:
peter 2006-11-02 11:58:58 +00:00
parent b3ac0f5d98
commit 3242e33f17
2 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7577,7 +7577,6 @@ tests/webtbs/tw7329.pp svneol=native#text/plain
tests/webtbs/tw7372.pp svneol=native#text/plain
tests/webtbs/tw7379.pp svneol=native#text/plain
tests/webtbs/tw7391.pp svneol=native#text/plain
tests/webtbs/tw7422.pp svneol=native#text/plain
tests/webtbs/tw7425.pp svneol=native#text/plain
tests/webtbs/tw7440.pp svneol=native#text/plain
tests/webtbs/tw7446.pp svneol=native#text/plain

19
tests/webtbs/tw7422.pp
View File

@ -1,19 +0,0 @@
{$mode objfpc}
type generic PListNode<_T> = ^specialize TListNode;
generic TListNode<_T> = class(TObject)
Data: _T;
Next,Prev: PListNode;
end;
generic TList<_T> = class(TObject)
First,Last: PListNode;
procedure add(item: _T);
end;
procedure TList.add(item: _T);
begin
end;
type TMyList = specialize TList<real>;
begin
end.