Lines Matching refs:Imm_Type
3429 Imm_Type : Entity_Id; variable
3432 Imm_Type := Base_Type (Typ);
3433 while Is_Derived_Type (Imm_Type) loop
3434 if Etype (Imm_Type) = Base_Type (A_Type) then
3442 elsif Is_Private_Type (Etype (Imm_Type))
3443 and then Present (Full_View (Etype (Imm_Type)))
3444 and then Base_Type (A_Type) = Full_View (Etype (Imm_Type))
3446 A_Type := Etype (Imm_Type);
3454 and then not Is_Private_Type (Imm_Type)
3456 and then Base_Type (Full_View (A_Type)) = Etype (Imm_Type)
3464 A_Type := Etype (Imm_Type);
3468 Imm_Type := Etype (Base_Type (Imm_Type));