anchor.diff:    end;
   end;
   
  -function CPFRealloc(const P: Pointer; const Size: NativeUInt; const Address: Pointer): Pointer;
  +function CPFRealloc({$ifNdef FPC}const{$endif} P: Pointer; const Size: NativeUInt; const Address: Pointer): Pointer;
   begin
     if (P = nil) then
     begin
  
positive.code: {$ifend}
  
  
  {$if (not Defined(FPC)) and (CompilerVersion < 21)}
  function ReturnAddress: Pointer;
  asm
    mov eax, [ebp+4]
  
negative.code: type
    // standard types
    {$ifdef FPC}
      Integer = Longint;
      PInteger = ^Integer;
      PUInt64 = ^UInt64;
    {$else}
      {$if CompilerVersion < 15}
  