usr/share/fpcsrc/3.0.0/tests/test/units/system/talign.pp · bee / fpc-src v3.0.0 - deb package | Gemfury

bee / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.0.0 / tests / test / units / system / talign.pp

var
  p: pointer;
  u: ptruint;
  i: cardinal;
begin
  p:=pointer(1);
  for i:=0 to 15 do
    if align(p+i,16)<>pointer(16) then
      halt(1);
  p:=pointer(41);
  for i:=0 to 39 do
    if align(p+i,40)<>pointer(80) then
      halt(2);

  u:=1;
  for i:=0 to 15 do
    if align(u+i,16)<>16 then
      halt(3);
  u:=41;
  for i:=0 to 39 do
    if align(u+i,40)<>80 then
      halt(4);
end.