static pmap *type_pointertype_map = NULL;
static pmap *type_arraytype_map = NULL;
+/**
+ * Return a flexible array containing all IR-nodes
+ * that access a given entity.
+ */
static ir_node **get_entity_access_array(entity *ent) {
ir_node **res;
if (!entity_access_map) entity_access_map = pmap_create();
pmap_insert(entity_access_map, (void *)ent, (void *)accs);
}
+/**
+ * Return a flexible array containing all IR-nodes
+ * that reference a given entity.
+ */
static ir_node **get_entity_reference_array(entity *ent) {
ir_node **res;
if (!entity_reference_map) entity_reference_map = pmap_create();
pmap_insert(entity_reference_map, (void *)ent, (void *)refs);
}
-static ir_node **get_type_alloc_array(type *tp) {
+/**
+ * Return a flexible array containing all IR-nodes
+ * that allocate a given type.
+ */
+static ir_node **get_type_alloc_array(ir_type *tp) {
ir_node **res;
if (!type_alloc_map) type_alloc_map = pmap_create();
return res;
}
-void set_type_alloc_array(type *tp, ir_node **alls) {
+void set_type_alloc_array(ir_type *tp, ir_node **alls) {
ir_node **old = pmap_get(type_alloc_map, (void *)tp);
if (old != alls)
pmap_insert(type_alloc_map, (void *)tp, (void *)alls);
}
-static ir_node **get_type_cast_array(type *tp) {
+/**
+ * Return a flexible array containing all Cast-nodes
+ * that "create" a given type.
+ */
+static ir_node **get_type_cast_array(ir_type *tp) {
ir_node **res;
if (!type_cast_map) type_cast_map = pmap_create();
res = NEW_ARR_F(ir_node *, 0);
pmap_insert(type_cast_map, (void *)tp, (void *)res);
}
-
return res;
}
-void set_type_cast_array(type *tp, ir_node **alls) {
+
+void set_type_cast_array(ir_type *tp, ir_node **alls) {
ir_node **old = pmap_get(type_cast_map, (void *)tp);
if (old != alls)
pmap_insert(type_cast_map, (void *)tp, (void *)alls);
}
-static type **get_type_pointertype_array(type *tp) {
- type **res;
+/**
+ * Return a flexible array containing all pointer
+ * types that points-to a given type.
+ */
+static ir_type **get_type_pointertype_array(ir_type *tp) {
+ ir_type **res;
if (!type_pointertype_map) type_pointertype_map = pmap_create();
if (pmap_contains(type_pointertype_map, (void *)tp)) {
- res = (type **) pmap_get(type_pointertype_map, (void *)tp);
+ res = (ir_type **) pmap_get(type_pointertype_map, (void *)tp);
} else {
- res = NEW_ARR_F(type *, 0);
+ res = NEW_ARR_F(ir_type *, 0);
pmap_insert(type_pointertype_map, (void *)tp, (void *)res);
}
return res;
}
-void set_type_pointertype_array(type *tp, type **pts) {
- type **old = pmap_get(type_pointertype_map, (void *)tp);
+void set_type_pointertype_array(ir_type *tp, ir_type **pts) {
+ ir_type **old = pmap_get(type_pointertype_map, (void *)tp);
if (old != pts)
pmap_insert(type_pointertype_map, (void *)tp, (void *)pts);
}
-static type **get_type_arraytype_array(type *tp) {
- type **res;
+/**
+ * Return a flexible array containing all array
+ * types that have a given type as element type.
+ */
+static ir_type **get_type_arraytype_array(ir_type *tp) {
+ ir_type **res;
if (!type_arraytype_map) type_arraytype_map = pmap_create();
if (pmap_contains(type_arraytype_map, (void *)tp)) {
- res = (type **) pmap_get(type_arraytype_map, (void *)tp);
+ res = (ir_type **) pmap_get(type_arraytype_map, (void *)tp);
} else {
- res = NEW_ARR_F(type *, 0);
+ res = NEW_ARR_F(ir_type *, 0);
pmap_insert(type_arraytype_map, (void *)tp, (void *)res);
}
return res;
}
-void set_type_arraytype_array(type *tp, type **pts) {
- type **old = pmap_get(type_arraytype_map, (void *)tp);
+void set_type_arraytype_array(ir_type *tp, ir_type **pts) {
+ ir_type **old = pmap_get(type_arraytype_map, (void *)tp);
if (old != pts)
pmap_insert(type_arraytype_map, (void *)tp, (void *)pts);
}
/**------------------------------------------------------------------*/
/* Number of Alloc nodes that create an instance of this type */
-int get_type_n_allocs(type *tp) {
+int get_type_n_allocs(ir_type *tp) {
ir_node **allocs;
assert(tp && is_type(tp));
}
/* Alloc node that creates an instance of this type */
-ir_node *get_type_alloc(type *tp, int pos) {
+ir_node *get_type_alloc(ir_type *tp, int pos) {
ir_node **allocs;
assert(0 <= pos && pos < get_type_n_allocs(tp));
return allocs[pos];
}
-void add_type_alloc(type *tp, ir_node *n) {
+void add_type_alloc(ir_type *tp, ir_node *n) {
ir_node **allocs;
assert(tp && is_type(tp));
set_type_alloc_array(tp, allocs);
}
-void set_type_alloc(type *tp, int pos, ir_node *n) {
+void set_type_alloc(ir_type *tp, int pos, ir_node *n) {
ir_node **allocs;
assert(0 <= pos && pos < get_type_n_allocs(tp));
}
/* Number of Cast nodes that create an instance of this type */
-int get_type_n_casts(type *tp) {
+int get_type_n_casts(ir_type *tp) {
ir_node **casts;
assert(tp && is_type(tp));
}
-int get_class_n_upcasts(type *clss) {
+int get_class_n_upcasts(ir_type *clss) {
int i, n_casts = get_type_n_casts(clss);
int n_instances = 0;
for (i = 0; i < n_casts; ++i) {
return n_instances;
}
-int get_class_n_downcasts(type *clss) {
+int get_class_n_downcasts(ir_type *clss) {
int i, n_casts = get_type_n_casts(clss);
int n_instances = 0;
for (i = 0; i < n_casts; ++i) {
/* Cast node that creates an instance of this type */
-ir_node *get_type_cast(type *tp, int pos) {
+ir_node *get_type_cast(ir_type *tp, int pos) {
ir_node **casts;
assert(0 <= pos && pos < get_type_n_casts(tp));
return casts[pos];
}
-void add_type_cast(type *tp, ir_node *n) {
+void add_type_cast(ir_type *tp, ir_node *n) {
ir_node **casts;
assert(tp && is_type(tp));
set_type_cast_array(tp, casts);
}
-void set_type_cast(type *tp, int pos, ir_node *n) {
+void set_type_cast(ir_type *tp, int pos, ir_node *n) {
ir_node **casts;
assert(0 <= pos && pos < get_type_n_casts(tp));
/**------------------------------------------------------------------*/
-int get_type_n_pointertypes_to(type *tp) {
- type ** pts;
+int get_type_n_pointertypes_to(ir_type *tp) {
+ ir_type ** pts;
assert(tp && is_type(tp));
return ARR_LEN(pts);
}
-type *get_type_pointertype_to(type *tp, int pos) {
- type ** pts;
+ir_type *get_type_pointertype_to(ir_type *tp, int pos) {
+ ir_type ** pts;
assert(0 <= pos && pos < get_type_n_pointertypes_to(tp));
return pts[pos];
}
-void add_type_pointertype_to(type *tp, type *ptp) {
- type ** pts;
+void add_type_pointertype_to(ir_type *tp, ir_type *ptp) {
+ ir_type ** pts;
assert(tp && is_type(tp));
assert(ptp && is_Pointer_type(ptp));
set_type_pointertype_array(tp, pts);
}
-void set_type_pointertype_to(type *tp, int pos, type *ptp) {
- type ** pts;
+void set_type_pointertype_to(ir_type *tp, int pos, ir_type *ptp) {
+ ir_type ** pts;
assert(0 <= pos && pos < get_type_n_pointertypes_to(tp));
assert(ptp && is_Pointer_type(ptp));
/**------------------------------------------------------------------*/
-int get_type_n_arraytypes_of(type *tp) {
- type ** pts;
+int get_type_n_arraytypes_of(ir_type *tp) {
+ ir_type ** pts;
assert(tp && is_type(tp));
return ARR_LEN(pts);
}
-type *get_type_arraytype_of(type *tp, int pos) {
- type ** pts;
+ir_type *get_type_arraytype_of(ir_type *tp, int pos) {
+ ir_type ** pts;
assert(0 <= pos && pos < get_type_n_arraytypes_of(tp));
return pts[pos];
}
-void add_type_arraytype_of(type *tp, type *atp) {
- type ** pts;
+void add_type_arraytype_of(ir_type *tp, ir_type *atp) {
+ ir_type ** pts;
assert(tp && is_type(tp));
assert(atp && is_Array_type(atp));
set_type_arraytype_array(tp, pts);
}
-void set_type_arraytype_of(type *tp, int pos, type *atp) {
- type ** pts;
+void set_type_arraytype_of(ir_type *tp, int pos, ir_type *atp) {
+ ir_type ** pts;
assert(0 <= pos && pos < get_type_n_arraytypes_of(tp));
assert(atp && is_Array_type(atp));
}
-/* The entities that can be accessed by this Sel node. */
+/** The number of entities that can be accessed by this Sel node. */
static int get_Sel_n_accessed_entities(ir_node *sel) {
return 1;
}
+/** The entity that cat be accessed by this Sel node. */
static entity *get_Sel_accessed_entity(ir_node *sel) {
return get_Sel_entity(sel);
}
-/* An addr node is a SymConst or a Sel. */
+/** An addr node is a SymConst or a Sel. */
static int get_addr_n_entities(ir_node *addr) {
int n_ents;
return n_ents;
}
-/* An addr node is a SymConst or a Sel.
- If Sel follow to outermost of compound. */
+/** An addr node is a SymConst or a Sel.
+ If Sel follow to outermost of compound. */
static entity *get_addr_entity(ir_node *addr, int pos) {
entity *ent;
switch (get_irn_opcode(addr)) {
case iro_Sel:
/* Treat jack array sels? They are compounds! Follow to outermost entity. */
- while (get_irn_op(get_Sel_ptr(addr)) == op_Sel) {
+ while (is_Sel(get_Sel_ptr(addr))) {
addr = get_Sel_ptr(addr);
}
assert (0 <= pos && pos < get_Sel_n_accessed_entities(addr));
addr = get_memop_ptr(n);
} else if (get_irn_op(n) == op_Call) {
addr = get_Call_ptr(n);
- if (get_irn_op(addr) != op_Sel) return; /* Sels before Calls mean a Load / polymorphic Call. */
+ if (! is_Sel(addr)) return; /* Sels before Calls mean a Load / polymorphic Call. */
} else {
return;
}
}
}
-static void chain_types(type *tp) {
+static void chain_types(ir_type *tp) {
if (is_Pointer_type(tp)) {
add_type_pointertype_to(get_pointer_points_to_type(tp), tp);
} else if (is_Array_type(tp)) {
init_trouts();
/* Compute outs for irnodes. */
- for (i=0; i < n_irgs; i++) {
- current_ir_graph = get_irp_irg(i);
- irg_walk_graph(current_ir_graph, NULL, chain_accesses, NULL);
+ for (i = 0; i < n_irgs; i++) {
+ irg_walk_graph(get_irp_irg(i), NULL, chain_accesses, NULL);
}
walk_const_code(NULL, chain_accesses, NULL);