anchor.diff:  
     TScriptValidatorResult = class(TObject)
     strict private
  -    fHints,
  -    fWarnings,
  +    fHints: TScriptValidatorIssueArray;
  +    fWarnings: TScriptValidatorIssueArray;
       fErrors: TScriptValidatorIssueArray;
       procedure Add(aLine, aColumn: Integer; aParam, aMessage: string; var aDest: TScriptValidatorIssueArray); inline;
       procedure ArrayToXML(aSrc: TScriptValidatorIssueArray; var aDest: TXmlNode);
  
positive.code:     procedure AddError(aLine, aColumn: Integer; aParam, aMessage: string);
      function ToXML: string;
      procedure FromXML(aXml: string);
      property Hints:    TScriptValidatorIssueArray read fHints    write fHints;
      property Warnings: TScriptValidatorIssueArray read fWarnings write fWarnings;
      property Errors:   TScriptValidatorIssueArray read fErrors   write fErrors;
    end;
  
  implementation
  uses
    Classes;
  
  { TSVResult }
  procedure TScriptValidatorResult.Add(aLine, aColumn: Integer; aParam, aMessage: string;
                                       var aDest: TScriptValidatorIssueArray);
  var
    I: Integer;
    Issue: TScriptValidatorIssue;
  
negative.code: 
  function TScriptValidatorResult.ToXML: string;
  var
    nHint, nWarning, nError: TXmlNode;
  begin
    with TXmlVerySimple.Create do
    begin
      try
        Root.NodeName := 'ScriptValidatorResult';
        nHint := Root.AddChild('Hints');
        nWarning := Root.AddChild('Warnings');
        nError := Root.AddChild('Errors');
  
        ArrayToXML(fHints, nHint);
        ArrayToXML(fWarnings, nWarning);
        ArrayToXML(fErrors, nError);
  
        Result := Text;
      finally
  