anchor.diff:    {$endif}
     {$if Defined(DEBUG) and not Defined(CPFLIB)}
   
  -  TTileMap(nil).FillFoundPath(nil, nil);
  +
  +  //TTileMap(nil).FillAttainablePath(nil, nil);
     TTileMap(nil).DoFindPath(TTileMapParams(nil^));
     // anti hint
     TTileMapPtr(nil).CalculateHeuristics(PPoint(nil)^, PPoint(nil)^);
  
positive.code:   {$endif}
  begin
    // basic parameters
    StartNode := StartPoint.Node;
    Node := FinishNode;
    Store.FinishNode := FinishNode;
    {$ifNdef CPUX86}
  
negative.code:     procedure ReleaseAttainableNodes;
      procedure ReleaseHeuristedNodes;
      procedure ReleaseAllocatedNodes(const CleanupCells: Boolean);
      procedure CacheAttainablePath(var StartPoint: TCPFStart; const FinishNode: PCPFNode);
      procedure FillAttainablePath(const StartNode, FinishNode: PCPFNode);
      procedure FillStandardPath(const StartNode, FinishNode: PCPFNode);
    {$ifdef CPFLIB}
    public
      procedure Destroy;
  