Home
last modified time | relevance | path

Searched refs:Exp_Typ (Results 1 – 25 of 71) sorted by relevance

123

/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dsem_aggr.adb394 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 Dexp_util.adb1174 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 Dsem_aggr.adb394 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 Dexp_util.adb1174 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 Dexp_util.adb2065 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 Dsem_aggr.adb434 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 Dexp_util.adb2159 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 Dexp_util.adb2159 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 Dexp_util.adb1965 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 Dsem_aggr.adb422 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 Dexp_util.adb1965 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 Dsem_aggr.adb422 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 Dexp_ch6.adb7098 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 Dexp_util.adb5423 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 Dexp_ch6.adb7098 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 Dexp_util.adb5423 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 Dexp_ch6.adb7098 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 Dexp_util.adb5423 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 Dexp_ch6.adb7158 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 Dexp_util.adb5528 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 Dexp_util.adb5050 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 Dexp_util.adb5050 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 Dexp_util.adb5223 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 Dexp_util.adb5223 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 Dexp_util.adb5050 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 …]

123