mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
17 lines
364 B
ObjectPascal
17 lines
364 B
ObjectPascal
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.
|