/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | exp_disp.adb | 4928 Current_Typ : Entity_Id; variable 4933 Current_Typ := Typ; 4944 Current_Typ := Parent_Typ; 5494 Current_Typ : Entity_Id; variable 5500 Current_Typ := Typ; 5527 Current_Typ := Parent_Typ; 6534 Current_Typ : Entity_Id; variable 6539 Current_Typ := Typ; 6550 Current_Typ := Parent_Typ; 6749 Current_Typ : Entity_Id; variable [all …]
|
H A D | exp_aggr.adb | 1846 Current_Typ : Entity_Id := Base_Type (Typ); variable 1855 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 1886 Parent_Typ := Etype (Current_Typ); 1887 while Current_Typ /= Parent_Typ loop 1899 Discriminant_Constraint (Current_Typ)) 1901 Assoc := Get_Constraint_Association (Current_Typ); 1905 First_Elmt (Discriminant_Constraint (Current_Typ)); 1958 Current_Typ := Parent_Typ; 1959 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | exp_disp.adb | 4928 Current_Typ : Entity_Id; variable 4933 Current_Typ := Typ; 4944 Current_Typ := Parent_Typ; 5494 Current_Typ : Entity_Id; variable 5500 Current_Typ := Typ; 5527 Current_Typ := Parent_Typ; 6534 Current_Typ : Entity_Id; variable 6539 Current_Typ := Typ; 6550 Current_Typ := Parent_Typ; 6749 Current_Typ : Entity_Id; variable [all …]
|
H A D | exp_aggr.adb | 1846 Current_Typ : Entity_Id := Base_Type (Typ); variable 1855 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 1886 Parent_Typ := Etype (Current_Typ); 1887 while Current_Typ /= Parent_Typ loop 1899 Discriminant_Constraint (Current_Typ)) 1901 Assoc := Get_Constraint_Association (Current_Typ); 1905 First_Elmt (Discriminant_Constraint (Current_Typ)); 1958 Current_Typ := Parent_Typ; 1959 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | exp_disp.adb | 4939 Current_Typ : Entity_Id; variable 4944 Current_Typ := Typ; 4955 Current_Typ := Parent_Typ; 5505 Current_Typ : Entity_Id; variable 5511 Current_Typ := Typ; 5538 Current_Typ := Parent_Typ; 6545 Current_Typ : Entity_Id; variable 6550 Current_Typ := Typ; 6561 Current_Typ := Parent_Typ; 6760 Current_Typ : Entity_Id; variable [all …]
|
H A D | exp_aggr.adb | 1875 Current_Typ : Entity_Id := Base_Type (Typ); variable 1884 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 1915 Parent_Typ := Etype (Current_Typ); 1916 while Current_Typ /= Parent_Typ loop 1928 Discriminant_Constraint (Current_Typ)) 1930 Assoc := Get_Constraint_Association (Current_Typ); 1934 First_Elmt (Discriminant_Constraint (Current_Typ)); 1987 Current_Typ := Parent_Typ; 1988 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | exp_aggr.adb | 1434 Current_Typ : Entity_Id := Base_Type (Typ); variable 1443 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 1473 Parent_Typ := Etype (Current_Typ); 1474 while Current_Typ /= Parent_Typ loop 1484 Discriminant_Constraint (Current_Typ)) 1486 Assoc := Get_Constraint_Association (Current_Typ); 1490 First_Elmt (Discriminant_Constraint (Current_Typ)); 1543 Current_Typ := Parent_Typ; 1544 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | exp_aggr.adb | 1434 Current_Typ : Entity_Id := Base_Type (Typ); 1443 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 1473 Parent_Typ := Etype (Current_Typ); 1474 while Current_Typ /= Parent_Typ loop 1484 Discriminant_Constraint (Current_Typ)) 1486 Assoc := Get_Constraint_Association (Current_Typ); 1490 First_Elmt (Discriminant_Constraint (Current_Typ)); 1543 Current_Typ := Parent_Typ; 1544 Parent_Typ := Etype (Current_Typ);
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | exp_aggr.adb | 1888 Current_Typ : Entity_Id := Base_Type (Typ); variable 1897 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 1927 Parent_Typ := Etype (Current_Typ); 1928 while Current_Typ /= Parent_Typ loop 1939 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 1941 Assoc := Get_Constraint_Association (Current_Typ); 1945 First_Elmt (Discriminant_Constraint (Current_Typ)); 1999 Current_Typ := Parent_Typ; 2000 Parent_Typ := Etype (Current_Typ);
|
H A D | exp_disp.adb | 4856 Current_Typ : Entity_Id; variable 4861 Current_Typ := Typ; 4863 Parent_Typ := Etype (Current_Typ); 4869 exit when Parent_Typ = Current_Typ; 4872 Current_Typ := Parent_Typ; 5413 Current_Typ : Entity_Id; variable 5419 Current_Typ := Typ; 5422 Parent_Typ := Etype (Current_Typ); 5428 exit when Parent_Typ = Current_Typ; 5446 Current_Typ := Parent_Typ;
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | exp_aggr.adb | 1888 Current_Typ : Entity_Id := Base_Type (Typ); variable 1897 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 1927 Parent_Typ := Etype (Current_Typ); 1928 while Current_Typ /= Parent_Typ loop 1939 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 1941 Assoc := Get_Constraint_Association (Current_Typ); 1945 First_Elmt (Discriminant_Constraint (Current_Typ)); 1999 Current_Typ := Parent_Typ; 2000 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 2348 Current_Typ : Entity_Id := Base_Type (Typ); variable 2357 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2387 Parent_Typ := Etype (Current_Typ); 2388 while Current_Typ /= Parent_Typ loop 2399 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2401 Assoc := Get_Constraint_Association (Current_Typ); 2405 First_Elmt (Discriminant_Constraint (Current_Typ)); 2459 Current_Typ := Parent_Typ; 2460 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 2348 Current_Typ : Entity_Id := Base_Type (Typ); variable 2357 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2387 Parent_Typ := Etype (Current_Typ); 2388 while Current_Typ /= Parent_Typ loop 2399 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2401 Assoc := Get_Constraint_Association (Current_Typ); 2405 First_Elmt (Discriminant_Constraint (Current_Typ)); 2459 Current_Typ := Parent_Typ; 2460 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | exp_aggr.adb | 2346 Current_Typ : Entity_Id := Base_Type (Typ); variable 2355 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2385 Parent_Typ := Etype (Current_Typ); 2386 while Current_Typ /= Parent_Typ loop 2397 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2399 Assoc := Get_Constraint_Association (Current_Typ); 2403 First_Elmt (Discriminant_Constraint (Current_Typ)); 2457 Current_Typ := Parent_Typ; 2458 Parent_Typ := Etype (Current_Typ);
|
H A D | exp_disp.adb | 5157 Current_Typ : Entity_Id; variable 5162 Current_Typ := Typ; 5164 Parent_Typ := Etype (Current_Typ); 5170 exit when Parent_Typ = Current_Typ; 5173 Current_Typ := Parent_Typ; 5772 Current_Typ : Entity_Id; variable 5778 Current_Typ := Typ; 5781 Parent_Typ := Etype (Current_Typ); 5787 exit when Parent_Typ = Current_Typ; 5805 Current_Typ := Parent_Typ;
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | exp_aggr.adb | 2346 Current_Typ : Entity_Id := Base_Type (Typ); variable 2355 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2385 Parent_Typ := Etype (Current_Typ); 2386 while Current_Typ /= Parent_Typ loop 2397 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2399 Assoc := Get_Constraint_Association (Current_Typ); 2403 First_Elmt (Discriminant_Constraint (Current_Typ)); 2457 Current_Typ := Parent_Typ; 2458 Parent_Typ := Etype (Current_Typ);
|
H A D | exp_disp.adb | 5157 Current_Typ : Entity_Id; variable 5162 Current_Typ := Typ; 5164 Parent_Typ := Etype (Current_Typ); 5170 exit when Parent_Typ = Current_Typ; 5173 Current_Typ := Parent_Typ; 5772 Current_Typ : Entity_Id; variable 5778 Current_Typ := Typ; 5781 Parent_Typ := Etype (Current_Typ); 5787 exit when Parent_Typ = Current_Typ; 5805 Current_Typ := Parent_Typ;
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 2348 Current_Typ : Entity_Id := Base_Type (Typ); variable 2357 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2387 Parent_Typ := Etype (Current_Typ); 2388 while Current_Typ /= Parent_Typ loop 2399 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2401 Assoc := Get_Constraint_Association (Current_Typ); 2405 First_Elmt (Discriminant_Constraint (Current_Typ)); 2459 Current_Typ := Parent_Typ; 2460 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
H A D | exp_aggr.adb | 2348 Current_Typ : Entity_Id := Base_Type (Typ); variable 2357 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2387 Parent_Typ := Etype (Current_Typ); 2388 while Current_Typ /= Parent_Typ loop 2399 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2401 Assoc := Get_Constraint_Association (Current_Typ); 2405 First_Elmt (Discriminant_Constraint (Current_Typ)); 2459 Current_Typ := Parent_Typ; 2460 Parent_Typ := Etype (Current_Typ);
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | exp_aggr.adb | 2346 Current_Typ : Entity_Id := Base_Type (Typ); variable 2355 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2385 Parent_Typ := Etype (Current_Typ); 2386 while Current_Typ /= Parent_Typ loop 2397 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2399 Assoc := Get_Constraint_Association (Current_Typ); 2403 First_Elmt (Discriminant_Constraint (Current_Typ)); 2457 Current_Typ := Parent_Typ; 2458 Parent_Typ := Etype (Current_Typ);
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | exp_aggr.adb | 2348 Current_Typ : Entity_Id := Base_Type (Typ); variable 2357 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2387 Parent_Typ := Etype (Current_Typ); 2388 while Current_Typ /= Parent_Typ loop 2399 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2401 Assoc := Get_Constraint_Association (Current_Typ); 2405 First_Elmt (Discriminant_Constraint (Current_Typ)); 2459 Current_Typ := Parent_Typ; 2460 Parent_Typ := Etype (Current_Typ);
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 2348 Current_Typ : Entity_Id := Base_Type (Typ); variable 2357 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2387 Parent_Typ := Etype (Current_Typ); 2388 while Current_Typ /= Parent_Typ loop 2399 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2401 Assoc := Get_Constraint_Association (Current_Typ); 2405 First_Elmt (Discriminant_Constraint (Current_Typ)); 2459 Current_Typ := Parent_Typ; 2460 Parent_Typ := Etype (Current_Typ);
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 2344 Current_Typ : Entity_Id := Base_Type (Typ); variable 2353 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2383 Parent_Typ := Etype (Current_Typ); 2384 while Current_Typ /= Parent_Typ loop 2395 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2397 Assoc := Get_Constraint_Association (Current_Typ); 2401 First_Elmt (Discriminant_Constraint (Current_Typ)); 2455 Current_Typ := Parent_Typ; 2456 Parent_Typ := Etype (Current_Typ);
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | exp_aggr.adb | 2344 Current_Typ : Entity_Id := Base_Type (Typ); variable 2353 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2383 Parent_Typ := Etype (Current_Typ); 2384 while Current_Typ /= Parent_Typ loop 2395 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2397 Assoc := Get_Constraint_Association (Current_Typ); 2401 First_Elmt (Discriminant_Constraint (Current_Typ)); 2455 Current_Typ := Parent_Typ; 2456 Parent_Typ := Etype (Current_Typ);
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | exp_aggr.adb | 2344 Current_Typ : Entity_Id := Base_Type (Typ); variable 2353 if Present (Discriminant_Specifications (Parent (Current_Typ))) then 2383 Parent_Typ := Etype (Current_Typ); 2384 while Current_Typ /= Parent_Typ loop 2395 if Is_Empty_Elmt_List (Discriminant_Constraint (Current_Typ)) 2397 Assoc := Get_Constraint_Association (Current_Typ); 2401 First_Elmt (Discriminant_Constraint (Current_Typ)); 2455 Current_Typ := Parent_Typ; 2456 Parent_Typ := Etype (Current_Typ);
|