mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 20:08:12 +02:00
28 lines
376 B
ObjectPascal
28 lines
376 B
ObjectPascal
program tpushpop2;
|
|
|
|
type
|
|
{$PackRecords 1}
|
|
TTest1 = record
|
|
b: Byte;
|
|
l: LongInt;
|
|
end;
|
|
{$Push}
|
|
{$PackRecords 4}
|
|
TTest2 = record
|
|
b: Byte;
|
|
l: LongInt;
|
|
end;
|
|
{$Pop}
|
|
TTest3 = record
|
|
b: Byte;
|
|
l: LongInt;
|
|
end;
|
|
|
|
begin
|
|
if SizeOf(TTest1) <> SizeOf(TTest3) then
|
|
Halt(1);
|
|
if SizeOf(TTest1) = SizeOf(TTest2) then
|
|
Halt(2);
|
|
Writeln('ok');
|
|
end.
|