Searched refs:Default_DTC (Results 1 – 2 of 2) sorted by relevance
4539 Default_DTC : Entity_Id := Empty; variable4570 Default_DTC := First_Component (Typ);4571 while Present (Default_DTC)4572 and then Etype (Default_DTC) /= VTP_Type4574 Next_Component (Default_DTC);4582 if Present (Default_DTC) then4593 and then No (Default_DTC)4600 elsif Present (Default_DTC) then4603 Set_Is_Tag (Default_DTC);4604 Set_DT_Entry_Count (Default_DTC, No_Uint);