2213     object_t *ob, *new_ob;  in clone_object()  local
2298     new_ob = get_empty_object(ob->prog->num_variables);  in clone_object()
2299     if (!new_ob)  in clone_object()
2302     new_ob->name = make_new_name(name);  in clone_object()
2308 … , tot_alloc_object, tot_alloc_object_size, new_ob, new_ob->name ? get_txt(new_ob->name) : "<null>"  in clone_object()
2309                       , mstrsize(new_ob->name)  in clone_object()
2311                       , tot_alloc_object_size + (mstrsize(new_ob->name))  in clone_object()
2315     tot_alloc_object_size += mstrsize(new_ob->name);  in clone_object()
2316     new_ob->load_name = ref_mstring(ob->load_name);  in clone_object()
2317     new_ob->flags |= O_CLONE | O_WILL_CLEAN_UP;  in clone_object()
2318     new_ob->prog = ob->prog;  in clone_object()
2320     new_ob->ticks = new_ob->gigaticks = 0;  in clone_object()
2325     new_ob->next_all = obj_list;  in clone_object()
2326     new_ob->prev_all = NULL;  in clone_object()
2328         obj_list->prev_all = new_ob;  in clone_object()
2329     obj_list = new_ob;  in clone_object()
2331         obj_list_end = new_ob;  in clone_object()
2333     enter_object_hash(new_ob);        /* Add name to fast object lookup table */  in clone_object()
2334     push_give_uid_error_context(new_ob);  in clone_object()
2336     push_ref_string(inter_sp, new_ob->name);  in clone_object()
2337     give_uid_to_object(new_ob, H_CLONE_UIDS, 2);  in clone_object()
2339     if (new_ob->flags & O_DESTRUCTED)  in clone_object()
2342              , get_txt(new_ob->name));  in clone_object()
2345     init_object_variables(new_ob, ob);  in clone_object()
2347     if (new_ob->flags & O_DESTRUCTED)  in clone_object()
2350              , get_txt(new_ob->name));  in clone_object()
2353     reset_object(new_ob, H_CREATE_CLONE);  in clone_object()
2357     if (new_ob->flags & O_DESTRUCTED)  in clone_object()
2360     return new_ob;  in clone_object()