/* *************************************************************************** */
-/* Access routines for nodes */
+/* Access routines for types */
/* *************************************************************************** */
+/** Number of Alloc nodes that create an instance of this type */
+int get_type_n_allocations(type *tp) {
+ assert(tp && is_type(tp));
+
+ if (!tp->allocations) { tp->allocations = NEW_ARR_F(ir_node *, 0); }
+
+ return ARR_LEN(tp->allocations);
+}
+
+/** Alloc node that create an instance of this type */
+ir_node *get_type_allocation(type *tp, int pos) {
+ assert(0 <= pos && pos < get_type_n_allocations(tp));
+
+ return tp->allocations[pos];
+}
+
+void add_type_allocation(type *tp, ir_node *n) {
+ assert(tp && is_type(tp));
+ assert(n && is_ir_node(n));
+
+ if (!tp->allocations) tp->allocations = NEW_ARR_F(ir_node *, 0);
+
+ ARR_APP1(ir_node *, tp->allocations, n);
+}
+
+void set_type_allocation(type *tp, int pos, ir_node *n) {
+ assert(0 <= pos && pos < get_type_n_allocations(tp));
+ assert(n && is_ir_node(n));
+
+ tp->allocations[pos] = n;
+}
+
+
+
+
/* *************************************************************************** */
/* Access routines for irnodes */
/* *************************************************************************** */
}
int get_irn_loop_depth(ir_node *n) {
- get_loop_depth(get_irn_loop(get_nodes_block(n)));
+ return get_loop_depth(get_irn_loop(get_nodes_block(n)));
}
int get_irn_recursion_depth(ir_node *n) {
int i, n_ents;
ir_node *addr;
+ if (get_irn_op(n) == op_Alloc) {
+ add_type_allocation(get_Alloc_type(n), n);
+ return;
+ }
+
if (is_memop(n)) {
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. */
} else {
return;
}