Home
last modified time | relevance | path

Searched refs:Type_Decl (Results 1 – 25 of 81) sorted by relevance

1234

/dports/lang/asis/asis-gpl-2016-src/tools/gnattest/
H A Dgnattest-harness-generator-gather_data.adb72 (Type_Decl : Asis.Element;
78 (Type_Decl : Asis.Element;
229 (Type_Decl : Asis.Element;
233 Implicit_Inherited_Subprograms (Type_Declaration_View (Type_Decl));
249 Type_Decl)
301 (Enclosing_Compilation_Unit (Type_Decl))))
304 (Integer'Image (First_Line_Number (Type_Decl)),
308 (Integer'Image (First_Column_Number (Type_Decl)),
328 (Type_Decl : Asis.Element;
332 Parent_Type_Declaration (Type_Decl);
[all …]
/dports/textproc/adabrowse/adabrowse_4.0.3/
H A Dasis2-predicates.adb159 Type_Decl : constant Declaration := Type_Of (D); constant
161 case Declaration_Kind (Type_Decl) is
164 return Corresponding_First_Subtype (Type_Decl);
175 Type_Decl : constant Declaration := Type_Of (D); constant
177 case Declaration_Kind (Type_Decl) is
179 return Root (Base (Type_Decl));
183 Asis2.Predicates.Def (Type_Decl);
193 return Type_Decl;
202 return Type_Decl;
205 return Type_Decl;
/dports/lang/asis/asis-gpl-2016-src/tools/gnatcheck/
H A Dgnatcheck-asis_utilities.ads182 (Type_Decl : Asis.Declaration;
310 function Is_Predefined_String (Type_Decl : Asis.Element) return Boolean;
320 function Is_Unconstrained_Array (Type_Decl : Asis.Element) return Boolean;
H A Dgnatcheck-asis_utilities.adb658 (Type_Decl : Asis.Declaration;
677 if Declaration_Kind (Type_Decl) not in
680 Is_Part_Of_Implicit (Type_Decl)
684 Is_Part_Of_Instance (Type_Decl)
692 Enclosing_Pack_Spec := Enclosing_Element (Type_Decl);
766 Is_Equal (Enclosing_Element (Type_Decl),
2083 if Declaration_Kind (Type_Decl) = An_Ordinary_Type_Declaration
2085 Declaration_Kind (Type_Decl) = A_Subtype_Declaration
2087 Type_Entity := R_Node (Names (Type_Decl) (1));
2394 Declaration_Kind (Type_Decl) = A_Subtype_Declaration
[all …]
/dports/lang/asis/asis-gpl-2016-src/tools/tool_utils/
H A Dasis_ul-global_state.adb213 (Type_Decl : Asis.Element;
222 (Type_Decl : Asis.Element;
358 (Type_Decl : Asis.Element;
363 Set_Current_Scope (Init_Proc_Node, Node (Type_Decl));
365 Parent_Type := Discriminant_Part (Type_Decl);
369 Parent_Type := Type_Declaration_View (Type_Decl);
386 SLOC => Build_GNAT_Location (Type_Decl)));
411 (Type_Decl : Asis.Element;
420 Set_Current_Scope (Init_Proc_Node, Node (Type_Decl));
422 Type_Def := Type_Declaration_View (Type_Decl);
[all …]
H A Dasis_ul-global_state-cg.adb211 (Type_Decl : Asis.Element;
1519 (Type_Decl => Comp_Def,
1770 (Type_Decl : Asis.Element;
1787 New_Item => Type_Decl,
1796 case Declaration_Kind (Type_Decl) is
1799 if Should_Be_In_CG (Type_Decl) then
1801 (Called_Entity => Type_Decl,
1809 T_Def := Type_Declaration_View (Type_Decl);
1867 (Type_Decl => Corresponding_Type_Declaration (Type_Decl),
H A Dada_trees-asis_to_tree.adb355 Type_Decl : constant Asis.Declaration := constant
359 if Is_Nil (Type_Decl) then
362 elsif Asis.Set_Get.Is_Root_Num_Type (Type_Decl) then
368 case Root_Type_Kind (Type_Declaration_View (Type_Decl)) is
391 (First_Name (Type_Decl)));
H A Dasis_ul-utilities.adb289 Type_Decl : Asis.Element; variable
300 Type_Decl := Enclosing_Element (Tmp);
302 while Element_Kind (Type_Decl) /= A_Declaration loop
303 Type_Decl := Enclosing_Element (Type_Decl);
310 Result := Is_Equal (Tmp, Type_Decl);
1894 Type_Decl : Asis.Element; variable
1901 Type_Decl := Primitive_Owner (El);
1902 Type_Decl := First_Name (Enclosing_Element (Type_Decl));
1904 if Is_Controlled (Type_Decl)
1921 not Is_Limited_Type (R_Node (Type_Decl))
/dports/lang/adacontrol/adactl-1.18r9/src/
H A Drules-representation_clauses.adb496 Type_Decl : Asis.Declaration; variable
501 …Type_Decl := Corresponding_Name_Declaration (Simple_Name (Representation_Clause_Name (Rep_Clause))…
502 …while Declaration_Kind (Type_Decl) in An_Incomplete_Type_Declaration .. A_Private_Extension_Declar…
503 Type_Decl := Corresponding_Type_Completion (Type_Decl);
507 …st : constant Asis.Representation_Clause_List := Corresponding_Representation_Clauses (Type_Decl);
H A Drules-derivations.adb213 Type_Decl : Asis.Definition; variable
265 Type_Decl := Corresponding_Name_Declaration (Strip_Attributes (Type_Name));
266 Type_Def := Type_Declaration_View (Corresponding_First_Subtype (Type_Decl));
270 Check_From_Type (Derivation_Subtype_Name (Type_Declaration_View (Type_Decl)), Loc);
H A Drules-object_declarations.adb334 Type_Decl : Asis.Declaration; variable
339 Type_Decl := Decl_Type_Declaration;
340 if Is_Nil (Type_Decl) then
343 Type_Def := Type_Declaration_View (Type_Decl);
/dports/cad/ghdl/ghdl-1.0.0/src/vhdl/
H A Dvhdl-std_package.adb217 procedure Relocate_Exp_At_End (Type_Decl : Iir)
222 (Get_Kind (Type_Decl) = Iir_Kind_Anonymous_Type_Declaration);
223 El := Type_Decl;
256 Type_Decl : out Iir;
266 Type_Decl := Create_Std_Decl (Iir_Kind_Anonymous_Type_Declaration);
267 Set_Identifier (Type_Decl, Type_Name);
268 Set_Type_Definition (Type_Decl, Type_Definition);
269 Set_Type_Declarator (Type_Definition, Type_Decl);
273 Type_Decl : Iir;
297 Set_Std_Identifier (Subtype_Decl, Get_Identifier (Type_Decl));
[all …]
H A Dvhdl-ieee-vital_timing.adb229 Type_Decl : Iir; variable
262 Type_Decl := Get_Type_Declarator (Atype);
272 if Type_Decl = Null_Iir
273 or else Get_Parent (Type_Decl) /= Std_Logic_1164_Pkg
H A Dvhdl-sem_types.adb571 procedure Sem_Protected_Type_Declaration (Type_Decl : Iir_Type_Declaration)
576 Decl := Get_Type_Definition (Type_Decl);
586 Set_Visible_Flag (Type_Decl, True);
659 Type_Decl : Iir; variable
676 Type_Decl := Get_Declaration (Inter);
677 if Get_Kind (Type_Decl) = Iir_Kind_Type_Declaration then
678 Decl := Get_Type_Definition (Type_Decl);
698 elsif not Get_Visible_Flag (Type_Decl) then
/dports/lang/asis/asis-gpl-2016-src/asis/
H A Dasis-extensions.adb106 Type_Decl : Asis.Element)
115 Type_Decl : Asis.Element)
1877 Type_Decl : Asis.Element; variable
1901 Type_Decl := Enclosing_Element (Type_Definition);
1902 Parent_El := Enclosing_Element (Type_Decl);
1920 if Is_Equal (Type_Decl, All_Comp (J)) then
2483 Type_Decl : Asis.Element; variable
3886 Type_Decl : Asis.Element)
3929 if Is_Equal (Next_Type, Type_Decl) then
4650 Type_Decl : Asis.Element)
[all …]
H A Da4g-norm.adb85 function Unwind_Till_Discriminants (Type_Decl : Node_Id) return Node_Id;
1459 function Unwind_Till_Discriminants (Type_Decl : Node_Id) return Node_Id is
1463 Result_Node := Type_Decl;
H A Da4g-decl_sem.adb645 Type_Decl : constant Node_Id := Parent (Type_Entity); constant
697 if Next_Decl_Original = Type_Decl then
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dsem_cat.adb1155 Type_Decl : Node_Id; variable
1194 Type_Decl := Parent (Param_Type);
1218 and then (Nkind (Type_Decl) = N_Private_Type_Declaration
1220 (Nkind (Type_Decl) = N_Full_Type_Declaration
H A Dsem_ch3.adb3261 Type_Decl : Node_Id; variable
3364 Type_Decl :=
3371 Mark_Rewrite_Insertion (Type_Decl);
3372 Insert_Before (N, Type_Decl);
3373 Analyze (Type_Decl);
11776 Type_Decl : Node_Id; variable
11877 Type_Decl := Parent (R);
11898 Type_Decl := Parent (Type_Decl);
11904 if Present (Type_Decl) then
11924 Type_Decl,
[all …]
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dsem_cat.adb1155 Type_Decl : Node_Id;
1194 Type_Decl := Parent (Param_Type);
1218 and then (Nkind (Type_Decl) = N_Private_Type_Declaration
1220 (Nkind (Type_Decl) = N_Full_Type_Declaration
H A Dsem_ch3.adb3261 Type_Decl : Node_Id; variable
3364 Type_Decl :=
3371 Mark_Rewrite_Insertion (Type_Decl);
3372 Insert_Before (N, Type_Decl);
3373 Analyze (Type_Decl);
11776 Type_Decl : Node_Id; variable
11877 Type_Decl := Parent (R);
11898 Type_Decl := Parent (Type_Decl);
11904 if Present (Type_Decl) then
11924 Type_Decl,
[all …]
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/
H A Dexp_put_image.adb700 Type_Decl : constant Node_Id := constant
715 Make_Component_Attributes (Discriminant_Specifications (Type_Decl)));
717 Rdef := Type_Definition (Type_Decl);
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/
H A Dexp_put_image.adb700 Type_Decl : constant Node_Id := constant
715 Make_Component_Attributes (Discriminant_Specifications (Type_Decl)));
717 Rdef := Type_Definition (Type_Decl);
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/
H A Dexp_put_image.adb700 Type_Decl : constant Node_Id := constant
715 Make_Component_Attributes (Discriminant_Specifications (Type_Decl)));
717 Rdef := Type_Definition (Type_Decl);
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/
H A Dexp_put_image.adb784 Type_Decl : constant Node_Id := constant
832 (Discriminant_Specifications (Type_Decl)));
834 Rdef := Type_Definition (Type_Decl);

1234