anchor.diff:  {$ifdef CPFLIB}
   
   {$ifdef FPCLIBRARY}
  -procedure __cpfInitialize(const Callbacks: TCPFCallbacks; ReturnAddress: Pointer); cdecl;
  +procedure __cpfInitialize(const Callbacks: PCPFCallbacks; ReturnAddress: Pointer); cdecl;
   {$else}
   procedure cpfInitialize(const Callbacks: TCPFCallbacks); cdecl;
   {$endif}
  
positive.code: begin
    Address := ReturnAddress;
  
    with Callbacks do
    Done := Assigned(Alloc) and Assigned(Free) and Assigned(Realloc) and (Assigned(Exception));
  
    if (not Done) then
  
negative.code: {$ifdef FPCLIBRARY}
  function  cpfMapGetTile(HMap: TCPFHandle; X, Y: Word): Byte; cdecl;
  begin
    Result := __cpfMapGetTile(HMap, X, Y, {todo}@cpfMapGetTile);
  end;
  {$endif}
  
  