Lines Matching refs:Typl
6641 Typl : Entity_Id := A_Typ; variable
7046 if Ekind (Typl) = E_Private_Type then
7047 Typl := Underlying_Type (Typl);
7048 elsif Ekind (Typl) = E_Private_Subtype then
7049 Typl := Underlying_Type (Base_Type (Typl));
7058 if No (Typl) then
7062 Typl := Base_Type (Typl);
7075 if Is_Boolean_Type (Typl) then
7083 elsif Is_Array_Type (Typl) then
7090 and then not Is_Known_Valid (Component_Type (Typl))
7103 Typl));
7111 elsif Is_Bit_Packed_Array (Typl)
7123 elsif Is_Elementary_Type (Component_Type (Typl))
7124 and then not Is_Floating_Point_Type (Component_Type (Typl))
7125 and then not Is_Atomic (Component_Type (Typl))
7143 Typl));
7150 elsif Is_Record_Type (Typl) then
7154 if Is_Tagged_Type (Typl) then
7201 if Is_Class_Wide_Type (Typl) then
7202 Typl := Root_Type (Typl);
7205 Prim := First_Elmt (Primitive_Operations (Typl));
7226 elsif Has_Unconstrained_UU_Component (Typl) then
7237 elsif Is_Unchecked_Union (Typl) then
7247 (TSS (Root_Type (Typl), TSS_Composite_Equality));
7268 elsif Present (TSS (Root_Type (Typl), TSS_Composite_Equality)) then
7270 (TSS (Root_Type (Typl), TSS_Composite_Equality));
7275 elsif Is_Bounded_String (Typl) then
7277 First_Elmt (Collect_Primitive_Operations (Root_Type (Typl)));
7302 Expand_Record_Equality (N, Typl, Lhs, Rhs, Bodies));
7315 if Vax_Float (Typl) and then Nkind (N) in N_Op_Compare then