anchor.diff:      function ActualizeStarts(Points: PPoint; Count: NativeUInt; Compare: Boolean): Boolean;
       function ActualizeExcludes(Points: PPoint; Count: NativeUInt; Compare: Boolean): Boolean;
       procedure ActualizeSectors;
  +    procedure FlushHeuristedNodes(const StartPoint: TCPFStart; const FailureNode: TCPFNode);
       procedure AddHeuristedNodes(const First, Last: PCPFNode);
       procedure ReleaseAttainableNodes;
       procedure ReleaseHeuristedNodes;
  
positive.code:         Buffers: array[0..31] of Pointer;
          Count: NativeUInt;
        end;
        Heuristed: record
          First: TCPFNode;
          Last: TCPFNode;
        end;
  
negative.code:   {$endif}
    {$if Defined(DEBUG) and not Defined(CPFLIB)}
  
    TTileMapPtr(nil).FlushHeuristedNodes(TCPFStart(nil^), TCPFNode(nil^));
  
    // anti hint
    TTileMapPtr(nil).CalculateHeuristics(PPoint(nil)^, PPoint(nil)^);
    TTileMapPtr(nil).AddHeuristedNodes(nil, nil);
  