1 /* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
2 ** All rights reserved.
4 ** Authors: Martin Trapp, Christian Schaefer
6 ** irdump.h: dumping of an intermediate representation graph
13 # include "irnode_t.h"
14 # include "irgraph_t.h"
24 # include "type_or_entity.h"
26 # include "typewalk.h"
28 /* Attributes of nodes */
29 #define DEFAULT_NODE_ATTR ""
30 #define DEFAULT_TYPE_ATTRIBUTE ""
32 /* Attributes of edges between Firm nodes */
33 #define BLOCK_EDGE_ATTR "class: 2 priority: 2 linestyle: dotted"
34 #define CF_EDGE_ATTR "color: red"
35 #define MEM_EDGE_ATTR "color: blue"
37 /* Attributes of edges between Firm nodes and type/entity nodes */
38 #define NODE2TYPE_EDGE_ATTR ""
40 /* Attributes of edges in type/entity graphs. */
41 #define TYPE_METH_NODE_ATTR "color: lightyellow"
42 #define TYPE_CLASS_NODE_ATTR "color: green"
43 #define ENTITY_NODE_ATTR "color: yellow"
44 #define ENT_TYPE_EDGE_ATTR "class: 3 label: \"type\" color: red"
45 #define ENT_OWN_EDGE_ATTR "class: 4 label: \"owner\" color: black"
46 #define METH_PAR_EDGE_ATTR "class: 5 label: \"param %d\" color: green"
47 #define METH_RES_EDGE_ATTR "class: 6 label: \"res %d\" color: green"
48 #define TYPE_SUPER_EDGE_ATTR "class: 7 label: \"supertype\" color: blue"
49 #define UNION_EDGE_ATTR "class: 8 label: \"component\" color: blue"
50 #define PTR_PTS_TO_EDGE_ATTR "class: 9 label: \"points to\" color:green"
51 #define ARR_ELT_TYPE_EDGE_ATTR "class: 10 label: \"arr elt\" color:green"
52 #define ENT_OVERWRITES_EDGE_ATTR "class: 11 label: \"overwrites\" color:red"
54 #define PRINT_NODEID(X) fprintf(F, "%p", X)
61 /*******************************************************************/
62 /* routines to dump information about a single node */
63 /*******************************************************************/
68 dump_node_opcode (ir_node *n)
72 if (n->op->code == iro_Const) {
73 xfprintf (F, "%v", n->attr.con);
76 } else if (n->op->code == iro_SymConst) {
77 if (get_SymConst_kind(n) == linkage_ptr_info) {
78 xfprintf (F, "%I", get_SymConst_ptrinfo(n));
80 assert(get_kind(get_SymConst_type(n)) == k_type);
81 assert(get_type_nameid(get_SymConst_type(n)));
82 xfprintf (F, "%s ", id_to_str(get_type_nameid(get_SymConst_type(n))));
83 if (get_SymConst_kind == type_tag)
90 xfprintf (F, "%I", get_irn_opident(n));
95 dump_node_mode (ir_node *n)
97 switch (n->op->code) {
114 xfprintf (F, "%I", get_mode_ident(n->mode));
121 dump_node_nodeattr (ir_node *n)
123 switch (n->op->code) {
125 if (n->in[1]->op->code == iro_Cmp) {
126 xfprintf (F, "%s", get_pnc_string(n->attr.proj));
128 xfprintf (F, "%ld", n->attr.proj);
132 assert(get_kind(get_Sel_entity(n)) == k_entity);
133 xfprintf (F, "%s", id_to_str(get_entity_ident(get_Sel_entity(n))));
140 dump_node_vcgattr (ir_node *n)
142 switch (n->op->code) {
145 xfprintf (F, "color: blue");
148 xfprintf (F, "color: lightyellow");
151 xfprintf (F, "color: green");
156 xfprintf (F, "color: yellow");
159 xfprintf (F, DEFAULT_NODE_ATTR);
164 dump_node (ir_node *n) {
167 xfprintf (F, "node: {title: \""); PRINT_NODEID(n); fprintf(F, "\" label: \"");
172 dump_node_nodeattr(n);
174 xfprintf (F, " %ld", get_irn_node_nr(n));
177 dump_node_vcgattr(n);
182 dump_ir_node (ir_node *n)
185 fprintf (F, "node: {title: \""); PRINT_NODEID(n); fprintf(F, "\" label: ");
187 switch (n->op->code) { /* node label */
189 xfprintf (F, "\"%I\" color: blue ", get_irn_opident(n));
190 xfprintf (F, DEFAULT_NODE_ATTR);
193 xfprintf (F, "\"%I\" color: blue ", get_irn_opident(n));
194 xfprintf (F, DEFAULT_NODE_ATTR);
197 xfprintf (F, "\"%I\" color: lightyellow ", get_irn_opident(n));
198 xfprintf (F, DEFAULT_NODE_ATTR);
201 xfprintf (F, "\"%I%I\" color: green", get_irn_opident(n), get_irn_modeident(n));
202 if (get_irn_modecode(n) == irm_M)
203 xfprintf (F, DEFAULT_NODE_ATTR " color: green");
205 xfprintf (F, DEFAULT_NODE_ATTR);
208 xfprintf (F, "\"%v%I\" color: yellow ", n->attr.con, get_irn_modeident(n));
209 xfprintf (F, DEFAULT_NODE_ATTR);
212 xfprintf (F, "\"%I%I\" ", get_irn_opident(n), get_irn_modeident(n));
213 xfprintf (F, DEFAULT_NODE_ATTR);
216 if (n->in[1]->op->code == iro_Cmp) {
217 xfprintf (F, "\"%I%I %s\" color: yellow", get_irn_opident(n), get_irn_modeident(n),
218 get_pnc_string(n->attr.proj));
220 xfprintf (F, "\"%I%I %ld\"", get_irn_opident(n), get_irn_modeident(n), n->attr.proj);
222 xfprintf (F, DEFAULT_NODE_ATTR);
225 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
226 xfprintf (F, DEFAULT_NODE_ATTR);
229 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
230 xfprintf (F, DEFAULT_NODE_ATTR);
233 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
234 xfprintf (F, DEFAULT_NODE_ATTR);
237 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
238 xfprintf (F, DEFAULT_NODE_ATTR);
241 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
242 xfprintf (F, DEFAULT_NODE_ATTR);
245 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
246 xfprintf (F, DEFAULT_NODE_ATTR);
249 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
250 xfprintf (F, DEFAULT_NODE_ATTR);
253 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
254 xfprintf (F, DEFAULT_NODE_ATTR);
257 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
258 xfprintf (F, DEFAULT_NODE_ATTR);
261 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
262 xfprintf (F, DEFAULT_NODE_ATTR);
265 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
266 xfprintf (F, DEFAULT_NODE_ATTR);
269 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
270 xfprintf (F, DEFAULT_NODE_ATTR);
273 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
274 xfprintf (F, DEFAULT_NODE_ATTR);
277 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
278 xfprintf (F, DEFAULT_NODE_ATTR);
281 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
282 xfprintf (F, DEFAULT_NODE_ATTR);
285 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
286 xfprintf (F, DEFAULT_NODE_ATTR);
289 xfprintf (F, "\"%I\"", get_irn_opident(n));
290 xfprintf (F, DEFAULT_NODE_ATTR);
293 xfprintf (F, "\"%I\"", get_irn_opident(n));
294 xfprintf (F, DEFAULT_NODE_ATTR);
297 xfprintf (F, "\"%I\"", get_irn_opident(n));
298 xfprintf (F, DEFAULT_NODE_ATTR);
301 xfprintf (F, "\"%I\"", get_irn_opident(n));
302 xfprintf (F, DEFAULT_NODE_ATTR);
305 xfprintf (F, "\"%I%I\"", get_irn_opident(n), get_irn_modeident(n));
306 xfprintf (F, DEFAULT_NODE_ATTR);
310 xfprintf (F, "\"%R\"", n);
311 xfprintf (F, DEFAULT_NODE_ATTR);
314 xfprintf (F, "\"%I\" ", get_irn_opident(n));
315 xfprintf (F, DEFAULT_NODE_ATTR);
318 assert(get_kind(get_Sel_entity(n)) == k_entity);
319 xfprintf (F, "\"%I ", get_irn_opident(n));
320 xfprintf (F, "%s", id_to_str(get_entity_ident(get_Sel_entity(n))));
321 xfprintf (F, DEFAULT_NODE_ATTR);
324 assert(get_kind(get_SymConst_type(n)) == k_type);
325 assert(get_type_nameid(get_SymConst_type(n)));
326 xfprintf (F, "\"%s ", get_type_name(get_SymConst_type(n)));
327 switch (n->attr.i.num){
329 xfprintf (F, "tag\" ");
332 xfprintf (F, "size\" ");
338 xfprintf (F, DEFAULT_NODE_ATTR);
341 xfprintf (F, "\"%I\" ", get_irn_opident(n));
342 xfprintf (F, DEFAULT_NODE_ATTR " color: green");
345 xfprintf (F, "\"%I%I\" ", get_irn_opident(n), get_irn_modeident(n));
346 xfprintf (F, DEFAULT_NODE_ATTR);
349 xfprintf (F, "\"%I%I\" ", get_irn_opident(n), get_irn_modeident(n));
351 xfprintf (F, "}\n"); /* footer */
355 /* dump the edge to the block this node belongs to */
357 dump_ir_block_edge(ir_node *n) {
359 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
360 BLOCK_EDGE_ATTR "}\n", n, get_nodes_Block(n));
363 void print_edge_vcgattr(ir_node *from, int to) {
366 switch (get_irn_opcode(from)) {
368 xfprintf (F, CF_EDGE_ATTR);
370 case iro_Start: break;
373 case iro_Cond: break;
376 if (to == 0) xfprintf (F, MEM_EDGE_ATTR);
378 case iro_Const: break;
379 case iro_SymConst:break;
382 if (to == 0) xfprintf (F, MEM_EDGE_ATTR);
386 case iro_Minus: break;
392 if (to == 0) xfprintf (F, MEM_EDGE_ATTR);
400 case iro_Shrs: break;
403 case iro_Conv: break;
405 if (get_irn_modecode(from) == irm_M) xfprintf (F, MEM_EDGE_ATTR);
411 if (to == 0) xfprintf (F, MEM_EDGE_ATTR);
414 xfprintf (F, MEM_EDGE_ATTR);
416 case iro_Tuple: break;
418 switch (get_irn_modecode(from)) {
420 xfprintf (F, CF_EDGE_ATTR);
423 xfprintf (F, MEM_EDGE_ATTR);
434 /* dump edges to our inputs */
436 dump_ir_data_edges(ir_node *n) {
439 for (i = 0; i < get_irn_arity(n); i++) {
440 assert(get_irn_n(n, i));
441 xfprintf (F, "edge: {sourcename: \"%p\" targetname: \"%p\"",
443 fprintf (F, " label: \"%d\" ", i+1);
444 print_edge_vcgattr(n, i);
449 /* dumps the edges between nodes and their type or entity attributes. */
450 void dump_node2type_edges (ir_node *n, void *env)
454 switch (get_irn_opcode(n)) {
456 if ( (get_SymConst_kind(n) == type_tag)
457 || (get_SymConst_kind(n) == size))
458 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
459 NODE2TYPE_EDGE_ATTR "}\n", n, get_SymConst_type(n));
462 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
463 NODE2TYPE_EDGE_ATTR "}\n", n, get_Sel_entity(n));
466 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
467 NODE2TYPE_EDGE_ATTR "}\n", n, get_Call_type(n));
470 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
471 NODE2TYPE_EDGE_ATTR "}\n", n, get_Alloc_type(n));
474 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
475 NODE2TYPE_EDGE_ATTR "}\n", n, get_Free_type(n));
483 /* dumps a type or entity and it's edges. */
485 dump_type_info (type_or_ent *tore, void *env) {
486 int i = 0; /* to shutup gcc */
488 /* dump this type or entity */
489 xfprintf (F, "node: {title: \"%p\" ", tore);
490 xfprintf (F, DEFAULT_TYPE_ATTRIBUTE);
491 xfprintf (F, "label: ");
493 switch (get_kind(tore)) {
496 entity *ent = (entity *)tore;
497 xfprintf (F, "\"ent %I\" " ENTITY_NODE_ATTR "}\n", get_entity_ident(ent));
498 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
499 ENT_OWN_EDGE_ATTR "}\n", tore, get_entity_owner(ent));
500 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
501 ENT_TYPE_EDGE_ATTR "}\n", tore, get_entity_type(ent));
502 for(i = 0; i < get_entity_n_overwrites(ent); i++)
503 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
504 ENT_OVERWRITES_EDGE_ATTR "}\n", tore, get_entity_overwrites(ent, i));
508 /* why can't I cast here??? @@@ */
510 xfprintf (F, "\"%I %I", get_type_tpop_nameid(type), get_type_nameid(type));
512 switch (get_type_tpop_code(type)) {
515 xfprintf (F, "\" " TYPE_CLASS_NODE_ATTR "}\n");
516 for (i=0; i < get_class_n_supertype(type); i++)
517 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
518 TYPE_SUPER_EDGE_ATTR "}\n",
519 type, get_class_supertype(type, i));
523 xfprintf (F, "\"}\n");
527 xfprintf (F, "\" " TYPE_METH_NODE_ATTR "}\n");
528 for (i = 0; i < get_method_n_params(type); i++)
529 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
530 METH_PAR_EDGE_ATTR "}\n",
531 type, get_method_param_type(type, i), i);
532 for (i = 0; i < get_method_n_res(type); i++)
533 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
534 METH_RES_EDGE_ATTR "}\n",
535 type, get_method_res_type(type, i), i);
539 xfprintf (F, "\"}\n");
540 for (i = 0; i < get_union_n_members(type); i++)
541 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
542 "label: \"\"f" UNION_EDGE_ATTR "}\n",
543 type, get_union_member(type, i));
547 xfprintf (F, "\"}\n");
548 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
549 ARR_ELT_TYPE_EDGE_ATTR "}\n", type, get_array_element_type(type), i);
551 case tpo_enumeration:
553 xfprintf (F, "\"}\n");
557 xfprintf (F, "\"}\n");
558 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" "
559 PTR_PTS_TO_EDGE_ATTR "}\n", type,
560 get_pointer_points_to_type(type), i);
564 xfprintf (F, "mode %I\"}\n", get_mode_ident(get_type_mode(type)));
569 } break; /* case k_type */
572 xfprintf (F, "\" faulty type \"}\n");
573 printf(" *** irdump, %s(l.%i), faulty type.\n", __FUNCTION__, __LINE__);
575 } /* switch kind_or_entity */
578 /************************************************************************/
579 /* open and close vcg file */
580 /************************************************************************/
582 void vcg_open (ir_graph *irg, char *suffix) {
583 char *fname; /* filename to put the vcg information in */
589 /** open file for vcg graph */
590 id = get_entity_ld_ident (get_irg_ent(irg));
591 len = id_to_strlen (id);
594 fname = malloc (len + 5 + strlen(suffix));
595 strncpy (fname, cp, len); /* copy the filename */
597 strcat (fname, suffix); /* append file suffix */
599 fname = malloc (len + 5 + strlen(suffix));
600 strncpy (fname, cp, len); /* copy the filename */
601 fname[len] = '\0'; /* ensure string termination */
602 /*strcpy (fname, cp); * copy the filename *
603 this produces wrong, too long strings in conjuction with the
604 jocca frontend. The \0 seems to be missing. */
605 strcat (fname, suffix); /* append file suffix */
606 strcat (fname, ".vcg"); /* append the .vcg suffix */
607 F = fopen (fname, "w"); /* open file for writing */
609 panic ("cannot open %s for writing (%m)", fname); /* not reached */
613 strcpy(label, "yes");
615 strcpy (label, "no");
620 "graph: { title: \"ir graph of %s\"\n"
621 "display_edge_labels: %s\n"
622 "layoutalgorithm: mindepth\n"
623 "manhattan_edges: yes\n"
625 "orientation: bottom_to_top\n"
626 "classname 1: \"Data\"\n"
627 "classname 2: \"Block\"\n"
628 "classname 3: \"Entity type\""
629 "classname 4: \"Entity owner\""
630 "classname 5: \"Method Param\""
631 "classname 6: \"Method Res\""
632 "classname 7: \"Super\""
633 "classname 8: \"Union\""
634 "classname 9: \"Points-to\""
635 "classname 10: \"Array Element Type\""
638 xfprintf (F, "\n"); /* a separator */
641 void vcg_open_name (const char *name) {
642 char *fname; /* filename to put the vcg information in */
646 /** open file for vcg graph */
648 fname = malloc (len + 5);
649 strcpy (fname, name); /* copy the filename */
650 strcat (fname, ".vcg"); /* append the .vcg suffix */
651 F = fopen (fname, "w"); /* open file for writing */
653 panic ("cannot open %s for writing (%m)", fname); /* not reached */
657 strcpy(label, "yes");
659 strcpy (label, "no");
664 "graph: { title: \"ir graph of %s\"\n"
665 "display_edge_labels: %s\n"
666 "layoutalgorithm: mindepth\n"
667 "manhattan_edges: yes\n"
669 "orientation: bottom_to_top\n"
670 "classname 1: \"Data\"\n"
671 "classname 2: \"Block\"\n"
672 "classname 3: \"Entity type\""
673 "classname 4: \"Entity owner\""
674 "classname 5: \"Method Param\""
675 "classname 6: \"Method Res\""
676 "classname 7: \"Super\""
677 "classname 8: \"Union\""
678 "classname 9: \"Points-to\""
679 "classname 10: \"Array Element Type\""
682 xfprintf (F, "\n"); /* a separator */
687 xfprintf (F, "}\n"); /* print footer */
688 fclose (F); /* close vcg file */
691 /************************************************************************/
692 /* routines to dump a graph, blocks as conventional nodes. */
693 /************************************************************************/
696 dump_whole_node (ir_node *n, void* env) {
698 dump_ir_block_edge(n);
699 dump_ir_data_edges(n);
703 dump_ir_graph (ir_graph *irg)
706 rem = current_ir_graph;
707 current_ir_graph = irg;
711 /* walk over the graph */
712 irg_walk(irg->end, dump_whole_node, NULL, NULL);
716 current_ir_graph = rem;
719 /***********************************************************************/
720 /* the following routines dump the nodes as attached to the blocks. */
721 /***********************************************************************/
724 dump_ir_blocks_nodes (ir_node *n, void *env) {
725 ir_node *block = (ir_node *)env;
727 if (is_no_Block(n) && get_nodes_Block(n) == block) {
729 dump_ir_data_edges(n);
734 dump_ir_block (ir_node *block, void *env) {
735 ir_graph *irg = (ir_graph *)env;
737 if (get_irn_opcode(block) == iro_Block) {
739 /* This is a block. So dump the vcg information to make a block. */
740 xfprintf(F, "graph: { title: \""); PRINT_NODEID(block); fprintf(F, "\" label: \"");
742 xfprintf (F, "%ld", get_irn_node_nr(block));
744 xfprintf (F, "%I", block->op->name);
746 xfprintf(F, "\" status:clustered color:lightyellow \n");
747 /* dump the blocks edges */
748 dump_ir_data_edges(block);
750 /* dump the nodes that go into the block */
751 irg_walk(irg->end, dump_ir_blocks_nodes, NULL, block);
753 /* Close the vcg information for the block */
754 xfprintf(F, "}\n\n");
759 dump_ir_block_graph (ir_graph *irg)
762 rem = current_ir_graph;
763 current_ir_graph = irg;
767 /* walk over the blocks in the graph */
768 irg_block_walk(irg->end, dump_ir_block, NULL, irg);
771 current_ir_graph = rem;
775 /***********************************************************************/
776 /* the following routines dump a control flow graph */
777 /***********************************************************************/
781 dump_block_to_cfg (ir_node *block, void *env) {
785 if (get_irn_opcode(block) == iro_Block) {
786 /* This is a block. Dump a node for the block. */
787 xfprintf (F, "node: {title: \"%p\" label: \"%I\"}", block,
790 for ( i = 0; i < get_Block_n_cfgpreds(block); i++) {
791 pred = get_nodes_Block(skip_Proj(get_Block_cfgpred(block, i)));
792 xfprintf (F, "edge: { sourcename: \"%p\" targetname: \"%p\" }\n",
799 dump_cfg (ir_graph *irg)
801 vcg_open (irg, "-cfg");
803 /* walk over the blocks in the graph */
804 irg_block_walk(irg->end, dump_block_to_cfg, NULL, NULL);
810 /***********************************************************************/
811 /* the following routine dumps all type information reachable from an */
813 /***********************************************************************/
817 dump_type_graph (ir_graph *irg)
820 rem = current_ir_graph;
821 current_ir_graph = irg;
823 vcg_open (irg, "-type");
825 /* walk over the blocks in the graph */
826 type_walk_irg(irg, dump_type_info, NULL, NULL);
829 current_ir_graph = rem;
832 /***********************************************************************/
833 /* the following routine dumps all type information */
834 /***********************************************************************/
838 dump_all_types (void)
840 vcg_open_name ("All_types");
841 type_walk(dump_type_info, NULL, NULL);
845 /***********************************************************************/
846 /* dumps a graph with type information */
847 /***********************************************************************/
851 dump_ir_graph_w_types (ir_graph *irg)
854 rem = current_ir_graph;
855 current_ir_graph = irg;
857 vcg_open (irg, "-all");
859 /* dump common ir graph */
860 /* irg_block_walk(irg->end, dump_ir_block, NULL, irg); */
861 irg_walk(irg->end, dump_whole_node, NULL, NULL);
863 type_walk_irg(irg, dump_type_info, NULL, NULL);
864 /* dump edges from graph to type info */
865 irg_walk(irg->end, dump_node2type_edges, NULL, NULL);
868 current_ir_graph = rem;
871 /***********************************************************************/
872 /* dumps all graphs with the graph-dumper passed. Possible dumpers: */
874 /* dump_ir_block_graph */
876 /* dump_type_graph */
877 /* dump_ir_graph_w_types */
878 /***********************************************************************/
879 void dump_all_ir_graphs (void dump_graph(ir_graph*)) {
881 for (i=0; i < get_irp_n_irgs(); i++) {
882 dump_graph(get_irp_irg(i));
887 /* To turn off display of edge labels. Edge labels offen cause xvcg to
888 abort with a segmentation fault. */
889 void turn_of_edge_labels() {