Home
last modified time | relevance | path

Searched refs:Current_Typ (Results 1 – 25 of 70) sorted by relevance

123

/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Dexp_disp.adb4928 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 Dexp_aggr.adb1846 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 Dexp_disp.adb4928 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 Dexp_aggr.adb1846 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 Dexp_disp.adb4939 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 Dexp_aggr.adb1875 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 Dexp_aggr.adb1434 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 Dexp_aggr.adb1434 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 Dexp_aggr.adb1888 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 Dexp_disp.adb4856 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 Dexp_aggr.adb1888 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 Dexp_aggr.adb2348 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 Dexp_aggr.adb2348 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 Dexp_aggr.adb2346 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 Dexp_disp.adb5157 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 Dexp_aggr.adb2346 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 Dexp_disp.adb5157 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 Dexp_aggr.adb2348 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 Dexp_aggr.adb2348 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 Dexp_aggr.adb2346 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 Dexp_aggr.adb2348 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 Dexp_aggr.adb2348 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 Dexp_aggr.adb2344 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 Dexp_aggr.adb2344 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 Dexp_aggr.adb2344 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);

123