X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firdump.c;h=e8d5f1b10450cb7d788d692c2e97794b1c3e0539;hb=f9d25133f86594ca2b1f33fb0b41a591ecc9b914;hp=80cb9d5ed9af07cfdeea5f915801be2379062e82;hpb=d1aa8c99b4e1326919e4ed2d19ad5599dae970be;p=libfirm

diff --git a/ir/ir/irdump.c b/ir/ir/irdump.c
index 80cb9d5ed..e8d5f1b10 100644
--- a/ir/ir/irdump.c
+++ b/ir/ir/irdump.c
@@ -1509,6 +1509,16 @@ dump_block_graph(FILE *F, ir_graph *irg) {
   current_ir_graph = rem;
 }
 
+/**
+ * Dump the info for an irg.
+ * Parsed by XVCG but not shown. use yComp.
+ */
+static void dump_graph_info(FILE *F, ir_graph *irg) {
+  fprintf(F, "info1:\"");
+  dump_entity_to_file(F, get_irg_entity(irg), dump_verbosity_entattrs | dump_verbosity_entconsts);
+  fprintf(F, "\"\n");
+}
+
 /** Dumps an irg as a graph clustered by block nodes.
  *  If interprocedural view edges can point to nodes out of this graph.
  */
@@ -1519,6 +1529,8 @@ static void dump_graph_from_list(FILE *F, ir_graph *irg) {
   fprintf(F, "\" label: \"%s\" status:clustered color:white \n",
       get_ent_dump_name(get_irg_entity(irg)));
 
+  dump_graph_info(F, irg);
+
   dump_block_graph(F, irg);
 
   /* Close the vcg information for the irg */
@@ -2319,6 +2331,8 @@ void dump_ir_extblock_graph (ir_graph *irg, const char *suffix)
   fprintf(F, "\" label: \"%s\" status:clustered color:white \n",
     get_ent_dump_name(get_irg_entity(irg)));
 
+  dump_graph_info(F, irg);
+
   for (i = 0; i < get_irp_n_irgs(); i++) {
     ir_graph *irg     = get_irp_irg(i);
     list_tuple *lists = ird_get_irg_link(irg);