anchor.diff:    _MergeSort(List,0,List.Count-1,OnCompare);
   end;
   
  +{$ifdef windows}
   function GetCPUCores : integer;
   var
     Info: TSystemInfo;
  
positive.code:   GetSystemInfo(Info);
    Result := Info.dwNumberOfProcessors;
  end;
  
  function GetApplicationLocalDataFolder(const aApplicationSubDir: string): String;
  var
  
negative.code: 
  uses
    DateUtils,
    {$ifdef windows}shlobj,{$else}LazUTF8,{$endif}
    {$ifdef linux}initc, ctypes,{$endif}
    mMathUtility;
  
  {$ifdef linux}
  function sysconf(i:cint):clong;cdecl;external name 'sysconf';
  {$endif}
  
  function AddZerosFront (aValue : integer; aLength : integer) : String;
  var
  