anchor.diff:  
   procedure TPasSyntaxTreeBuilder.ConstSection;
   var
  -  ConstSect: TSyntaxNode;
  +  ConstSect, Temp: TSyntaxNode;
     ConstList, Constant, TypeInfo, Value: TSyntaxNode;
   begin
     ConstSect := TSyntaxNode.Create(ntConstants);
  
positive.code: 
  procedure TPasSyntaxTreeBuilder.RequiresIdentifierId;
  begin
    FStack.AddChild(ntUnknown, False).SetAttribute(anName, Lexer.Token);
    inherited;
  end;
  
  
negative.code:       if Field.Typ <> ntName then
          Continue;
  
        Temp := FStack.Push(ntField);
        try
          Temp.Col := Field.Col;
          Temp.Line := Field.Line;
  
          FStack.AddChild(Field.Clone);
          TypeInfo := TypeInfo.Clone;
          if Assigned(TypeArgs) then
            TypeInfo.AddChild(TypeArgs.Clone);
          FStack.AddChild(TypeInfo);
        finally
  