/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | exp_disp.adb | 1128 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 D | sem_type.adb | 2507 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 D | exp_disp.adb | 1128 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 D | sem_type.adb | 2507 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2483 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 D | sem_ch9.adb | 3311 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2591 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2600 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2486 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2591 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2591 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2563 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 D | sem_type.adb | 2483 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 D | sem_ch9.adb | 3311 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
|