usr/share/fpcsrc/3.2.0/tests/webtbs/tw15415.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw15415.pp

{$mode delphi}

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

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