X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fcommon%2Firtools.c;h=dea407c535ab907f7d74070d16291b9bcae6565e;hb=81d4cf5aeab4d0c0bc2a5e7c461d58ee7a7522d6;hp=d307b25e2f2bc899798c906185eb90e9ba925e80;hpb=aa8b5906d8cb57701b73ac37f932cc1c44dde4c7;p=libfirm

diff --git a/ir/common/irtools.c b/ir/common/irtools.c
index d307b25e2..dea407c53 100644
--- a/ir/common/irtools.c
+++ b/ir/common/irtools.c
@@ -1,26 +1,44 @@
 /*
- * Project:     libFIRM
- * File name:   ir/ir/irtools.c
- * Purpose:     Some often needed tool-functions
- * Author:      Michael Beck
- * Modified by:
- * Created:
- * CVS-ID:      $Id$
- * Copyright:   (c) 1999-2005 Universität Karlsruhe
- * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+ * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
+ *
+ * This file is part of libFirm.
+ *
+ * This file may be distributed and/or modified under the terms of the
+ * GNU General Public License version 2 as published by the Free Software
+ * Foundation and appearing in the file LICENSE.GPL included in the
+ * packaging of this file.
+ *
+ * Licensees holding valid libFirm Professional Edition licenses may use
+ * this file in accordance with the libFirm Commercial License.
+ * Agreement provided with the Software.
+ *
+ * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+ * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE.
+ */
+
+/**
+ * @file
+ * @brief     Some often needed tool-functions
+ * @author    Michael Beck
+ * @version   $Id$
  */
 #ifdef HAVE_CONFIG_H
 # include "config.h"
 #endif
 
+#include "pset.h"
+
 #include <stdlib.h>
 #include "irnode_t.h"
 #include "irbackedge_t.h"
 #include "irtools.h"
+#include "irprintf.h"
 
 /* the famous clear_link implementation. */
 void firm_clear_link(ir_node *n, void *env) {
-  set_irn_link(n, NULL);
+	(void) env;
+	set_irn_link(n, NULL);
 }
 
 /*
@@ -32,66 +50,69 @@ void firm_clear_link(ir_node *n, void *env) {
  * Note further, that the new nodes have no block.
  */
 void
