fpcsrc/tests/webtbs/tw15415.pp


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

{$mode delphi}

type
 TMyClass = class
   i, i2 :Integer;
 end;

begin
 if ptruint(@TMyClass(pointer(5)).i2)<>(5+sizeof(pointer)+4) then
   halt(1);
end.