anchor.diff:  {$ENDIF}
   
   uses
  -  Classes, SysUtils, Variants,
  +  Classes, SysUtils, Variants, Windows,
     mIntList, mDoubleList;
   
   const
  
positive.code:   _MergeSort(List,0,List.Count-1,OnCompare);
  end;
  
  
  initialization
    Randomize;
  
negative.code: procedure ConvertVariantToDoubleList (const aValue : variant; aList : TDoubleList);
  procedure ConvertVariantToDateList (const aValue : variant; aList : TIntegerList);
  procedure ConvertVariantToDateTimeList (const aValue : variant; aList : TDoubleList);
  
  function GetCPUCores : integer;
  
  implementation
  
  