anchor.diff:  {$endif}
     end;
   
  +  [Consumes(TMediaType.APPLICATION_OCTET_STREAM), Consumes(TMediaType.WILDCARD)]
  +  TStreamReader = class(TInterfacedObject, IMessageBodyReader)
  +  public
  +{$ifdef Delphi10Berlin_UP}
  +    function ReadFrom(const AInputData: TBytes;
  +      const AAttributes: TAttributeArray;
  +      AMediaType: TMediaType; ARequestHeaders: TStrings): TValue; virtual;
  +{$else}
  +    function ReadFrom(const AInputData: AnsiString;
  +      const AAttributes: TAttributeArray;
  +      AMediaType: TMediaType; ARequestHeaders: TStrings): TValue; virtual;
  +{$endif}
  +  end;
  +
  +
   implementation
   
   uses
  
positive.code: end;
  {$endif}
  
  procedure RegisterReaders;
  begin
    TMARSMessageBodyReaderRegistry.Instance.RegisterReader<TJSONValue>(TJSONValueReader);
  end;
  
  initialization
  
negative.code:   [Consumes(TMediaType.APPLICATION_JSON)]
    TJSONValueReader = class(TInterfacedObject, IMessageBodyReader)
    public
  {$ifdef Delphi10Berlin_UP}
      function ReadFrom(const AInputData: TBytes;
        const AAttributes: TAttributeArray;
  