anchor.diff:  function  cpfCreateMap(Width, Height: Word; Kind: TTileMapKind;
     SameDiagonalWeight: Boolean): TCPFHandle; cdecl;
   begin
  -  __cpfCreateMap(Width, Height, Kind, SameDiagonalWeight, {todo}@cpfCreateMap);
  +  Result := __cpfCreateMap(Width, Height, Kind, SameDiagonalWeight, {todo}@cpfCreateMap);
   end;
   {$endif}
   
  
positive.code:     Realloc: TCPFRealloc;
      Exception: TCPFException;
    end;
    procedure cpfInitialize(const Callbacks: TCPFCallbacks); cdecl;
    {$endif}
  
    function  cpfCreateWeights: TCPFHandle; cdecl;
  
negative.code: {$ifdef FPCLIBRARY}
  function  cpfMapGetTile(HMap: TCPFHandle; X, Y: Word): Byte; cdecl;
  begin
    Result := __cpfMapGetTile(HMap, X, Y, {todo}@cpfMapGetTile);
  end;
  {$endif}
  
  