anchor.diff:    SetPointer(nil, 0);
   end;
   
  -function TJsonUTF8StringStream.Realloc(var NewCapacity: Longint): Pointer;
  -var
  -  L: Longint;
  +function TJsonUTF8StringStream.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:   private
      FBytes: TBytes;
    protected
      function Realloc(var NewCapacity: Longint): Pointer; override;
    public
      constructor Create;
      property Bytes: TBytes read FBytes;
  
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
  