/dports/lang/asis/asis-gpl-2016-src/asis/ |
H A D | a4g-cu_info2.adb | 666 Unit_Kind : constant Unit_Kinds := Kind (C, U); constant 670 if Unit_Kind = A_Procedure or else 671 Unit_Kind = A_Function or else 672 Unit_Kind = A_Package or else 673 Unit_Kind = A_Generic_Procedure or else 674 Unit_Kind = A_Generic_Function or else 675 Unit_Kind = A_Generic_Package or else 676 Unit_Kind = A_Procedure_Instance or else 677 Unit_Kind = A_Function_Instance or else 678 Unit_Kind = A_Package_Instance or else [all …]
|
H A D | asis-elements.adb | 792 Unit_Kind : Asis.Unit_Kinds; variable 799 Unit_Kind := Kind (Compilation_Unit); 801 if Unit_Kind = Not_A_Unit then 806 if Unit_Kind = A_Nonexistent_Declaration or else 809 Unit_Kind = A_Configuration_Compilation 829 Unit_Kind = A_Protected_Body_Subunit 906 Unit_Kind := Kind (Compilation_Unit); 908 if Unit_Kind = Not_A_Unit then 993 Unit_Kind : Asis.Unit_Kinds; variable 1004 Unit_Kind := Kind (Compilation_Unit); [all …]
|
H A D | asis-compilation_units.adb | 1385 Unit_Kind : Asis.Unit_Kinds; variable 1391 Unit_Kind := Kind (Compilation_Unit); 1393 return not (Unit_Kind = Not_A_Unit or else 1394 Unit_Kind = A_Nonexistent_Declaration or else 1395 Unit_Kind = A_Nonexistent_Body); 1439 Unit_Kind : constant Asis.Unit_Kinds := Kind (Compilation_Unit); constant 1445 case Unit_Kind is 1916 Arg_Kind := Unit_Kind (Compilation_Unit); 1989 Unit_Kind (Compilation_Unit) = A_Configuration_Compilation 2023 function Unit_Kind subprogram [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 803 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 837 if (Unit_Kind = N_Package_Declaration 839 or else (Unit_Kind = N_Generic_Package_Declaration 841 or else Unit_Kind = N_Package_Renaming_Declaration 842 or else Unit_Kind = N_Subprogram_Renaming_Declaration 887 if Unit_Kind = N_Package_Declaration 912 elsif Unit_Kind in N_Renaming_Declaration then 923 if Unit_Kind = N_Package_Declaration then 927 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 820 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 854 if (Unit_Kind = N_Package_Declaration 856 or else (Unit_Kind = N_Generic_Package_Declaration 858 or else Unit_Kind = N_Package_Renaming_Declaration 859 or else Unit_Kind = N_Subprogram_Renaming_Declaration 904 if Unit_Kind = N_Package_Declaration 929 elsif Unit_Kind in N_Renaming_Declaration then 940 if Unit_Kind = N_Package_Declaration then 944 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 803 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 837 if (Unit_Kind = N_Package_Declaration 839 or else (Unit_Kind = N_Generic_Package_Declaration 841 or else Unit_Kind = N_Package_Renaming_Declaration 842 or else Unit_Kind = N_Subprogram_Renaming_Declaration 887 if Unit_Kind = N_Package_Declaration 912 elsif Unit_Kind in N_Renaming_Declaration then 923 if Unit_Kind = N_Package_Declaration then 927 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 803 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 837 if (Unit_Kind = N_Package_Declaration 839 or else (Unit_Kind = N_Generic_Package_Declaration 841 or else Unit_Kind = N_Package_Renaming_Declaration 842 or else Unit_Kind = N_Subprogram_Renaming_Declaration 887 if Unit_Kind = N_Package_Declaration 912 elsif Unit_Kind in N_Renaming_Declaration then 923 if Unit_Kind = N_Package_Declaration then 927 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 803 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 837 if (Unit_Kind = N_Package_Declaration 839 or else (Unit_Kind = N_Generic_Package_Declaration 841 or else Unit_Kind = N_Package_Renaming_Declaration 842 or else Unit_Kind = N_Subprogram_Renaming_Declaration 887 if Unit_Kind = N_Package_Declaration 912 elsif Unit_Kind in N_Renaming_Declaration then 923 if Unit_Kind = N_Package_Declaration then 927 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 803 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 837 if (Unit_Kind = N_Package_Declaration 839 or else (Unit_Kind = N_Generic_Package_Declaration 841 or else Unit_Kind = N_Package_Renaming_Declaration 842 or else Unit_Kind = N_Subprogram_Renaming_Declaration 887 if Unit_Kind = N_Package_Declaration 912 elsif Unit_Kind in N_Renaming_Declaration then 923 if Unit_Kind = N_Package_Declaration then 927 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 803 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 837 if (Unit_Kind = N_Package_Declaration 839 or else (Unit_Kind = N_Generic_Package_Declaration 841 or else Unit_Kind = N_Package_Renaming_Declaration 842 or else Unit_Kind = N_Subprogram_Renaming_Declaration 887 if Unit_Kind = N_Package_Declaration 912 elsif Unit_Kind in N_Renaming_Declaration then 923 if Unit_Kind = N_Package_Declaration then 927 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 820 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 854 if (Unit_Kind = N_Package_Declaration 856 or else (Unit_Kind = N_Generic_Package_Declaration 858 or else Unit_Kind = N_Package_Renaming_Declaration 859 or else Unit_Kind = N_Subprogram_Renaming_Declaration 904 if Unit_Kind = N_Package_Declaration 929 elsif Unit_Kind in N_Renaming_Declaration then 940 if Unit_Kind = N_Package_Declaration then 944 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | gnat1drv.adb | 100 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 820 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 854 if (Unit_Kind = N_Package_Declaration 856 or else (Unit_Kind = N_Generic_Package_Declaration 858 or else Unit_Kind = N_Package_Renaming_Declaration 859 or else Unit_Kind = N_Subprogram_Renaming_Declaration 904 if Unit_Kind = N_Package_Declaration 929 elsif Unit_Kind in N_Renaming_Declaration then 940 if Unit_Kind = N_Package_Declaration then 944 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | gnat1drv.adb | 103 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 852 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 886 if (Unit_Kind = N_Package_Declaration 888 or else (Unit_Kind = N_Generic_Package_Declaration 890 or else Unit_Kind = N_Package_Renaming_Declaration 891 or else Unit_Kind = N_Subprogram_Renaming_Declaration 936 if Unit_Kind = N_Package_Declaration 961 elsif Unit_Kind in N_Renaming_Declaration then 972 if Unit_Kind = N_Package_Declaration then 976 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/ |
H A D | gnat1drv.adb | 102 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 833 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 867 if (Unit_Kind = N_Package_Declaration 869 or else (Unit_Kind = N_Generic_Package_Declaration 871 or else Unit_Kind = N_Package_Renaming_Declaration 872 or else Unit_Kind = N_Subprogram_Renaming_Declaration 917 if Unit_Kind = N_Package_Declaration 942 elsif Unit_Kind in N_Renaming_Declaration then 953 if Unit_Kind = N_Package_Declaration then 957 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | gnat1drv.adb | 103 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 852 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 886 if (Unit_Kind = N_Package_Declaration 888 or else (Unit_Kind = N_Generic_Package_Declaration 890 or else Unit_Kind = N_Package_Renaming_Declaration 891 or else Unit_Kind = N_Subprogram_Renaming_Declaration 936 if Unit_Kind = N_Package_Declaration 961 elsif Unit_Kind in N_Renaming_Declaration then 972 if Unit_Kind = N_Package_Declaration then 976 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | gnat1drv.adb | 103 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 840 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 874 if (Unit_Kind = N_Package_Declaration 876 or else (Unit_Kind = N_Generic_Package_Declaration 878 or else Unit_Kind = N_Package_Renaming_Declaration 879 or else Unit_Kind = N_Subprogram_Renaming_Declaration 924 if Unit_Kind = N_Package_Declaration 949 elsif Unit_Kind in N_Renaming_Declaration then 960 if Unit_Kind = N_Package_Declaration then 964 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/ |
H A D | gnat1drv.adb | 102 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 833 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 867 if (Unit_Kind = N_Package_Declaration 869 or else (Unit_Kind = N_Generic_Package_Declaration 871 or else Unit_Kind = N_Package_Renaming_Declaration 872 or else Unit_Kind = N_Subprogram_Renaming_Declaration 917 if Unit_Kind = N_Package_Declaration 942 elsif Unit_Kind in N_Renaming_Declaration then 953 if Unit_Kind = N_Package_Declaration then 957 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | gnat1drv.adb | 103 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 852 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 886 if (Unit_Kind = N_Package_Declaration 888 or else (Unit_Kind = N_Generic_Package_Declaration 890 or else Unit_Kind = N_Package_Renaming_Declaration 891 or else Unit_Kind = N_Subprogram_Renaming_Declaration 936 if Unit_Kind = N_Package_Declaration 961 elsif Unit_Kind in N_Renaming_Declaration then 972 if Unit_Kind = N_Package_Declaration then 976 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/ |
H A D | gnat1drv.adb | 102 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind); 833 procedure Check_Bad_Body (Unit_Node : Node_Id; Unit_Kind : Node_Kind) is 867 if (Unit_Kind = N_Package_Declaration 869 or else (Unit_Kind = N_Generic_Package_Declaration 871 or else Unit_Kind = N_Package_Renaming_Declaration 872 or else Unit_Kind = N_Subprogram_Renaming_Declaration 917 if Unit_Kind = N_Package_Declaration 942 elsif Unit_Kind in N_Renaming_Declaration then 953 if Unit_Kind = N_Package_Declaration then 957 elsif Unit_Kind = N_Generic_Package_Declaration then
|
/dports/lang/asis/asis-gpl-2016-src/tools/gnatmetric/ |
H A D | metrics-asis_utilities.adb | 61 Arg_Kind : constant Unit_Kinds := Unit_Kind (CU); 74 Unit_Kind (Corresponding_Declaration (CU)) in
|
/dports/lang/asis/asis-gpl-2016-src/tools/asistant/ |
H A D | asistant-enum_mapping.adb | 49 function Unit_Kind (Compilation_Unit : Asis.Compilation_Unit) subprogram 53 Asis.Compilation_Units.Unit_Kind (Compilation_Unit)); 54 end Unit_Kind;
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | prj-nmsc.adb | 120 Unit_Kind : out Spec_Or_Body; 2247 Unit_Kind : out Spec_Or_Body; 2282 Unit_Kind := Info.Kind; 2320 Unit_Kind := Specification; 2339 Unit_Kind := Body_Part; 2358 Unit_Kind := Body_Part; 2380 Unit_Kind := Specification; 3674 Unit_Kind : Spec_Or_Body; variable 3696 Unit_Kind => Unit_Kind, 3781 The_Unit_Data.File_Names (Unit_Kind) := [all …]
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | prj-nmsc.adb | 120 Unit_Kind : out Spec_Or_Body; 2247 Unit_Kind : out Spec_Or_Body; 2282 Unit_Kind := Info.Kind; 2320 Unit_Kind := Specification; 2339 Unit_Kind := Body_Part; 2358 Unit_Kind := Body_Part; 2380 Unit_Kind := Specification; 3674 Unit_Kind : Spec_Or_Body; variable 3696 Unit_Kind => Unit_Kind, 3781 The_Unit_Data.File_Names (Unit_Kind) := [all …]
|
/dports/lang/adacontrol/adactl-1.18r9/src/ |
H A D | framework-ruler.adb | 108 & " (" & Unit_Kinds'Wide_Image (Unit_Kind (Unit)) &')'); 131 & " (" & Unit_Kinds'Wide_Image (Unit_Kind (Unit)) &')'); 639 and then Unit_Kind (Unit) in A_Procedure_Body .. A_Task_Body_Subunit 1074 if Unit_Kind (My_Unit) in A_Subunit then 1149 and Unit_Kind (Unit_Spec) not in A_Generic_Unit_Instance 1150 and Unit_Kind (Unit_Spec) not in A_Renaming 1153 … or else (Unit_Kind (Unit_Spec) /= A_Package and Unit_Kind (Unit_Spec) /= A_Generic_Package)
|
/dports/lang/asis/asis-gpl-2016-src/tools/tool_utils/ |
H A D | ada_trees-asis_to_tree.adb | 191 Unit_Kind : constant Asis.Unit_Kinds := constant 192 Compilation_Units.Unit_Kind (CU); 194 (if Unit_Kind in A_Library_Unit_Body then "+" else "-"); 849 Unit_Kind => Unit_Kind (The_Unit),
|