we still need an esp keep for allocas

[libfirm] / ir / common / irtools.c

diff --git a/ir/common/irtools.c b/ir/common/irtools.c
index 1962b52..0073fec 100644 (file)
--- a/ir/common/irtools.c
+++ b/ir/common/irtools.c
@@ -1,25 +1,43 @@
 /*
- * 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-2007 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) {
+  (void) env;
   set_irn_link(n, NULL);
 }
 
@@ -96,28 +114,37 @@ copy_irn_to_irg(ir_node *n, ir_graph *irg)
 
 /*
  * Creates an exact copy of a node.
- * The copy resists on the sane graph in the same block.
+ * The copy resides in the same graph in the same block.
  */
-ir_node *exact_copy(ir_node *n) {
-  ir_graph *irg = get_irn_irg(n);
-  ir_node *res, *block = NULL;
-
-  if (is_no_Block(n))
-    block = get_irn_n(n, -1);
-
-  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);
+ir_node *exact_copy(const ir_node *n) {
+       ir_graph *irg = get_irn_irg(n);
+       ir_node *res, *block = NULL;
+
+       if (is_no_Block(n))
+               block = get_irn_n(n, -1);
+
+       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;
+}
 
+void firm_pset_dump(pset *set)
+{
+       void *obj;
 
-  /* 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;
+       foreach_pset(set, obj) {
+               ir_fprintf(stderr, "%+F\n", obj);
+       }
 }