anchor.diff:    private
       class procedure StrToJSONStr(const AppendMethod: TWriterAppendMethod; const S: string); static;
       class procedure EscapeStrToJSONStr(F, P, EndP: PChar; const AppendMethod: TWriterAppendMethod); static;
  -    class procedure DateTimeToJSONStr(const AppendMethod: TWriterAppendMethod;
  -      const Value: TDateTime); static;
  +    class procedure DateTimeToJSONStr(const AppendMethod: TWriterAppendMethod; const Value: TDateTime); static;
  +    class procedure UtcDateTimeToJSONStr(const AppendMethod: TWriterAppendMethod; const Value: TDateTime); static;
       class procedure InternInitAndAssignItem(Dest, Source: PJsonDataValue); static;
       class procedure GetStreamBytes(Stream: TStream; var Encoding: TEncoding; Utf8WithoutBOM: Boolean;
         var StreamInfo: TStreamInfo); static;
  
positive.code:     Value: TJsonDataValueHelper;
    end;
  
    TJsonObjectEnumerator = class(TObject)
    protected
      FIndex: Integer;
      FObject: TJsonObject;
    public
  
negative.code:   Value, Scale: Double;
    Exponent, IntValue: Integer;
    Neg, NegE: Boolean;
    DigitCount: Integer;
  begin
    {$IFNDEF CPUARM}
    EndP := FTextEnd;
  