anchor.diff:  //    procedure ClearMapCells(Node: PCPFNode; Count: NativeUInt); overload;
   //    procedure ClearMapCells(Node: PCPFNode{as list}); overload;
       function DoFindPathLoop(StartNode: PCPFNode): PCPFNode;
  -    function DoFindPath(const Params: TTileMapParams): TTileMapPath;
  +    function DoFindPath(const {$ifdef CPUX86}_{$else}Params{$endif}: TTileMapParams): TTileMapPath;
     private
       FNodes: record
         Storage: record
  
positive.code:       _Buffer := @Buffer;
        Inc(_Buffer.Values[((N shr 23) and -2) + (N and 1)]);
      {$endif}
    until (StartNode = Node);
  
    // distance
    {$ifNdef CPUX86}
  
negative.code:       ReleaseAttainableNodes;
  
      // actualize finish point
      FActualInfo.FinishPoint.X := FinishX;
      FInfo.FinishPoint.X := FinishX;
      FActualInfo.FinishPoint.Y := FinishY;
      FInfo.FinishPoint.Y := FinishY;
  
      // heuristics points
      if (not ActualFinish) then
  