Lines Matching defs:Build_Inherit_CPP_Prims
273 function Build_Inherit_CPP_Prims (Typ : Entity_Id) return List_Id is subprogram
274 Loc : constant Source_Ptr := Sloc (Typ);
275 CPP_Nb_Prims : constant Nat := CPP_Num_Prims (Typ);
276 CPP_Table : array (1 .. CPP_Nb_Prims) of Boolean := (others => False);
277 CPP_Typ : constant Entity_Id := Enclosing_CPP_Parent (Typ);
278 Result : constant List_Id := New_List;
279 Parent_Typ : constant Entity_Id := Etype (Typ);
280 E : Entity_Id;
281 Elmt : Elmt_Id;
282 Parent_Tag : Entity_Id;
283 Prim : Entity_Id;
284 Prim_Pos : Nat;
285 Typ_Tag : Entity_Id;