/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | sem_eval.adb | 2631 Atyp : Entity_Id; 2644 Atyp := Etype (Arr); 2646 if Is_Access_Type (Atyp) then 2647 Atyp := Designated_Type (Atyp); 2654 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2655 if Ekind (Atyp) = E_String_Literal_Subtype then 2656 Lbd := String_Literal_Low_Bound (Atyp); 2658 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2664 and then Is_Discrete_Type (Component_Type (Atyp)) 2705 Set_Etype (Elm, Component_Type (Atyp));
|
H A D | exp_unst.adb | 2205 Atyp : Entity_Id; variable 2225 Atyp := Etype (UPJ.Ref); 2227 if Ekind (Atyp) /= E_Record_Subtype then 2228 Atyp := Get_Actual_Subtype (UPJ.Ref); 2332 Prefix => New_Occurrence_Of (Atyp, Loc),
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | sem_eval.adb | 2631 Atyp : Entity_Id; 2644 Atyp := Etype (Arr); 2646 if Is_Access_Type (Atyp) then 2647 Atyp := Designated_Type (Atyp); 2654 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2655 if Ekind (Atyp) = E_String_Literal_Subtype then 2656 Lbd := String_Literal_Low_Bound (Atyp); 2658 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2664 and then Is_Discrete_Type (Component_Type (Atyp)) 2705 Set_Etype (Elm, Component_Type (Atyp));
|
H A D | exp_unst.adb | 2205 Atyp : Entity_Id; variable 2225 Atyp := Etype (UPJ.Ref); 2227 if Ekind (Atyp) /= E_Record_Subtype then 2228 Atyp := Get_Actual_Subtype (UPJ.Ref); 2332 Prefix => New_Occurrence_Of (Atyp, Loc),
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | sem_eval.adb | 2570 Atyp : Entity_Id; 2583 Atyp := Etype (Arr); 2585 if Is_Access_Type (Atyp) then 2586 Atyp := Designated_Type (Atyp); 2593 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2594 if Ekind (Atyp) = E_String_Literal_Subtype then 2595 Lbd := String_Literal_Low_Bound (Atyp); 2597 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2603 and then Is_Discrete_Type (Component_Type (Atyp)) 2644 Set_Etype (Elm, Component_Type (Atyp));
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | sem_eval.adb | 2594 Atyp : Entity_Id; 2607 Atyp := Etype (Arr); 2609 if Is_Access_Type (Atyp) then 2610 Atyp := Designated_Type (Atyp); 2617 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2618 if Ekind (Atyp) = E_String_Literal_Subtype then 2619 Lbd := String_Literal_Low_Bound (Atyp); 2621 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2627 and then Is_Discrete_Type (Component_Type (Atyp)) 2668 Set_Etype (Elm, Component_Type (Atyp));
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | sem_eval.adb | 2594 Atyp : Entity_Id; 2607 Atyp := Etype (Arr); 2609 if Is_Access_Type (Atyp) then 2610 Atyp := Designated_Type (Atyp); 2617 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2618 if Ekind (Atyp) = E_String_Literal_Subtype then 2619 Lbd := String_Literal_Low_Bound (Atyp); 2621 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2627 and then Is_Discrete_Type (Component_Type (Atyp)) 2668 Set_Etype (Elm, Component_Type (Atyp));
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | sem_ch13.adb | 5857 if Present (Atyp) then 5858 Add_Call (Atyp); 9584 procedure Check_Array_Type (Atyp : Entity_Id); 9606 procedure Check_Array_Type (Atyp : Entity_Id) is 9612 if not Has_Component_Size_Clause (Atyp) 9613 and then not Has_Alignment_Clause (Atyp) 9614 and then not Is_Packed (Atyp) 9621 if not Known_Component_Size (Atyp) 9630 if Has_Component_Size_Clause (Atyp) then 9641 if Is_Packed (Atyp) then [all …]
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | sem_ch13.adb | 5857 if Present (Atyp) then 5858 Add_Call (Atyp); 9584 procedure Check_Array_Type (Atyp : Entity_Id); 9606 procedure Check_Array_Type (Atyp : Entity_Id) is 9612 if not Has_Component_Size_Clause (Atyp) 9613 and then not Has_Alignment_Clause (Atyp) 9614 and then not Is_Packed (Atyp) 9621 if not Known_Component_Size (Atyp) 9630 if Has_Component_Size_Clause (Atyp) then 9641 if Is_Packed (Atyp) then [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/ |
H A D | exp_unst.adb | 2222 Atyp : Entity_Id; variable 2242 Atyp := Etype (UPJ.Ref); 2244 if Ekind (Atyp) /= E_Record_Subtype then 2245 Atyp := Get_Actual_Subtype (UPJ.Ref); 2349 Prefix => New_Occurrence_Of (Atyp, Loc),
|
H A D | sem_eval.adb | 2726 Atyp : Entity_Id; 2739 Atyp := Etype (Arr); 2741 if Is_Access_Type (Atyp) then 2742 Atyp := Designated_Type (Atyp); 2749 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2750 if Ekind (Atyp) = E_String_Literal_Subtype then 2751 Lbd := String_Literal_Low_Bound (Atyp); 2753 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2759 and then Is_Discrete_Type (Component_Type (Atyp)) 2800 Set_Etype (Elm, Component_Type (Atyp));
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | exp_unst.adb | 2205 Atyp : Entity_Id; variable 2225 Atyp := Etype (UPJ.Ref); 2227 if Ekind (Atyp) /= E_Record_Subtype then 2228 Atyp := Get_Actual_Subtype (UPJ.Ref); 2332 Prefix => New_Occurrence_Of (Atyp, Loc),
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | exp_unst.adb | 2233 Atyp : Entity_Id; variable 2253 Atyp := Etype (UPJ.Ref); 2255 if Ekind (Atyp) /= E_Record_Subtype then 2256 Atyp := Get_Actual_Subtype (UPJ.Ref); 2360 Prefix => New_Occurrence_Of (Atyp, Loc),
|
H A D | sem_eval.adb | 2742 Atyp : Entity_Id; 2755 Atyp := Etype (Arr); 2757 if Is_Access_Type (Atyp) then 2758 Atyp := Designated_Type (Atyp); 2765 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2766 if Ekind (Atyp) = E_String_Literal_Subtype then 2767 Lbd := String_Literal_Low_Bound (Atyp); 2769 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2775 and then Is_Discrete_Type (Component_Type (Atyp)) 2816 Set_Etype (Elm, Component_Type (Atyp));
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/ |
H A D | exp_unst.adb | 2222 Atyp : Entity_Id; variable 2242 Atyp := Etype (UPJ.Ref); 2244 if Ekind (Atyp) /= E_Record_Subtype then 2245 Atyp := Get_Actual_Subtype (UPJ.Ref); 2349 Prefix => New_Occurrence_Of (Atyp, Loc),
|
H A D | sem_eval.adb | 2726 Atyp : Entity_Id; 2739 Atyp := Etype (Arr); 2741 if Is_Access_Type (Atyp) then 2742 Atyp := Designated_Type (Atyp); 2749 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2750 if Ekind (Atyp) = E_String_Literal_Subtype then 2751 Lbd := String_Literal_Low_Bound (Atyp); 2753 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2759 and then Is_Discrete_Type (Component_Type (Atyp)) 2800 Set_Etype (Elm, Component_Type (Atyp));
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/ |
H A D | exp_unst.adb | 2222 Atyp : Entity_Id; variable 2242 Atyp := Etype (UPJ.Ref); 2244 if Ekind (Atyp) /= E_Record_Subtype then 2245 Atyp := Get_Actual_Subtype (UPJ.Ref); 2349 Prefix => New_Occurrence_Of (Atyp, Loc),
|
H A D | sem_eval.adb | 2726 Atyp : Entity_Id; 2739 Atyp := Etype (Arr); 2741 if Is_Access_Type (Atyp) then 2742 Atyp := Designated_Type (Atyp); 2749 if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then 2750 if Ekind (Atyp) = E_String_Literal_Subtype then 2751 Lbd := String_Literal_Low_Bound (Atyp); 2753 Lbd := Type_Low_Bound (Etype (First_Index (Atyp))); 2759 and then Is_Discrete_Type (Component_Type (Atyp)) 2800 Set_Etype (Elm, Component_Type (Atyp));
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | sem_ch13.adb | 8671 if Present (Atyp) then 8672 Add_Call (Atyp); 13167 procedure Check_Array_Type (Atyp : Entity_Id); 13195 if not Has_Component_Size_Clause (Atyp) 13196 and then not Has_Alignment_Clause (Atyp) 13197 and then not Is_Packed (Atyp) 13206 if Known_Component_Size (Atyp) 13207 and then Component_Size (Atyp) >= 64 13208 and then Known_Alignment (Atyp) 13217 if not Known_Component_Size (Atyp) [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | sem_ch13.adb | 8671 if Present (Atyp) then 8672 Add_Call (Atyp); 13167 procedure Check_Array_Type (Atyp : Entity_Id); 13195 if not Has_Component_Size_Clause (Atyp) 13196 and then not Has_Alignment_Clause (Atyp) 13197 and then not Is_Packed (Atyp) 13206 if Known_Component_Size (Atyp) 13207 and then Component_Size (Atyp) >= 64 13208 and then Known_Alignment (Atyp) 13217 if not Known_Component_Size (Atyp) [all …]
|
/dports/editors/fpc-ide/fpc-3.2.2/compiler/ |
H A D | ogbase.pas | 266 constructor CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocationType); 267 … constructor CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjRelocationType); 268 … constructor CreateGroup(ADataOffset:TObjSectionOfs;grp:TObjSectionGroup;Atyp:TObjRelocationType); 842 …constructor TObjRelocation.CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocatio… 851 ftype:=ord(Atyp); 855 …constructor TObjRelocation.CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjR… 864 ftype:=ord(Atyp); 868 …constructor TObjRelocation.CreateGroup(ADataOffset:TObjSectionOfs;grp:TObjSectionGroup;Atyp:TObjRe… 877 ftype:=ord(Atyp);
|
/dports/lang/fpc/fpc-3.2.2/compiler/ |
H A D | ogbase.pas | 266 constructor CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocationType); 267 … constructor CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjRelocationType); 268 … constructor CreateGroup(ADataOffset:TObjSectionOfs;grp:TObjSectionGroup;Atyp:TObjRelocationType); 842 …constructor TObjRelocation.CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocatio… 851 ftype:=ord(Atyp); 855 …constructor TObjRelocation.CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjR… 864 ftype:=ord(Atyp); 868 …constructor TObjRelocation.CreateGroup(ADataOffset:TObjSectionOfs;grp:TObjSectionGroup;Atyp:TObjRe… 877 ftype:=ord(Atyp);
|
/dports/lang/fpc-source/fpc-3.2.2/compiler/ |
H A D | ogbase.pas | 266 constructor CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocationType); 267 … constructor CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjRelocationType); 268 … constructor CreateGroup(ADataOffset:TObjSectionOfs;grp:TObjSectionGroup;Atyp:TObjRelocationType); 842 …constructor TObjRelocation.CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocatio… 851 ftype:=ord(Atyp); 855 …constructor TObjRelocation.CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjR… 864 ftype:=ord(Atyp); 868 …constructor TObjRelocation.CreateGroup(ADataOffset:TObjSectionOfs;grp:TObjSectionGroup;Atyp:TObjRe… 877 ftype:=ord(Atyp);
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | sem_ch13.adb | 6754 if Present (Atyp) then 6755 Add_Call (Atyp); 11246 procedure Check_Array_Type (Atyp : Entity_Id); 11268 procedure Check_Array_Type (Atyp : Entity_Id) is 11274 if not Has_Component_Size_Clause (Atyp) 11275 and then not Has_Alignment_Clause (Atyp) 11276 and then not Is_Packed (Atyp) 11283 if not Known_Component_Size (Atyp) 11292 if Has_Component_Size_Clause (Atyp) then 11303 if Is_Packed (Atyp) then [all …]
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_util.adb | 2370 Atyp : Entity_Id; variable 2428 Atyp := Defining_Identifier (Decl); 2432 if Atyp /= Typ then 2438 Set_Is_Itype (Atyp); 2440 Set_Associated_Node_For_Itype (Atyp, N); 2441 Set_Has_Delayed_Freeze (Atyp, False); 2448 Freeze_Itype (Atyp, N); 2449 return Atyp;
|