anchor.diff:      Realloc: TCPFRealloc;
       Exception: TCPFException;
     end;
  -  procedure cpfInitialize(const Callbacks: TCPFCallbacks); cdecl;
  +  PCPFCallbacks = ^TCPFCallbacks;
  +  procedure cpfInitialize(const Callbacks: {$ifdef FPCLIBRARY}PCPFCallbacks{$else}TCPFCallbacks{$endif}); cdecl;
     {$endif}
   
     function  cpfCreateWeights: TCPFHandle; cdecl;
  
positive.code: function  cpfCreateMap(Width, Height: Word; Kind: TTileMapKind;
    SameDiagonalWeight: Boolean): TCPFHandle; cdecl;
  begin
    __cpfCreateMap(Width, Height, Kind, SameDiagonalWeight, {todo}@cpfCreateMap);
  end;
  {$endif}
  
  
negative.code: {$ifdef CPFLIB}
  
  {$ifdef FPCLIBRARY}
  procedure __cpfInitialize(const Callbacks: PCPFCallbacks; ReturnAddress: Pointer); cdecl;
  {$else}
  procedure cpfInitialize(const Callbacks: TCPFCallbacks); cdecl;
  {$endif}
  