/dports/cad/ghdl/ghdl-1.0.0/src/ |
H A D | lists.ads | 19 type El_Type is range <>; formal 77 procedure Append_Element (List : List_Type; Element : El_Type); 80 function Get_First_Element (List : List_Type) return El_Type; 83 procedure Add_Element (List : List_Type; El : El_Type); 105 function Get_Element (It : Iterator) return El_Type; 106 procedure Set_Element (It : Iterator; El : El_Type); 127 array (Nat32 range 0 .. Chunk_Len - 1) of El_Type;
|
H A D | flists.ads | 19 type El_Type is range <>; formal 46 function Get_Nth_Element (Flist : Flist_Type; N : Natural) return El_Type; 49 procedure Set_Nth_Element (Flist : Flist_Type; N : Natural; V : El_Type);
|
H A D | flists.adb | 41 (Table_Component_Type => El_Type, 79 Els.Table (Flistt.Table (Prev).Els) := El_Type (Next); 122 Els.Table (Flistt.Table (Flist).Els) := El_Type (Prev); 143 function Get_Nth_Element (Flist : Flist_Type; N : Natural) return El_Type 151 procedure Set_Nth_Element (Flist : Flist_Type; N : Natural; V : El_Type)
|
H A D | lists.adb | 69 procedure Append_Element (List: List_Type; Element: El_Type) 92 function Get_First_Element (List: List_Type) return El_Type 101 procedure Add_Element (List: List_Type; El: El_Type) 206 function Get_Element (It : Iterator) return El_Type is 211 procedure Set_Element (It : Iterator; El : El_Type) is
|
/dports/cad/ghdl/ghdl-1.0.0/src/vhdl/ |
H A D | vhdl-sem_types.adb | 539 El_Type : Iir; variable 542 El_Type := Sem_Subtype_Indication (El_Type); 550 El_Type := Get_Type_Of_Subtype_Indication (El_Type); 566 +El_Type); 873 El_Type : Iir; variable 895 El_Type := Sem_Subtype_Indication (El_Type); 897 El_Type := Get_Type_Of_Subtype_Indication (El_Type); 920 +El_Type); 1002 El_Type : Iir; variable 1968 El_Type : Iir; variable [all …]
|
H A D | vhdl-flists.ads | 19 package Vhdl.Flists is new Standard.Flists (El_Type => Vhdl.Types.Vhdl_Node);
|
H A D | vhdl-lists.ads | 19 package Vhdl.Lists is new Standard.Lists (El_Type => Vhdl.Types.Vhdl_Node);
|
/dports/cad/ghdl/ghdl-1.0.0/src/synth/ |
H A D | synth-objtypes.adb | 250 Al => El_Type.Al, 254 Vec_El => El_Type))); 257 function Create_Slice_Type (Len : Uns32; El_Type : Type_Acc) 265 Is_Synth => El_Type.Is_Synth, 266 Al => El_Type.Al, 268 W => Len * El_Type.W, 269 Slice_El => El_Type))); 321 Is_Synth => El_Type.Is_Synth, 322 Al => El_Type.Al, 324 W => El_Type.W * L, [all …]
|
H A D | synth-objtypes.ads | 210 function Create_Vector_Type (Bnd : Bound_Type; El_Type : Type_Acc) 212 function Create_Unbounded_Vector (El_Type : Type_Acc) return Type_Acc; 213 function Create_Slice_Type (Len : Uns32; El_Type : Type_Acc) 216 function Create_Array_Type (Bnd : Bound_Array_Acc; El_Type : Type_Acc) 218 function Create_Unbounded_Array (Ndim : Dim_Type; El_Type : Type_Acc)
|
H A D | synth-static_oper.adb | 733 El_Type : constant Type_Acc := Get_Array_Element (Res_Type); constant 738 Bnd := Create_Vec_Type_By_Length (Width (Len), El_Type); 908 El_Type : constant Type_Acc := Get_Array_Element (Res_Typ); constant 914 (Uns32 (Vec_Length (Param1.Typ)), El_Type); 927 El_Type : constant Type_Acc := Get_Array_Element (Res_Typ); constant 933 (Uns32 (Vec_Length (Param1.Typ)), El_Type); 955 El_Type : constant Type_Acc := Get_Array_Element (Res_Typ); constant 964 (Uns32 (Vec_Length (Param1.Typ)), El_Type);
|
H A D | synth-disp_vhdl.adb | 202 El_Type : constant Node := Get_Element_Subtype (Ptype); constant 216 Off + I * El_W, El_Type, Typ.Arr_El, False); 358 El_Type : constant Node := Get_Element_Subtype (Ptype); constant 372 Off + I * El_W, El_Type, Typ.Arr_El, False);
|
H A D | synth-decls.adb | 142 El_Type : constant Node := Get_Element_Subtype (Def); constant 147 Synth_Subtype_Indication_If_Anonymous (Syn_Inst, El_Type); 148 El_Typ := Get_Subtype_Object (Syn_Inst, El_Type); 164 El_Type : Node; variable 172 El_Type := Get_Type (El); 173 El_Typ := Synth_Subtype_Indication_If_Anonymous (Syn_Inst, El_Type); 368 El_Type : constant Node := Get_Element_Subtype (Atype); constant 380 Synth_Subtype_Indication (Syn_Inst, El_Type); 408 Etyp := Get_Subtype_Object (Syn_Inst, El_Type);
|
H A D | synth-aggr.adb | 344 El_Type : Type_Acc; variable 346 El_Type := Aggr_Typ.Rec.E (Iir_Index32 (Pos + 1)).Typ; 347 Val := Synth_Expression_With_Type (Syn_Inst, Value, El_Type); 351 Val := Synth_Subtype_Conversion (Ctxt, Val, El_Type, False, Value);
|
/dports/cad/ghdl/ghdl-1.0.0/src/vhdl/translate/ |
H A D | trans-chap3.adb | 590 El_Type : Iir; variable 624 El_Type : Iir; variable 650 El_Type := Get_Type (El); 707 El_Type : Iir; variable 776 El_Type : Iir; variable 786 (El_Type, 823 El_Type : Iir; variable 835 (El_Type, 1250 El_Type : Iir; variable 1264 El_Type := Get_Type (El); [all …]
|
H A D | trans-foreach_non_composite.adb | 34 El_Type : constant Iir := Get_Element_Subtype (Targ_Type); constant 73 El_Type, Sub_Data);
|
H A D | trans-chap1.adb | 54 El_Type : constant Iir := Get_Type (El); constant 57 and then Get_Kind (El_Type) in Iir_Kinds_Array_Type_Definition 58 and then Get_Constraint_State (El_Type) /= Fully_Constrained 77 El_Type : Iir; variable 87 El_Type := Get_Type (El); 88 if not Is_Fully_Constrained_Type (El_Type) then
|
/dports/cad/ghdl/ghdl-1.0.0/src/grt/ |
H A D | grt-disp_rti.adb | 588 El_Type : Ghdl_Rti_Access; variable 605 El_Type := Def.Element; 606 if Is_Unbounded (El_Type) then 607 Disp_Type_Composite_Bounds (El_Type, Bounds1); 616 El_Type : Ghdl_Rti_Access; variable 623 El_Type := El.Eltype; 624 if Is_Unbounded (El_Type) then 632 Disp_Type_Composite_Bounds (El_Type, El_Layout); 644 case El_Type.Kind is 647 (To_Ghdl_Rtin_Type_Array_Acc (El_Type), [all …]
|
H A D | grt-waves.adb | 1299 El_Type : Ghdl_Rti_Access; variable 1310 El_Type := Arr.Element; 1311 if Rtis_Utils.Is_Unbounded (El_Type) then 1312 El_Type := Get_Base_Type (El_Type); 1314 Write_Composite_Bounds (El_Type, Bounds1); 1324 El_Type : Ghdl_Rti_Access; variable 1331 El_Type := El.Eltype; 1332 if Rtis_Utils.Is_Unbounded (El_Type) then 1333 El_Type := Get_Base_Type (El_Type); 1335 (Bounds + El.Layout_Off, El_Type); [all …]
|
H A D | grt-avhpi.adb | 178 El_Type : Ghdl_Rti_Access; 193 if El_Type.Kind = Ghdl_Rtik_Subtype_Scalar then 194 El_Type1 := Get_Base_Type (El_Type); 196 El_Type1 := El_Type; 231 El_Type : Ghdl_Rti_Access; variable 238 El_Type := To_Ghdl_Rtin_Type_Array_Acc 244 N_Type => El_Type, 250 (Iterator.Ctxt, Iterator.N_Addr, Iterator.N_Obj, El_Type, 1); 1063 Base_Type, El_Type : VhpiHandleT; variable 1073 Vhpi_Handle (VhpiElemSubtype, Base_Type, El_Type, Error); [all …]
|
/dports/cad/ghdl/ghdl-1.0.0/src/ortho/debug/ |
H A D | ortho_debug.adb | 764 Check_Complete_Type (El_Type); 770 El_Type => El_Type, 786 if El_Type /= Atype.El_Type then 787 if Get_Base_Type (El_Type) /= Atype.El_Type then 791 Check_Constrained_Type (El_Type); 920 return Atype.El_Type; 996 List.El_Type := Get_Array_El_Type (Atype); 1013 Check_Type (Value.Ctype, List.El_Type); 1095 El_Type : O_Tnode; variable 1103 El_Type := Get_Array_El_Type (Arr.Rtype); [all …]
|
H A D | ortho_debug-disp.adb | 593 El_Type : O_Tnode; variable 596 El_Type := Get_Array_El_Type (C.Ctype); 604 Disp_Cnode (El.Aggr_Value, El_Type); 615 El_Type : O_Tnode; variable 630 El_Type := Field.Ftype; 632 Disp_Cnode (El.Aggr_Value, El_Type); 887 Disp_Tnode (Atype.El_Type, False); 925 if Atype.Arr_El_Type /= Base.El_Type then
|
/dports/cad/ghdl/ghdl-1.0.0/src/ortho/mcode/ |
H A D | ortho_code-types.ads | 162 function New_Array_Type (El_Type : O_Tnode; Index_Type : O_Tnode) 167 (Atype : O_Tnode; El_Type : O_Tnode; Length : Uns32) return O_Tnode;
|
H A D | ortho_code-types.adb | 448 function New_Array_Type (El_Type : O_Tnode; Index_Type : O_Tnode) 455 Align => Get_Type_Align (El_Type), 462 Tnodes.Append (To_Tnode_Common (Tnode_Array'(Element_Type => El_Type, 471 (Atype : O_Tnode; El_Type : O_Tnode; Length : Uns32) return O_Tnode 476 Size := Get_Type_Size (El_Type); 487 (Tnode_Array'(Element_Type => El_Type,
|
/dports/cad/ghdl/ghdl-1.0.0/src/ortho/llvm4-nodebug/ |
H A D | ortho_llvm.adb | 278 El_Type : constant TypeRef := Get_LLVM_Type (Etype); constant 280 unsigned (ABISizeOfType (Target_Data, El_Type)); 282 ABIAlignmentOfType (Target_Data, El_Type); 286 Utype => El_Type, 287 Ptr_Type => PointerType (El_Type)); 293 Elements.Align_Type := El_Type; 382 function New_Array_Type (El_Type : O_Tnode; Index_Type : O_Tnode) 390 LLVM => ArrayType (Get_LLVM_Type (El_Type), 0), 392 Arr_El_Type => El_Type); 637 El_Type => GetElementType (Llvm), [all …]
|
/dports/cad/ghdl/ghdl-1.0.0/src/ortho/llvm-nodebug/ |
H A D | ortho_llvm.adb | 275 El_Type : constant TypeRef := Get_LLVM_Type (Etype); constant 277 unsigned (ABISizeOfType (Target_Data, El_Type)); 279 ABIAlignmentOfType (Target_Data, El_Type); 283 Utype => El_Type, 284 Ptr_Type => PointerType (El_Type)); 290 Elements.Align_Type := El_Type; 379 function New_Array_Type (El_Type : O_Tnode; Index_Type : O_Tnode) 387 LLVM => ArrayType (Get_LLVM_Type (El_Type), 0), 389 Arr_El_Type => El_Type); 634 El_Type => GetElementType (Llvm), [all …]
|