Lines Matching refs:Imm_Type

3166          Imm_Type : Entity_Id;  variable
3169          Imm_Type := Base_Type (Typ);
3170          while Is_Derived_Type (Imm_Type) loop
3171             if Etype (Imm_Type) = Base_Type (A_Type) then
3179             elsif Is_Private_Type (Etype (Imm_Type))
3180               and then Present (Full_View (Etype (Imm_Type)))
3181               and then Base_Type (A_Type) = Full_View (Etype (Imm_Type))
3183                A_Type := Etype (Imm_Type);
3191               and then not Is_Private_Type (Imm_Type)
3193               and then Base_Type (Full_View (A_Type)) = Etype (Imm_Type)
3198                Imm_Type := Etype (Base_Type (Imm_Type));