anchor.diff:    SetPointer(nil, 0);
   end;
   
  -function TJsonBytesStream.Realloc(var NewCapacity: Longint): Pointer;
  -var
  -  L: Longint;
  +function TJsonBytesStream.Realloc(var NewCapacity: {$IF Defined(USE_NATIVEINT)}NativeInt{$ELSE}Longint{$IFEND}): Pointer;
  +var
  +  L: {$IF Defined(USE_NATIVEINT)}NativeInt{$ELSE}Longint{$IFEND};
   begin
     if NewCapacity <> Capacity then
     begin
  
positive.code:   SetPointer(nil, 0);
  end;
  
  function TJsonUTF8StringStream.Realloc(var NewCapacity: Longint): Pointer;
  var
    L: Longint;
  begin
    if NewCapacity <> Capacity then
    begin
  
negative.code: {$ELSE}
    {$IF CompilerVersion >= 24.0} // XE3 or newer
      {$LEGACYIFEND ON}
      {$IF CompilerVersion >= 35.0} //11.0
        {$DEFINE USE_NATIVEINT}
      {$IFEND}
    {$IFEND}
    {$IF CompilerVersion >= 23.0}
      {$DEFINE HAS_UNIT_SCOPE}
  