projects / libfirm / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Added support for out edges.
[libfirm] / ir / ir / irdumptxt.c
diff --git a/ir/ir/irdumptxt.c b/ir/ir/irdumptxt.c
index 03288b7..e29ab5f 100644 (file)
--- a/ir/ir/irdumptxt.c
+++ b/ir/ir/irdumptxt.c
@@ -245,7 +245,7 @@ int dump_irnode_to_file(FILE *F, ir_node *n) {
   } break;
   case iro_Const: {
     type *tp = get_Const_type(n);
-    assert(tp != none_type);
+    assert(tp != firm_none_type);
     fprintf(F, "  Const of type %s \n", get_type_name_ex(get_Const_type(n), &bad));
   } break;
   case iro_SymConst: {
@@ -288,7 +288,7 @@ int dump_irnode_to_file(FILE *F, ir_node *n) {
 
   if (get_irg_typeinfo_state(get_irn_irg(n)) == irg_typeinfo_consistent  ||
       get_irg_typeinfo_state(get_irn_irg(n)) == irg_typeinfo_inconsistent  )
-    if (get_irn_typeinfo_type(n) != none_type)
+    if (get_irn_typeinfo_type(n) != firm_none_type)
       fprintf (F, "  Analysed type: %s\n", get_type_name_ex(get_irn_typeinfo_type(n), &bad));
 
   return bad;
@@ -396,7 +396,7 @@ void    dump_entity_to_file_prefix (FILE *F, entity *ent, char *prefix, unsigned
     fprintf(F, "%s  type:  %s (%ld)\n", prefix, get_type_name(type),  get_type_nr(type));
     fprintf(F, "%s  owner: %s (%ld)\n", prefix, get_type_name(owner), get_type_nr(owner));
 
-    if (is_class_type(get_entity_owner(ent))) {
+    if (is_Class_type(get_entity_owner(ent))) {
       if (get_entity_n_overwrites(ent) > 0) {
            fprintf(F, "%s  overwrites:\n", prefix);
            for (i = 0; i < get_entity_n_overwrites(ent); ++i) {
@@ -445,7 +445,7 @@ void    dump_entity_to_file_prefix (FILE *F, entity *ent, char *prefix, unsigned
   } else {  /* no entattrs */
     fprintf(F, "%s(%3d) %*s: %s", prefix,
            get_entity_offset_bits(ent), -40, get_type_name(get_entity_type(ent)), get_entity_name(ent));
-    if (is_method_type(get_entity_type(ent))) fprintf(F, "(...)");
+    if (is_Method_type(get_entity_type(ent))) fprintf(F, "(...)");
 
     if (verbosity & dump_verbosity_accessStats) {
       if (get_entity_allocation(ent) == allocation_static) fprintf(F, " (stat)");
@@ -458,26 +458,26 @@ void    dump_entity_to_file_prefix (FILE *F, entity *ent, char *prefix, unsigned
   if (verbosity & dump_verbosity_entconsts) {
     if (get_entity_variability(ent) != variability_uninitialized) {
       if (is_atomic_entity(ent)) {
-       fprintf(F, "%s  atomic value: ", prefix);
-       dump_node_opcode(F, get_atomic_ent_value(ent));
+             fprintf(F, "%s  atomic value: ", prefix);
+             dump_node_opcode(F, get_atomic_ent_value(ent));
       } else {
-       fprintf(F, "%s  compound values:", prefix);
-       for (i = 0; i < get_compound_ent_n_values(ent); ++i) {
-         compound_graph_path *path = get_compound_ent_value_path(ent, i);
-         entity *ent0 = get_compound_graph_path_node(path, 0);
-         fprintf(F, "\n%s    %3d ", prefix, get_entity_offset_bits(ent0));
-         if (get_type_state(type) == layout_fixed)
-           fprintf(F, "(%3d) ",   get_compound_ent_value_offset_bits(ent, i));
-         fprintf(F, "%s", get_entity_name(ent0));
-         for (j = 0; j < get_compound_graph_path_length(path); ++j) {
-           entity *node = get_compound_graph_path_node(path, j);
-           fprintf(F, ".%s", get_entity_name(node));
-           if (is_array_type(get_entity_owner(node)))
-             fprintf(F, "[%d]", get_compound_graph_path_array_index(path, j));
-         }
-         fprintf(F, "\t = ");
-         dump_node_opcode(F, get_compound_ent_value(ent, i));
-       }
+             fprintf(F, "%s  compound values:", prefix);
+             for (i = 0; i < get_compound_ent_n_values(ent); ++i) {
+               compound_graph_path *path = get_compound_ent_value_path(ent, i);
+               entity *ent0 = get_compound_graph_path_node(path, 0);
+               fprintf(F, "\n%s    %3d ", prefix, get_entity_offset_bits(ent0));
+               if (get_type_state(type) == layout_fixed)
+                 fprintf(F, "(%3d) ",   get_compound_ent_value_offset_bits(ent, i));
+               fprintf(F, "%s", get_entity_name(ent0));
+               for (j = 0; j < get_compound_graph_path_length(path); ++j) {
+                 entity *node = get_compound_graph_path_node(path, j);
+                 fprintf(F, ".%s", get_entity_name(node));
+                 if (is_Array_type(get_entity_owner(node)))
+                   fprintf(F, "[%d]", get_compound_graph_path_array_index(path, j));
+               }
+               fprintf(F, "\t = ");
+               dump_node_opcode(F, get_compound_ent_value(ent, i));
+             }
       }
       fprintf(F, "\n");
     }
@@ -493,15 +493,15 @@ void    dump_entity_to_file_prefix (FILE *F, entity *ent, char *prefix, unsigned
     fprintf(F, "\n%s  peculiarity: %s", prefix, get_peculiarity_string(get_entity_peculiarity(ent)));
     fprintf(F, "\n%s  ld_name: %s", prefix, ent->ld_name ? get_entity_ld_name(ent) : "no yet set");
     fprintf(F, "\n%s  offset:  %d", prefix, get_entity_offset_bits(ent));
-    if (is_method_type(get_entity_type(ent))) {
+    if (is_Method_type(get_entity_type(ent))) {
       if (get_entity_irg(ent))   /* can be null */ {
-       fprintf(F, "\n%s  irg = %ld", prefix, get_irg_graph_nr(get_entity_irg(ent)));
-       if (get_irp_callgraph_state() == irp_callgraph_and_calltree_consistent) {
-         fprintf(F, "\n%s    recursion depth %d", prefix, get_irg_recursion_depth(get_entity_irg(ent)));
-         fprintf(F, "\n%s    loop depth      %d", prefix, get_irg_loop_depth(get_entity_irg(ent)));
-       }
+             fprintf(F, "\n%s  irg = %ld", prefix, get_irg_graph_nr(get_entity_irg(ent)));
+             if (get_irp_callgraph_state() == irp_callgraph_and_calltree_consistent) {
+               fprintf(F, "\n%s    recursion depth %d", prefix, get_irg_recursion_depth(get_entity_irg(ent)));
+               fprintf(F, "\n%s    loop depth      %d", prefix, get_irg_loop_depth(get_entity_irg(ent)));
+             }
       } else {
-       fprintf(F, "\n%s  irg = NULL", prefix);
+             fprintf(F, "\n%s  irg = NULL", prefix);
       }
     }
     fprintf(F, "\n");
@@ -706,7 +706,7 @@ void dump_typecsv_to_file(FILE *F, type *tp, dump_verbosity verbosity, const cha
   int max_disp = -1;
   int *freq, *disp; /* Accumulated accesses to static members: dispatch table. */
 
-  if (!is_class_type(tp)) return;
+  if (!is_Class_type(tp)) return;
 
   if (verbosity & dump_verbosity_accessStats) {
     int i, n_all = get_type_n_allocations(tp);
@@ -744,16 +744,16 @@ void dump_typecsv_to_file(FILE *F, type *tp, dump_verbosity verbosity, const cha
 
     for (i = 0; i < get_class_n_members(tp); ++i) {
       entity *mem = get_class_member(tp, i);
-      if (((verbosity & dump_verbosity_methods) &&  is_method_type(get_entity_type(mem))) ||
-             ((verbosity & dump_verbosity_fields)  && !is_method_type(get_entity_type(mem)))   ) {
-           dump_entitycsv_to_file_prefix(F, mem, "    ", verbosity, &max_disp, disp, comma);
+      if (((verbosity & dump_verbosity_methods) &&  is_Method_type(get_entity_type(mem))) ||
+             ((verbosity & dump_verbosity_fields)  && !is_Method_type(get_entity_type(mem)))   ) {
+             dump_entitycsv_to_file_prefix(F, mem, "    ", verbosity, &max_disp, disp, comma);
       }
     }
 
     if (max_disp >= 0) {
       fprintf(F, "%s__disp_tab%s Load", get_type_name(tp), comma);
       for (i = 0; i <= max_disp; ++i) {
-           fprintf(F, "%s %d", comma, disp[i]);
+             fprintf(F, "%s %d", comma, disp[i]);
       }
       fprintf(F, "\n");
     }
@@ -766,14 +766,14 @@ void dump_typecsv_to_file(FILE *F, type *tp, dump_verbosity verbosity, const cha
 void dump_type_to_file (FILE *F, type *tp, dump_verbosity verbosity) {
   int i;
 
-  if ((is_class_type(tp))       && (verbosity & dump_verbosity_noClassTypes)) return;
-  if ((is_struct_type(tp))      && (verbosity & dump_verbosity_noStructTypes)) return;
-  if ((is_union_type(tp))       && (verbosity & dump_verbosity_noUnionTypes)) return;
-  if ((is_array_type(tp))       && (verbosity & dump_verbosity_noArrayTypes)) return;
-  if ((is_pointer_type(tp))     && (verbosity & dump_verbosity_noPointerTypes)) return;
-  if ((is_method_type(tp))      && (verbosity & dump_verbosity_noMethodTypes)) return;
-  if ((is_primitive_type(tp))   && (verbosity & dump_verbosity_noPrimitiveTypes)) return;
-  if ((is_enumeration_type(tp)) && (verbosity & dump_verbosity_noEnumerationTypes)) return;
+  if ((is_Class_type(tp))       && (verbosity & dump_verbosity_noClassTypes)) return;
+  if ((is_Struct_type(tp))      && (verbosity & dump_verbosity_noStructTypes)) return;
+  if ((is_Union_type(tp))       && (verbosity & dump_verbosity_noUnionTypes)) return;
+  if ((is_Array_type(tp))       && (verbosity & dump_verbosity_noArrayTypes)) return;
+  if ((is_Pointer_type(tp))     && (verbosity & dump_verbosity_noPointerTypes)) return;
+  if ((is_Method_type(tp))      && (verbosity & dump_verbosity_noMethodTypes)) return;
+  if ((is_Primitive_type(tp))   && (verbosity & dump_verbosity_noPrimitiveTypes)) return;
+  if ((is_Enumeration_type(tp)) && (verbosity & dump_verbosity_noEnumerationTypes)) return;
 
   fprintf(F, "%s type %s (%ld)", get_tpop_name(get_type_tpop(tp)), get_type_name(tp), get_type_nr(tp));
   if (verbosity & dump_verbosity_onlynames) { fprintf(F, "\n"); return; }
@@ -786,21 +786,21 @@ void dump_type_to_file (FILE *F, type *tp, dump_verbosity verbosity) {
     }
     for (i = 0; i < get_class_n_members(tp); ++i) {
       entity *mem = get_class_member(tp, i);
-      if (((verbosity & dump_verbosity_methods) &&  is_method_type(get_entity_type(mem))) ||
-             ((verbosity & dump_verbosity_fields)  && !is_method_type(get_entity_type(mem)))   ) {
-           dump_entity_to_file_prefix(F, mem, "    ", verbosity);
+      if (((verbosity & dump_verbosity_methods) &&  is_Method_type(get_entity_type(mem))) ||
+             ((verbosity & dump_verbosity_fields)  && !is_Method_type(get_entity_type(mem)))   ) {
+             dump_entity_to_file_prefix(F, mem, "    ", verbosity);
       }
     }
     if (verbosity & dump_verbosity_typeattrs) {
       fprintf(F, "  supertypes: ");
       for (i = 0; i < get_class_n_supertypes(tp); ++i) {
-           type *stp = get_class_supertype(tp, i);
-           fprintf(F, "\n    %s", get_type_name(stp));
+             type *stp = get_class_supertype(tp, i);
+             fprintf(F, "\n    %s", get_type_name(stp));
       }
       fprintf(F, "\n  subtypes: ");
       for (i = 0; i < get_class_n_subtypes(tp); ++i) {
-           type *stp = get_class_subtype(tp, i);
-           fprintf(F, "\n    %s", get_type_name(stp));
+             type *stp = get_class_subtype(tp, i);
+             fprintf(F, "\n    %s", get_type_name(stp));
       }
 
       fprintf(F, "\n  peculiarity: %s", get_peculiarity_string(get_class_peculiarity(tp)));
@@ -813,7 +813,7 @@ void dump_type_to_file (FILE *F, type *tp, dump_verbosity verbosity) {
     for (i = 0; i < get_compound_n_members(tp); ++i) {
       entity *mem = get_compound_member(tp, i);
       if (verbosity & dump_verbosity_fields) {
-           dump_entity_to_file_prefix(F, mem, "    ", verbosity);
+             dump_entity_to_file_prefix(F, mem, "    ", verbosity);
       }
     }
     break;
@@ -880,7 +880,7 @@ void dump_type(type *tp) {
 
 void dump_types_as_text(unsigned verbosity, const char *suffix) {
   const char *basename;
-  FILE *F, *CSV;
+  FILE *F, *CSV = NULL;
   int i, n_types = get_irp_n_types();
 
   basename = irp_prog_name_is_set() ? get_irp_prog_name() : "TextTypes";
@@ -897,11 +897,11 @@ void dump_types_as_text(unsigned verbosity, const char *suffix) {
     if (is_jack_rts_class(t)) continue;
 
     dump_type_to_file(F, t, verbosity);
-    if (verbosity & dump_verbosity_csv) {
+    if (CSV) {
       dump_typecsv_to_file(CSV, t, verbosity, "");
     }
   }
 
   fclose (F);
-  if (verbosity & dump_verbosity_csv) fclose (CSV);
+  if (CSV) fclose (CSV);
 }
libfirm