Home
last modified time | relevance | path

Searched refs:Full_Type (Results 1 – 25 of 109) sorted by relevance

12345

/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dexp_tss.adb43 Full_Type : E; variable
50 Full_Type := Underlying_Type (Base_Type (Typ));
52 Full_Type := Typ;
55 if No (Full_Type) then
57 elsif Is_Concurrent_Type (Full_Type)
58 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
60 return Init_Proc (Corresponding_Record_Type (Base_Type (Full_Type)));
63 Proc := Init_Proc (Base_Type (Full_Type));
66 and then Is_Composite_Type (Full_Type)
67 and then Is_Derived_Type (Full_Type)
[all …]
H A Dtbuild.adb164 Full_Type : Entity_Id := Typ; variable
168 Full_Type := Underlying_Type (Typ);
173 New_Occurrence_Of (Etype (Access_Disp_Table (Full_Type)), Loc),
177 New_Reference_To (Tag_Component (Full_Type), Loc)));
191 Full_Type : Entity_Id := Typ; variable
195 Full_Type := Underlying_Type (Typ);
199 Designated_Type (Etype (Access_Disp_Table (Full_Type))));
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dexp_tss.adb43 Full_Type : E; variable
50 Full_Type := Underlying_Type (Base_Type (Typ));
52 Full_Type := Typ;
55 if No (Full_Type) then
57 elsif Is_Concurrent_Type (Full_Type)
58 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
60 return Init_Proc (Corresponding_Record_Type (Base_Type (Full_Type)));
63 Proc := Init_Proc (Base_Type (Full_Type));
66 and then Is_Composite_Type (Full_Type)
67 and then Is_Derived_Type (Full_Type)
[all …]
H A Dtbuild.adb164 Full_Type : Entity_Id := Typ; variable
168 Full_Type := Underlying_Type (Typ);
173 New_Occurrence_Of (Etype (Access_Disp_Table (Full_Type)), Loc),
177 New_Reference_To (Tag_Component (Full_Type), Loc)));
191 Full_Type : Entity_Id := Typ; variable
195 Full_Type := Underlying_Type (Typ);
199 Designated_Type (Etype (Access_Disp_Table (Full_Type))));
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/
H A Dexp_tss.adb49 Full_Type : E; variable
56 Full_Type := Underlying_Type (Base_Type (Typ));
58 Full_Type := Typ;
61 if No (Full_Type) then
64 elsif Is_Concurrent_Type (Full_Type)
65 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
72 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
76 Proc := Init_Proc (Base_Type (Full_Type), Ref);
79 and then Is_Composite_Type (Full_Type)
80 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/
H A Dexp_tss.adb52 Full_Type : E; variable
59 Full_Type := Underlying_Type (Base_Type (Typ));
61 Full_Type := Typ;
64 if No (Full_Type) then
67 elsif Is_Concurrent_Type (Full_Type)
68 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
75 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
79 Proc := Init_Proc (Base_Type (Full_Type), Ref);
82 and then Is_Composite_Type (Full_Type)
83 and then Is_Derived_Type (Full_Type)
[all …]
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/
H A Dexp_tss.adb49 Full_Type : E; variable
56 Full_Type := Underlying_Type (Base_Type (Typ));
58 Full_Type := Typ;
61 if No (Full_Type) then
64 elsif Is_Concurrent_Type (Full_Type)
65 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
72 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
76 Proc := Init_Proc (Base_Type (Full_Type), Ref);
79 and then Is_Composite_Type (Full_Type)
80 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/
H A Dexp_tss.adb49 Full_Type : E; variable
56 Full_Type := Underlying_Type (Base_Type (Typ));
58 Full_Type := Typ;
61 if No (Full_Type) then
64 elsif Is_Concurrent_Type (Full_Type)
65 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
72 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
76 Proc := Init_Proc (Base_Type (Full_Type), Ref);
79 and then Is_Composite_Type (Full_Type)
80 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/
H A Dexp_tss.adb48 Full_Type : E; variable
55 Full_Type := Underlying_Type (Base_Type (Typ));
57 Full_Type := Typ;
60 if No (Full_Type) then
63 elsif Is_Concurrent_Type (Full_Type)
64 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
71 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
75 Proc := Init_Proc (Base_Type (Full_Type), Ref);
78 and then Is_Composite_Type (Full_Type)
79 and then Is_Derived_Type (Full_Type)
[all …]
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/
H A Dexp_tss.adb49 Full_Type : E; variable
56 Full_Type := Underlying_Type (Base_Type (Typ));
58 Full_Type := Typ;
61 if No (Full_Type) then
64 elsif Is_Concurrent_Type (Full_Type)
65 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
72 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
76 Proc := Init_Proc (Base_Type (Full_Type), Ref);
79 and then Is_Composite_Type (Full_Type)
80 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/
H A Dexp_tss.adb49 Full_Type : E; variable
56 Full_Type := Underlying_Type (Base_Type (Typ));
58 Full_Type := Typ;
61 if No (Full_Type) then
64 elsif Is_Concurrent_Type (Full_Type)
65 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
72 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
76 Proc := Init_Proc (Base_Type (Full_Type), Ref);
79 and then Is_Composite_Type (Full_Type)
80 and then Is_Derived_Type (Full_Type)
[all …]
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/
H A Dexp_tss.adb49 Full_Type : E; variable
56 Full_Type := Underlying_Type (Base_Type (Typ));
58 Full_Type := Typ;
61 if No (Full_Type) then
64 elsif Is_Concurrent_Type (Full_Type)
65 and then Present (Corresponding_Record_Type (Base_Type (Full_Type)))
72 (Base_Type (Corresponding_Record_Type (Base_Type (Full_Type))),
76 Proc := Init_Proc (Base_Type (Full_Type), Ref);
79 and then Is_Composite_Type (Full_Type)
80 and then Is_Derived_Type (Full_Type)
[all …]

12345