anchor.diff:  
   procedure TPasSyntaxTreeBuilder.ClassField;
   var
  -  Fields: TSyntaxNode;
  +  Fields, Temp: TSyntaxNode;
     Field, TypeInfo, TypeArgs: TSyntaxNode;
   begin
     Fields := TSyntaxNode.Create(ntFields);
  
positive.code: 
      if Assigned(NameNode) then
      begin
        FStack.Peek.SetAttribute(anName, NameNode.GetAttribute(anName));
        FStack.Peek.DeleteChild(NameNode);
      end;
  
      PathNode := FStack.Peek.FindNode(ntExpression);
  
negative.code: end;
  
  procedure TPasSyntaxTreeBuilder.ConstructorName;
  var
    Temp: TSyntaxNode;
  begin
    Temp := FStack.Peek;
    Temp.SetAttribute(anKind, 'constructor');
    Temp.SetAttribute(anName, Lexer.Token);
    inherited;
  end;
  
  