/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 5937 Discr_Type : Entity_Id; variable 5980 Discr_Type := Etype (Entity (Discr_Name)); 5982 if not Is_Discrete_Type (Discr_Type) then 5992 Analyze_Choices (Variants (N), Discr_Type); 19782 Discr_Type : Entity_Id; variable 19827 Discr_Type := 19836 Discr_Type := Any_Type; 19842 if Is_Access_Type (Discr_Type) then 19951 elsif Is_Access_Type (Discr_Type) 19963 Discr_Type); [all …]
|
H A D | exp_ch3.adb | 4330 Discr_Type : Entity_Id; variable 4339 Discr_Type := Etype (Discr); 4352 New_Occurrence_Of (Discr_Type, Loc))); 4358 New_Occurrence_Of (Discr_Type, Loc)));
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 5937 Discr_Type : Entity_Id; variable 5980 Discr_Type := Etype (Entity (Discr_Name)); 5982 if not Is_Discrete_Type (Discr_Type) then 5992 Analyze_Choices (Variants (N), Discr_Type); 19782 Discr_Type : Entity_Id; variable 19827 Discr_Type := 19836 Discr_Type := Any_Type; 19842 if Is_Access_Type (Discr_Type) then 19951 elsif Is_Access_Type (Discr_Type) 19963 Discr_Type); [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
H A D | sem_ch3.adb | 5937 Discr_Type : Entity_Id; variable 5980 Discr_Type := Etype (Entity (Discr_Name)); 5982 if not Is_Discrete_Type (Discr_Type) then 5992 Analyze_Choices (Variants (N), Discr_Type); 19782 Discr_Type : Entity_Id; variable 19827 Discr_Type := 19836 Discr_Type := Any_Type; 19842 if Is_Access_Type (Discr_Type) then 19951 elsif Is_Access_Type (Discr_Type) 19963 Discr_Type); [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | sem_ch3.adb | 5278 Discr_Type : Entity_Id; variable 5321 Discr_Type := Etype (Entity (Discr_Name)); 5323 if not Is_Discrete_Type (Discr_Type) then 5333 Analyze_Choices (Variants (N), Discr_Type); 18905 Discr_Type : Entity_Id; variable 18950 Discr_Type := 18959 Discr_Type := Any_Type; 18965 if Is_Access_Type (Discr_Type) then 19074 elsif Is_Access_Type (Discr_Type) 19086 Discr_Type); [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 5937 Discr_Type : Entity_Id; variable 5980 Discr_Type := Etype (Entity (Discr_Name)); 5982 if not Is_Discrete_Type (Discr_Type) then 5992 Analyze_Choices (Variants (N), Discr_Type); 19782 Discr_Type : Entity_Id; variable 19827 Discr_Type := 19836 Discr_Type := Any_Type; 19842 if Is_Access_Type (Discr_Type) then 19951 elsif Is_Access_Type (Discr_Type) 19963 Discr_Type); [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 5937 Discr_Type : Entity_Id; variable 5980 Discr_Type := Etype (Entity (Discr_Name)); 5982 if not Is_Discrete_Type (Discr_Type) then 5992 Analyze_Choices (Variants (N), Discr_Type); 19782 Discr_Type : Entity_Id; variable 19827 Discr_Type := 19836 Discr_Type := Any_Type; 19842 if Is_Access_Type (Discr_Type) then 19951 elsif Is_Access_Type (Discr_Type) 19963 Discr_Type); [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | sem_ch3.adb | 5937 Discr_Type : Entity_Id; variable 5980 Discr_Type := Etype (Entity (Discr_Name)); 5982 if not Is_Discrete_Type (Discr_Type) then 5992 Analyze_Choices (Variants (N), Discr_Type); 19782 Discr_Type : Entity_Id; variable 19827 Discr_Type := 19836 Discr_Type := Any_Type; 19842 if Is_Access_Type (Discr_Type) then 19951 elsif Is_Access_Type (Discr_Type) 19963 Discr_Type); [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | sem_ch3.adb | 5278 Discr_Type : Entity_Id; variable 5321 Discr_Type := Etype (Entity (Discr_Name)); 5323 if not Is_Discrete_Type (Discr_Type) then 5333 Analyze_Choices (Variants (N), Discr_Type); 18905 Discr_Type : Entity_Id; variable 18950 Discr_Type := 18959 Discr_Type := Any_Type; 18965 if Is_Access_Type (Discr_Type) then 19074 elsif Is_Access_Type (Discr_Type) 19086 Discr_Type); [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | sem_ch3.adb | 6070 Discr_Type : Entity_Id; variable 6113 Discr_Type := Etype (Entity (Discr_Name)); 6115 if not Is_Discrete_Type (Discr_Type) then 20469 Discr_Type : Entity_Id; variable 20519 Discr_Type := 20529 Discr_Type := 20538 Discr_Type := Any_Type; 20544 if Is_Access_Type (Discr_Type) then 20653 elsif Is_Access_Type (Discr_Type) 20665 Discr_Type); [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | sem_ch3.adb | 4634 Discr_Type : Entity_Id; variable 4661 Discr_Type := Etype (Entity (Discr_Name)); 4663 if not Is_Discrete_Type (Discr_Type) then 17443 Discr_Type : Entity_Id; variable 17488 Discr_Type := 17497 Discr_Type := Any_Type; 17501 if Is_Access_Type (Discr_Type) then 17592 elsif Is_Access_Type (Discr_Type) 17598 and then not Is_Itype (Discr_Type) 17604 Discr_Type); [all …]
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | sem_ch3.adb | 4634 Discr_Type : Entity_Id; variable 4661 Discr_Type := Etype (Entity (Discr_Name)); 4663 if not Is_Discrete_Type (Discr_Type) then 17443 Discr_Type : Entity_Id; variable 17488 Discr_Type := 17497 Discr_Type := Any_Type; 17501 if Is_Access_Type (Discr_Type) then 17592 elsif Is_Access_Type (Discr_Type) 17598 and then not Is_Itype (Discr_Type) 17604 Discr_Type); [all …]
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | sem_ch3.adb | 4908 Discr_Type : Entity_Id; variable 4951 Discr_Type := Etype (Entity (Discr_Name)); 4953 if not Is_Discrete_Type (Discr_Type) then 4963 Analyze_Choices (Variants (N), Discr_Type); 17843 Discr_Type : Entity_Id; variable 17888 Discr_Type := 17897 Discr_Type := Any_Type; 17901 if Is_Access_Type (Discr_Type) then 17992 elsif Is_Access_Type (Discr_Type) 18004 Discr_Type); [all …]
|
H A D | exp_ch3.adb | 4369 Discr_Type : Entity_Id; variable 4378 Discr_Type := Etype (Discr); 4391 New_Occurrence_Of (Discr_Type, Loc))); 4397 New_Occurrence_Of (Discr_Type, Loc)));
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/ |
H A D | sem_ch3.adb | 5946 Discr_Type : Entity_Id; variable 5989 Discr_Type := Etype (Entity (Discr_Name)); 5991 if not Is_Discrete_Type (Discr_Type) then 6001 Analyze_Choices (Variants (N), Discr_Type); 20031 Discr_Type : Entity_Id; variable 20076 Discr_Type := 20085 Discr_Type := Any_Type; 20091 if Is_Access_Type (Discr_Type) then 20200 elsif Is_Access_Type (Discr_Type) 20212 Discr_Type); [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/ |
H A D | sem_ch3.adb | 5946 Discr_Type : Entity_Id; variable 5989 Discr_Type := Etype (Entity (Discr_Name)); 5991 if not Is_Discrete_Type (Discr_Type) then 6001 Analyze_Choices (Variants (N), Discr_Type); 20031 Discr_Type : Entity_Id; variable 20076 Discr_Type := 20085 Discr_Type := Any_Type; 20091 if Is_Access_Type (Discr_Type) then 20200 elsif Is_Access_Type (Discr_Type) 20212 Discr_Type); [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/ |
H A D | sem_ch3.adb | 5946 Discr_Type : Entity_Id; variable 5989 Discr_Type := Etype (Entity (Discr_Name)); 5991 if not Is_Discrete_Type (Discr_Type) then 6001 Analyze_Choices (Variants (N), Discr_Type); 20031 Discr_Type : Entity_Id; variable 20076 Discr_Type := 20085 Discr_Type := Any_Type; 20091 if Is_Access_Type (Discr_Type) then 20200 elsif Is_Access_Type (Discr_Type) 20212 Discr_Type); [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/ |
H A D | sem_ch3.adb | 5999 Discr_Type : Entity_Id; variable 6042 Discr_Type := Etype (Entity (Discr_Name)); 6044 if not Is_Discrete_Type (Discr_Type) then 6054 Analyze_Choices (Variants (N), Discr_Type); 19942 Discr_Type : Entity_Id; variable 19987 Discr_Type := 19996 Discr_Type := Any_Type; 20002 if Is_Access_Type (Discr_Type) then 20111 elsif Is_Access_Type (Discr_Type) 20123 Discr_Type); [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | sem_ch3.adb | 6055 Discr_Type : Entity_Id; variable 6098 Discr_Type := Etype (Entity (Discr_Name)); 6100 if not Is_Discrete_Type (Discr_Type) then 6110 Analyze_Choices (Variants (N), Discr_Type); 20062 Discr_Type : Entity_Id; variable 20107 Discr_Type := 20116 Discr_Type := Any_Type; 20122 if Is_Access_Type (Discr_Type) then 20231 elsif Is_Access_Type (Discr_Type) 20243 Discr_Type); [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | sem_ch3.adb | 6055 Discr_Type : Entity_Id; variable 6098 Discr_Type := Etype (Entity (Discr_Name)); 6100 if not Is_Discrete_Type (Discr_Type) then 6110 Analyze_Choices (Variants (N), Discr_Type); 20062 Discr_Type : Entity_Id; variable 20107 Discr_Type := 20116 Discr_Type := Any_Type; 20122 if Is_Access_Type (Discr_Type) then 20231 elsif Is_Access_Type (Discr_Type) 20243 Discr_Type); [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | sem_ch3.adb | 6055 Discr_Type : Entity_Id; variable 6098 Discr_Type := Etype (Entity (Discr_Name)); 6100 if not Is_Discrete_Type (Discr_Type) then 6110 Analyze_Choices (Variants (N), Discr_Type); 20062 Discr_Type : Entity_Id; variable 20107 Discr_Type := 20116 Discr_Type := Any_Type; 20122 if Is_Access_Type (Discr_Type) then 20231 elsif Is_Access_Type (Discr_Type) 20243 Discr_Type); [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | sem_ch3.adb | 5999 Discr_Type : Entity_Id; variable 6042 Discr_Type := Etype (Entity (Discr_Name)); 6044 if not Is_Discrete_Type (Discr_Type) then 6054 Analyze_Choices (Variants (N), Discr_Type); 19942 Discr_Type : Entity_Id; variable 19987 Discr_Type := 19996 Discr_Type := Any_Type; 20002 if Is_Access_Type (Discr_Type) then 20111 elsif Is_Access_Type (Discr_Type) 20123 Discr_Type); [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | sem_ch3.adb | 5999 Discr_Type : Entity_Id; variable 6042 Discr_Type := Etype (Entity (Discr_Name)); 6044 if not Is_Discrete_Type (Discr_Type) then 6054 Analyze_Choices (Variants (N), Discr_Type); 19942 Discr_Type : Entity_Id; variable 19987 Discr_Type := 19996 Discr_Type := Any_Type; 20002 if Is_Access_Type (Discr_Type) then 20111 elsif Is_Access_Type (Discr_Type) 20123 Discr_Type); [all …]
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_ch3.adb | 2695 Discr_Type : Entity_Id; variable 2712 Discr_Type := Etype (Entity (Discr_Name)); 2714 if not Is_Discrete_Type (Discr_Type) then 2724 (N, Discr_Type, Case_Table, Last_Choice, Dont_Care, Others_Present); 11182 Discr_Type : Entity_Id; variable 11223 Discr_Type := Etype (Discriminant_Type (Discr)); 11226 Discr_Type := Any_Type; 11230 if Is_Access_Type (Discr_Type) then 11239 elsif not Is_Discrete_Type (Discr_Type) then 11244 Set_Etype (Defining_Identifier (Discr), Discr_Type); [all …]
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_ch3.adb | 2695 Discr_Type : Entity_Id; variable 2712 Discr_Type := Etype (Entity (Discr_Name)); 2714 if not Is_Discrete_Type (Discr_Type) then 2724 (N, Discr_Type, Case_Table, Last_Choice, Dont_Care, Others_Present); 11182 Discr_Type : Entity_Id; variable 11223 Discr_Type := Etype (Discriminant_Type (Discr)); 11226 Discr_Type := Any_Type; 11230 if Is_Access_Type (Discr_Type) then 11239 elsif not Is_Discrete_Type (Discr_Type) then 11244 Set_Etype (Defining_Identifier (Discr), Discr_Type); [all …]
|