mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 11:19:35 +02:00
13 lines
170 B
ObjectPascal
13 lines
170 B
ObjectPascal
var
|
|
r1 : packed record
|
|
dummy : byte;
|
|
a,b : longint;
|
|
end;
|
|
|
|
begin
|
|
r1.a:=unaligned(r1.b)*2;
|
|
unaligned(r1.a):=r1.b*2;
|
|
r1.a:=r1.b;
|
|
r1.a:=r1.b div 10;
|
|
end.
|