2 * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
4 * This file is part of libFirm.
6 * This file may be distributed and/or modified under the terms of the
7 * GNU General Public License version 2 as published by the Free Software
8 * Foundation and appearing in the file LICENSE.GPL included in the
9 * packaging of this file.
11 * Licensees holding valid libFirm Professional Edition licenses may use
12 * this file in accordance with the libFirm Commercial License.
13 * Agreement provided with the Software.
15 * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
16 * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * @brief Methods to manipulate names.
23 * @author Martin Trapp, Christian Schaefer, Goetz Lindenmaier, Michael Beck
33 /* Make types visible to allow most efficient access */
38 /** An obstack used for temporary space */
39 static struct obstack mangle_obst;
41 /** returned a mangled type name, currently no mangling */
42 static inline ident *mangle_type(ir_type *tp)
44 assert(tp->kind == k_type);
48 ident *id_mangle_entity(ir_entity *ent)
55 type_id = mangle_type(ent->owner);
56 obstack_grow(&mangle_obst, get_id_str(type_id), get_id_strlen(type_id));
57 obstack_1grow(&mangle_obst,'_');
58 obstack_grow(&mangle_obst,get_id_str(ent->name),get_id_strlen(ent->name));
59 len = obstack_object_size (&mangle_obst);
60 cp = obstack_finish (&mangle_obst);
61 res = new_id_from_chars(cp, len);
62 obstack_free (&mangle_obst, cp);
67 /* Returns a new ident that represents 'firstscnd'. */
68 ident *id_mangle(ident *first, ident *scnd)
74 obstack_grow(&mangle_obst, get_id_str(first), get_id_strlen(first));
75 obstack_grow(&mangle_obst, get_id_str(scnd), get_id_strlen(scnd));
76 len = obstack_object_size (&mangle_obst);
77 cp = obstack_finish (&mangle_obst);
78 res = new_id_from_chars (cp, len);
79 obstack_free (&mangle_obst, cp);
83 /** Returns a new ident that represents 'prefixscndsuffix'. */
84 ident *id_mangle3(const char *prefix, ident *scnd, const char *suffix)
90 obstack_grow(&mangle_obst, prefix, strlen(prefix));
91 obstack_grow(&mangle_obst, get_id_str(scnd), get_id_strlen(scnd));
92 obstack_grow(&mangle_obst, suffix, strlen(suffix));
93 len = obstack_object_size (&mangle_obst);
94 cp = obstack_finish (&mangle_obst);
95 res = new_id_from_chars (cp, len);
96 obstack_free (&mangle_obst, cp);
100 /** Returns a new ident that represents first<c>scnd. */
101 static ident *id_mangle_3(ident *first, char c, ident* scnd)
107 obstack_grow(&mangle_obst, get_id_str(first), get_id_strlen(first));
108 obstack_1grow(&mangle_obst, c);
109 obstack_grow(&mangle_obst,get_id_str(scnd),get_id_strlen(scnd));
110 len = obstack_object_size (&mangle_obst);
111 cp = obstack_finish (&mangle_obst);
112 res = new_id_from_chars (cp, len);
113 obstack_free (&mangle_obst, cp);
117 /* Returns a new ident that represents first_scnd. */
118 ident *id_mangle_u(ident *first, ident* scnd)
120 return id_mangle_3(first, '_', scnd);
123 /* Returns a new ident that represents first.scnd. */
124 ident *id_mangle_dot(ident *first, ident* scnd)
126 return id_mangle_3(first, '.', scnd);
129 /* returns a mangled name for a Win32 function using it's calling convention */
130 ident *id_decorate_win32_c_fkt(ir_entity *ent, ident *id)
132 ir_type *tp = get_entity_type(ent);
133 unsigned cc_mask = get_method_calling_convention(tp);
137 if (IS_CDECL(cc_mask))
138 return id_mangle3("_", id, "");
139 else if (IS_STDCALL(cc_mask)) {
141 for (i = get_method_n_params(tp) - 1; i >= 0; --i) {
142 size += get_type_size_bytes(get_method_param_type(tp, i));
145 snprintf(buf, sizeof(buf), "@%d", size);
147 if (cc_mask & cc_reg_param)
148 return id_mangle3("@", id, buf);
150 return id_mangle3("_", id, buf);
155 void firm_init_mangle(void)
157 obstack_init(&mangle_obst);