-/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
-* All rights reserved.
-*
-* Authors: Martin Trapp, Christian Schaefer
-*
-*/
-
-/* $Id$ */
-
+/*
+ * Project: libFIRM
+ * File name: ir/tr/mangle.c
+ * Purpose: Methods to manipulate names.
+ * Author: Martin Trapp, Christian Schaefer
+ * Modified by: Goetz Lindenmaier
+ * Created:
+ * CVS-ID: $Id$
+ * Copyright: (c) 1998-2003 Universität Karlsruhe
+ * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE.
+ */
#ifdef HAVE_CONFIG_H
-# include <config.h>
+# include "config.h"
#endif
# include "mangle.h"
-# include <obstack.h>
# include "obst.h"
-# include <stdlib.h>
-# include <stdio.h>
-# include "misc.h"
/* Make types visible to allow most efficient access */
# include "entity_t.h"
# include "type_t.h"
# include "tpop_t.h"
+/** a obstack used for temporary space */
static struct obstack mangle_obst;
-ident *
-mangle_entity (entity *ent)
+/** returned a mangled type name, currently no mangling */
+static INLINE ident *
+mangle_type (type *tp)
{
- ident *type_id;
- char *cp;
- int len;
- ident *res;
-
- type_id = mangle_type ((type *) ent->owner);
- obstack_printf (&mangle_obst, "%s_%s", id_to_str(type_id), id_to_str(ent->name));
- len = obstack_object_size (&mangle_obst);
- cp = obstack_finish (&mangle_obst);
- res = id_from_str(cp, len);
- obstack_free (&mangle_obst, cp);
- return res;
+ assert (tp->kind == k_type);
+ return tp->name;
}
ident *
-mangle_type (type *tp)
+mangle_entity (entity *ent)
{
+ ident *type_id;
char *cp;
int len;
ident *res;
- assert (tp->kind == k_type);
- /* assert (tp->type_op->code == tpo_class); */
-
- obstack_printf (&mangle_obst, "%s", id_to_str(tp->name));
+ type_id = mangle_type(ent->owner);
+ obstack_grow(&mangle_obst, get_id_str(type_id), get_id_strlen(type_id));
+ obstack_1grow(&mangle_obst,'_');
+ obstack_grow(&mangle_obst,get_id_str(ent->name),get_id_strlen(ent->name));
len = obstack_object_size (&mangle_obst);
cp = obstack_finish (&mangle_obst);
- res = id_from_str (cp, len);
+ res = new_id_from_chars(cp, len);
obstack_free (&mangle_obst, cp);
return res;
}
-/* Returns a new ident that represents firstscnd. */
+
+/* Returns a new ident that represents 'firstscnd'. */
ident *mangle (ident *first, ident* scnd) {
char *cp;
int len;
ident *res;
- obstack_printf (&mangle_obst, "%s%s", id_to_str(first), id_to_str(scnd));
+ obstack_grow(&mangle_obst, get_id_str(first), get_id_strlen(first));
+ obstack_grow(&mangle_obst, get_id_str(scnd), get_id_strlen(scnd));
len = obstack_object_size (&mangle_obst);
cp = obstack_finish (&mangle_obst);
- res = id_from_str (cp, len);
+ res = new_id_from_chars (cp, len);
obstack_free (&mangle_obst, cp);
return res;
}
int len;
ident *res;
- obstack_printf (&mangle_obst, "%s_%s", id_to_str(first), id_to_str(scnd));
+ obstack_grow(&mangle_obst, get_id_str(first), get_id_strlen(first));
+ obstack_1grow(&mangle_obst,'_');
+ obstack_grow(&mangle_obst,get_id_str(scnd),get_id_strlen(scnd));
len = obstack_object_size (&mangle_obst);
cp = obstack_finish (&mangle_obst);
- res = id_from_str (cp, len);
+ res = new_id_from_chars (cp, len);
obstack_free (&mangle_obst, cp);
return res;
}
void
-init_mangle (void)
+firm_init_mangle (void)
{
- obstack_init (&mangle_obst);
+ obstack_init(&mangle_obst);
}