anchor.diff:    Flags, StartFlags: NativeUInt;
     ResultPath: ^TTileMapPath;
   
  +  FullPath: Boolean;
     FinishSector: Byte;
     AttainableAlgorithm: Boolean;
     FoundPaths: NativeUInt;
  
positive.code:           NodeInfo := (NodeInfo and FLAGS_CLEAN_MASK) or NativeUInt(Mask shl 3);
            Node.NodeInfo := NodeInfo;
          {$else}
            Node.NodeInfo := (Node.NodeInfo and FLAGS_CLEAN_MASK) or Cardinal(Mask shl 3);
          {$endif}
  
          // sort value and pool
  
negative.code:     procedure CacheAttainablePath(var StartPoint: TCPFStart; const FinishNode: PCPFNode);
      procedure FillAttainablePath(const StartNode, FinishNode: PCPFNode);
      procedure FillStandardPath(const StartNode, FinishNode: PCPFNode);
      procedure FlushHotNodes(const StartPoint: TCPFStart; const FailureNode: TCPFNode);
    {$ifdef CPFLIB}
    public
      procedure Destroy;
  