mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
39 lines
651 B
ObjectPascal
39 lines
651 B
ObjectPascal
type
|
|
TRecord1 = record
|
|
end align 16;
|
|
|
|
TRecord2 = record
|
|
end align 8;
|
|
|
|
TRecord3 = record
|
|
end align 4;
|
|
|
|
TRecord1Outer = record
|
|
b : Byte;
|
|
Record1 : TRecord1;
|
|
end;
|
|
|
|
TRecord2Outer = record
|
|
b : Byte;
|
|
Record2 : TRecord2;
|
|
end;
|
|
|
|
TRecord3Outer = record
|
|
b : Byte;
|
|
Record3 : TRecord3;
|
|
end;
|
|
|
|
var
|
|
Record1Outer : TRecord1Outer;
|
|
Record2Outer : TRecord2Outer;
|
|
Record3Outer : TRecord3Outer;
|
|
|
|
begin
|
|
if PtrUInt(@Record1Outer.Record1) mod 16<>0 then
|
|
halt(1);
|
|
if PtrUInt(@Record2Outer.Record2) mod 8<>0 then
|
|
halt(2);
|
|
if PtrUInt(@Record3Outer.Record3) mod 4<>0 then
|
|
halt(3);
|
|
writeln('ok');
|
|
end. |