ソースを参照

* added test, issue is fixed by r48758 already

git-svn-id: trunk@49075 -
florian 4 年 前
コミット
b4eb1780ad
2 ファイル変更17 行追加0 行削除
  1. 1 0
      .gitattributes
  2. 16 0
      tests/webtbs/tw34232.pp

+ 1 - 0
.gitattributes

@@ -18497,6 +18497,7 @@ tests/webtbs/tw3411.pp svneol=native#text/plain
 tests/webtbs/tw34124.pp svneol=native#text/pascal
 tests/webtbs/tw34124.pp svneol=native#text/pascal
 tests/webtbs/tw3418.pp svneol=native#text/plain
 tests/webtbs/tw3418.pp svneol=native#text/plain
 tests/webtbs/tw3423.pp svneol=native#text/plain
 tests/webtbs/tw3423.pp svneol=native#text/plain
+tests/webtbs/tw34232.pp svneol=native#text/pascal
 tests/webtbs/tw34239.pp svneol=native#text/pascal
 tests/webtbs/tw34239.pp svneol=native#text/pascal
 tests/webtbs/tw34287.pp svneol=native#text/pascal
 tests/webtbs/tw34287.pp svneol=native#text/pascal
 tests/webtbs/tw3429.pp svneol=native#text/plain
 tests/webtbs/tw3429.pp svneol=native#text/plain

+ 16 - 0
tests/webtbs/tw34232.pp

@@ -0,0 +1,16 @@
+program Project1;
+{$mode objfpc}{$H+}
+type
+generic TTest<TKey, TValue> = packed object
+    type
+    TPair = packed record
+      key: TKey;
+      value: TValue;
+    end;
+    TPairSizeEquivalent = packed array[1..sizeof(TPair)] of byte;
+end;
+TTestStringString = specialize TTest<string, string>;
+
+begin
+  writeln(sizeof(TTestStringString.TPairSizeEquivalent));
+end.