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

Gemfury

Why Gemfury? Push, build, and install RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / tpushpop2.pp

program tpushpop2;

type
{$PackRecords 1}
  TTest1 = record
    b: Byte;
    l: LongInt;
  end;
{$Push}
{$PackRecords 4}
  TTest2 = record
    b: Byte;
    l: LongInt;
  end;
{$Pop}
  TTest3 = record
    b: Byte;
    l: LongInt;
  end;

begin
  if SizeOf(TTest1) <> SizeOf(TTest3) then
    Halt(1);
  if SizeOf(TTest1) = SizeOf(TTest2) then
    Halt(2);
  Writeln('ok');
end.