/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | einfo-utils.adb | 2735 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 D | exp_attr.adb | 1345 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 D | sem_ch3.adb | 9651 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 D | sem_ch3.adb | 9651 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 D | exp_aggr.adb | 2163 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 D | exp_aggr.adb | 2163 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 D | exp_aggr.adb | 2656 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 D | exp_attr.adb | 1054 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 D | exp_aggr.adb | 2656 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 D | exp_attr.adb | 1054 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 D | exp_aggr.adb | 2654 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 D | exp_attr.adb | 1255 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 D | exp_aggr.adb | 2654 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 D | exp_aggr.adb | 2656 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 D | exp_aggr.adb | 2656 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 D | exp_attr.adb | 1054 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 D | exp_aggr.adb | 2654 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 D | exp_attr.adb | 1255 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 D | exp_aggr.adb | 2656 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 D | exp_aggr.adb | 2656 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 D | exp_aggr.adb | 2652 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 D | exp_aggr.adb | 2652 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 D | exp_aggr.adb | 2652 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 D | exp_attr.adb | 1347 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 D | exp_attr.adb | 1347 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 …]
|