/*
* This file is part of cparser.
- * Copyright (C) 2007-2009 Matthias Braun <matze@braunis.de>
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- * 02111-1307, USA.
+ * Copyright (C) 2012 Matthias Braun <matze@braunis.de>
*/
#include <config.h>
#include <libfirm/firm.h>
#include <string.h>
+#include "adt/obst.h"
#include "entity_t.h"
#include "type_t.h"
#include "symbol_t.h"
#include "mangle.h"
-#include "diagnostic.h"
-#include "ast2firm.h"
#include "lang_features.h"
#include "adt/error.h"
static char get_atomic_type_mangle(atomic_type_kind_t kind)
{
switch (kind) {
- case ATOMIC_TYPE_INVALID: break;
case ATOMIC_TYPE_VOID: return 'v';
case ATOMIC_TYPE_WCHAR_T: return 'w';
case ATOMIC_TYPE_BOOL: return 'b';
case ATOMIC_TYPE_FLOAT: return 'f';
case ATOMIC_TYPE_DOUBLE: return 'd';
}
- panic("invalid atomic type in mangler");
+ panic("invalid atomic type");
}
static void mangle_atomic_type(const atomic_type_t *type)
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;
case CC_STDCALL:
case CC_FASTCALL: {
- 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));
+ unsigned size = 0;
+ for (function_parameter_t const* i = type->function.parameters; i; i = i->next) {
+ size += get_type_size(i->type);
}
obstack_printf(o, "@%u", size);
break;
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:
if (entity->function.actual_name != NULL)
name = entity->function.actual_name->string;
assert(is_type_function(type));
switch (type->function.linkage) {
- case LINKAGE_INVALID:
- panic("linkage type of function is invalid");
-
default:
if (entity->function.actual_name != NULL)
return new_id_from_str(entity->function.actual_name->string);