Lines Matching refs:Parent_P
230 Parent_P : Node_Id := Parent (P); variable
247 while Present (Parent_P)
248 and then Nkind (Parent_P) /= N_Component_Declaration
250 P := Parent_P;
251 Parent_P := Parent (P);
257 if Present (Parent_P) and then P = Expression (Parent_P) then
262 while Present (Parent_P)
263 and then Nkind (Parent_P) /= N_Subprogram_Body
265 P := Parent_P;
271 Parent_P := Parent (Parent_P);
279 if Present (Parent_P)
280 and then Present (Corresponding_Spec (Parent_P))
284 D_Fun : constant Entity_Id := Corresponding_Spec (Parent_P);