anchor.diff:    CellInfo := Cell.NodePtr;
     if (CellInfo and NODEPTR_FLAG_ALLOCATED <> 0) then
     begin
  +    {$ifdef LARGEINT}
  +    NodeBuffers := Pointer(@FInfo.NodeAllocator.Buffers);
  +    {$endif}
       CellInfo := PCPFNode(
  -              {$ifdef LARGEINT}FInfo.NodeAllocator.Buffers[CellInfo shr LARGE_NODEPTR_OFFSET] +{$endif}
  +              {$ifdef LARGEINT}NodeBuffers[CellInfo shr LARGE_NODEPTR_OFFSET] +{$endif}
                 CellInfo and NODEPTR_CLEAN_MASK
                  ).NodeInfo;
     end;
  
positive.code:     // coordinates
      Dec(Point);
      N := Cardinal(Node.Coordinates);
      Point.Y := Word(N);
      Point.X := N shr 16;
  
      // counters
      N := Node.NodeInfo;
  
negative.code:   {$if Defined(DEBUG) and not Defined(CPFLIB)}
  
  
    TTileMap(nil).CacheAttainablePath(TCPFStart(nil^), nil);
    // anti hint
    TTileMapPtr(nil).CalculateHeuristics(PPoint(nil)^, PPoint(nil)^);
    TTileMapPtr(nil).AddHeuristedNodes(nil, nil);
  