anchor.diff:      inherited Create;
     {$endif}
   
  -
  +  if (AHighTile = $FF) then
  +    CPFException('High tile can''t be equal 255(0xFF), it means a barrier');
  +
  +  FHighTile := AHighTile;
  +
  +  FWeights := PCPFWeights(nil).NewInstance(NativeUInt(FHighTile) + 1, FCallAddress)
   end;
   
   {$ifdef CPFLIB}procedure{$else}destructor{$endif}
  
positive.code:   MemoryManager: {$if Defined(FPC) or (CompilerVersion < 18)}TMemoryManager{$else}TMemoryManagerEx{$ifend};
  {$endif}
  
  
  { ECrystalPathFinding }
  
  
negative.code:     function DoFindPathLoop(StartNode: PCPFMapNode): PCPFMapNode;
      function DoFindPath(const Parameters: TPathMapFindParameters): PPathMapResult;
    private
      FWeights: record
        Current: PCPFWeights;
        UpdateId: Cardinal;
        Default: PCPFWeights;
      end;
      FStartPoints: record
        Buffer: TCPFBuffer;
        Count: NativeUInt;
  