anchor.diff:      procedure SetCaching(const Value: Boolean);
       procedure CachingChanged;
       function AllocateNode(const X, Y: NativeInt): PPathMapNode;
  +    function CalculateHeuristics(const Start, Finish: TPoint): NativeInt;
       function DoFindPath(MapSelf: Pointer; StartNode: PPathMapNode): PPathMapNode;
     {$ifdef CPFLIB}
     public
  
positive.code:   end;
  end;
  
  function TPathMap.FindPath(const Start, Finish: TPoint;
    const Weights: TPathMapWeightsPtr; const ExcludedPoints: PPoint;
    const ExcludedPointsCount: NativeUInt): PPathMapResult;
  
negative.code:   _5 = (1 shl 5);
    _6 = (1 shl 6);
    _7 = (1 shl 7);
  
    {$ifdef LARGEINT}
      HIGH_NATIVE_BIT = 63;
    {$else}
      HIGH_NATIVE_BIT = 31;
    {$endif}
  
    UNSUPPORTED_TILE_WEIGHT = High(Cardinal) shr 1;
  
  