Home
last modified time | relevance | path

Searched refs:Iface_Typ (Results 1 – 25 of 126) sorted by relevance

123456

/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Dexp_disp.adb1128 if Is_Access_Type (Iface_Typ) then
1129 Iface_Typ := Etype (Directly_Designated_Type (Iface_Typ));
1135 if Is_Class_Wide_Type (Iface_Typ) then
1136 Iface_Typ := Root_Type (Iface_Typ);
1142 if Is_Concurrent_Type (Iface_Typ) then
1143 Iface_Typ := Corresponding_Record_Type (Iface_Typ);
1148 Iface_Typ := Underlying_Type (Iface_Typ);
1153 Freeze_Before (N, Iface_Typ);
1170 and then Operand_Typ /= Iface_Typ
7701 Iface_Typ : Entity_Id; variable
[all …]
H A Dsem_type.adb2507 Iface_Typ : Entity_Id; variable
2522 if Typ = Iface_Typ then
2545 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2563 if Etype (E) = Iface_Typ then
2585 Iface_Typ := Etype (Base_Type (Iface));
2587 Iface_Typ := Iface;
2592 Iface_Typ := Base_Type (Iface_Typ);
2619 if Etype (AI) = Iface_Typ then
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/
H A Dexp_disp.adb1128 if Is_Access_Type (Iface_Typ) then
1129 Iface_Typ := Etype (Directly_Designated_Type (Iface_Typ));
1135 if Is_Class_Wide_Type (Iface_Typ) then
1136 Iface_Typ := Root_Type (Iface_Typ);
1142 if Is_Concurrent_Type (Iface_Typ) then
1143 Iface_Typ := Corresponding_Record_Type (Iface_Typ);
1148 Iface_Typ := Underlying_Type (Iface_Typ);
1153 Freeze_Before (N, Iface_Typ);
1170 and then Operand_Typ /= Iface_Typ
7701 Iface_Typ : Entity_Id; variable
[all …]
H A Dsem_type.adb2507 Iface_Typ : Entity_Id; variable
2522 if Typ = Iface_Typ then
2545 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2563 if Etype (E) = Iface_Typ then
2585 Iface_Typ := Etype (Base_Type (Iface));
2587 Iface_Typ := Iface;
2592 Iface_Typ := Base_Type (Iface_Typ);
2619 if Etype (AI) = Iface_Typ then
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Dsem_type.adb2483 Iface_Typ : Entity_Id; variable
2498 if Typ = Iface_Typ then
2521 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2539 if Etype (E) = Iface_Typ then
2561 Iface_Typ := Etype (Base_Type (Iface));
2563 Iface_Typ := Iface;
2568 Iface_Typ := Base_Type (Iface_Typ);
2598 if Etype (AI) = Iface_Typ
2599 or else Base_Type (Etype (AI)) = Iface_Typ
H A Dsem_ch9.adb3311 Iface_Typ : Entity_Id; variable
3329 Iface_Typ := Find_Type_Of_Subtype_Indic (Iface);
3331 if not Is_Interface (Iface_Typ) then
3333 ("(Ada 2005) & must be an interface", Iface, Iface_Typ);
3348 if Is_Task_Interface (Iface_Typ) then
3352 elsif not Is_Limited_Interface (Iface_Typ) then
3364 if Is_Protected_Interface (Iface_Typ) then
3368 elsif not Is_Limited_Interface (Iface_Typ) then
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/
H A Dsem_type.adb2591 Iface_Typ : Entity_Id; variable
2606 if Typ = Iface_Typ then
2628 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2646 if Etype (E) = Iface_Typ then
2668 Iface_Typ := Etype (Base_Type (Iface));
2670 Iface_Typ := Iface;
2675 Iface_Typ := Base_Type (Iface_Typ);
2705 if Etype (AI) = Iface_Typ
2706 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/
H A Dsem_type.adb2600 Iface_Typ : Entity_Id; variable
2615 if Typ = Iface_Typ then
2637 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2655 if Etype (E) = Iface_Typ then
2677 Iface_Typ := Etype (Base_Type (Iface));
2679 Iface_Typ := Iface;
2684 Iface_Typ := Base_Type (Iface_Typ);
2714 if Etype (AI) = Iface_Typ
2715 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/
H A Dsem_type.adb2486 Iface_Typ : Entity_Id; variable
2501 if Typ = Iface_Typ then
2524 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2542 if Etype (E) = Iface_Typ then
2564 Iface_Typ := Etype (Base_Type (Iface));
2566 Iface_Typ := Iface;
2571 Iface_Typ := Base_Type (Iface_Typ);
2601 if Etype (AI) = Iface_Typ
2602 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/
H A Dsem_type.adb2591 Iface_Typ : Entity_Id; variable
2606 if Typ = Iface_Typ then
2628 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2646 if Etype (E) = Iface_Typ then
2668 Iface_Typ := Etype (Base_Type (Iface));
2670 Iface_Typ := Iface;
2675 Iface_Typ := Base_Type (Iface_Typ);
2705 if Etype (AI) = Iface_Typ
2706 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/
H A Dsem_type.adb2591 Iface_Typ : Entity_Id; variable
2606 if Typ = Iface_Typ then
2628 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2646 if Etype (E) = Iface_Typ then
2668 Iface_Typ := Etype (Base_Type (Iface));
2670 Iface_Typ := Iface;
2675 Iface_Typ := Base_Type (Iface_Typ);
2705 if Etype (AI) = Iface_Typ
2706 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/
H A Dsem_type.adb2563 Iface_Typ : Entity_Id; variable
2578 if Typ = Iface_Typ then
2600 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2618 if Etype (E) = Iface_Typ then
2640 Iface_Typ := Etype (Base_Type (Iface));
2642 Iface_Typ := Iface;
2647 Iface_Typ := Base_Type (Iface_Typ);
2677 if Etype (AI) = Iface_Typ
2678 or else Base_Type (Etype (AI)) = Iface_Typ
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Dsem_type.adb2483 Iface_Typ : Entity_Id; variable
2498 if Typ = Iface_Typ then
2521 if AI = Iface_Typ or else Is_Ancestor (Iface_Typ, AI) then
2539 if Etype (E) = Iface_Typ then
2561 Iface_Typ := Etype (Base_Type (Iface));
2563 Iface_Typ := Iface;
2568 Iface_Typ := Base_Type (Iface_Typ);
2598 if Etype (AI) = Iface_Typ
2599 or else Base_Type (Etype (AI)) = Iface_Typ
H A Dsem_ch9.adb3311 Iface_Typ : Entity_Id; variable
3329 Iface_Typ := Find_Type_Of_Subtype_Indic (Iface);
3331 if not Is_Interface (Iface_Typ) then
3333 ("(Ada 2005) & must be an interface", Iface, Iface_Typ);
3348 if Is_Task_Interface (Iface_Typ) then
3352 elsif not Is_Limited_Interface (Iface_Typ) then
3364 if Is_Protected_Interface (Iface_Typ) then
3368 elsif not Is_Limited_Interface (Iface_Typ) then

123456