Home
last modified time | relevance | path

Searched refs:Unit_Kind (Results 1 – 25 of 259) sorted by relevance

1234567891011

/dports/lang/asis/asis-gpl-2016-src/asis/
H A Da4g-cu_info2.adb666 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 Dasis-elements.adb792 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 Dasis-compilation_units.adb1385 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 Dgnat1drv.adb100 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 Dgnat1drv.adb100 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 Dgnat1drv.adb100 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 Dgnat1drv.adb100 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 Dgnat1drv.adb100 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 Dgnat1drv.adb100 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 Dgnat1drv.adb100 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 Dgnat1drv.adb100 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 Dgnat1drv.adb100 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 Dgnat1drv.adb103 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 Dgnat1drv.adb102 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 Dgnat1drv.adb103 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 Dgnat1drv.adb103 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 Dgnat1drv.adb102 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 Dgnat1drv.adb103 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 Dgnat1drv.adb102 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 Dmetrics-asis_utilities.adb61 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 Dasistant-enum_mapping.adb49 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 Dprj-nmsc.adb120 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 Dprj-nmsc.adb120 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 Dframework-ruler.adb108 & " (" & 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 Dada_trees-asis_to_tree.adb191 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),

1234567891011