Searched refs:Original_Record_Component (Results 1 – 25 of 453) sorted by last modified time
12345678910>>...19
7092 function Original_Record_Component (Id : E) return E; subprogspec8586 pragma Inline (Original_Record_Component);
2825 function Original_Record_Component (Id : E) return E is subprogram2829 end Original_Record_Component;9217 Original_Record_Component (Id));9218 Write_Int (Int (Original_Record_Component (Id)));
1039 Original_Record_Component
1344 else Original_Record_Component (Comp)),1396 if Original_Record_Component (Corr_Disc) =1397 Original_Record_Component (Disc)
7744 and then Original_Record_Component (E) = E)
11068 and then Present (Original_Record_Component (Entity (S)))11069 and then Ekind (Original_Record_Component (Entity (S))) = E_Component11071 Is_Declared_Within_Variant (Original_Record_Component (Entity (S)))
4236 Orig_Discr := Original_Record_Component (Input_Discr);4244 if Original_Record_Component (Discr) = Orig_Discr then5632 Scope (Original_Record_Component (C)) /=
1129 Original_Record_Component (Comp);
1147 and then Comes_From_Source (Original_Record_Component (E))1149 Ent := Original_Record_Component (E);2525 and then Original_Record_Component (E) = E;
1116 variable. Lay out the Original_Record_Component only if it's
3285 Original_Record_Component (Id));3286 Write_Int (Int (Original_Record_Component (Id)));
2242 while Original_Record_Component (Parent_Discr) /= Discr loop4797 and then Original_Record_Component (Comp) = Comp9493 Typ, Scope (Original_Record_Component (Comp)));9496 Sloc (Scope (Original_Record_Component (Comp)));9499 Typ, Scope (Original_Record_Component (Comp)));
1719 if Original_Record_Component (Comp) =1720 Original_Record_Component (Comp_From_Type)
18786 Result_Entity := Original_Record_Component (Result_Entity);18805 if Original_Record_Component (Disc) = Result_Entity then19099 and then Original_Record_Component (Corr_Discrim) = Old_C19365 Original_Comp := Original_Record_Component (C);21089 if Original_Record_Component (Priv_Discr) =21090 Original_Record_Component (Full_Discr)22696 if Original_Record_Component (Comp) = Defining_Identifier (N)22709 if Original_Record_Component (Comp) = Entity (Name (N))
8525 Comp_Base := Original_Record_Component (Comp);8530 return Comp_Base /= Original_Record_Component (Comp_Base);8748 if Scope (Original_Record_Component (Comp)) = Rectype8830 Ocomp := Original_Record_Component (Comp);12551 Original_Record_Component (C1_Ent) =12552 Original_Record_Component (C2_Ent);
8909 (Present (Original_Record_Component (C))8911 Comes_From_Source (Original_Record_Component (C))))9221 Par_Disc := Original_Record_Component (Original_Discriminant (Id));10163 (Scope (Original_Record_Component10230 Chars (Original_Record_Component (Entity (Discrim))) =17090 Original_Record_Component (Entity (Selector_Name (Object)));28941 Original_Record_Component (Entity (Selector_Name (N)));
8902 and then Present (Original_Record_Component (Comp))8904 Comp := Original_Record_Component (Comp);
844 Original_Record_Component,
4449 * repinfo.adb (List_Record_Layout): Use Original_Record_Component
6439 Original_Record_Component if Present and not the entity.
7109 Original_Record_Component (Entity (Sel));
2922 and then Chars (Original_Record_Component (Item)) =8397 if not Comes_From_Source (Original_Record_Component (Comp))8456 Scope (Original_Record_Component
11129 (Original_Record_Component (Entity (S))))11136 (Original_Record_Component (Entity (S))),13019 and then Comp /= Original_Record_Component (Comp))
567 if (Present (Original_Record_Component (gnat_entity)) in gnat_to_gnu_entity()568 && Original_Record_Component (gnat_entity) != gnat_entity) in gnat_to_gnu_entity()571 = gnat_to_gnu_entity (Original_Record_Component (gnat_entity), in gnat_to_gnu_entity()590 && Present (Original_Record_Component (gnat_entity))) in gnat_to_gnu_entity()593 = gnat_to_gnu_entity (Original_Record_Component in gnat_to_gnu_entity()3344 = gnat_to_gnu_entity (Original_Record_Component (gnat_discr), in gnat_to_gnu_entity()3583 (Original_Record_Component (gnat_temp)), in gnat_to_gnu_entity()6489 Original_Record_Component (discr1) == Original_Record_Component (discr2); in same_discriminant_p()8953 && Original_Record_Component (gnat_field) == gnat_field) in annotate_rep()10045 return Original_Record_Component (discr) == discr; in is_stored_discriminant()[all …]
6801 gnat_field = Original_Record_Component (gnat_field); in gnat_to_gnu()