add debug info for ir_graphs
[r6735]
/**
* prints debug messages of a node to file F as info3.
*/
/**
* prints debug messages of a node to file F as info3.
*/
-static void print_node_dbg_info(FILE *F, dbg_info *dbg)
+static void print_dbg_info(FILE *F, dbg_info *dbg)
fprintf(F, "\" ");
bad |= dump_node_info(F, n);
print_node_error(F, p);
fprintf(F, "\" ");
bad |= dump_node_info(F, n);
print_node_error(F, p);
- print_node_dbg_info(F, get_irn_dbg_info(n));
+ print_dbg_info(F, get_irn_dbg_info(n));
dump_node_vcgattr(F, n, NULL, bad);
fprintf(F, "}\n");
dump_const_node_local(F, n);
dump_node_vcgattr(F, n, NULL, bad);
fprintf(F, "}\n");
dump_const_node_local(F, n);
/* yComp can show attributes for blocks, XVCG parses but ignores them */
dump_node_info(F, block);
/* yComp can show attributes for blocks, XVCG parses but ignores them */
dump_node_info(F, block);
- print_node_dbg_info(F, get_irn_dbg_info(block));
+ print_dbg_info(F, get_irn_dbg_info(block));
/* dump the blocks edges */
dump_ir_data_edges(F, block);
/* dump the blocks edges */
dump_ir_data_edges(F, block);
* Parsed by XVCG but not shown. use yComp.
*/
static void dump_graph_info(FILE *F, ir_graph *irg) {
* Parsed by XVCG but not shown. use yComp.
*/
static void dump_graph_info(FILE *F, ir_graph *irg) {
- fprintf(F, "info1:\"");
+ fprintf(F, "info1: \"");
dump_entity_to_file(F, get_irg_entity(irg), dump_verbosity_entattrs | dump_verbosity_entconsts);
fprintf(F, "\"\n");
}
dump_entity_to_file(F, get_irg_entity(irg), dump_verbosity_entattrs | dump_verbosity_entconsts);
fprintf(F, "\"\n");
}
* If interprocedural view edges can point to nodes out of this graph.
*/
static void dump_graph_from_list(FILE *F, ir_graph *irg) {
* If interprocedural view edges can point to nodes out of this graph.
*/
static void dump_graph_from_list(FILE *F, ir_graph *irg) {
+ entity *ent = get_irg_entity(irg);
fprintf(F, "graph: { title: \"");
PRINT_IRGID(irg);
fprintf(F, "\" label: \"%s\" status:clustered color:white \n",
fprintf(F, "graph: { title: \"");
PRINT_IRGID(irg);
fprintf(F, "\" label: \"%s\" status:clustered color:white \n",
- get_ent_dump_name(get_irg_entity(irg)));
+ get_ent_dump_name(ent));
+ print_dbg_info(F, get_entity_dbg_info(ent));
dump_block_graph(F, irg);
dump_block_graph(F, irg);
dump_type_to_file(F, tp, dump_verbosity_max);
#endif
fprintf (F, "\"\n");
dump_type_to_file(F, tp, dump_verbosity_max);
#endif
fprintf (F, "\"\n");
- print_node_dbg_info(F, get_type_dbg_info(tp));
+ print_dbg_info(F, get_type_dbg_info(tp));
print_typespecific_vcgattr(F, tp);
fprintf (F, "}\n");
print_typespecific_vcgattr(F, tp);
fprintf (F, "}\n");
dump_entity_to_file(F, ent, dump_verbosity_entattrs | dump_verbosity_entconsts);
fprintf(F, "\"\n");
dump_entity_to_file(F, ent, dump_verbosity_entattrs | dump_verbosity_entconsts);
fprintf(F, "\"\n");
- print_node_dbg_info(F, get_entity_dbg_info(ent));
+ print_dbg_info(F, get_entity_dbg_info(ent));
fprintf(F, "}\n");
}
#undef X
fprintf(F, "}\n");
}
#undef X
FILE *F;
int i;
char *suffix1;
FILE *F;
int i;
char *suffix1;
if (!is_filtered_dump_name(get_entity_ident(get_irg_entity(irg))))
return;
if (!is_filtered_dump_name(get_entity_ident(get_irg_entity(irg))))
return;
if (get_interprocedural_view()) suffix1 = "-ip";
else suffix1 = "";
if (get_interprocedural_view()) suffix1 = "-ip";
else suffix1 = "";
+
+ ent = get_irg_entity(irg);
+
F = vcg_open(irg, suffix, suffix1);
dump_vcg_header(F, get_irg_dump_name(irg), NULL);
F = vcg_open(irg, suffix, suffix1);
dump_vcg_header(F, get_irg_dump_name(irg), NULL);
fprintf(F, "graph: { title: \"");
PRINT_IRGID(irg);
fprintf(F, "\" label: \"%s\" status:clustered color:white \n",
fprintf(F, "graph: { title: \"");
PRINT_IRGID(irg);
fprintf(F, "\" label: \"%s\" status:clustered color:white \n",
- get_ent_dump_name(get_irg_entity(irg)));
+ get_ent_dump_name(ent));
+ print_dbg_info(F, get_entity_dbg_info(ent));
for (i = 0; i < get_irp_n_irgs(); i++) {
ir_graph *irg = get_irp_irg(i);
for (i = 0; i < get_irp_n_irgs(); i++) {
ir_graph *irg = get_irp_irg(i);