anchor.diff:  {$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}
  
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
  