fixed a warning regarding const
[libfirm] / ir / ir / irgraph.c
index 35a6c40..0d6b355 100644 (file)
@@ -33,6 +33,7 @@
 # include "irouts.h"
 # include "irhooks.h"
 # include "irgwalk.h"
+# include "iredges_t.h"
 
 /**
  * Indicates, whether additional data can be registered to graphs.
@@ -75,20 +76,23 @@ void (set_interprocedural_view)(int state) {
   }
 }
 
-static ident* frame_type_suffix = NULL;
+/** contains the suffix for frame type names */
+static ident *frame_type_suffix = NULL;
+
+/* initialize the IR graph module */
 void init_irgraph(void) {
   frame_type_suffix = new_id_from_str(FRAME_TP_SUFFIX);
        forbid_new_data = 1;
 }
 
 /**
- * Allocate a new ir graph.
+ * Allocate a new IR graph.
  * This function respects the registered graph data. The only reason for
  * this function is, that there are two locations, where graphs are
  * allocated (new_r_ir_graph, new_const_code_irg).
  * @return Memory for a new graph.
  */
-ir_graph *alloc_graph(void)
+static ir_graph *alloc_graph(void)
 {
        size_t size = sizeof(ir_graph) + additional_graph_data_size;
        char *ptr = xmalloc(size);
@@ -123,6 +127,8 @@ new_r_ir_graph (entity *ent, int n_loc)
   res = alloc_graph();
   res->kind = k_ir_graph;
 
+  edges_init_graph(res);
+
   /* inform statistics here, as blocks will be already build on this graph */
   hook_new_graph(res, ent);
 
@@ -143,7 +149,10 @@ new_r_ir_graph (entity *ent, int n_loc)
                 to the procedure!  */
   }
 
-  res->visited = 0;     /* visited flag, for the ir walker */
+  /* descriptions will be allocated on demand */
+  res->loc_descriptions = NULL;
+
+  res->visited       = 0; /* visited flag, for the ir walker */
   res->block_visited = 0; /* visited flag, for the 'block'-walker */
 
 #if USE_EXPLICIT_PHI_IN_STACK
@@ -151,7 +160,7 @@ new_r_ir_graph (entity *ent, int n_loc)
                                 generation */
 #endif
   res->kind = k_ir_graph;
-  res->obst      = xmalloc (sizeof(*res->obst));
+  res->obst = xmalloc (sizeof(*res->obst));
   obstack_init (res->obst);
   res->value_table = new_identities (); /* value table for global value
                        numbering for optimizing use in
@@ -284,6 +293,7 @@ ir_graph *new_const_code_irg(void) {
   set_irn_visited(res->no_mem, -1);
 
   res->phase_state = phase_high;
+
   return res;
 }
 
@@ -316,6 +326,8 @@ void free_ir_graph (ir_graph *irg) {
 #if USE_EXPLICIT_PHI_IN_STACK
   free_Phi_in_stack(irg->Phi_in_stack);
 #endif
+  if (irg->loc_descriptions)
+    free(irg->loc_descriptions);
   irg->kind = k_BAD;
   free(irg);
 }
@@ -562,7 +574,7 @@ int node_is_in_irgs_storage(ir_graph *irg, ir_node *n)
   struct _obstack_chunk *p;
 
   /*
-   * checks wheater the ir_node pointer i on the obstack.
+   * checks weather the ir_node pointer is on the obstack.
    * A more sophisticated check would test the "whole" ir_node
    */
   for (p = irg->obst->chunk; p; p = p->prev) {
@@ -753,19 +765,38 @@ static void normalize_proj_walker(ir_node *n, void *env)
   }
 }
 
-/* put the proj's into the same block as its predecessors */
+/* move Proj nodes into the same block as its predecessors */
 void normalize_proj_nodes(ir_graph *irg)
 {
   irg_walk_graph(irg, NULL, normalize_proj_walker, NULL);
-       set_irg_outs_inconsistent(irg);
+  set_irg_outs_inconsistent(irg);
+}
+
+/* set a description for local value n */
+void set_irg_loc_description(ir_graph *irg, int n, void *description)
+{
+  assert(0 <= n && n < irg->n_loc);
+
+  if (! irg->loc_descriptions)
+    irg->loc_descriptions = xcalloc(sizeof(*irg->loc_descriptions), irg->n_loc);
+
+  irg->loc_descriptions[n] = description;
+}
+
+/* get the description for local value n */
+void *get_irg_loc_description(ir_graph *irg, int n)
+{
+  assert(0 <= n && n < irg->n_loc);
+  return irg->loc_descriptions ? irg->loc_descriptions[n] : NULL;
 }
 
+/* register additional space in an IR graph */
 size_t register_additional_graph_data(size_t size)
 {
-       assert(!forbid_new_data && "Too late to register additional node data");
+  assert(!forbid_new_data && "Too late to register additional node data");
 
-       if(forbid_new_data)
-               return 0;
+  if (forbid_new_data)
+    return 0;
 
-       return additional_graph_data_size += size;
+  return additional_graph_data_size += size;
 }