-copy_irn_to_irg(ir_node *n, ir_graph *irg)
-{
-  ir_op *op = get_irn_op(n);
-  ir_graph *old_irg;
-  ir_node *nn = NULL;
-
-  /* do not copy standard nodes */
-  if (op == op_Bad)
-    nn = get_irg_bad(irg);
-  else if (op == op_NoMem)
-    n = get_irg_no_mem(irg);
-  else if (op == op_Block) {
-    old_irg = get_irn_irg(n);
-
-    if (n == get_irg_start_block(old_irg))
-      nn = get_irg_start_block(irg);
-    else if (n == get_irg_end_block(old_irg))
-      nn = get_irg_end_block(irg);
-  }
-  else if (op == op_Start)
-    nn = get_irg_start(irg);
-  else if (op == op_End)
-    nn = get_irg_end(irg);
-  else if (op == op_Proj) {
-    old_irg = get_irn_irg(n);
-
-    if (n == get_irg_frame(old_irg))
-      nn = get_irg_frame(irg);
-    else if (n == get_irg_globals(old_irg))
-      nn = get_irg_globals(irg);
-    else if (n == get_irg_initial_mem(old_irg))
-      nn = get_irg_initial_mem(irg);
-    else if (n == get_irg_args(old_irg))
-      nn = get_irg_args(irg);
-  }
-
-  if (nn) {
-    set_irn_link(n, nn);
-    return;
-  }
-
-  nn = new_ir_node(get_irn_dbg_info(n),
-         irg,
-         NULL,            /* no block yet, will be set later */
-         op,
-         get_irn_mode(n),
-         get_irn_arity(n),
-         get_irn_in(n) + 1);
-
-
-  /* Copy the attributes.  These might point to additional data.  If this
-     was allocated on the old obstack the pointers now are dangling.  This
-     frees e.g. the memory of the graph_arr allocated in new_immBlock. */
-  copy_node_attr(n, nn);
-  new_backedge_info(nn);
-  set_irn_link(n, nn);
-
-  /* fix the irg for blocks */
-  if (is_Block(nn))
-    nn->attr.block.irg = irg;
+copy_irn_to_irg(ir_node *n, ir_graph *irg) {
+	ir_op *op = get_irn_op(n);
+	ir_graph *old_irg;
+	ir_node *nn = NULL;
+
+	/* do not copy standard nodes */
+	if (op == op_Bad)
+		nn = get_irg_bad(irg);
+	else if (op == op_NoMem)
+		n = get_irg_no_mem(irg);
+	else if (op == op_Block) {
+		old_irg = get_irn_irg(n);
+
+		if (n == get_irg_start_block(old_irg))
+			nn = get_irg_start_block(irg);
+		else if (n == get_irg_end_block(old_irg))
+			nn = get_irg_end_block(irg);
+	}
+	else if (op == op_Start)
+		nn = get_irg_start(irg);
+	else if (op == op_End)
+		nn = get_irg_end(irg);
+	else if (op == op_Proj) {
+		old_irg = get_irn_irg(n);
+
+		if (n == get_irg_initial_exec(old_irg))
+			nn = get_irg_initial_exec(irg);
+		else if (n == get_irg_frame(old_irg))
+			nn = get_irg_frame(irg);
+		else if (n == get_irg_initial_mem(old_irg))
+			nn = get_irg_initial_mem(irg);
+		else if (n == get_irg_args(old_irg))
+			nn = get_irg_args(irg);
+	}
+
+	if (nn) {
+		set_irn_link(n, nn);
+		return;
+	}
+
+	nn = new_ir_node(get_irn_dbg_info(n),
+	                 irg,
+	                 NULL,            /* no block yet, will be set later */
+	                 op,
+	                 get_irn_mode(n),
+	                 get_irn_arity(n),
+	                 get_irn_in(n) + 1);
+
+
+	/* Copy the attributes.  These might point to additional data.  If this
+	   was allocated on the old obstack the pointers now are dangling.  This
+	   frees e.g. the memory of the graph_arr allocated in new_immBlock. */
+	copy_node_attr(n, nn);
+	new_backedge_info(nn);
+	set_irn_link(n, nn);
+
+	/* fix the irg for blocks */
+	if (is_Block(nn)) {
+		nn->attr.block.irg = irg;
+
+		/* we cannot allow blocks WITHOUT macroblock input */
+		set_Block_MacroBlock(nn, get_Block_MacroBlock(n));
+	}
 }
 
 /*
@@ -99,25 +120,40 @@ copy_irn_to_irg(ir_node *n, ir_graph *irg)
  * The copy resides in the same graph in the same block.
  */
 ir_node *exact_copy(const ir_node *n) {
-  ir_graph *irg = get_irn_irg(n);
-  ir_node *res, *block = NULL;
+	ir_graph *irg = get_irn_irg(n);
+	ir_node *res, *block = NULL;
 
-  if (is_no_Block(n))
+	if (is_no_Block(n))
 		block = get_nodes_block(n);
 
-  res = new_ir_node(get_irn_dbg_info(n),
-                    irg,
-                    block,
-                    get_irn_op(n),
-                    get_irn_mode(n),
-                    get_irn_arity(n),
-                    get_irn_in(n) + 1);
-
-
-  /* Copy the attributes.  These might point to additional data.  If this
-     was allocated on the old obstack the pointers now are dangling.  This
-     frees e.g. the memory of the graph_arr allocated in new_immBlock. */
-  copy_node_attr(n, res);
-  new_backedge_info(res);
-  return res;
+	res = new_ir_node(get_irn_dbg_info(n),
+		irg,
+		block,
+		get_irn_op(n),
+		get_irn_mode(n),
+		get_irn_arity(n),
+		get_irn_in(n) + 1);
+
+
+	/* Copy the attributes.  These might point to additional data.  If this
+	   was allocated on the old obstack the pointers now are dangling.  This
+	   frees e.g. the memory of the graph_arr allocated in new_immBlock. */
+	copy_node_attr(n, res);
+	new_backedge_info(res);
+
+	if (is_Block(n)) {
+		set_Block_MacroBlock(res, get_Block_MacroBlock(n));
+	}
+	return res;
+}
+
+/*
+ * Dump a pset containing Firm objects.
+ */
+void firm_pset_dump(pset *set) {
+	void *obj;
+
+	foreach_pset(set, obj) {
+		ir_fprintf(stderr, "%+F\n", obj);
+	}
 }