fpcsrc/tests/test/tunaligned1.pp


1
2
3
4
5
6
7
8
9
10
11
12

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.