/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 7578 Full_Parent : Entity_Id := Parent_Type; variable 7585 if Is_Private_Type (Full_Parent) 7588 Full_Parent := Full_View (Full_Parent); 7593 if Is_Private_Type (Full_Parent) 7596 Full_Parent := Underlying_Full_View (Full_Parent); 7603 if Ekind (Full_Parent) in Record_Kind 7670 (N, Full_Parent, Full_Der, 20193 Full_Parent : Entity_Id; variable 20304 Full_Parent := Etype (Full_T); 20320 and then Is_Interface (Full_Parent) [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 7578 Full_Parent : Entity_Id := Parent_Type; variable 7585 if Is_Private_Type (Full_Parent) 7588 Full_Parent := Full_View (Full_Parent); 7593 if Is_Private_Type (Full_Parent) 7596 Full_Parent := Underlying_Full_View (Full_Parent); 7603 if Ekind (Full_Parent) in Record_Kind 7670 (N, Full_Parent, Full_Der, 20193 Full_Parent : Entity_Id; variable 20304 Full_Parent := Etype (Full_T); 20320 and then Is_Interface (Full_Parent) [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
H A D | sem_ch3.adb | 7578 Full_Parent : Entity_Id := Parent_Type; variable 7585 if Is_Private_Type (Full_Parent) 7588 Full_Parent := Full_View (Full_Parent); 7593 if Is_Private_Type (Full_Parent) 7596 Full_Parent := Underlying_Full_View (Full_Parent); 7603 if Ekind (Full_Parent) in Record_Kind 7670 (N, Full_Parent, Full_Der, 20193 Full_Parent : Entity_Id; variable 20304 Full_Parent := Etype (Full_T); 20320 and then Is_Interface (Full_Parent) [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | sem_ch3.adb | 6921 Full_Parent : Entity_Id := Parent_Type; variable 6928 if Is_Private_Type (Full_Parent) 6931 Full_Parent := Full_View (Full_Parent); 6936 if Is_Private_Type (Full_Parent) 6939 Full_Parent := Underlying_Full_View (Full_Parent); 6946 if Ekind (Full_Parent) in Record_Kind 7013 (N, Full_Parent, Full_Der, 19310 Full_Parent : Entity_Id; variable 19419 Full_Parent := Etype (Full_T); 19435 and then Is_Interface (Full_Parent) [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 7578 Full_Parent : Entity_Id := Parent_Type; variable 7585 if Is_Private_Type (Full_Parent) 7588 Full_Parent := Full_View (Full_Parent); 7593 if Is_Private_Type (Full_Parent) 7596 Full_Parent := Underlying_Full_View (Full_Parent); 7603 if Ekind (Full_Parent) in Record_Kind 7670 (N, Full_Parent, Full_Der, 20193 Full_Parent : Entity_Id; variable 20304 Full_Parent := Etype (Full_T); 20320 and then Is_Interface (Full_Parent) [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 7578 Full_Parent : Entity_Id := Parent_Type; variable 7585 if Is_Private_Type (Full_Parent) 7588 Full_Parent := Full_View (Full_Parent); 7593 if Is_Private_Type (Full_Parent) 7596 Full_Parent := Underlying_Full_View (Full_Parent); 7603 if Ekind (Full_Parent) in Record_Kind 7670 (N, Full_Parent, Full_Der, 20193 Full_Parent : Entity_Id; variable 20304 Full_Parent := Etype (Full_T); 20320 and then Is_Interface (Full_Parent) [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | sem_ch3.adb | 7578 Full_Parent : Entity_Id := Parent_Type; variable 7585 if Is_Private_Type (Full_Parent) 7588 Full_Parent := Full_View (Full_Parent); 7593 if Is_Private_Type (Full_Parent) 7596 Full_Parent := Underlying_Full_View (Full_Parent); 7603 if Ekind (Full_Parent) in Record_Kind 7670 (N, Full_Parent, Full_Der, 20193 Full_Parent : Entity_Id; variable 20304 Full_Parent := Etype (Full_T); 20320 and then Is_Interface (Full_Parent) [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | sem_ch3.adb | 6921 Full_Parent : Entity_Id := Parent_Type; variable 6928 if Is_Private_Type (Full_Parent) 6931 Full_Parent := Full_View (Full_Parent); 6936 if Is_Private_Type (Full_Parent) 6939 Full_Parent := Underlying_Full_View (Full_Parent); 6946 if Ekind (Full_Parent) in Record_Kind 7013 (N, Full_Parent, Full_Der, 19310 Full_Parent : Entity_Id; variable 19419 Full_Parent := Etype (Full_T); 19435 and then Is_Interface (Full_Parent) [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/ |
H A D | sem_ch3.adb | 7751 if Is_Private_Type (Full_Parent) 7754 Full_Parent := Full_View (Full_Parent); 7766 if Is_Private_Type (Full_Parent) 7770 Full_Parent := Underlying_Full_View (Full_Parent); 7777 if Is_Private_Type (Full_Parent) 7778 or else Is_Record_Type (Full_Parent) 7780 or else Is_Access_Type (Full_Parent) 7850 (N, Full_Parent, Full_Der, 20447 Full_Parent : Entity_Id; variable 20558 Full_Parent := Etype (Full_T); [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | sem_ch3.adb | 7944 if Is_Private_Type (Full_Parent) 7947 Full_Parent := Full_View (Full_Parent); 7959 if Is_Private_Type (Full_Parent) 7963 Full_Parent := Underlying_Full_View (Full_Parent); 7970 if Is_Private_Type (Full_Parent) 7971 or else Is_Record_Type (Full_Parent) 7973 or else Is_Access_Type (Full_Parent) 8043 (N, Full_Parent, Full_Der, 20905 Full_Parent : Entity_Id; variable 21016 Full_Parent := Etype (Full_T); [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/ |
H A D | sem_ch3.adb | 7751 if Is_Private_Type (Full_Parent) 7754 Full_Parent := Full_View (Full_Parent); 7766 if Is_Private_Type (Full_Parent) 7770 Full_Parent := Underlying_Full_View (Full_Parent); 7777 if Is_Private_Type (Full_Parent) 7778 or else Is_Record_Type (Full_Parent) 7780 or else Is_Access_Type (Full_Parent) 7850 (N, Full_Parent, Full_Der, 20447 Full_Parent : Entity_Id; variable 20558 Full_Parent := Etype (Full_T); [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/ |
H A D | sem_ch3.adb | 7751 if Is_Private_Type (Full_Parent) 7754 Full_Parent := Full_View (Full_Parent); 7766 if Is_Private_Type (Full_Parent) 7770 Full_Parent := Underlying_Full_View (Full_Parent); 7777 if Is_Private_Type (Full_Parent) 7778 or else Is_Record_Type (Full_Parent) 7780 or else Is_Access_Type (Full_Parent) 7850 (N, Full_Parent, Full_Der, 20447 Full_Parent : Entity_Id; variable 20558 Full_Parent := Etype (Full_T); [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | sem_ch3.adb | 7750 if Is_Private_Type (Full_Parent) 7753 Full_Parent := Full_View (Full_Parent); 7758 if Is_Private_Type (Full_Parent) 7761 Full_Parent := Underlying_Full_View (Full_Parent); 7768 if Is_Record_Type (Full_Parent) 7770 or else Is_Access_Type (Full_Parent) 7836 (N, Full_Parent, Full_Der, 20475 Full_Parent : Entity_Id; variable 20586 Full_Parent := Etype (Full_T); 20602 and then Is_Interface (Full_Parent) [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | sem_ch3.adb | 7750 if Is_Private_Type (Full_Parent) 7753 Full_Parent := Full_View (Full_Parent); 7758 if Is_Private_Type (Full_Parent) 7761 Full_Parent := Underlying_Full_View (Full_Parent); 7768 if Is_Record_Type (Full_Parent) 7770 or else Is_Access_Type (Full_Parent) 7836 (N, Full_Parent, Full_Der, 20475 Full_Parent : Entity_Id; variable 20586 Full_Parent := Etype (Full_T); 20602 and then Is_Interface (Full_Parent) [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | sem_ch3.adb | 7750 if Is_Private_Type (Full_Parent) 7753 Full_Parent := Full_View (Full_Parent); 7758 if Is_Private_Type (Full_Parent) 7761 Full_Parent := Underlying_Full_View (Full_Parent); 7768 if Is_Record_Type (Full_Parent) 7770 or else Is_Access_Type (Full_Parent) 7836 (N, Full_Parent, Full_Der, 20475 Full_Parent : Entity_Id; variable 20586 Full_Parent := Etype (Full_T); 20602 and then Is_Interface (Full_Parent) [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 7642 Full_Parent : Entity_Id := Parent_Type; variable 7649 if Is_Private_Type (Full_Parent) 7652 Full_Parent := Full_View (Full_Parent); 7657 if Is_Private_Type (Full_Parent) 7660 Full_Parent := Underlying_Full_View (Full_Parent); 7667 if Ekind (Full_Parent) in Record_Kind 7734 (N, Full_Parent, Full_Der, 20355 Full_Parent : Entity_Id; variable 20466 Full_Parent := Etype (Full_T); 20482 and then Is_Interface (Full_Parent) [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | sem_ch3.adb | 7642 Full_Parent : Entity_Id := Parent_Type; variable 7649 if Is_Private_Type (Full_Parent) 7652 Full_Parent := Full_View (Full_Parent); 7657 if Is_Private_Type (Full_Parent) 7660 Full_Parent := Underlying_Full_View (Full_Parent); 7667 if Ekind (Full_Parent) in Record_Kind 7734 (N, Full_Parent, Full_Der, 20355 Full_Parent : Entity_Id; variable 20466 Full_Parent := Etype (Full_T); 20482 and then Is_Interface (Full_Parent) [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | sem_ch3.adb | 7642 Full_Parent : Entity_Id := Parent_Type; variable 7649 if Is_Private_Type (Full_Parent) 7652 Full_Parent := Full_View (Full_Parent); 7657 if Is_Private_Type (Full_Parent) 7660 Full_Parent := Underlying_Full_View (Full_Parent); 7667 if Ekind (Full_Parent) in Record_Kind 7734 (N, Full_Parent, Full_Der, 20355 Full_Parent : Entity_Id; variable 20466 Full_Parent := Etype (Full_T); 20482 and then Is_Interface (Full_Parent) [all …]
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_ch3.adb | 11352 Full_Parent : Entity_Id; variable 11403 Full_Parent := Etype (Base_Type (Full_T)); 11406 Full_Parent := Etype (Full_T); 11414 if Priv_Parent = Any_Type or else Full_Parent = Any_Type then 11417 elsif not Is_Ancestor (Base_Type (Priv_Parent), Full_Parent) then 11443 Is_Constrained (Full_Parent) 11453 Full_Discr := First_Discriminant (Full_Parent);
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_ch3.adb | 11352 Full_Parent : Entity_Id; variable 11403 Full_Parent := Etype (Base_Type (Full_T)); 11406 Full_Parent := Etype (Full_T); 11414 if Priv_Parent = Any_Type or else Full_Parent = Any_Type then 11417 elsif not Is_Ancestor (Base_Type (Priv_Parent), Full_Parent) then 11443 Is_Constrained (Full_Parent) 11453 Full_Discr := First_Discriminant (Full_Parent);
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | sem_ch3.adb | 17728 Full_Parent : Entity_Id; variable 17925 Full_Parent := Etype (Base_Type (Full_T)); 17928 Full_Parent := Etype (Full_T); 17936 if Priv_Parent = Any_Type or else Full_Parent = Any_Type then 17944 and then Is_Interface (Full_Parent) 17954 and then not Is_Ancestor (Base_Type (Priv_Parent), Full_Parent) 17971 if Priv_Parent /= Full_Parent then 17998 Is_Constrained (Full_Parent) 18009 Full_Discr := First_Discriminant (Full_Parent);
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | sem_ch3.adb | 17728 Full_Parent : Entity_Id; variable 17925 Full_Parent := Etype (Base_Type (Full_T)); 17928 Full_Parent := Etype (Full_T); 17936 if Priv_Parent = Any_Type or else Full_Parent = Any_Type then 17944 and then Is_Interface (Full_Parent) 17954 and then not Is_Ancestor (Base_Type (Priv_Parent), Full_Parent) 17971 if Priv_Parent /= Full_Parent then 17998 Is_Constrained (Full_Parent) 18009 Full_Discr := First_Discriminant (Full_Parent);
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | sem_ch3.adb | 18138 Full_Parent : Entity_Id; variable 18335 Full_Parent := Etype (Base_Type (Full_T)); 18338 Full_Parent := Etype (Full_T); 18346 if Priv_Parent = Any_Type or else Full_Parent = Any_Type then 18354 and then Is_Interface (Full_Parent) 18364 and then not Is_Ancestor (Base_Type (Priv_Parent), Full_Parent) 18381 if Priv_Parent /= Full_Parent then 18408 Is_Constrained (Full_Parent) 18419 Full_Discr := First_Discriminant (Full_Parent);
|