/dports/devel/ada-util/ada-util-b6612400/src/ |
H A D | util-beans-objects.adb | 104 pragma Unreferenced (Type_Def); 113 pragma Unreferenced (Type_Def); 146 pragma Unreferenced (Type_Def); 155 pragma Unreferenced (Type_Def); 165 pragma Unreferenced (Type_Def); 181 pragma Unreferenced (Type_Def); 191 pragma Unreferenced (Type_Def); 201 pragma Unreferenced (Type_Def); 806 return Value.Type_Def; 1395 Result.Type_Def := Left.Type_Def; [all …]
|
H A D | util-beans-objects.ads | 98 function To_String (Type_Def : in Object_Type; 114 function To_Boolean (Type_Def : in Object_Type; 122 function Is_Empty (Type_Def : in Object_Type; 250 function Is_Empty (Type_Def : in Basic_Type; 265 function To_String (Type_Def : in Null_Type; 269 function Is_Empty (Type_Def : in Null_Type; 283 function To_String (Type_Def : in Int_Type; 295 function To_Boolean (Type_Def : in Int_Type; 299 function To_Duration (Type_Def : in Int_Type; 477 function To_String (Type_Def : in Bean_Type; [all …]
|
H A D | util-beans-objects-time.adb | 39 function Get_Name (Type_Def : Time_Type_Def) return String; 42 function To_String (Type_Def : in Time_Type_Def; 50 function Get_Name (Type_Def : in Time_Type_Def) return String is 51 pragma Unreferenced (Type_Def); 59 function To_String (Type_Def : in Time_Type_Def; 61 pragma Unreferenced (Type_Def); 74 Type_Def => Time_Type'Access); 89 T : constant String := Value.Type_Def.To_String (Value.V); 115 return Time.To_Object (Formatting.Value (Value.Type_Def.To_String (Value.V)));
|
H A D | util-beans-objects-records.adb | 29 function Get_Name (Type_Def : in Record_Bean_Type) return String; 32 function To_Boolean (Type_Def : in Record_Bean_Type; 38 function Get_Name (Type_Def : in Record_Bean_Type) return String is 39 pragma Unreferenced (Type_Def); 47 function To_Boolean (Type_Def : in Record_Bean_Type; 49 pragma Unreferenced (Type_Def); 65 Type_Def => Bn_Type'Access); 77 Type_Def => Bn_Type'Access);
|
H A D | util-beans-objects-enums.adb | 32 function Get_Name (Type_Def : in Enum_Type) return String; 35 function To_String (Type_Def : in Enum_Type; 43 function Get_Name (Type_Def : Enum_Type) return String is 44 pragma Unreferenced (Type_Def); 53 function To_String (Type_Def : in Enum_Type; 55 pragma Unreferenced (Type_Def); 70 Type_Def => Value_Type'Access);
|
/dports/lang/adacontrol/adactl-1.18r9/src/ |
H A D | rules-derivations.adb | 214 Type_Def : Asis.Definition; variable 266 Type_Def := Type_Declaration_View (Corresponding_First_Subtype (Type_Decl)); 267 …if Type_Kind (Type_Def) in A_Derived_Type_Definition .. A_Derived_Record_Extension_De… 268 or else Formal_Type_Kind (Type_Def) = A_Formal_Derived_Type_Definition 273 if Type_Kind (Type_Def) = A_Derived_Record_Extension_Definition 274 or else Type_Kind (Type_Def) = An_Interface_Type_Definition 275 or else Formal_Type_Kind (Type_Def) = A_Formal_Derived_Type_Definition 278 Progenitors : constant Asis.Expression_List := Definition_Interface_List (Type_Def);
|
/dports/lang/asis/asis-gpl-2016-src/asis/ |
H A D | a4g-mapping.ads | 328 procedure Set_Inherited_Discriminants (Type_Def : Asis.Element); 338 (Type_Def : Asis.Element; 352 (Type_Def : Asis.Element; 357 procedure Set_Inherited_Literals (Type_Def : Asis.Element);
|
H A D | asis-data_decomposition-aux.adb | 792 function Root_Array_Definition (Type_Def : Element) return Element is 793 Result : Element := Type_Def; 796 if Is_Derived_From_Array (Type_Def) then 797 Result := Corresponding_Root_Type (Type_Def); 809 function Root_Record_Definition (Type_Def : Element) return Element is 810 Result : Element := Type_Def; 813 if Is_Derived_From_Record (Type_Def) then 814 Result := Corresponding_Root_Type (Type_Def);
|
H A D | asis-data_decomposition.adb | 1199 Type_Def : Asis.Element; variable 1214 Type_Def := Asis.Definitions.Subtype_Mark (Type_Def); 1215 Type_Def := Type_Definition_From_Subtype_Mark (Type_Def); 1220 Set_Parent_Type_Definition (Type_Def); 1260 Type_Def : Asis.Element; variable 1274 Type_Def := Component_Declaration (Component); 1276 Type_Def := Object_Declaration_View (Type_Def); 1277 Type_Def := Asis.Definitions.Component_Subtype_Indication (Type_Def); 1278 Type_Def := Asis.Definitions.Subtype_Mark (Type_Def); 1279 Type_Def := Type_Definition_From_Subtype_Mark (Type_Def); [all …]
|
H A D | asis-data_decomposition-aux.ads | 116 function Root_Record_Definition (Type_Def : Element) return Element; 117 function Root_Array_Definition (Type_Def : Element) return Element;
|
/dports/lang/asis/asis-gpl-2016-src/tools/gnatcheck/ |
H A D | gnatcheck-asis_utilities.adb | 585 Type_Def : Asis.Element; variable 1019 Type_Def : Asis.Element; variable 1070 Type_Def : Asis.Element; variable 1104 Type_Def := Discriminant_Part (El); 1110 Discriminants (Type_Def); 1123 Type_Def := Type_Declaration_View (El); 1125 case Flat_Element_Kind (Type_Def) is 1130 Private_Part_Items (Type_Def); 1171 if Asis.Elements.Type_Kind (Type_Def) = 1178 Type_Def := Asis.Definitions.Record_Definition (Type_Def); [all …]
|
H A D | gnatcheck-rules-custom_2.adb | 440 Type_Def : Asis.Element := Nil_Element; variable 445 Type_Def := Type_Declaration_View (Element); 448 if Type_Kind (Type_Def) = A_Derived_Record_Extension_Definition 450 Type_Kind (Type_Def) = A_Tagged_Record_Type_Definition 452 Type_Kind (Type_Def) = An_Interface_Type_Definition 454 Depth := Inheritance_Depth (Type_Def); 1301 Type_Def : Asis.Element; variable 1305 Type_Def := Type_Declaration_View (Element); 1307 case Type_Kind (Type_Def) is 1315 (Corresponding_Root_Type (Type_Def))) =
|
/dports/cad/ghdl/ghdl-1.0.0/src/vhdl/ |
H A D | vhdl-ieee-std_logic_arith.adb | 419 Type_Def : Iir; variable 465 Type_Def := Get_Type_Definition (Decl); 466 if Get_Kind (Type_Def) /= Iir_Kind_Array_Type_Definition then 469 Unsigned_Type := Type_Def; 481 Type_Def := Get_Type_Definition (Decl); 482 if Get_Kind (Type_Def) /= Iir_Kind_Array_Type_Definition then 485 Signed_Type := Type_Def;
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gnat.dg/ |
H A D | predicate2_main.adb | 6 Type_Def : Predicate2.Project.Typ.Object := Predicate2.Project.Typ.Undefined; variable 9 Type_Def := Types ("toto");
|
/dports/lang/asis/asis-gpl-2016-src/tools/tool_utils/ |
H A D | asis_ul-utilities.adb | 874 (Type_Def : Asis.Element) 891 if not Can_Have_Dispatching_Operations (Type_Def) then 894 Wrong_Kind => Int_Kind (Type_Def)); 897 Type_Node := Node (Enclosing_Element (Type_Def)); 947 (Encl_Cont_Id (Type_Def), 950 if Is_From_Instance (Type_Def) then 1680 if Asis.Elements.Type_Kind (Type_Def) = 1683 Parent_Type_Def := Parent_Subtype_Indication (Type_Def); 1703 if Asis.Elements.Type_Kind (Type_Def) = 1718 Definition_Interface_List (Type_Def); [all …]
|
H A D | ada_trees.adb | 499 Type_Def : constant Name_Id := constant 508 if Contains (Symtab, Type_Def) then 509 Result := Symtab (Type_Def).Def_Id; 530 Type_Def : constant Name_Id := constant 539 if Contains (Symtab, Type_Def) then 540 Result := Symtab (Type_Def).Def_Id;
|