فهرست منبع

* old syntax

git-svn-id: trunk@5173 -
peter 19 سال پیش
والد
کامیت
3242e33f17
2فایلهای تغییر یافته به همراه0 افزوده شده و 20 حذف شده
  1. 0 1
      .gitattributes
  2. 0 19
      tests/webtbs/tw7422.pp

+ 0 - 1
.gitattributes

@@ -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

+ 0 - 19
tests/webtbs/tw7422.pp

@@ -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.