1 /* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
2 ** All rights reserved.
4 ** Authors: Martin Trapp, Christian Schaefer
14 static struct obstack mangle_obst;
17 mangle_entity (entity *ent)
24 type_id = mangle_type ((type *) ent->owner);
25 xoprintf (&mangle_obst, "%I_%I", type_id, ent->name);
26 len = obstack_object_size (&mangle_obst);
27 cp = obstack_finish (&mangle_obst);
28 res = id_from_str (cp, len);
29 obstack_free (&mangle_obst, cp);
34 mangle_type (type *type)
40 assert (type->kind == k_type_class);
42 xoprintf (&mangle_obst, "%I", type->clss.name);
43 len = obstack_object_size (&mangle_obst);
44 cp = obstack_finish (&mangle_obst);
45 res = id_from_str (cp, len);
46 obstack_free (&mangle_obst, cp);
54 obstack_init (&mangle_obst);