anchor.diff:  {$ifdef FPCLIBRARY}
   function  cpfFindPath(HMap: TCPFHandle; Params: PTileMapParams; SectorTest, Caching, FullPath: Boolean): TTileMapPath; cdecl;
   begin
  -  __cpfFindPath(HMap, Params, SectorTest, Caching, FullPath, {todo}@cpfFindPath);
  +  Result := __cpfFindPath(HMap, Params, SectorTest, Caching, FullPath, {todo}@cpfFindPath);
   end;
   {$endif}
   
  
positive.code: {$ifdef FPCLIBRARY}
  function  cpfMapGetTile(HMap: TCPFHandle; X, Y: Word): Byte; cdecl;
  begin
    __cpfMapGetTile(HMap, X, Y, {todo}@cpfMapGetTile);
  end;
  {$endif}
  
  
negative.code: begin
    Address := ReturnAddress;
  
    with Callbacks{$ifdef FPCLIBRARY}^{$endif} do
    Done := Assigned(Alloc) and Assigned(Free) and Assigned(Realloc) and (Assigned(Exception));
  
    if (not Done) then
  