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: end;
  
  
  procedure TScriptValidatorResult.XMLToArray(aSrc: TXmlNode; var aDest: TScriptValidatorIssueArray);
  var
    I: Integer;
    Node: TXmlNode;
    Issue: TScriptValidatorIssue;
    Len: Integer;
  begin
    for I := 0 to aSrc.ChildNodes.Count - 1 do
    begin
      Node := aSrc.ChildNodes[I];
  
      Len := Length(aDest);
      SetLength(aDest, Len + 1);
      Issue.Line   := StrToInt(Node.Attribute['Line']);
  