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

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbs / tw3064.pp
Size: Mime:
type
  r1 = packed record
    b : byte;
    l : longint;
  end;
  
  r2 = record
    b : byte;
    l : longint;
  end;
  
 {$a-}
  r3 = record
    b : byte;
    l : longint;
  end;
  
 {$a+}
  r4 = record
    b : byte;
    l : longint;
  end;
  
begin
  if (sizeof(r1)<>sizeof(r3)) or (sizeof(r2)<>sizeof(r4)) then
    halt(1);
  writeln('ok');       
end.