Home
last modified time | relevance | path

Searched refs:Base_Typ (Results 1 – 25 of 177) sorted by relevance

12345678

/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/
H A Deinfo-utils.adb2735 Base_Typ : Entity_Id; variable
2741 Base_Typ := Base_Type (Id);
2742 Subps := Subprograms_For_Type (Base_Typ);
2746 Set_Subprograms_For_Type (Base_Typ, Subps);
2774 Base_Typ : Entity_Id; variable
2782 Base_Typ := Base_Type (Id);
2783 Subps := Subprograms_For_Type (Base_Typ);
2787 Set_Subprograms_For_Type (Base_Typ, Subps);
2811 Base_Typ : Entity_Id; variable
2819 Base_Typ := Base_Type (Id);
[all …]
H A Dexp_attr.adb1345 Base_Typ : constant Entity_Id := Base_Type (Etype (Pref)); constant
1709 if Is_Tagged_Type (Base_Typ) then
1719 CW_Typ := Class_Wide_Type (Base_Typ);
1736 Subtype_Mark => New_Occurrence_Of (Base_Typ, Loc),
1758 Set_Etype (Temp_Expr, Base_Typ);
8370 Base_Typ : constant Entity_Id := Base_Type (Typ); constant
8394 if Is_RTE (Base_Typ, RE_Storage_Array) then
8462 elsif Is_RTE (Base_Typ, RE_Stream_Element_Array) then
8530 elsif Base_Typ = Standard_String then
8598 elsif Base_Typ = Standard_Wide_String then
[all …]
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dsem_ch3.adb9651 Base_Typ : Entity_Id; variable
9708 Base_Typ := Standard_Short_Float;
9710 Base_Typ := Standard_Float;
9712 Base_Typ := Standard_Long_Float;
9714 Base_Typ := Standard_Long_Long_Float;
9720 Base_Typ := Standard_Long_Long_Float;
9766 Set_Etype (Implicit_Base, Base_Typ);
12565 Base_Typ : Entity_Id; variable
12648 Base_Typ := Any_Integer;
12677 Base_Typ := Base_Type (Standard_Integer);
[all …]
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dsem_ch3.adb9651 Base_Typ : Entity_Id; variable
9708 Base_Typ := Standard_Short_Float;
9710 Base_Typ := Standard_Float;
9712 Base_Typ := Standard_Long_Float;
9714 Base_Typ := Standard_Long_Long_Float;
9720 Base_Typ := Standard_Long_Long_Float;
9766 Set_Etype (Implicit_Base, Base_Typ);
12565 Base_Typ : Entity_Id; variable
12648 Base_Typ := Any_Integer;
12677 Base_Typ := Base_Type (Standard_Integer);
[all …]
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Dexp_aggr.adb2163 Base_Typ : Entity_Id; variable
2182 Base_Typ := Base_Type (Typ);
2183 while Is_Derived_Type (Base_Typ)
2185 (Present (Stored_Constraint (Base_Typ))
2189 Par_Typ := Etype (Base_Typ);
2199 if Present (Stored_Constraint (Base_Typ)) then
2204 elsif Is_Private_Type (Base_Typ)
2205 and then Present (Full_View (Base_Typ))
2209 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2259 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Dexp_aggr.adb2163 Base_Typ : Entity_Id; variable
2182 Base_Typ := Base_Type (Typ);
2183 while Is_Derived_Type (Base_Typ)
2185 (Present (Stored_Constraint (Base_Typ))
2189 Par_Typ := Etype (Base_Typ);
2199 if Present (Stored_Constraint (Base_Typ)) then
2204 elsif Is_Private_Type (Base_Typ)
2205 and then Present (Full_View (Base_Typ))
2209 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2259 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dexp_aggr.adb2656 Base_Typ : Entity_Id; variable
2675 Base_Typ := Base_Type (Typ);
2676 while Is_Derived_Type (Base_Typ)
2678 (Present (Stored_Constraint (Base_Typ))
2682 Par_Typ := Etype (Base_Typ);
2692 if Present (Stored_Constraint (Base_Typ)) then
2697 elsif Is_Private_Type (Base_Typ)
2698 and then Present (Full_View (Base_Typ))
2702 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
H A Dexp_attr.adb1054 Base_Typ : constant Entity_Id := Base_Type (Etype (Pref)); constant
1381 if Is_Tagged_Type (Base_Typ) then
1391 CW_Typ := Class_Wide_Type (Base_Typ);
1408 Subtype_Mark => New_Occurrence_Of (Base_Typ, Loc),
1430 Set_Etype (Temp_Expr, Base_Typ);
7751 Base_Typ : constant Entity_Id := Base_Type (Typ); constant
7800 if Is_RTE (Base_Typ, RE_Storage_Array) then
7868 elsif Is_RTE (Base_Typ, RE_Stream_Element_Array) then
7936 elsif Base_Typ = Standard_String then
8004 elsif Base_Typ = Standard_Wide_String then
[all …]
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/
H A Dexp_aggr.adb2656 Base_Typ : Entity_Id; variable
2675 Base_Typ := Base_Type (Typ);
2676 while Is_Derived_Type (Base_Typ)
2678 (Present (Stored_Constraint (Base_Typ))
2682 Par_Typ := Etype (Base_Typ);
2692 if Present (Stored_Constraint (Base_Typ)) then
2697 elsif Is_Private_Type (Base_Typ)
2698 and then Present (Full_View (Base_Typ))
2702 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
H A Dexp_attr.adb1054 Base_Typ : constant Entity_Id := Base_Type (Etype (Pref)); constant
1381 if Is_Tagged_Type (Base_Typ) then
1391 CW_Typ := Class_Wide_Type (Base_Typ);
1408 Subtype_Mark => New_Occurrence_Of (Base_Typ, Loc),
1430 Set_Etype (Temp_Expr, Base_Typ);
7751 Base_Typ : constant Entity_Id := Base_Type (Typ); constant
7800 if Is_RTE (Base_Typ, RE_Storage_Array) then
7868 elsif Is_RTE (Base_Typ, RE_Stream_Element_Array) then
7936 elsif Base_Typ = Standard_String then
8004 elsif Base_Typ = Standard_Wide_String then
[all …]
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/
H A Dexp_aggr.adb2654 Base_Typ : Entity_Id; variable
2673 Base_Typ := Base_Type (Typ);
2674 while Is_Derived_Type (Base_Typ)
2676 (Present (Stored_Constraint (Base_Typ))
2680 Par_Typ := Etype (Base_Typ);
2690 if Present (Stored_Constraint (Base_Typ)) then
2695 elsif Is_Private_Type (Base_Typ)
2696 and then Present (Full_View (Base_Typ))
2700 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
H A Dexp_attr.adb1255 Base_Typ : constant Entity_Id := Base_Type (Etype (Pref)); constant
1605 if Is_Tagged_Type (Base_Typ) then
1615 CW_Typ := Class_Wide_Type (Base_Typ);
1632 Subtype_Mark => New_Occurrence_Of (Base_Typ, Loc),
1654 Set_Etype (Temp_Expr, Base_Typ);
7934 Base_Typ : constant Entity_Id := Base_Type (Typ); constant
7958 if Is_RTE (Base_Typ, RE_Storage_Array) then
8026 elsif Is_RTE (Base_Typ, RE_Stream_Element_Array) then
8094 elsif Base_Typ = Standard_String then
8162 elsif Base_Typ = Standard_Wide_String then
[all …]
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/
H A Dexp_aggr.adb2654 Base_Typ : Entity_Id; variable
2673 Base_Typ := Base_Type (Typ);
2674 while Is_Derived_Type (Base_Typ)
2676 (Present (Stored_Constraint (Base_Typ))
2680 Par_Typ := Etype (Base_Typ);
2690 if Present (Stored_Constraint (Base_Typ)) then
2695 elsif Is_Private_Type (Base_Typ)
2696 and then Present (Full_View (Base_Typ))
2700 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dexp_aggr.adb2656 Base_Typ : Entity_Id; variable
2675 Base_Typ := Base_Type (Typ);
2676 while Is_Derived_Type (Base_Typ)
2678 (Present (Stored_Constraint (Base_Typ))
2682 Par_Typ := Etype (Base_Typ);
2692 if Present (Stored_Constraint (Base_Typ)) then
2697 elsif Is_Private_Type (Base_Typ)
2698 and then Present (Full_View (Base_Typ))
2702 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/
H A Dexp_aggr.adb2656 Base_Typ : Entity_Id; variable
2675 Base_Typ := Base_Type (Typ);
2676 while Is_Derived_Type (Base_Typ)
2678 (Present (Stored_Constraint (Base_Typ))
2682 Par_Typ := Etype (Base_Typ);
2692 if Present (Stored_Constraint (Base_Typ)) then
2697 elsif Is_Private_Type (Base_Typ)
2698 and then Present (Full_View (Base_Typ))
2702 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
H A Dexp_attr.adb1054 Base_Typ : constant Entity_Id := Base_Type (Etype (Pref)); constant
1381 if Is_Tagged_Type (Base_Typ) then
1391 CW_Typ := Class_Wide_Type (Base_Typ);
1408 Subtype_Mark => New_Occurrence_Of (Base_Typ, Loc),
1430 Set_Etype (Temp_Expr, Base_Typ);
7751 Base_Typ : constant Entity_Id := Base_Type (Typ); constant
7800 if Is_RTE (Base_Typ, RE_Storage_Array) then
7868 elsif Is_RTE (Base_Typ, RE_Stream_Element_Array) then
7936 elsif Base_Typ = Standard_String then
8004 elsif Base_Typ = Standard_Wide_String then
[all …]
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/
H A Dexp_aggr.adb2654 Base_Typ : Entity_Id; variable
2673 Base_Typ := Base_Type (Typ);
2674 while Is_Derived_Type (Base_Typ)
2676 (Present (Stored_Constraint (Base_Typ))
2680 Par_Typ := Etype (Base_Typ);
2690 if Present (Stored_Constraint (Base_Typ)) then
2695 elsif Is_Private_Type (Base_Typ)
2696 and then Present (Full_View (Base_Typ))
2700 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
H A Dexp_attr.adb1255 Base_Typ : constant Entity_Id := Base_Type (Etype (Pref)); constant
1605 if Is_Tagged_Type (Base_Typ) then
1615 CW_Typ := Class_Wide_Type (Base_Typ);
1632 Subtype_Mark => New_Occurrence_Of (Base_Typ, Loc),
1654 Set_Etype (Temp_Expr, Base_Typ);
7936 Base_Typ : constant Entity_Id := Base_Type (Typ); constant
7960 if Is_RTE (Base_Typ, RE_Storage_Array) then
8028 elsif Is_RTE (Base_Typ, RE_Stream_Element_Array) then
8096 elsif Base_Typ = Standard_String then
8164 elsif Base_Typ = Standard_Wide_String then
[all …]
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/
H A Dexp_aggr.adb2656 Base_Typ : Entity_Id; variable
2675 Base_Typ := Base_Type (Typ);
2676 while Is_Derived_Type (Base_Typ)
2678 (Present (Stored_Constraint (Base_Typ))
2682 Par_Typ := Etype (Base_Typ);
2692 if Present (Stored_Constraint (Base_Typ)) then
2697 elsif Is_Private_Type (Base_Typ)
2698 and then Present (Full_View (Base_Typ))
2702 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dexp_aggr.adb2656 Base_Typ : Entity_Id; variable
2675 Base_Typ := Base_Type (Typ);
2676 while Is_Derived_Type (Base_Typ)
2678 (Present (Stored_Constraint (Base_Typ))
2682 Par_Typ := Etype (Base_Typ);
2692 if Present (Stored_Constraint (Base_Typ)) then
2697 elsif Is_Private_Type (Base_Typ)
2698 and then Present (Full_View (Base_Typ))
2702 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2751 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/
H A Dexp_aggr.adb2652 Base_Typ : Entity_Id; variable
2671 Base_Typ := Base_Type (Typ);
2672 while Is_Derived_Type (Base_Typ)
2674 (Present (Stored_Constraint (Base_Typ))
2678 Par_Typ := Etype (Base_Typ);
2688 if Present (Stored_Constraint (Base_Typ)) then
2693 elsif Is_Private_Type (Base_Typ)
2694 and then Present (Full_View (Base_Typ))
2698 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2747 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/
H A Dexp_aggr.adb2652 Base_Typ : Entity_Id; variable
2671 Base_Typ := Base_Type (Typ);
2672 while Is_Derived_Type (Base_Typ)
2674 (Present (Stored_Constraint (Base_Typ))
2678 Par_Typ := Etype (Base_Typ);
2688 if Present (Stored_Constraint (Base_Typ)) then
2693 elsif Is_Private_Type (Base_Typ)
2694 and then Present (Full_View (Base_Typ))
2698 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2747 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/
H A Dexp_aggr.adb2652 Base_Typ : Entity_Id; variable
2671 Base_Typ := Base_Type (Typ);
2672 while Is_Derived_Type (Base_Typ)
2674 (Present (Stored_Constraint (Base_Typ))
2678 Par_Typ := Etype (Base_Typ);
2688 if Present (Stored_Constraint (Base_Typ)) then
2693 elsif Is_Private_Type (Base_Typ)
2694 and then Present (Full_View (Base_Typ))
2698 First_Elmt (Stored_Constraint (Full_View (Base_Typ)));
2747 Base_Typ := Base_Type (Par_Typ);
[all …]
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/
H A Dexp_attr.adb1347 Base_Typ : constant Entity_Id := Base_Type (Etype (Pref)); constant
1711 if Is_Tagged_Type (Base_Typ) then
1721 CW_Typ := Class_Wide_Type (Base_Typ);
1738 Subtype_Mark => New_Occurrence_Of (Base_Typ, Loc),
1760 Set_Etype (Temp_Expr, Base_Typ);
8349 Base_Typ : constant Entity_Id := Base_Type (Typ); constant
8373 if Is_RTE (Base_Typ, RE_Storage_Array) then
8441 elsif Is_RTE (Base_Typ, RE_Stream_Element_Array) then
8509 elsif Base_Typ = Standard_String then
8577 elsif Base_Typ = Standard_Wide_String then
[all …]
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/
H A Dexp_attr.adb1347 Base_Typ : constant Entity_Id := Base_Type (Etype (Pref)); constant
1711 if Is_Tagged_Type (Base_Typ) then
1721 CW_Typ := Class_Wide_Type (Base_Typ);
1738 Subtype_Mark => New_Occurrence_Of (Base_Typ, Loc),
1760 Set_Etype (Temp_Expr, Base_Typ);
8346 Base_Typ : constant Entity_Id := Base_Type (Typ); constant
8370 if Is_RTE (Base_Typ, RE_Storage_Array) then
8438 elsif Is_RTE (Base_Typ, RE_Stream_Element_Array) then
8506 elsif Base_Typ = Standard_String then
8574 elsif Base_Typ = Standard_Wide_String then
[all …]

12345678