anchor.diff:  
   type
     TScriptValidatorIssue = record
  -    Line,
  -    Column:     Integer;
  -    Module,
  -    Param,
  -    Msg:        string;
  +    Line: Integer;
  +    Column: Integer;
  +    Module: string;
  +    Param: string;
  +    Msg: string;
     end;
     TScriptValidatorIssueArray = array of TScriptValidatorIssue;
   
  
positive.code:   strict private
      fHints,
      fWarnings,
      fErrors:   TScriptValidatorIssueArray;
      procedure Add(aLine, aColumn: Integer; aParam, aMessage: string;
                    var aDest: TScriptValidatorIssueArray); inline;
      procedure ArrayToXML(aSrc: TScriptValidatorIssueArray; var aDest: TXmlNode);
      procedure XMLToArray(aSrc: TXmlNode; var aDest: TScriptValidatorIssueArray);
      function FixText(aTest: string): string;
  
negative.code: unit ScriptValidatorResult;
  interface
  uses
    SysUtils, VerySimpleXML;
  