/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | exp_ch5.adb | 1475 R_Typ : constant Entity_Id := Etype (Rarray); constant 1488 Known_Static_RM_Size (R_Typ) 1494 pragma Assert (C_Size = Component_Size (R_Typ)); 1511 Get_Index_Bounds (First_Index (R_Typ)); 1935 Disc := Find_Component (R_Typ, C); 2043 F := First_Discriminant (R_Typ); 2062 if Is_Unchecked_Union (R_Typ) then 2093 if Stored_Constraint (R_Typ) /= No_Elist then 2100 F := First_Entity (R_Typ); 2136 and then Present (Full_View (R_Typ)) [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_ch5.adb | 1362 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1363 Decl : constant Node_Id := Declaration_Node (R_Typ); 1505 Disc := Find_Component (R_Typ, C); 1601 F := First_Discriminant (R_Typ); 1620 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1651 if Stored_Constraint (R_Typ) /= No_Elist then 1657 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1658 F := First_Entity (R_Typ); 1694 and then Present (Full_View (R_Typ)) 1696 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_ch5.adb | 1362 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1363 Decl : constant Node_Id := Declaration_Node (R_Typ); 1505 Disc := Find_Component (R_Typ, C); 1601 F := First_Discriminant (R_Typ); 1620 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1651 if Stored_Constraint (R_Typ) /= No_Elist then 1657 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1658 F := First_Entity (R_Typ); 1694 and then Present (Full_View (R_Typ)) 1696 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
H A D | exp_ch5.adb | 1362 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1363 Decl : constant Node_Id := Declaration_Node (R_Typ); 1505 Disc := Find_Component (R_Typ, C); 1601 F := First_Discriminant (R_Typ); 1620 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1651 if Stored_Constraint (R_Typ) /= No_Elist then 1657 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1658 F := First_Entity (R_Typ); 1694 and then Present (Full_View (R_Typ)) 1696 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | exp_ch5.adb | 1362 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1363 Decl : constant Node_Id := Declaration_Node (R_Typ); 1505 Disc := Find_Component (R_Typ, C); 1601 F := First_Discriminant (R_Typ); 1620 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1651 if Stored_Constraint (R_Typ) /= No_Elist then 1657 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1658 F := First_Entity (R_Typ); 1694 and then Present (Full_View (R_Typ)) 1696 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_ch5.adb | 1362 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1363 Decl : constant Node_Id := Declaration_Node (R_Typ); 1505 Disc := Find_Component (R_Typ, C); 1601 F := First_Discriminant (R_Typ); 1620 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1651 if Stored_Constraint (R_Typ) /= No_Elist then 1657 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1658 F := First_Entity (R_Typ); 1694 and then Present (Full_View (R_Typ)) 1696 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_ch5.adb | 1362 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1363 Decl : constant Node_Id := Declaration_Node (R_Typ); 1505 Disc := Find_Component (R_Typ, C); 1601 F := First_Discriminant (R_Typ); 1620 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1651 if Stored_Constraint (R_Typ) /= No_Elist then 1657 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1658 F := First_Entity (R_Typ); 1694 and then Present (Full_View (R_Typ)) 1696 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/ |
H A D | exp_ch5.adb | 1371 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1372 Decl : constant Node_Id := Declaration_Node (R_Typ); 1514 Disc := Find_Component (R_Typ, C); 1621 F := First_Discriminant (R_Typ); 1640 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1671 if Stored_Constraint (R_Typ) /= No_Elist then 1677 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1678 F := First_Entity (R_Typ); 1714 and then Present (Full_View (R_Typ)) 1716 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | exp_ch5.adb | 1371 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1372 Decl : constant Node_Id := Declaration_Node (R_Typ); 1514 Disc := Find_Component (R_Typ, C); 1621 F := First_Discriminant (R_Typ); 1640 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1671 if Stored_Constraint (R_Typ) /= No_Elist then 1677 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1678 F := First_Entity (R_Typ); 1714 and then Present (Full_View (R_Typ)) 1716 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | exp_ch5.adb | 1371 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1372 Decl : constant Node_Id := Declaration_Node (R_Typ); 1514 Disc := Find_Component (R_Typ, C); 1621 F := First_Discriminant (R_Typ); 1640 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1671 if Stored_Constraint (R_Typ) /= No_Elist then 1677 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1678 F := First_Entity (R_Typ); 1714 and then Present (Full_View (R_Typ)) 1716 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | exp_ch5.adb | 1549 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1550 Decl : constant Node_Id := Declaration_Node (R_Typ); 1692 Disc := Find_Component (R_Typ, C); 1799 F := First_Discriminant (R_Typ); 1818 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1849 if Stored_Constraint (R_Typ) /= No_Elist then 1855 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1856 F := First_Entity (R_Typ); 1892 and then Present (Full_View (R_Typ)) 1894 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/ |
H A D | exp_ch5.adb | 1546 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1547 Decl : constant Node_Id := Declaration_Node (R_Typ); 1709 Disc := Find_Component (R_Typ, C); 1817 F := First_Discriminant (R_Typ); 1836 if Is_Unchecked_Union (R_Typ) then 1867 if Stored_Constraint (R_Typ) /= No_Elist then 1873 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1874 F := First_Entity (R_Typ); 1910 and then Present (Full_View (R_Typ)) 1912 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/ |
H A D | exp_ch5.adb | 1546 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1547 Decl : constant Node_Id := Declaration_Node (R_Typ); 1709 Disc := Find_Component (R_Typ, C); 1817 F := First_Discriminant (R_Typ); 1836 if Is_Unchecked_Union (R_Typ) then 1867 if Stored_Constraint (R_Typ) /= No_Elist then 1873 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1874 F := First_Entity (R_Typ); 1910 and then Present (Full_View (R_Typ)) 1912 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | exp_ch5.adb | 1549 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1550 Decl : constant Node_Id := Declaration_Node (R_Typ); 1692 Disc := Find_Component (R_Typ, C); 1799 F := First_Discriminant (R_Typ); 1818 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1849 if Stored_Constraint (R_Typ) /= No_Elist then 1855 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1856 F := First_Entity (R_Typ); 1892 and then Present (Full_View (R_Typ)) 1894 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/ |
H A D | exp_ch5.adb | 1546 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1547 Decl : constant Node_Id := Declaration_Node (R_Typ); 1709 Disc := Find_Component (R_Typ, C); 1817 F := First_Discriminant (R_Typ); 1836 if Is_Unchecked_Union (R_Typ) then 1867 if Stored_Constraint (R_Typ) /= No_Elist then 1873 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1874 F := First_Entity (R_Typ); 1910 and then Present (Full_View (R_Typ)) 1912 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | exp_ch5.adb | 1549 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1550 Decl : constant Node_Id := Declaration_Node (R_Typ); 1692 Disc := Find_Component (R_Typ, C); 1799 F := First_Discriminant (R_Typ); 1818 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1849 if Stored_Constraint (R_Typ) /= No_Elist then 1855 Discr_Val := First_Elmt (Stored_Constraint (R_Typ)); 1856 F := First_Entity (R_Typ); 1892 and then Present (Full_View (R_Typ)) 1894 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | sem_util.ads | 310 (R_Typ : Entity_Id; 1134 R_Typ : Node_Id) return Boolean;
|
H A D | exp_ch5.adb | 1232 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1233 Decl : constant Node_Id := Declaration_Node (R_Typ); 1453 F := First_Discriminant (R_Typ); 1472 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1503 and then Present (Full_View (R_Typ)) 1505 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); 1517 if Is_Unchecked_Union (R_Typ) then
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | sem_util.ads | 310 (R_Typ : Entity_Id; 1134 R_Typ : Node_Id) return Boolean;
|
H A D | exp_ch5.adb | 1232 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1233 Decl : constant Node_Id := Declaration_Node (R_Typ); 1453 F := First_Discriminant (R_Typ); 1472 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1503 and then Present (Full_View (R_Typ)) 1505 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); 1517 if Is_Unchecked_Union (R_Typ) then
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | exp_ch5.adb | 1313 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1314 Decl : constant Node_Id := Declaration_Node (R_Typ); 1534 F := First_Discriminant (R_Typ); 1553 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1584 and then Present (Full_View (R_Typ)) 1586 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); 1598 if Is_Unchecked_Union (R_Typ) then
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | exp_ch5.adb | 1309 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1310 Decl : constant Node_Id := Declaration_Node (R_Typ); 1530 F := First_Discriminant (R_Typ); 1549 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1580 and then Present (Full_View (R_Typ)) 1582 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); 1594 if Is_Unchecked_Union (R_Typ) then
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | exp_ch5.adb | 1313 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1314 Decl : constant Node_Id := Declaration_Node (R_Typ); 1534 F := First_Discriminant (R_Typ); 1553 if Is_Unchecked_Union (Base_Type (R_Typ)) then 1584 and then Present (Full_View (R_Typ)) 1586 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ))); 1598 if Is_Unchecked_Union (R_Typ) then
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | exp_ch5.adb | 1037 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1039 Decl : constant Node_Id := Declaration_Node (R_Typ); 1204 F := First_Discriminant (R_Typ); 1215 and then Present (Full_View (R_Typ)) 1217 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ)));
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | exp_ch5.adb | 1037 R_Typ : constant Entity_Id := Base_Type (Etype (Rhs)); constant 1039 Decl : constant Node_Id := Declaration_Node (R_Typ); 1204 F := First_Discriminant (R_Typ); 1215 and then Present (Full_View (R_Typ)) 1217 RDef := Type_Definition (Declaration_Node (Full_View (R_Typ)));
|