gcc/graph.c

   1 /* Output routines for graphical representation.
   2    Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
   3    Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 2, or (at your option) any later
  10 version.
  11
  12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING.  If not, write to the Free
  19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.  */
  21
  22 #include <config.h>
  23 #include "system.h"
  24
  25 #include "rtl.h"
  26 #include "flags.h"
  27 #include "output.h"
  28 #include "function.h"
  29 #include "hard-reg-set.h"
  30 #include "basic-block.h"
  31 #include "toplev.h"
  32 #include "graph.h"
  33
  34 static const char *const graph_ext[] =
  35 {
  36   /* no_graph */ "",
  37   /* vcg */      ".vcg",
  38 };
  39
  40 static void start_fct PARAMS ((FILE *));
  41 static void start_bb PARAMS ((FILE *, int));
  42 static void node_data PARAMS ((FILE *, rtx));
  43 static void draw_edge PARAMS ((FILE *, int, int, int, int));
  44 static void end_fct PARAMS ((FILE *));
  45 static void end_bb PARAMS ((FILE *));
  46
  47 /* Output text for new basic block.  */
  48 static void
  49 start_fct (fp)
  50      FILE *fp;
  51 {
  52
  53   switch (graph_dump_format)
  54     {
  55     case vcg:
  56       fprintf (fp, "\
  57 graph: { title: \"%s\"\nfolding: 1\nhidden: 2\nnode: { title: \"%s.0\" }\n",
  58                current_function_name, current_function_name);
  59       break;
  60     case no_graph:
  61       break;
  62     }
  63 }
  64
  65 static void
  66 start_bb (fp, bb)
  67      FILE *fp;
  68      int bb;
  69 {
  70   switch (graph_dump_format)
  71     {
  72     case vcg:
  73       fprintf (fp, "\
  74 graph: {\ntitle: \"%s.BB%d\"\nfolding: 1\ncolor: lightblue\n\
  75 label: \"basic block %d",
  76                current_function_name, bb, bb);
  77       break;
  78     case no_graph:
  79       break;
  80     }
  81
  82 #if 0
  83   /* FIXME Should this be printed?  It makes the graph significantly larger.  */
  84
  85   /* Print the live-at-start register list.  */
  86   fputc ('\n', fp);
  87   EXECUTE_IF_SET_IN_REG_SET (basic_block_live_at_start[bb], 0, i,
  88                              {
  89                                fprintf (fp, " %d", i);
  90                                if (i < FIRST_PSEUDO_REGISTER)
  91                                  fprintf (fp, " [%s]",
  92                                           reg_names[i]);
  93                              });
  94 #endif
  95
  96   switch (graph_dump_format)
  97     {
  98     case vcg:
  99       fputs ("\"\n\n", fp);
 100       break;
 101     case no_graph:
 102       break;
 103     }
 104 }
 105
 106 static void
 107 node_data (fp, tmp_rtx)
 108      FILE *fp;
 109      rtx tmp_rtx;
 110 {
 111
 112   if (PREV_INSN (tmp_rtx) == 0)
 113     {
 114       /* This is the first instruction.  Add an edge from the starting
 115          block.  */
 116       switch (graph_dump_format)
 117         {
 118         case vcg:
 119           fprintf (fp, "\
 120 edge: { sourcename: \"%s.0\" targetname: \"%s.%d\" }\n",
 121                    current_function_name,
 122                    current_function_name, XINT (tmp_rtx, 0));
 123           break;
 124         case no_graph:
 125           break;
 126         }
 127     }
 128
 129   switch (graph_dump_format)
 130     {
 131     case vcg:
 132       fprintf (fp, "node: {\n  title: \"%s.%d\"\n  color: %s\n  \
 133 label: \"%s %d\n",
 134                current_function_name, XINT (tmp_rtx, 0),
 135                GET_CODE (tmp_rtx) == NOTE ? "lightgrey"
 136                : GET_CODE (tmp_rtx) == INSN ? "green"
 137                : GET_CODE (tmp_rtx) == JUMP_INSN ? "darkgreen"
 138                : GET_CODE (tmp_rtx) == CALL_INSN ? "darkgreen"
 139                : GET_CODE (tmp_rtx) == CODE_LABEL ?  "\
 140 darkgrey\n  shape: ellipse" : "white",
 141                GET_RTX_NAME (GET_CODE (tmp_rtx)), XINT (tmp_rtx, 0));
 142       break;
 143     case no_graph:
 144       break;
 145     }
 146
 147   /* Print the RTL.  */
 148   if (GET_CODE (tmp_rtx) == NOTE)
 149     {
 150       const char *name = "";
 151       if (NOTE_LINE_NUMBER (tmp_rtx) < 0)
 152         name =  GET_NOTE_INSN_NAME (NOTE_LINE_NUMBER (tmp_rtx));
 153       fprintf (fp, " %s", name);
 154     }
 155   else if (INSN_P (tmp_rtx))
 156     print_rtl_single (fp, PATTERN (tmp_rtx));
 157   else
 158     print_rtl_single (fp, tmp_rtx);
 159
 160   switch (graph_dump_format)
 161     {
 162     case vcg:
 163       fputs ("\"\n}\n", fp);
 164       break;
 165     case no_graph:
 166       break;
 167     }
 168 }
 169
 170 static void
 171 draw_edge (fp, from, to, bb_edge, class)
 172      FILE *fp;
 173      int from;
 174      int to;
 175      int bb_edge;
 176      int class;
 177 {
 178   const char * color;
 179   switch (graph_dump_format)
 180     {
 181     case vcg:
 182       color = "";
 183       if (class == 2)
 184         color = "color: red ";
 185       else if (bb_edge)
 186         color = "color: blue ";
 187       else if (class == 3)
 188         color = "color: green ";
 189       fprintf (fp,
 190                "edge: { sourcename: \"%s.%d\" targetname: \"%s.%d\" %s",
 191                current_function_name, from,
 192                current_function_name, to, color);
 193       if (class)
 194         fprintf (fp, "class: %d ", class);
 195       fputs ("}\n", fp);
 196       break;
 197     case no_graph:
 198       break;
 199     }
 200 }
 201
 202 static void
 203 end_bb (fp)
 204      FILE *fp;
 205 {
 206   switch (graph_dump_format)
 207     {
 208     case vcg:
 209       fputs ("}\n", fp);
 210       break;
 211     case no_graph:
 212       break;
 213     }
 214 }
 215
 216 static void
 217 end_fct (fp)
 218      FILE *fp;
 219 {
 220   switch (graph_dump_format)
 221     {
 222     case vcg:
 223       fprintf (fp, "node: { title: \"%s.999999\" label: \"END\" }\n}\n",
 224                current_function_name);
 225       break;
 226     case no_graph:
 227       break;
 228     }
 229 }
 230 \f
 231 /* Like print_rtl, but also print out live information for the start of each
 232    basic block.  */
 233 void
 234 print_rtl_graph_with_bb (base, suffix, rtx_first)
 235      const char *base;
 236      const char *suffix;
 237      rtx rtx_first;
 238 {
 239   rtx tmp_rtx;
 240   size_t namelen = strlen (base);
 241   size_t suffixlen = strlen (suffix);
 242   size_t extlen = strlen (graph_ext[graph_dump_format]) + 1;
 243   char *buf = (char *) alloca (namelen + suffixlen + extlen);
 244   FILE *fp;
 245
 246   if (basic_block_info == NULL)
 247     return;
 248
 249   memcpy (buf, base, namelen);
 250   memcpy (buf + namelen, suffix, suffixlen);
 251   memcpy (buf + namelen + suffixlen, graph_ext[graph_dump_format], extlen);
 252
 253   fp = fopen (buf, "a");
 254   if (fp == NULL)
 255     return;
 256
 257   if (rtx_first == 0)
 258     fprintf (fp, "(nil)\n");
 259   else
 260     {
 261       enum bb_state { NOT_IN_BB, IN_ONE_BB, IN_MULTIPLE_BB };
 262       int max_uid = get_max_uid ();
 263       int *start = (int *) xmalloc (max_uid * sizeof (int));
 264       int *end = (int *) xmalloc (max_uid * sizeof (int));
 265       enum bb_state *in_bb_p = (enum bb_state *)
 266         xmalloc (max_uid * sizeof (enum bb_state));
 267       basic_block bb;
 268       int j;
 269
 270       for (j = 0; j < max_uid; ++j)
 271         {
 272           start[j] = end[j] = -1;
 273           in_bb_p[j] = NOT_IN_BB;
 274         }
 275
 276       FOR_ALL_BB_REVERSE (bb)
 277         {
 278           rtx x;
 279           start[INSN_UID (bb->head)] = bb->sindex;
 280           end[INSN_UID (bb->end)] = bb->sindex;
 281           for (x = bb->head; x != NULL_RTX; x = NEXT_INSN (x))
 282             {
 283               in_bb_p[INSN_UID (x)]
 284                 = (in_bb_p[INSN_UID (x)] == NOT_IN_BB)
 285                  ? IN_ONE_BB : IN_MULTIPLE_BB;
 286               if (x == bb->end)
 287                 break;
 288             }
 289         }
 290
 291       /* Tell print-rtl that we want graph output.  */
 292       dump_for_graph = 1;
 293
 294       /* Start new function.  */
 295       start_fct (fp);
 296
 297       for (tmp_rtx = NEXT_INSN (rtx_first); NULL != tmp_rtx;
 298            tmp_rtx = NEXT_INSN (tmp_rtx))
 299         {
 300           int edge_printed = 0;
 301           rtx next_insn;
 302
 303           if (start[INSN_UID (tmp_rtx)] < 0 && end[INSN_UID (tmp_rtx)] < 0)
 304             {
 305               if (GET_CODE (tmp_rtx) == BARRIER)
 306                 continue;
 307               if (GET_CODE (tmp_rtx) == NOTE
 308                   && (1 || in_bb_p[INSN_UID (tmp_rtx)] == NOT_IN_BB))
 309                 continue;
 310             }
 311
 312           if ((j = start[INSN_UID (tmp_rtx)]) >= 0)
 313             {
 314               /* We start a subgraph for each basic block.  */
 315               start_bb (fp, j);
 316
 317               if (j == 0)
 318                 draw_edge (fp, 0, INSN_UID (tmp_rtx), 1, 0);
 319             }
 320
 321           /* Print the data for this node.  */
 322           node_data (fp, tmp_rtx);
 323           next_insn = next_nonnote_insn (tmp_rtx);
 324
 325           if ((j = end[INSN_UID (tmp_rtx)]) >= 0)
 326             {
 327               edge e;
 328
 329               bb = BASIC_BLOCK (j);
 330
 331               /* End of the basic block.  */
 332               end_bb (fp);
 333
 334               /* Now specify the edges to all the successors of this
 335                  basic block.  */
 336               for (e = bb->succ; e ; e = e->succ_next)
 337                 {
 338                   if (e->dest != EXIT_BLOCK_PTR)
 339                     {
 340                       rtx block_head = e->dest->head;
 341
 342                       draw_edge (fp, INSN_UID (tmp_rtx),
 343                                  INSN_UID (block_head),
 344                                  next_insn != block_head,
 345                                  (e->flags & EDGE_ABNORMAL ? 2 : 0));
 346
 347                       if (block_head == next_insn)
 348                         edge_printed = 1;
 349                     }
 350                   else
 351                     {
 352                       draw_edge (fp, INSN_UID (tmp_rtx), 999999,
 353                                  next_insn != 0,
 354                                  (e->flags & EDGE_ABNORMAL ? 2 : 0));
 355
 356                       if (next_insn == 0)
 357                         edge_printed = 1;
 358                     }
 359                 }
 360             }
 361
 362           if (!edge_printed)
 363             {
 364               /* Don't print edges to barriers.  */
 365               if (next_insn == 0
 366                   || GET_CODE (next_insn) != BARRIER)
 367                 draw_edge (fp, XINT (tmp_rtx, 0),
 368                            next_insn ? INSN_UID (next_insn) : 999999, 0, 0);
 369               else
 370                 {
 371                   /* We draw the remaining edges in class 3.  We have
 372                      to skip over the barrier since these nodes are
 373                      not printed at all.  */
 374                   do
 375                     next_insn = NEXT_INSN (next_insn);
 376                   while (next_insn
 377                          && (GET_CODE (next_insn) == NOTE
 378                              || GET_CODE (next_insn) == BARRIER));
 379
 380                   draw_edge (fp, XINT (tmp_rtx, 0),
 381                              next_insn ? INSN_UID (next_insn) : 999999, 0, 3);
 382                 }
 383             }
 384         }
 385
 386       dump_for_graph = 0;
 387
 388       end_fct (fp);
 389
 390       /* Clean up.  */
 391       free (start);
 392       free (end);
 393       free (in_bb_p);
 394     }
 395
 396   fclose (fp);
 397 }
 398
 399
 400 /* Similar as clean_dump_file, but this time for graph output files.  */
 401
 402 void
 403 clean_graph_dump_file (base, suffix)
 404      const char *base;
 405      const char *suffix;
 406 {
 407   size_t namelen = strlen (base);
 408   size_t suffixlen = strlen (suffix);
 409   size_t extlen = strlen (graph_ext[graph_dump_format]) + 1;
 410   char *buf = (char *) alloca (namelen + extlen + suffixlen);
 411   FILE *fp;
 412
 413   memcpy (buf, base, namelen);
 414   memcpy (buf + namelen, suffix, suffixlen);
 415   memcpy (buf + namelen + suffixlen, graph_ext[graph_dump_format], extlen);
 416
 417   fp = fopen (buf, "w");
 418
 419   if (fp == NULL)
 420     fatal_io_error ("can't open %s", buf);
 421
 422   switch (graph_dump_format)
 423     {
 424     case vcg:
 425       fputs ("graph: {\nport_sharing: no\n", fp);
 426       break;
 427     case no_graph:
 428       abort ();
 429     }
 430
 431   fclose (fp);
 432 }
 433
 434
 435 /* Do final work on the graph output file.  */
 436 void
 437 finish_graph_dump_file (base, suffix)
 438      const char *base;
 439      const char *suffix;
 440 {
 441   size_t namelen = strlen (base);
 442   size_t suffixlen = strlen (suffix);
 443   size_t extlen = strlen (graph_ext[graph_dump_format]) + 1;
 444   char *buf = (char *) alloca (namelen + suffixlen + extlen);
 445   FILE *fp;
 446
 447   memcpy (buf, base, namelen);
 448   memcpy (buf + namelen, suffix, suffixlen);
 449   memcpy (buf + namelen + suffixlen, graph_ext[graph_dump_format], extlen);
 450
 451   fp = fopen (buf, "a");
 452   if (fp != NULL)
 453     {
 454       switch (graph_dump_format)
 455         {
 456         case vcg:
 457           fputs ("}\n", fp);
 458           break;
 459         case no_graph:
 460           abort ();
 461         }
 462
 463       fclose (fp);
 464     }
 465 }