int
size_object(Object *o)
{
int sz = 0;
sz += sizeof(o->id.id) + sizeof(o->id.server);
sz += size_list(o->parents);
sz += size_symbols(o);
sz += size_methods(o->methods);
sz += size_gvars(o->vars);
sz += size_verbs(o->verbs);
sz += size_locks(o->locks);
return sz;
}
Int size_object(Obj *obj, int memory_size)
{
Int size = 0;
size = size_list(obj->parents, memory_size);
size += size_list(obj->children, memory_size);
size += size_vars(obj, memory_size);
size += size_methods(obj, memory_size);
if (!memory_size)
size += size_ident(obj->objname, memory_size);
if (memory_size) {
size += sizeof(Obj);
}
return size;
}