Lines Matching refs:Ret_Obj_Decl
5285 Ret_Obj_Decl : constant Node_Id := Parent (Ret_Obj_Id); constant
5305 if Nkind (Ret_Obj_Decl) = N_Object_Declaration then
5306 Exp := Expression (Ret_Obj_Decl);
5491 and then Nkind (Ret_Obj_Decl) = N_Object_Renaming_Declaration
5494 (Nkind (Original_Node (Ret_Obj_Decl)) = N_Object_Declaration
5500 (Expression (Original_Node (Ret_Obj_Decl)))
5507 (Expression (Original_Node (Ret_Obj_Decl))))));
5537 Ret_Obj_Expr : constant Node_Id := Expression (Ret_Obj_Decl);
5572 and then not No_Initialization (Ret_Obj_Decl)
5590 Set_Expression (Ret_Obj_Decl, Empty);
5611 Insert_After (Ret_Obj_Decl, Init_Assignment);
5666 Insert_Before (Ret_Obj_Decl, Ptr_Type_Decl);
5682 Insert_Before (Ret_Obj_Decl, Alloc_Obj_Decl);
5689 and then not No_Initialization (Ret_Obj_Decl)
5975 Insert_Before (Ret_Obj_Decl, Alloc_If_Stmt);
6010 Insert_Before (Ret_Obj_Decl, Ptr_Type_Decl);
6033 Insert_Before (Ret_Obj_Decl, Alloc_Obj_Decl);
6050 Rewrite (Ret_Obj_Decl,