anchor.diff:    TCPFClassPtr(HMap).FCallAddress := Address;
     TTileMapPtr(HMap).SectorTest := SectorTest;
     TTileMapPtr(HMap).Caching := Caching;
  -  Result := TTileMapPtr(HMap).DoFindPath(Params^, FullPath);
  +  Result := TTileMapPtr(HMap).DoFindPath(NativeUInt(Params) + NativeUInt(FullPath) shl HIGH_NATIVE_BIT);
   end;
   {$endif .CPFAPI}
   
  
positive.code:   begin
      if (Cardinal(S.X) >= MapWidth) or (Cardinal(S.Y) >= MapHeight) then
      begin
        RaiseCoordinates(S.X, S.Y, 'start');
        Exit;
      end;
  
  
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;
  