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 / tw21029.pp
Size: Mime:
{$r+}
{$inline on}

function F(y : byte) : byte; inline;
begin
  f:=byte(not y);
end;

BEGIN
  if F(1)<>254 then
    halt(1);
END.