gcc/ada/exp_ch4.adb

8293       Typl : Entity_Id;  variable
8302       Typl := A_Typ;
8304       if Ekind (Typl) = E_Private_Type then
8305          Typl := Underlying_Type (Typl);
8307       elsif Ekind (Typl) = E_Private_Subtype then
8308          Typl := Underlying_Type (Base_Type (Typl));
8315       if No (Typl) then
8322       Typl := Implementation_Base_Type (Typl);
8328       if Has_Variant_Part (Typl) then
8354       if Is_Boolean_Type (Typl) then
8362       elsif Is_Array_Type (Typl) then
8369            and then not Is_Known_Valid (Component_Type (Typl))
8382                    Typl));
8390          elsif Is_Bit_Packed_Array (Typl)
8402          elsif Is_Elementary_Type (Component_Type (Typl))
8403            and then not Is_Floating_Point_Type (Component_Type (Typl))
8404            and then not Is_Full_Access (Component_Type (Typl))
8424                  Typl));
8431       elsif Is_Record_Type (Typl) then
8435          if Is_Tagged_Type (Typl) then
8463                if Is_Class_Wide_Type (Typl) then
8464                   Typl := Find_Specific_Type (Typl);
8468                  (Find_Equality (Primitive_Operations (Typl)));
8476            and then Present (User_Defined_Primitive_Equality_Op (Typl))
8478             Build_Equality_Call (User_Defined_Primitive_Equality_Op (Typl));
8484          elsif Has_Unconstrained_UU_Component (Typl) then
8495          elsif Is_Unchecked_Union (Typl) then
8505                  (TSS (Root_Type (Typl), TSS_Composite_Equality));
8539          elsif Present (TSS (Root_Type (Typl), TSS_Composite_Equality)) then
8541               (TSS (Root_Type (Typl), TSS_Composite_Equality));
8546          elsif Is_Bounded_String (Typl) then
8549                 (Collect_Primitive_Operations (Root_Type (Typl))));
8560               Expand_Record_Equality (N, Typl, Lhs, Rhs, Bodies));
8570         and then Ekind (Typl) in E_Class_Wide_Type
8576         and then Present (Equivalent_Type (Typl))
8577         and then Is_Record_Type (Equivalent_Type (Typl))
8579          Typl := Equivalent_Type (Typl);
8583            Expand_Record_Equality (N, Typl,
8584              Unchecked_Convert_To (Typl, Lhs),
8585              Unchecked_Convert_To (Typl, Rhs),
8598       if Typl = Universal_Integer and then Nkind (N) = N_Op_Eq then
8610       if Is_Floating_Point_Type (Typl)
8621                 Prefix         => New_Occurrence_Of (Typl, Loc),
8624             Analyze_And_Resolve (Rhs, Typl);