gcc/ada/exp_ch4.adb

8068       Typl : Entity_Id;  variable
8077       Typl := A_Typ;
8079       if Ekind (Typl) = E_Private_Type then
8080          Typl := Underlying_Type (Typl);
8082       elsif Ekind (Typl) = E_Private_Subtype then
8083          Typl := Underlying_Type (Base_Type (Typl));
8090       if No (Typl) then
8097       Typl := Implementation_Base_Type (Typl);
8103       if Has_Variant_Part (Typl) then
8129       if Is_Boolean_Type (Typl) then
8137       elsif Is_Array_Type (Typl) then
8144            and then not Is_Known_Valid (Component_Type (Typl))
8157                    Typl));
8165          elsif Is_Bit_Packed_Array (Typl)
8177          elsif Is_Elementary_Type (Component_Type (Typl))
8178            and then not Is_Floating_Point_Type (Component_Type (Typl))
8179            and then not Is_Atomic_Or_VFA (Component_Type (Typl))
8199                  Typl));
8206       elsif Is_Record_Type (Typl) then
8210          if Is_Tagged_Type (Typl) then
8238                if Is_Class_Wide_Type (Typl) then
8239                   Typl := Find_Specific_Type (Typl);
8243                  (Find_Equality (Primitive_Operations (Typl)));
8251            and then Present (User_Defined_Primitive_Equality_Op (Typl))
8253             Build_Equality_Call (User_Defined_Primitive_Equality_Op (Typl));
8259          elsif Has_Unconstrained_UU_Component (Typl) then
8270          elsif Is_Unchecked_Union (Typl) then
8280                  (TSS (Root_Type (Typl), TSS_Composite_Equality));
8314          elsif Present (TSS (Root_Type (Typl), TSS_Composite_Equality)) then
8316               (TSS (Root_Type (Typl), TSS_Composite_Equality));
8321          elsif Is_Bounded_String (Typl) then
8324                 (Collect_Primitive_Operations (Root_Type (Typl))));
8335               Expand_Record_Equality (N, Typl, Lhs, Rhs, Bodies));
8345         and then Ekind_In (Typl, E_Class_Wide_Type,
8352         and then Present (Equivalent_Type (Typl))
8353         and then Is_Record_Type (Equivalent_Type (Typl))
8355          Typl := Equivalent_Type (Typl);
8359            Expand_Record_Equality (N, Typl,
8360              Unchecked_Convert_To (Typl, Lhs),
8361              Unchecked_Convert_To (Typl, Rhs),
8380       if Is_Floating_Point_Type (Typl)
8391                 Prefix         => New_Occurrence_Of (Typl, Loc),
8394             Analyze_And_Resolve (Rhs, Typl);