*** empty log message ***

[libfirm] / ir / common / firmwalk.c

diff --git a/ir/common/firmwalk.c b/ir/common/firmwalk.c
index 7c1f6b7..b681d29 100644 (file)
--- a/ir/common/firmwalk.c
+++ b/ir/common/firmwalk.c
@@ -1,3 +1,14 @@
+/*
+ * Project:     libFIRM
+ * File name:   ir/common/firmwalk.c
+ * Purpose:     Walker that touches all Firm data structures
+ * Author:      Sebastian Felis
+ * Modified by:
+ * Created:     7.2003
+ * CVS-ID:      $Id$
+ * Copyright:   (c) 2003 Universität Karlsruhe
+ * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+ */
 
 #ifdef HAVE_CONFIG_H
 # include <config.h>
@@ -320,13 +331,18 @@ void firm_walk_init(firm_walk_flags flags)
   /* insert internal modes to mode hash. The link field will be cleared
      in the walk_do_mode() callback function.
      Other used modes are added by collecting types */
-  pmap_insert(mode_map, mode_BB, NULL);
-  pmap_insert(mode_map, mode_T, NULL);
-  pmap_insert(mode_map, mode_ANY, NULL);
-  pmap_insert(mode_map, mode_BAD, NULL);
-  pmap_insert(mode_map, mode_X, NULL);
-  pmap_insert(mode_map, mode_M, NULL);
-  pmap_insert(mode_map, mode_b, NULL);
+
+  /*
+     ### RG: should be done by inspection the mode of all irn
+
+     pmap_insert(mode_map, mode_BB, NULL);
+     pmap_insert(mode_map, mode_T, NULL);
+     pmap_insert(mode_map, mode_ANY, NULL);
+     pmap_insert(mode_map, mode_BAD, NULL);
+     pmap_insert(mode_map, mode_X, NULL);
+     pmap_insert(mode_map, mode_M, NULL);
+     pmap_insert(mode_map, mode_b, NULL);
+  */
 
   // Collect all types (also unused types) if flag is set
   if (FW_WITH_ALL_TYPES & flags)
@@ -385,8 +401,8 @@ void firm_walk(firm_walk_interface *wif)
   int irg_i, block_i, block_list_len, irn_i, irn_list_len;
   pmap_entry *entry;
   fw_data *data;
-  ir_graph *irg;
   ir_node *block, **block_list, **irn_list;
+  ir_graph *saved_irg = current_ir_graph;
 
   assert(wif && "firm_walk() in firmwalk.c: No walking interface defined!");
 
@@ -426,18 +442,18 @@ void firm_walk(firm_walk_interface *wif)
 
   for (irg_i = 0; irg_i < get_irp_n_irgs(); irg_i++)
   {
-    irg = get_irp_irg(irg_i);
+    current_ir_graph = get_irp_irg(irg_i);
 
     /* walk over all ir graph */
-    if (wif->do_graph) wif->do_graph(irg, wif->env);
+    if (wif->do_graph) wif->do_graph(current_ir_graph, wif->env);
 
     /* walk over all irg's block nested ========================== */
-    data = fw_get_data(irg);
+    data = fw_get_data(current_ir_graph);
     block_list = FW_GET_DATA_LIST(data);
     block_list_len = ARR_LEN(block_list);
     for (block_i = 0; block_i < block_list_len; block_i++)
     {
-      if (wif->do_block_init) wif->do_block_init(irg, wif->env);
+      if (wif->do_block_init) wif->do_block_init(current_ir_graph, wif->env);
 
       block = (ir_node *)block_list[block_i];
       if (wif->do_block) wif->do_block(block, wif->env);
@@ -475,7 +491,7 @@ void firm_walk(firm_walk_interface *wif)
 
       /* wall over all block's ir nodes nested end =============== */
 
-      if (wif->do_block_finalize) wif->do_block_finalize(irg, wif->env);
+      if (wif->do_block_finalize) wif->do_block_finalize(current_ir_graph, wif->env);
     } // for each block
 
     /* walk over all irg's block nested end ====================== */
@@ -483,5 +499,8 @@ void firm_walk(firm_walk_interface *wif)
   } // for each ir graph irg
   if (wif->do_graph_finalize) wif->do_graph_finalize(wif->env);
 
-  /** ### ToDo: Dump const_code_irg ?? */
+  /** ### ToDo: Dump const_code_irg ?? No! Dump const code with entities, types etc. */
+
+  /* restore the state of current_ir_graph */
+  current_ir_graph = saved_irg;
 }