/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_aggr.adb | 394 Exp_Typ : constant Entity_Id := Etype (Exp); constant 410 if Has_Discriminants (Exp_Typ) then 415 elsif Is_Array_Type (Exp_Typ) then 422 elsif Is_Scalar_Type (Exp_Typ) 441 elsif (Is_Scalar_Type (Exp_Typ) 443 and then Exp_Typ /= Check_Typ
|
H A D | exp_util.adb | 1174 Exp_Typ : constant Entity_Id := Etype (Exp); constant 1194 Slice_Type : constant Entity_Id := Etype (First_Index (Exp_Typ)); 1213 elsif Ekind (Exp_Typ) = E_String_Literal_Subtype then 1221 Literal_Typ => Exp_Typ))))); 1223 elsif Is_Constrained (Exp_Typ) 1226 if Is_Itype (Exp_Typ) then 1230 T := Exp_Typ; 1240 Subtype_Indication => New_Reference_To (Exp_Typ, Loc)));
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_aggr.adb | 394 Exp_Typ : constant Entity_Id := Etype (Exp); constant 410 if Has_Discriminants (Exp_Typ) then 415 elsif Is_Array_Type (Exp_Typ) then 422 elsif Is_Scalar_Type (Exp_Typ) 441 elsif (Is_Scalar_Type (Exp_Typ) 443 and then Exp_Typ /= Check_Typ
|
H A D | exp_util.adb | 1174 Exp_Typ : constant Entity_Id := Etype (Exp); constant 1194 Slice_Type : constant Entity_Id := Etype (First_Index (Exp_Typ)); 1213 elsif Ekind (Exp_Typ) = E_String_Literal_Subtype then 1221 Literal_Typ => Exp_Typ))))); 1223 elsif Is_Constrained (Exp_Typ) 1226 if Is_Itype (Exp_Typ) then 1230 T := Exp_Typ; 1240 Subtype_Indication => New_Reference_To (Exp_Typ, Loc)));
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | exp_util.adb | 2065 Exp_Typ : constant Entity_Id := Etype (Exp); constant 2117 Literal_Typ => Exp_Typ))))); 2124 elsif Is_Constrained (Exp_Typ) 2130 or else not Is_Array_Type (Exp_Typ) 2133 if Is_Itype (Exp_Typ) then 2152 T := Exp_Typ; 2159 T := Exp_Typ; 2246 elsif Is_Limited_View (Exp_Typ) 2248 (Is_Class_Wide_Type (Exp_Typ) 2249 or else Is_Interface (Exp_Typ) [all …]
|
H A D | sem_aggr.adb | 434 Exp_Typ : constant Entity_Id := Etype (Exp); constant 450 and then not Can_Never_Be_Null (Exp_Typ))) 473 if Has_Discriminants (Exp_Typ) then 478 elsif Is_Array_Type (Exp_Typ) then 485 elsif Is_Scalar_Type (Exp_Typ) 507 elsif (Is_Scalar_Type (Exp_Typ) 510 and then Exp_Typ /= Check_Typ
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | exp_util.adb | 2159 Exp_Typ : constant Entity_Id := Etype (Exp); constant 2211 Literal_Typ => Exp_Typ))))); 2218 elsif Is_Constrained (Exp_Typ) 2224 or else not Is_Array_Type (Exp_Typ) 2227 if Is_Itype (Exp_Typ) then 2246 T := Exp_Typ; 2253 T := Exp_Typ; 2340 elsif Is_Limited_View (Exp_Typ) 2342 (Is_Class_Wide_Type (Exp_Typ) 2343 or else Is_Interface (Exp_Typ) [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | exp_util.adb | 2159 Exp_Typ : constant Entity_Id := Etype (Exp); constant 2211 Literal_Typ => Exp_Typ))))); 2218 elsif Is_Constrained (Exp_Typ) 2224 or else not Is_Array_Type (Exp_Typ) 2227 if Is_Itype (Exp_Typ) then 2246 T := Exp_Typ; 2253 T := Exp_Typ; 2340 elsif Is_Limited_View (Exp_Typ) 2342 (Is_Class_Wide_Type (Exp_Typ) 2343 or else Is_Interface (Exp_Typ) [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | exp_util.adb | 1965 Exp_Typ : constant Entity_Id := Etype (Exp); constant 2004 elsif Ekind (Exp_Typ) = E_String_Literal_Subtype then 2012 Literal_Typ => Exp_Typ))))); 2014 elsif Is_Constrained (Exp_Typ) 2017 if Is_Itype (Exp_Typ) then 2036 T := Exp_Typ; 2043 T := Exp_Typ; 2130 elsif Is_Immutably_Limited_Type (Exp_Typ) 2132 (Is_Class_Wide_Type (Exp_Typ) 2133 or else Is_Interface (Exp_Typ) [all …]
|
H A D | sem_aggr.adb | 422 Exp_Typ : constant Entity_Id := Etype (Exp); constant 438 and then not Can_Never_Be_Null (Exp_Typ))) 454 if Has_Discriminants (Exp_Typ) then 459 elsif Is_Array_Type (Exp_Typ) then 466 elsif Is_Scalar_Type (Exp_Typ) 488 elsif (Is_Scalar_Type (Exp_Typ) 491 and then Exp_Typ /= Check_Typ
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | exp_util.adb | 1965 Exp_Typ : constant Entity_Id := Etype (Exp); constant 2004 elsif Ekind (Exp_Typ) = E_String_Literal_Subtype then 2012 Literal_Typ => Exp_Typ))))); 2014 elsif Is_Constrained (Exp_Typ) 2017 if Is_Itype (Exp_Typ) then 2036 T := Exp_Typ; 2043 T := Exp_Typ; 2130 elsif Is_Immutably_Limited_Type (Exp_Typ) 2132 (Is_Class_Wide_Type (Exp_Typ) 2133 or else Is_Interface (Exp_Typ) [all …]
|
H A D | sem_aggr.adb | 422 Exp_Typ : constant Entity_Id := Etype (Exp); constant 438 and then not Can_Never_Be_Null (Exp_Typ))) 454 if Has_Discriminants (Exp_Typ) then 459 elsif Is_Array_Type (Exp_Typ) then 466 elsif Is_Scalar_Type (Exp_Typ) 488 elsif (Is_Scalar_Type (Exp_Typ) 491 and then Exp_Typ /= Check_Typ
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/ |
H A D | exp_ch6.adb | 7098 Exp_Typ : constant Entity_Id := Etype (Exp); constant 7113 and then not Is_Class_Wide_Type (Exp_Typ) 7116 Subtype_Ind := New_Occurrence_Of (Exp_Typ, Loc); 7126 and then not Is_Class_Wide_Type (Exp_Typ) 7222 if Is_Boolean_Type (Exp_Typ) and then Nonzero_Is_True (Exp_Typ) then 7224 Adjust_Result_Type (Exp, Exp_Typ); 7238 if Is_Scalar_Type (Exp_Typ) and then Exp_Typ /= R_Type then 7254 or else Is_Limited_Interface (Exp_Typ) 7262 elsif Is_Thunk (Scope_Id) and then Is_Interface (Exp_Typ) then 7320 if Requires_Transient_Scope (Exp_Typ) [all …]
|
H A D | exp_util.adb | 5423 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5479 Literal_Typ => Exp_Typ))))); 5486 elsif Is_Constrained (Exp_Typ) 5492 or else not Is_Array_Type (Exp_Typ) 5495 if Is_Itype (Exp_Typ) then 5514 T := Exp_Typ; 5521 T := Exp_Typ; 5614 elsif Is_Limited_View (Exp_Typ) 5616 (Is_Class_Wide_Type (Exp_Typ) 5617 or else Is_Interface (Exp_Typ) [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/ |
H A D | exp_ch6.adb | 7098 Exp_Typ : constant Entity_Id := Etype (Exp); constant 7113 and then not Is_Class_Wide_Type (Exp_Typ) 7116 Subtype_Ind := New_Occurrence_Of (Exp_Typ, Loc); 7126 and then not Is_Class_Wide_Type (Exp_Typ) 7222 if Is_Boolean_Type (Exp_Typ) and then Nonzero_Is_True (Exp_Typ) then 7224 Adjust_Result_Type (Exp, Exp_Typ); 7238 if Is_Scalar_Type (Exp_Typ) and then Exp_Typ /= R_Type then 7254 or else Is_Limited_Interface (Exp_Typ) 7262 elsif Is_Thunk (Scope_Id) and then Is_Interface (Exp_Typ) then 7320 if Requires_Transient_Scope (Exp_Typ) [all …]
|
H A D | exp_util.adb | 5423 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5479 Literal_Typ => Exp_Typ))))); 5486 elsif Is_Constrained (Exp_Typ) 5492 or else not Is_Array_Type (Exp_Typ) 5495 if Is_Itype (Exp_Typ) then 5514 T := Exp_Typ; 5521 T := Exp_Typ; 5614 elsif Is_Limited_View (Exp_Typ) 5616 (Is_Class_Wide_Type (Exp_Typ) 5617 or else Is_Interface (Exp_Typ) [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/ |
H A D | exp_ch6.adb | 7098 Exp_Typ : constant Entity_Id := Etype (Exp); constant 7113 and then not Is_Class_Wide_Type (Exp_Typ) 7116 Subtype_Ind := New_Occurrence_Of (Exp_Typ, Loc); 7126 and then not Is_Class_Wide_Type (Exp_Typ) 7222 if Is_Boolean_Type (Exp_Typ) and then Nonzero_Is_True (Exp_Typ) then 7224 Adjust_Result_Type (Exp, Exp_Typ); 7238 if Is_Scalar_Type (Exp_Typ) and then Exp_Typ /= R_Type then 7254 or else Is_Limited_Interface (Exp_Typ) 7262 elsif Is_Thunk (Scope_Id) and then Is_Interface (Exp_Typ) then 7320 if Requires_Transient_Scope (Exp_Typ) [all …]
|
H A D | exp_util.adb | 5423 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5479 Literal_Typ => Exp_Typ))))); 5486 elsif Is_Constrained (Exp_Typ) 5492 or else not Is_Array_Type (Exp_Typ) 5495 if Is_Itype (Exp_Typ) then 5514 T := Exp_Typ; 5521 T := Exp_Typ; 5614 elsif Is_Limited_View (Exp_Typ) 5616 (Is_Class_Wide_Type (Exp_Typ) 5617 or else Is_Interface (Exp_Typ) [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | exp_ch6.adb | 7158 Exp_Typ : constant Entity_Id := Etype (Exp); constant 7173 and then not Is_Class_Wide_Type (Exp_Typ) 7176 Subtype_Ind := New_Occurrence_Of (Exp_Typ, Loc); 7186 and then not Is_Class_Wide_Type (Exp_Typ) 7282 if Is_Boolean_Type (Exp_Typ) and then Nonzero_Is_True (Exp_Typ) then 7284 Adjust_Result_Type (Exp, Exp_Typ); 7298 if Is_Scalar_Type (Exp_Typ) and then Exp_Typ /= R_Type then 7314 or else Is_Limited_Interface (Exp_Typ) 7322 elsif Is_Thunk (Scope_Id) and then Is_Interface (Exp_Typ) then 7328 elsif Is_Thunk (Scope_Id) and then Is_Incomplete_Type (Exp_Typ) then [all …]
|
H A D | exp_util.adb | 5528 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5584 Literal_Typ => Exp_Typ))))); 5591 elsif Is_Constrained (Exp_Typ) 5597 or else not Is_Array_Type (Exp_Typ) 5600 if Is_Itype (Exp_Typ) then 5619 T := Exp_Typ; 5626 T := Exp_Typ; 5719 elsif Is_Limited_View (Exp_Typ) 5721 (Is_Class_Wide_Type (Exp_Typ) 5722 or else Is_Interface (Exp_Typ) [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_util.adb | 5050 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5102 Literal_Typ => Exp_Typ))))); 5109 elsif Is_Constrained (Exp_Typ) 5115 or else not Is_Array_Type (Exp_Typ) 5118 if Is_Itype (Exp_Typ) then 5137 T := Exp_Typ; 5144 T := Exp_Typ; 5237 elsif Is_Limited_View (Exp_Typ) 5239 (Is_Class_Wide_Type (Exp_Typ) 5240 or else Is_Interface (Exp_Typ) [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_util.adb | 5050 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5102 Literal_Typ => Exp_Typ))))); 5109 elsif Is_Constrained (Exp_Typ) 5115 or else not Is_Array_Type (Exp_Typ) 5118 if Is_Itype (Exp_Typ) then 5137 T := Exp_Typ; 5144 T := Exp_Typ; 5237 elsif Is_Limited_View (Exp_Typ) 5239 (Is_Class_Wide_Type (Exp_Typ) 5240 or else Is_Interface (Exp_Typ) [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | exp_util.adb | 5223 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5279 Literal_Typ => Exp_Typ))))); 5286 elsif Is_Constrained (Exp_Typ) 5292 or else not Is_Array_Type (Exp_Typ) 5295 if Is_Itype (Exp_Typ) then 5314 T := Exp_Typ; 5321 T := Exp_Typ; 5414 elsif Is_Limited_View (Exp_Typ) 5416 (Is_Class_Wide_Type (Exp_Typ) 5417 or else Is_Interface (Exp_Typ) [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | exp_util.adb | 5223 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5279 Literal_Typ => Exp_Typ))))); 5286 elsif Is_Constrained (Exp_Typ) 5292 or else not Is_Array_Type (Exp_Typ) 5295 if Is_Itype (Exp_Typ) then 5314 T := Exp_Typ; 5321 T := Exp_Typ; 5414 elsif Is_Limited_View (Exp_Typ) 5416 (Is_Class_Wide_Type (Exp_Typ) 5417 or else Is_Interface (Exp_Typ) [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_util.adb | 5050 Exp_Typ : constant Entity_Id := Etype (Exp); constant 5102 Literal_Typ => Exp_Typ))))); 5109 elsif Is_Constrained (Exp_Typ) 5115 or else not Is_Array_Type (Exp_Typ) 5118 if Is_Itype (Exp_Typ) then 5137 T := Exp_Typ; 5144 T := Exp_Typ; 5237 elsif Is_Limited_View (Exp_Typ) 5239 (Is_Class_Wide_Type (Exp_Typ) 5240 or else Is_Interface (Exp_Typ) [all …]
|