[Home] [Help]
26: -- List of source obj of evolved-types
27: g_evolved_types_src_list evolved_type_src_tab;
28: g_evolved_type_index number;
29:
30: g_obj_list_to_recompile sys.dbms_objects_utils_tnamearr := sys.dbms_objects_utils_tnamearr();
31:
32: -- ************************************************************************
33: --
34: -- Private: Utility or Validation APIs
259: -- This procedure populates g_obj_list_to_recompile
260: --
261: procedure put_obj_to_recompile(x_owner varchar2, x_type_name varchar2 )
262: is
263: l_type_names sys.dbms_objects_utils_tname;
264: begin
265:
266: l_type_names := sys.dbms_objects_utils_tname(x_owner, x_type_name);
267: g_obj_list_to_recompile.extend;
262: is
263: l_type_names sys.dbms_objects_utils_tname;
264: begin
265:
266: l_type_names := sys.dbms_objects_utils_tname(x_owner, x_type_name);
267: g_obj_list_to_recompile.extend;
268: g_obj_list_to_recompile(g_obj_list_to_recompile.last):= l_type_names;
269:
270: end put_obj_to_recompile;