static char get_atomic_type_mangle(atomic_type_kind_t kind)
{
switch (kind) {
- case ATOMIC_TYPE_INVALID: break;
+ case ATOMIC_TYPE_INVALID: break;
case ATOMIC_TYPE_VOID: return 'v';
case ATOMIC_TYPE_WCHAR_T: return 'w';
case ATOMIC_TYPE_BOOL: return 'b';
mangle_type(type->element_type);
}
-static void mangle_complex_type(const complex_type_t *type)
+static void mangle_complex_type(const atomic_type_t *type)
{
obstack_1grow(&obst, 'C');
obstack_1grow(&obst, get_atomic_type_mangle(type->akind));
}
-static void mangle_imaginary_type(const imaginary_type_t *type)
+static void mangle_imaginary_type(const atomic_type_t *type)
{
obstack_1grow(&obst, 'G');
obstack_1grow(&obst, get_atomic_type_mangle(type->akind));
mangle_array_type(&type->array);
return;
case TYPE_COMPLEX:
- mangle_complex_type(&type->complex);
+ mangle_complex_type(&type->atomic);
return;
case TYPE_IMAGINARY:
- mangle_imaginary_type(&type->imaginary);
+ mangle_imaginary_type(&type->atomic);
return;
- case TYPE_INVALID:
- panic("invalid type encountered while mangling");
case TYPE_ERROR:
panic("error type encountered while mangling");
- case TYPE_BUILTIN:
case TYPE_TYPEDEF:
case TYPE_TYPEOF:
panic("typeref not resolved while manging?!?");
-
- case TYPE_BITFIELD:
- panic("no mangling for this type implemented yet");
}
panic("invalid type encountered while mangling");
}
}
switch (type->function.linkage) {
- case LINKAGE_INVALID:
- panic("linkage type of function is invalid");
-
case LINKAGE_C:
obstack_printf(o, "%s", entity->base.symbol->string);
break;
*/
ident *create_name_linux_elf(entity_t *entity)
{
- bool needs_mangling = false;
+ const char *name = entity->base.symbol->string;
if (entity->kind == ENTITY_FUNCTION) {
type_t *type = skip_typeref(entity->declaration.type);
assert(is_type_function(type));
switch (type->function.linkage) {
- case LINKAGE_INVALID:
- panic("linkage type of function is invalid");
-
- case LINKAGE_C: break;
- case LINKAGE_CXX: needs_mangling = true; break;
+ case LINKAGE_C:
+ if (entity->function.actual_name != NULL)
+ name = entity->function.actual_name->string;
+ break;
+ case LINKAGE_CXX:
+ // TODO What about __REDIRECT/actual_name with mangling?
+ mangle_entity(entity);
+ return make_id_from_obst();
}
}
- if (needs_mangling) {
- mangle_entity(entity);
- return make_id_from_obst();
- }
-
- return new_id_from_str(entity->base.symbol->string);
+ return new_id_from_str(name);
}
/**
if (entity->kind == ENTITY_FUNCTION) {
type_t *type = skip_typeref(entity->declaration.type);
assert(is_type_function(type));
- if (type->function.linkage == LINKAGE_INVALID)
- panic("linkage type of function is invalid");
+
+ switch (type->function.linkage) {
+ default:
+ if (entity->function.actual_name != NULL)
+ return new_id_from_str(entity->function.actual_name->string);
+ break;
+ }
}
obstack_printf(&obst, "_%s", entity->base.symbol->string);