const symbol_t *sym = ent->symbol;
if (sym != NULL) {
const char *name = sym->string;
- obstack_printf(&obst, "%zu%s", strlen(name), name);
+ obstack_printf(&obst, "%u%s", (unsigned) strlen(name), name);
} else {
/* TODO need the first typedef name here */
- panic("mangling of unnamed compound types not implemented yet");
+ panic("mangling of unnamed class/enum types not implemented yet");
}
}
+static void mangle_array_type(const array_type_t *type)
+{
+ if (type->is_vla) {
+ obstack_1grow(&obst, 'A');
+ obstack_1grow(&obst, '_');
+ } else if (type->size_constant) {
+ obstack_printf(&obst, "A%u_", (unsigned) type->size);
+ } else {
+ panic("mangling of non-constant sized array types not implemented yet");
+ }
+ mangle_type(type->element_type);
+}
+
+static void mangle_complex_type(const complex_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)
+{
+ obstack_1grow(&obst, 'G');
+ obstack_1grow(&obst, get_atomic_type_mangle(type->akind));
+}
+
static void mangle_qualifiers(type_qualifiers_t qualifiers)
{
if (qualifiers & TYPE_QUALIFIER_RESTRICT)
case TYPE_ENUM:
mangle_class_enum_type(&type->enumt.enume->base);
return;
+ case TYPE_ARRAY:
+ mangle_array_type(&type->array);
+ return;
+ case TYPE_COMPLEX:
+ mangle_complex_type(&type->complex);
+ return;
+ case TYPE_IMAGINARY:
+ mangle_imaginary_type(&type->imaginary);
+ return;
case TYPE_INVALID:
panic("invalid type encountered while mangling");
case TYPE_ERROR:
panic("typeref not resolved while manging?!?");
case TYPE_BITFIELD:
- case TYPE_COMPLEX:
- case TYPE_IMAGINARY:
- case TYPE_ARRAY:
panic("no mangling for this type implemented yet");
break;
}
/* TODO: mangle scope */
const char *name = entity->base.symbol->string;
- obstack_printf(&obst, "%zu%s", strlen(name), name);
+ obstack_printf(&obst, "%u%s", (unsigned) strlen(name), name);
if (entity->kind == ENTITY_FUNCTION) {
mangle_parameters(&entity->declaration.type->function);
case CC_STDCALL:
case CC_FASTCALL: {
- ir_type *irtype = get_ir_type(entity->declaration.type);
- size_t size = 0;
+ ir_type *irtype = get_ir_type(entity->declaration.type);
+ unsigned size = 0;
for (int i = get_method_n_params(irtype) - 1; i >= 0; --i) {
size += get_type_size_bytes(get_method_param_type(irtype, i));
}
- obstack_printf(o, "@%zu", size);
+ obstack_printf(o, "@%u", size);
break;
}