anchor.diff:    SetLength(FAttributes, 0);
     SetLength(FChildNodes, 0);
     FParentNode := nil;
  +  {$ifdef USESTRINGCACHE}TStringCache.Instance.IncRef;{$endif}
   end;
   
   procedure TSyntaxNode.ExtractChild(Node: TSyntaxNode);
  
positive.code:   TValuedSyntaxNode(Result).Value := Self.Value;
  end;
  
  { TCommentNode }
  
  function TCommentNode.Clone: TSyntaxNode;
  
negative.code: var
    i: integer;
  begin
    {$ifdef USESTRINGCACHE}TStringCache.Instance.DecRef;{$endif}
  
    for i := 0 to Length(FChildNodes) - 1 do
      FChildNodes[i].Free;
    SetLength(FChildNodes, 0);
  