/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | exp_ch7.adb | 2431 Utyp := Full_View (Utyp); 4764 if Utyp /= Base_Type (Utyp) then 4767 Utyp := Base_Type (Utyp); 6987 Utyp := Full_View (Etype (Utyp)); 6995 if Utyp /= Base_Type (Utyp) then 6998 Utyp := Base_Type (Utyp); 7436 if Utyp /= Base_Type (Utyp) then 7438 Utyp := Base_Type (Utyp); 7538 Utyp := Full_View (Utyp); 7570 if Utyp /= Base_Type (Utyp) then [all …]
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | exp_ch7.adb | 2431 Utyp := Full_View (Utyp); 4764 if Utyp /= Base_Type (Utyp) then 4767 Utyp := Base_Type (Utyp); 6987 Utyp := Full_View (Etype (Utyp)); 6995 if Utyp /= Base_Type (Utyp) then 6998 Utyp := Base_Type (Utyp); 7436 if Utyp /= Base_Type (Utyp) then 7438 Utyp := Base_Type (Utyp); 7538 Utyp := Full_View (Utyp); 7570 if Utyp /= Base_Type (Utyp) then [all …]
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | exp_ch7.adb | 2369 Utyp := Full_View (Utyp); 4926 if Utyp /= Base_Type (Utyp) then 4929 Utyp := Base_Type (Utyp); 7150 Utyp := Full_View (Etype (Utyp)); 7158 if Utyp /= Base_Type (Utyp) then 7161 Utyp := Base_Type (Utyp); 7599 if Utyp /= Base_Type (Utyp) then 7601 Utyp := Base_Type (Utyp); 7701 Utyp := Full_View (Utyp); 7733 if Utyp /= Base_Type (Utyp) then [all …]
|
H A D | sem_aux.adb | 772 Utyp : constant Entity_Id := Underlying_Type (Btype); constant 774 if No (Utyp) then 777 return Is_By_Reference_Type (Utyp); 928 Utyp : constant Entity_Id := Underlying_Type (Btype); constant 930 if No (Utyp) then 933 return Is_Immutably_Limited_Type (Utyp); 1097 Utyp : constant Entity_Id := Underlying_Type (Btype); constant 1099 if No (Utyp) then 1102 return Is_Limited_View (Utyp);
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | exp_ch7.adb | 2068 if Utyp /= Base_Type (Utyp) then 2070 Utyp := Base_Type (Utyp); 2788 Utyp : Entity_Id; variable 2806 Utyp := Typ; 2810 Utyp := Underlying_Type (Base_Type (Utyp)); 2826 if Utyp /= Base_Type (Utyp) then 2828 Utyp := Base_Type (Utyp); 2934 Utyp := Typ; 2938 Utyp := Underlying_Type (Base_Type (Utyp)); 2957 if Utyp /= Base_Type (Utyp) then [all …]
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | exp_ch7.adb | 2068 if Utyp /= Base_Type (Utyp) then 2070 Utyp := Base_Type (Utyp); 2788 Utyp : Entity_Id; variable 2806 Utyp := Typ; 2810 Utyp := Underlying_Type (Base_Type (Utyp)); 2826 if Utyp /= Base_Type (Utyp) then 2828 Utyp := Base_Type (Utyp); 2934 Utyp := Typ; 2938 Utyp := Underlying_Type (Base_Type (Utyp)); 2957 if Utyp /= Base_Type (Utyp) then [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_ch7.adb | 5596 Utyp := Underlying_Type (Base_Type (Utyp)); 5610 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 5613 Utyp := Base_Type (Utyp); 7854 Utyp := Underlying_Type (Base_Type (Utyp)); 7868 Utyp := Corresponding_Record_Type (Utyp); 7887 Utyp := Full_View (Etype (Utyp)); 7895 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 7898 Utyp := Base_Type (Utyp); 8349 Utyp := Underlying_Type (Base_Type (Utyp)); 8367 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_ch7.adb | 5596 Utyp := Underlying_Type (Base_Type (Utyp)); 5610 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 5613 Utyp := Base_Type (Utyp); 7854 Utyp := Underlying_Type (Base_Type (Utyp)); 7868 Utyp := Corresponding_Record_Type (Utyp); 7887 Utyp := Full_View (Etype (Utyp)); 7895 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 7898 Utyp := Base_Type (Utyp); 8349 Utyp := Underlying_Type (Base_Type (Utyp)); 8367 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
H A D | exp_ch7.adb | 5596 Utyp := Underlying_Type (Base_Type (Utyp)); 5610 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 5613 Utyp := Base_Type (Utyp); 7854 Utyp := Underlying_Type (Base_Type (Utyp)); 7868 Utyp := Corresponding_Record_Type (Utyp); 7887 Utyp := Full_View (Etype (Utyp)); 7895 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 7898 Utyp := Base_Type (Utyp); 8349 Utyp := Underlying_Type (Base_Type (Utyp)); 8367 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | exp_ch7.adb | 5596 Utyp := Underlying_Type (Base_Type (Utyp)); 5610 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 5613 Utyp := Base_Type (Utyp); 7854 Utyp := Underlying_Type (Base_Type (Utyp)); 7868 Utyp := Corresponding_Record_Type (Utyp); 7887 Utyp := Full_View (Etype (Utyp)); 7895 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 7898 Utyp := Base_Type (Utyp); 8349 Utyp := Underlying_Type (Base_Type (Utyp)); 8367 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_ch7.adb | 5596 Utyp := Underlying_Type (Base_Type (Utyp)); 5610 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 5613 Utyp := Base_Type (Utyp); 7854 Utyp := Underlying_Type (Base_Type (Utyp)); 7868 Utyp := Corresponding_Record_Type (Utyp); 7887 Utyp := Full_View (Etype (Utyp)); 7895 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 7898 Utyp := Base_Type (Utyp); 8349 Utyp := Underlying_Type (Base_Type (Utyp)); 8367 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_ch7.adb | 5596 Utyp := Underlying_Type (Base_Type (Utyp)); 5610 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 5613 Utyp := Base_Type (Utyp); 7854 Utyp := Underlying_Type (Base_Type (Utyp)); 7868 Utyp := Corresponding_Record_Type (Utyp); 7887 Utyp := Full_View (Etype (Utyp)); 7895 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 7898 Utyp := Base_Type (Utyp); 8349 Utyp := Underlying_Type (Base_Type (Utyp)); 8367 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | exp_ch7.adb | 5178 Utyp := Underlying_Type (Base_Type (Utyp)); 5192 if Utyp /= Base_Type (Utyp) then 5195 Utyp := Base_Type (Utyp); 7348 Utyp := Underlying_Type (Base_Type (Utyp)); 7362 Utyp := Corresponding_Record_Type (Utyp); 7380 Utyp := Full_View (Etype (Utyp)); 7388 if Utyp /= Base_Type (Utyp) then 7391 Utyp := Base_Type (Utyp); 7815 Utyp := Underlying_Type (Base_Type (Utyp)); 7832 if Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | exp_ch7.adb | 5178 Utyp := Underlying_Type (Base_Type (Utyp)); 5192 if Utyp /= Base_Type (Utyp) then 5195 Utyp := Base_Type (Utyp); 7348 Utyp := Underlying_Type (Base_Type (Utyp)); 7362 Utyp := Corresponding_Record_Type (Utyp); 7380 Utyp := Full_View (Etype (Utyp)); 7388 if Utyp /= Base_Type (Utyp) then 7391 Utyp := Base_Type (Utyp); 7815 Utyp := Underlying_Type (Base_Type (Utyp)); 7832 if Utyp /= Base_Type (Utyp) then [all …]
|
H A D | sem_aux.adb | 902 Utyp : constant Entity_Id := Underlying_Type (Btype); constant 904 if No (Utyp) then 907 return Is_By_Reference_Type (Utyp); 1093 Utyp : constant Entity_Id := Underlying_Type (Btype); constant 1095 if No (Utyp) then 1098 return Is_Immutably_Limited_Type (Utyp); 1230 Utyp : constant Entity_Id := Underlying_Type (Btype); constant 1232 if No (Utyp) then 1235 return Is_Limited_View (Utyp);
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | exp_ch7.adb | 6046 Utyp := Underlying_Type (Base_Type (Utyp)); 6060 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6063 Utyp := Base_Type (Utyp); 8300 Utyp := Underlying_Type (Base_Type (Utyp)); 8314 Utyp := Corresponding_Record_Type (Utyp); 8333 Utyp := Full_View (Etype (Utyp)); 8341 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8344 Utyp := Base_Type (Utyp); 8795 Utyp := Underlying_Type (Base_Type (Utyp)); 8813 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/ |
H A D | exp_ch7.adb | 6664 Utyp := Underlying_Type (Base_Type (Utyp)); 6678 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6681 Utyp := Base_Type (Utyp); 8933 Utyp := Underlying_Type (Base_Type (Utyp)); 8947 Utyp := Corresponding_Record_Type (Utyp); 8966 Utyp := Full_View (Etype (Utyp)); 8974 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8977 Utyp := Base_Type (Utyp); 9455 Utyp := Underlying_Type (Base_Type (Utyp)); 9473 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | exp_ch7.adb | 6046 Utyp := Underlying_Type (Base_Type (Utyp)); 6060 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6063 Utyp := Base_Type (Utyp); 8300 Utyp := Underlying_Type (Base_Type (Utyp)); 8314 Utyp := Corresponding_Record_Type (Utyp); 8333 Utyp := Full_View (Etype (Utyp)); 8341 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8344 Utyp := Base_Type (Utyp); 8795 Utyp := Underlying_Type (Base_Type (Utyp)); 8813 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | exp_ch7.adb | 6721 Utyp := Underlying_Type (Base_Type (Utyp)); 6735 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6738 Utyp := Base_Type (Utyp); 8991 Utyp := Underlying_Type (Base_Type (Utyp)); 9005 Utyp := Corresponding_Record_Type (Utyp); 9024 Utyp := Full_View (Etype (Utyp)); 9032 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 9035 Utyp := Base_Type (Utyp); 9526 Utyp := Underlying_Type (Base_Type (Utyp)); 9544 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/ |
H A D | exp_ch7.adb | 6664 Utyp := Underlying_Type (Base_Type (Utyp)); 6678 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6681 Utyp := Base_Type (Utyp); 8933 Utyp := Underlying_Type (Base_Type (Utyp)); 8947 Utyp := Corresponding_Record_Type (Utyp); 8966 Utyp := Full_View (Etype (Utyp)); 8974 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8977 Utyp := Base_Type (Utyp); 9455 Utyp := Underlying_Type (Base_Type (Utyp)); 9473 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | exp_ch7.adb | 6046 Utyp := Underlying_Type (Base_Type (Utyp)); 6060 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6063 Utyp := Base_Type (Utyp); 8300 Utyp := Underlying_Type (Base_Type (Utyp)); 8314 Utyp := Corresponding_Record_Type (Utyp); 8333 Utyp := Full_View (Etype (Utyp)); 8341 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8344 Utyp := Base_Type (Utyp); 8795 Utyp := Underlying_Type (Base_Type (Utyp)); 8813 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/ |
H A D | exp_ch7.adb | 6664 Utyp := Underlying_Type (Base_Type (Utyp)); 6678 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6681 Utyp := Base_Type (Utyp); 8933 Utyp := Underlying_Type (Base_Type (Utyp)); 8947 Utyp := Corresponding_Record_Type (Utyp); 8966 Utyp := Full_View (Etype (Utyp)); 8974 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8977 Utyp := Base_Type (Utyp); 9455 Utyp := Underlying_Type (Base_Type (Utyp)); 9473 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/ |
H A D | exp_ch7.adb | 5992 Utyp := Underlying_Type (Base_Type (Utyp)); 6006 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6009 Utyp := Base_Type (Utyp); 8246 Utyp := Underlying_Type (Base_Type (Utyp)); 8260 Utyp := Corresponding_Record_Type (Utyp); 8279 Utyp := Full_View (Etype (Utyp)); 8287 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8290 Utyp := Base_Type (Utyp); 8741 Utyp := Underlying_Type (Base_Type (Utyp)); 8759 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | exp_ch7.adb | 5992 Utyp := Underlying_Type (Base_Type (Utyp)); 6006 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6009 Utyp := Base_Type (Utyp); 8246 Utyp := Underlying_Type (Base_Type (Utyp)); 8260 Utyp := Corresponding_Record_Type (Utyp); 8279 Utyp := Full_View (Etype (Utyp)); 8287 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8290 Utyp := Base_Type (Utyp); 8741 Utyp := Underlying_Type (Base_Type (Utyp)); 8759 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | exp_ch7.adb | 5992 Utyp := Underlying_Type (Base_Type (Utyp)); 6006 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 6009 Utyp := Base_Type (Utyp); 8246 Utyp := Underlying_Type (Base_Type (Utyp)); 8260 Utyp := Corresponding_Record_Type (Utyp); 8279 Utyp := Full_View (Etype (Utyp)); 8287 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then 8290 Utyp := Base_Type (Utyp); 8741 Utyp := Underlying_Type (Base_Type (Utyp)); 8759 if Present (Utyp) and then Utyp /= Base_Type (Utyp) then [all …]
|