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 / test / tthlp16.pp
Size: Mime:
{ %FAIL }

{ constructors with only default arguments are not allowed }

program tthlp16;

{$mode objfpc}
{$modeswitch typehelpers}

type
  TLongIntHelper = type helper for LongInt
    constructor Create(aArg1: LongInt = 0; aArg2: LongInt = 0);
  end;

constructor TLongIntHelper.Create(aArg1: LongInt = 0; aArg2: LongInt = 0);
begin
  Self := 2;
end;

begin
end.