# include "irnode_t.h"
# include "irgwalk.h"
# include "xmalloc.h"
+# include "gnu_ext.h"
/*
*/
static typalise_t *ta_exact (type *tp)
{
- typalise_t *ta = xmalloc (sizeof(*ta));
+ typalise_t *ta = xmalloc (sizeof (typalise_t));
ta->kind = type_exact;
ta->res.type = tp;
ta->id = ta_id ++;
- assert (is_class_type (tp));
+ assert (is_Class_type (tp));
return (ta);
}
static typalise_t *ta_types (lset_t *set)
{
- typalise_t *ta = xmalloc (sizeof(*ta));
+ typalise_t *ta = xmalloc (sizeof (typalise_t));
ta->kind = type_types;
ta->res.types = set;
ta->id = ta_id ++;
static typalise_t *ta_type (type *tp)
{
- typalise_t *ta = xmalloc (sizeof(*ta));
+ typalise_t *ta = xmalloc (sizeof (typalise_t));
ta->kind = type_type;
ta->res.type = tp;
ta->id = ta_id ++;
- assert (is_class_type (tp));
+ assert (is_Class_type (tp));
return (ta);
}
} else {
/* ugh proj arg */
type *tp = get_method_param_type (get_entity_type (meth), n);
- if (is_pointer_type (tp)) {
+ if (is_Pointer_type (tp)) {
tp = get_pointer_points_to_type (tp);
}
typalise_t *ta = NULL;
type *tp = get_Cast_type (node);
- if (is_pointer_type (tp)) {
+ if (is_Pointer_type (tp)) {
tp = get_pointer_points_to_type (tp);
}
- assert (is_class_type (tp));
+ assert (is_Class_type (tp));
ta = typalise (get_Cast_op (node));
entity *ent = get_Sel_entity (node);
type *tp = get_entity_type (ent);
- if (is_method_type (tp)) {
+ if (is_Method_type (tp)) {
tp = get_entity_type (ent);
tp = get_method_res_type (tp, 0);
- if (is_pointer_type (tp)) {
+ if (is_Pointer_type (tp)) {
tp = get_pointer_points_to_type (tp);
}
res = ta_type (tp);
- } else if (is_class_type (tp)) {
+ } else if (is_Class_type (tp)) {
tp = get_entity_type (ent);
- if (is_pointer_type (tp)) {
+ if (is_Pointer_type (tp)) {
tp = get_pointer_points_to_type (tp);
}
res = ta_type (tp);
- } else if (is_pointer_type (tp)) {
+ } else if (is_Pointer_type (tp)) {
tp = get_pointer_points_to_type (tp);
res = ta_type (tp);
} else {
entity *ent = get_SymConst_entity (node);
type *tp = get_entity_type (ent);
tp = get_pointer_points_to_type (tp);
- assert (is_class_type (tp));
+ assert (is_Class_type (tp));
res = ta_type (tp); /* can't use ta_exact */
} else {
- fprintf (stdout, "can't handle SymConst %s?\n",
+ fprintf (stdout, "%s (%s:%i): can't handle SymConst %s?\n",
+ __FUNCTION__, __FILE__, __LINE__,
get_op_name (get_irn_op (node)));
res = NULL;
}
\f
/*
$Log$
+ Revision 1.8 2005/01/14 14:13:24 liekweg
+ fix gnu extension
+
+ Revision 1.7 2005/01/10 17:26:34 liekweg
+ fixup printfs, don't put environments on the stack
+
+ Revision 1.6 2005/01/05 14:25:54 beck
+ renames all is_x*_type() functions to is_X*_type() to prevent name clash with EDG fronten
+
Revision 1.5 2004/12/22 14:43:14 beck
made allocations C-like