+ set_using_irn_link(irg);
+ irg_walk_graph(irg, firm_clear_link, NULL, NULL);
+ clear_using_irn_link(irg);
+}
+
+void be_collect_phis(ir_graph *irg)
+{
+ irg_walk_graph(irg, collect_phis, NULL, NULL);
+}
+
+static void count_num_reachable_nodes(ir_node *irn, void *env)
+{
+ int *num = env;
+ (*num)++;
+ (void) irn;
+}
+
+unsigned get_num_reachable_nodes(ir_graph *irg) {
+ int num = 0;
+ irg_walk_graph(irg, count_num_reachable_nodes, NULL, &num);
+ return num;
+}
+
+/**
+ * Sets all node inputs to BAD node.
+ */
+void be_kill_node(ir_node *irn) {
+ ir_graph *irg = get_irn_irg(irn);
+
+ assert(!is_Bad(irn));
+
+#ifdef DEBUG_libfirm
+ {
+ int i, first;
+ first = 0 - ! is_Block(irn);
+
+ for (i = get_irn_arity(irn) - 1; i >= first; --i) {
+ set_irn_n(irn, i, get_irg_bad(irg));
+ }
+ }
+#endif
+
+ edges_node_deleted(irn, irg);
+}
+
+/**
+ * Gets the Proj with number pn from irn.
+ */
+ir_node *be_get_Proj_for_pn(const ir_node *irn, long pn) {
+ const ir_edge_t *edge;
+ ir_node *proj;
+ assert(get_irn_mode(irn) == mode_T && "need mode_T");
+
+ foreach_out_edge(irn, edge) {
+ proj = get_edge_src_irn(edge);
+
+ if (get_Proj_proj(proj) == pn)
+ return proj;
+ }
+
+ return NULL;
+}
+
+FILE *be_ffopen(const char *base, const char *ext, const char *mode) {
+ FILE *out;
+ char buf[1024];
+
+ snprintf(buf, sizeof(buf), "%s.%s", base, ext);
+ buf[sizeof(buf) - 1] = '\0';
+ if (! (out = fopen(buf, mode))) {
+ fprintf(stderr, "Cannot open file %s in mode %s\n", buf, mode);
+ return NULL;
+ }
+ return out;