Lines Matching refs:Imm_Type
3153 Imm_Type : Entity_Id; variable
3156 Imm_Type := Base_Type (Typ);
3157 while Is_Derived_Type (Imm_Type) loop
3158 if Etype (Imm_Type) = Base_Type (A_Type) then
3166 elsif Is_Private_Type (Etype (Imm_Type))
3167 and then Present (Full_View (Etype (Imm_Type)))
3168 and then Base_Type (A_Type) = Full_View (Etype (Imm_Type))
3170 A_Type := Etype (Imm_Type);
3178 and then not Is_Private_Type (Imm_Type)
3180 and then Base_Type (Full_View (A_Type)) = Etype (Imm_Type)
3185 Imm_Type := Etype (Base_Type (Imm_Type));