Added node info dump callbacks

[libfirm] / ir / ir / irnode.c

diff --git a/ir/ir/irnode.c b/ir/ir/irnode.c
index cec30c7..2c3a5a6 100644 (file)
--- a/ir/ir/irnode.c
+++ b/ir/ir/irnode.c
@@ -137,11 +137,12 @@ new_ir_node (dbg_info *db, ir_graph *irg, ir_node *block, ir_op *op, ir_mode *mo
   memset(p, 0, node_size);
        res = (ir_node *) (p + firm_add_node_size);
 
-  res->kind    = k_ir_node;
-  res->op      = op;
-  res->mode    = mode;
-  res->visited = 0;
-  res->link    = NULL;
+  res->kind     = k_ir_node;
+  res->op       = op;
+  res->mode     = mode;
+  res->visited  = 0;
+  res->node_idx = get_irg_next_node_idx(irg);
+  res->link     = NULL;
   if (arity < 0) {
     res->in = NEW_ARR_F (ir_node *, 1);  /* 1: space for block */
   } else {
@@ -347,17 +348,14 @@ get_irn_modeident (const ir_node *node)
 }
 
 ir_op *
-(get_irn_op)(const ir_node *node)
-{
+(get_irn_op)(const ir_node *node) {
   return _get_irn_op(node);
 }
 
 /* should be private to the library: */
 void
-set_irn_op (ir_node *node, ir_op *op)
-{
-  assert (node);
-  node->op = op;
+(set_irn_op)(ir_node *node, ir_op *op) {
+       _set_irn_op(node, op);
 }
 
 opcode
@@ -566,6 +564,11 @@ get_irn_generic_attr (ir_node *node) {
   return &node->attr;
 }
 
+unsigned (get_irn_idx)(const ir_node *node) {
+  assert(is_ir_node(node));
+  return _get_irn_idx(node);
+}
+
 /** manipulate fields of individual nodes **/
 
 /* this works for all except Block */
@@ -2005,28 +2008,28 @@ void     set_Mux_true  (ir_node *node, ir_node *ir_true) {
 
 /* Psi support */
 ir_node *get_Psi_cond   (ir_node *node, int pos) {
-  int num_conds = get_irn_arity(node) >> 1;
+  int num_conds = get_Psi_n_conds(node);
   assert(node->op == op_Psi);
   assert(pos < num_conds);
   return node->in[1 + 2 * pos];
 }
 
 void     set_Psi_cond   (ir_node *node, int pos, ir_node *cond) {
-  int num_conds = get_irn_arity(node) >> 1;
+  int num_conds = get_Psi_n_conds(node);
   assert(node->op == op_Psi);
   assert(pos < num_conds);
   node->in[1 + 2 * pos] = cond;
 }
 
 ir_node *get_Psi_val    (ir_node *node, int pos) {
-  int num_vals = get_irn_arity(node) >> 1;
+  int num_vals = get_Psi_n_conds(node);
   assert(node->op == op_Psi);
   assert(pos < num_vals);
   return node->in[1 + 2 * pos + 1];
 }
 
 void     set_Psi_val    (ir_node *node, int pos, ir_node *val) {
-  int num_vals = get_irn_arity(node) >> 1;
+  int num_vals = get_Psi_n_conds(node);
   assert(node->op == op_Psi);
   assert(pos < num_vals);
   node->in[1 + 2 * pos + 1] = val;
@@ -2044,6 +2047,10 @@ void     set_Psi_default(ir_node *node, ir_node *val) {
   node->in[def_pos] = node;
 }
 
+int (get_Psi_n_conds)(ir_node *node) {
+  return _get_Psi_n_conds(node);
+}
+
 /* CopyB support */
 ir_node *get_CopyB_mem (ir_node *node) {
   assert (node->op == op_CopyB);
@@ -2406,6 +2413,12 @@ int
   return _is_Sel(node);
 }
 
+/* returns true if node is a Mux node or a Psi with only one condition. */
+int
+(is_Mux)(const ir_node *node) {
+  return _is_Mux(node);
+}
+
 int
 is_Proj (const ir_node *node) {
   assert(node);
@@ -2491,6 +2504,22 @@ int (is_irn_keep)(const ir_node *node) {
   return _is_irn_keep(node);
 }
 
+/* Returns non-zero for nodes that are machine operations. */
+int (is_irn_machine_op)(const ir_node *node) {
+       return _is_irn_machine_op(node);
+}
+
+/* Returns non-zero for nodes that are machine operands. */
+int (is_irn_machine_operand)(const ir_node *node) {
+       return _is_irn_machine_operand(node);
+}
+
+/* Returns non-zero for nodes that have the n'th user machine flag set. */
+int (is_irn_machine_user)(const ir_node *node, unsigned n) {
+       return _is_irn_machine_user(node, n);
+}
+
+
 /* Gets the string representation of the jump prediction .*/
 const char *get_cond_jmp_predicate_name(cond_jmp_predicate pred)
 {