Browse Source

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

+ added test

git-svn-id: trunk@27901 -
svenbarth 11 years ago
parent
commit
45e2e91536
2 changed files with 32 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 31 0
      tests/webtbs/tw22468.pp

+ 1 - 0
.gitattributes

@@ -13771,6 +13771,7 @@ tests/webtbs/tw2242.pp svneol=native#text/plain
 tests/webtbs/tw22427.pp svneol=native#text/pascal
 tests/webtbs/tw22427.pp svneol=native#text/pascal
 tests/webtbs/tw22428.pp svneol=native#text/pascal
 tests/webtbs/tw22428.pp svneol=native#text/pascal
 tests/webtbs/tw22433.pp svneol=native#text/pascal
 tests/webtbs/tw22433.pp svneol=native#text/pascal
+tests/webtbs/tw22468.pp svneol=native#text/pascal
 tests/webtbs/tw22490.pp svneol=native#text/plain
 tests/webtbs/tw22490.pp svneol=native#text/plain
 tests/webtbs/tw2250.pp svneol=native#text/plain
 tests/webtbs/tw2250.pp svneol=native#text/plain
 tests/webtbs/tw22502.pp svneol=native#text/plain
 tests/webtbs/tw22502.pp svneol=native#text/plain

+ 31 - 0
tests/webtbs/tw22468.pp

@@ -0,0 +1,31 @@
+{ %NORUN }
+
+program tw22468;
+
+{$MODE DELPHI}
+
+type
+  TArray<T> = array of T;
+
+  TWrapper<TValue> = record
+  private
+    type TValueArray = TArray<TValue>;
+  public
+    class procedure Z; static;
+  end;
+
+
+{$PUSH}{$MACRO ON}
+{$DEFINE TWrapper__Z :=
+  var
+    a: TValueArray;
+  begin
+  end
+}
+
+class procedure TWrapper<TValue>.Z;
+TWrapper__Z;
+{$POP}
+
+begin
+end.