Lines Matching refs:Imm_Type
2764 Imm_Type : Entity_Id; variable
2767 Imm_Type := Base_Type (Typ);
2768 while Is_Derived_Type (Imm_Type) loop
2769 if Etype (Imm_Type) = Base_Type (A_Type) then
2777 elsif Is_Private_Type (Etype (Imm_Type))
2778 and then Present (Full_View (Etype (Imm_Type)))
2779 and then Base_Type (A_Type) = Full_View (Etype (Imm_Type))
2781 A_Type := Etype (Imm_Type);
2789 and then not Is_Private_Type (Imm_Type)
2791 and then Base_Type (Full_View (A_Type)) = Etype (Imm_Type)
2796 Imm_Type := Etype (Base_Type (Imm_Type));