-ident *
-mangle_type (type *type)
-{
- char *cp;
- int len;
- ident *res;
-
- assert (type->kind == k_type);
- /* assert (type->type_op->code == tpo_class); */
-
- xoprintf (&mangle_obst, "%I", type->name);
- len = obstack_object_size (&mangle_obst);
- cp = obstack_finish (&mangle_obst);
- res = id_from_str (cp, len);
- obstack_free (&mangle_obst, cp);
- return res;
-}