Lines Matching refs:Typl
7196 Typl : Entity_Id := A_Typ; variable
7602 if Ekind (Typl) = E_Private_Type then
7603 Typl := Underlying_Type (Typl);
7604 elsif Ekind (Typl) = E_Private_Subtype then
7605 Typl := Underlying_Type (Base_Type (Typl));
7614 if No (Typl) then
7621 Typl := Implementation_Base_Type (Typl);
7627 if Has_Variant_Part (Typl) then
7653 if Is_Boolean_Type (Typl) then
7661 elsif Is_Array_Type (Typl) then
7668 and then not Is_Known_Valid (Component_Type (Typl))
7681 Typl));
7689 elsif Is_Bit_Packed_Array (Typl)
7701 elsif Is_Elementary_Type (Component_Type (Typl))
7702 and then not Is_Floating_Point_Type (Component_Type (Typl))
7703 and then not Is_Atomic_Or_VFA (Component_Type (Typl))
7721 Typl));
7728 elsif Is_Record_Type (Typl) then
7732 if Is_Tagged_Type (Typl) then
7779 if Is_Class_Wide_Type (Typl) then
7780 Typl := Find_Specific_Type (Typl);
7783 Prim := First_Elmt (Primitive_Operations (Typl));
7804 elsif Has_Unconstrained_UU_Component (Typl) then
7815 elsif Is_Unchecked_Union (Typl) then
7825 (TSS (Root_Type (Typl), TSS_Composite_Equality));
7859 elsif Present (TSS (Root_Type (Typl), TSS_Composite_Equality)) then
7861 (TSS (Root_Type (Typl), TSS_Composite_Equality));
7866 elsif Is_Bounded_String (Typl) then
7868 First_Elmt (Collect_Primitive_Operations (Root_Type (Typl)));
7893 Expand_Record_Equality (N, Typl, Lhs, Rhs, Bodies));
7912 if Is_Floating_Point_Type (Typl)
7923 Prefix => New_Occurrence_Of (Typl, Loc),
7926 Analyze_And_Resolve (Rhs, Typl);