anchor.diff:        FStack.Pop;
       end;
   
  -    Name := '';
  -    for NamePartNode in NamesNode.ChildNodes do
  -    begin
  -      if Name <> '' then
  -        Name := Name + '.';
  -      Name := Name + NamePartNode.Name;
  -    end;
  +    UnitNode := FStack.AddChild(sUNIT);
  +    UnitNode.SetAttribute(sNAME, NodeListToString(NamesNode));
  +    UnitNode.SetPositionAttributes(Position);
     finally
       NamesNode.Free;
     end;
  -
  -  UnitNode := FStack.AddChild(sUNIT);
  -  UnitNode.SetAttribute(sNAME, Name);
  -  UnitNode.SetPositionAttributes(Position);
   end;
   
   procedure TPasSyntaxTreeBuilder.UsesClause;
  
positive.code:     begin
        FStack.Push(sASSIGN, False);
        try
          FStack.Peek.SetAttribute('line', Line.ToString);
          FStack.Peek.SetAttribute('col', Col.ToString);
  
          NodeList := TList<TSyntaxNode>.Create;
          try
  
negative.code:     begin
        FStack.Push(sCALL, False);
        try
          FStack.Peek.SetPositionAttributes(Position);
  
          NodeList := TList<TSyntaxNode>.Create;
          try
  