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