/*
- * 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"
/* the famous clear_link implementation. */
void firm_clear_link(ir_node *n, void *env) {
+ (void) env;
set_irn_link(n, NULL);
}
* 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;
-
- 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;
+ 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)