anchor.diff:    private
       FBytes: TBytes;
     protected
  -    function Realloc(var NewCapacity: Longint): Pointer; override;
  +    function Realloc(var NewCapacity: {$IF Defined(USE_NATIVEINT)}NativeInt{$ELSE}Longint{$IFEND}): Pointer; override;
     public
       constructor Create;
       property Bytes: TBytes read FBytes;
  
positive.code:   private
      FDataString: UTF8String;
    protected
      function Realloc(var NewCapacity: Longint): Pointer; override;
    public
      constructor Create;
      property DataString: UTF8String read FDataString;
  
negative.code:   SetPointer(nil, 0);
  end;
  
  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
  