| /dports/cad/ghdl/ghdl-1.0.0/src/ortho/debug/ |
| H A D | ortho_debug-disp.adb | 891 if Atype.D_Type /= O_Tnode_Null then
892 Disp_Tnode (Atype.D_Type, False);
|
| H A D | ortho_debug.adb | 739 D_Type => Dtype);
749 if Atype.D_Type /= O_Tnode_Null
755 Atype.D_Type := Dtype;
1195 Rtype => Acc.Rtype.D_Type,
1282 Check_Type (Get_Base_Type (Lvalue.Rtype), Get_Base_Type (Atype.D_Type));
1317 if Get_Base_Type (Lvalue.Rtype) /= Get_Base_Type (Atype.D_Type) then
|
| H A D | ortho_debug.private.ads | 378 D_Type : O_Tnode; component
|
| /dports/cad/ghdl/ghdl-1.0.0/src/ortho/mcode/ |
| H A D | binary_file-macho.adb | 55 subtype D_Type is String (1 .. Dest'Length); subtype
56 D : D_Type renames Dest;
|
| /dports/cad/ghdl/ghdl-1.0.0/src/vhdl/translate/ |
| H A D | trans-chap3.adb | 1610 D_Type : constant Iir := Get_Designated_Type (Def); constant
1611 D_Info : constant Type_Info_Acc := Get_Info (D_Type);
1613 if not Is_Fully_Constrained_Type (D_Type) then
1628 D_Type : constant Iir := Get_Designated_Type (Def); constant
1631 D_Info : constant Ortho_Info_Acc := Get_Info (D_Type);
1638 if not Is_Fully_Constrained_Type (D_Type) then
3021 (Acc : O_Enode; D_Type : Iir) return O_Enode
3023 D_Info : constant Type_Info_Acc := Get_Info (D_Type);
|
| H A D | trans-chap3.ads | 220 (Acc : O_Enode; D_Type : Iir) return O_Enode;
|
| H A D | trans-chap7.adb | 3736 D_Type : constant Iir := Get_Designated_Type (A_Type); constant
3737 D_Info : constant Type_Info_Acc := Get_Info (D_Type);
3794 (R, Alloc_Heap, D_Type, Mnode_Null);
3796 (R, E2M (Val, D_Info, Mode_Value), D_Type);
3806 D_Type : constant Iir := constant
3808 D_Info : constant Type_Info_Acc := Get_Info (D_Type);
3827 D_Type : constant Iir := Get_Designated_Type (A_Type); constant
3828 D_Info : constant Type_Info_Acc := Get_Info (D_Type);
3874 Chap4.Init_Object (Res, D_Type);
3883 (Res, Alloc_Heap, D_Type, Bounds);
[all …]
|
| /dports/cad/ghdl/ghdl-1.0.0/src/vhdl/ |
| H A D | vhdl-sem_types.adb | 1119 D_Type : Iir; variable
1121 D_Type := Sem_Subtype_Indication
1123 Set_Designated_Subtype_Indication (Def, D_Type);
1125 D_Type := Get_Type_Of_Subtype_Indication (D_Type);
1126 if D_Type /= Null_Iir then
1127 case Get_Kind (D_Type) is
1131 (Def, Get_Incomplete_Type_Ref_Chain (D_Type));
1132 Set_Incomplete_Type_Ref_Chain (D_Type, Def);
1145 Set_Designated_Type (Def, D_Type);
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
| H A D | exp_ch9.adb | 12374 D_Type : Entity_Id; variable
12489 D_Type := Base_Type (Etype (Expression (D_Stat)));
12498 elsif Is_RTE (D_Type, RO_CA_Time) then
12506 else pragma Assert (Is_RTE (D_Type, RO_RT_Time));
|
| H A D | exp_intr.adb | 1219 D_Type : Entity_Id;
1230 D_Type := Entity (D_Subtyp);
1233 D_Type := Make_Temporary (Loc, 'A');
1236 Defining_Identifier => D_Type,
1244 Freeze_Itype (D_Type, Deref);
1246 Set_Actual_Designated_Subtype (Free_Nod, D_Type);
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
| H A D | exp_ch9.adb | 12374 D_Type : Entity_Id; variable
12489 D_Type := Base_Type (Etype (Expression (D_Stat)));
12498 elsif Is_RTE (D_Type, RO_CA_Time) then
12506 else pragma Assert (Is_RTE (D_Type, RO_RT_Time));
|
| H A D | exp_intr.adb | 1219 D_Type : Entity_Id;
1230 D_Type := Entity (D_Subtyp);
1233 D_Type := Make_Temporary (Loc, 'A');
1236 Defining_Identifier => D_Type,
1244 Freeze_Itype (D_Type, Deref);
1246 Set_Actual_Designated_Subtype (Free_Nod, D_Type);
|
| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
| H A D | exp_ch9.adb | 12147 D_Type : Entity_Id; variable
12262 D_Type := Base_Type (Etype (Expression (D_Stat)));
12271 elsif Is_RTE (D_Type, RO_CA_Time) then
12279 else pragma Assert (Is_RTE (D_Type, RO_RT_Time));
|
| H A D | exp_intr.adb | 1149 D_Type : Entity_Id;
1160 D_Type := Entity (D_Subtyp);
1163 D_Type := Make_Temporary (Loc, 'A');
1166 Defining_Identifier => D_Type,
1174 Freeze_Itype (D_Type, Deref);
1176 Set_Actual_Designated_Subtype (Free_Node, D_Type);
|
| /dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
| H A D | exp_ch9.adb | 12588 D_Type : Entity_Id; variable
12703 D_Type := Base_Type (Etype (Expression (D_Stat)));
12712 elsif Is_RTE (D_Type, RO_CA_Time) then
12720 else pragma Assert (Is_RTE (D_Type, RO_RT_Time));
|
| H A D | exp_intr.adb | 1244 D_Type : Entity_Id;
1255 D_Type := Entity (D_Subtyp);
1258 D_Type := Make_Temporary (Loc, 'A');
1261 Defining_Identifier => D_Type,
1269 Freeze_Itype (D_Type, Deref);
1271 Set_Actual_Designated_Subtype (Free_Nod, D_Type);
|
| /dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
| H A D | exp_ch9.adb | 11974 D_Type : Entity_Id; variable
12086 D_Type := Base_Type (Etype (Expression (D_Stat)));
12095 elsif Is_RTE (D_Type, RO_CA_Time) then
12103 else pragma Assert (Is_RTE (D_Type, RO_RT_Time));
|
| H A D | exp_intr.adb | 1171 D_Type : Entity_Id;
1182 D_Type := Entity (D_Subtyp);
1185 D_Type := Make_Temporary (Loc, 'A');
1188 Defining_Identifier => D_Type,
1196 Freeze_Itype (D_Type, Deref);
1198 Set_Actual_Designated_Subtype (Free_Node, D_Type);
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
| H A D | exp_ch9.adb | 12374 D_Type : Entity_Id; variable
12489 D_Type := Base_Type (Etype (Expression (D_Stat)));
12498 elsif Is_RTE (D_Type, RO_CA_Time) then
12506 else pragma Assert (Is_RTE (D_Type, RO_RT_Time));
|
| H A D | exp_intr.adb | 1219 D_Type : Entity_Id;
1230 D_Type := Entity (D_Subtyp);
1233 D_Type := Make_Temporary (Loc, 'A');
1236 Defining_Identifier => D_Type,
1244 Freeze_Itype (D_Type, Deref);
1246 Set_Actual_Designated_Subtype (Free_Nod, D_Type);
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
| H A D | exp_ch9.adb | 12375 D_Type : Entity_Id; variable
12490 D_Type := Base_Type (Etype (Expression (D_Stat)));
12499 elsif Is_RTE (D_Type, RO_CA_Time) then
12507 else pragma Assert (Is_RTE (D_Type, RO_RT_Time));
|
| H A D | exp_intr.adb | 1219 D_Type : Entity_Id;
1230 D_Type := Entity (D_Subtyp);
1233 D_Type := Make_Temporary (Loc, 'A');
1236 Defining_Identifier => D_Type,
1244 Freeze_Itype (D_Type, Deref);
1246 Set_Actual_Designated_Subtype (Free_Nod, D_Type);
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
| H A D | exp_ch9.adb | 12374 D_Type : Entity_Id; variable
12489 D_Type := Base_Type (Etype (Expression (D_Stat)));
12498 elsif Is_RTE (D_Type, RO_CA_Time) then
12506 else pragma Assert (Is_RTE (D_Type, RO_RT_Time));
|
| H A D | exp_intr.adb | 1219 D_Type : Entity_Id;
1230 D_Type := Entity (D_Subtyp);
1233 D_Type := Make_Temporary (Loc, 'A');
1236 Defining_Identifier => D_Type,
1244 Freeze_Itype (D_Type, Deref);
1246 Set_Actual_Designated_Subtype (Free_Nod, D_Type);
|
| /dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
| H A D | sem_ch3.adb | 11567 D_Type : Entity_Id; variable
11617 D_Type := Find_Dispatching_Type (Prim);
11619 if D_Type = Full_T
11632 and then D_Type /= Full_T
11638 Check_Controlling_Formals (D_Type, Prim);
|