LCOV - code coverage report
Current view: top level - gcc - print-tree.c (source / functions) Hit Total Coverage
Test: gcc.info Lines: 297 729 40.7 %
Date: 2020-03-28 11:57:23 Functions: 5 25 20.0 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 0 0 -

           Branch data     Line data    Source code
       1                 :            : /* Prints out tree in human readable form - GCC
       2                 :            :    Copyright (C) 1990-2020 Free Software Foundation, Inc.
       3                 :            : 
       4                 :            : This file is part of GCC.
       5                 :            : 
       6                 :            : GCC is free software; you can redistribute it and/or modify it under
       7                 :            : the terms of the GNU General Public License as published by the Free
       8                 :            : Software Foundation; either version 3, or (at your option) any later
       9                 :            : version.
      10                 :            : 
      11                 :            : GCC is distributed in the hope that it will be useful, but WITHOUT ANY
      12                 :            : WARRANTY; without even the implied warranty of MERCHANTABILITY or
      13                 :            : FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
      14                 :            : for more details.
      15                 :            : 
      16                 :            : You should have received a copy of the GNU General Public License
      17                 :            : along with GCC; see the file COPYING3.  If not see
      18                 :            : <http://www.gnu.org/licenses/>.  */
      19                 :            : 
      20                 :            : 
      21                 :            : #include "config.h"
      22                 :            : #include "system.h"
      23                 :            : #include "coretypes.h"
      24                 :            : #include "tm.h"
      25                 :            : #include "tree.h"
      26                 :            : #include "cgraph.h"
      27                 :            : #include "diagnostic.h"
      28                 :            : #include "varasm.h"
      29                 :            : #include "print-rtl.h"
      30                 :            : #include "stor-layout.h"
      31                 :            : #include "langhooks.h"
      32                 :            : #include "tree-iterator.h"
      33                 :            : #include "gimple-pretty-print.h" /* FIXME */
      34                 :            : #include "tree-cfg.h"
      35                 :            : #include "dumpfile.h"
      36                 :            : #include "print-tree.h"
      37                 :            : 
      38                 :            : /* Define the hash table of nodes already seen.
      39                 :            :    Such nodes are not repeated; brief cross-references are used.  */
      40                 :            : 
      41                 :            : #define HASH_SIZE 37
      42                 :            : 
      43                 :            : static hash_set<tree> *table = NULL;
      44                 :            : 
      45                 :            : /* Print PREFIX and ADDR to FILE.  */
      46                 :            : void
      47                 :      42140 : dump_addr (FILE *file, const char *prefix, const void *addr)
      48                 :            : {
      49                 :      42140 :   if (flag_dump_noaddr || flag_dump_unnumbered)
      50                 :      24163 :     fprintf (file, "%s#", prefix);
      51                 :            :   else
      52                 :      17977 :     fprintf (file, "%s" HOST_PTR_PRINTF, prefix, addr);
      53                 :      42140 : }
      54                 :            : 
      55                 :            : /* Print to FILE a NODE representing a REAL_CST constant, including
      56                 :            :    Infinity and NaN.  Be verbose when BFRIEF is false.  */
      57                 :            : 
      58                 :            : static void
      59                 :          0 : print_real_cst (FILE *file, const_tree node, bool brief)
      60                 :            : {
      61                 :          0 :   if (TREE_OVERFLOW (node))
      62                 :          0 :     fprintf (file, " overflow");
      63                 :            : 
      64                 :          0 :   REAL_VALUE_TYPE d = TREE_REAL_CST (node);
      65                 :          0 :   if (REAL_VALUE_ISINF (d))
      66                 :          0 :     fprintf (file,  REAL_VALUE_NEGATIVE (d) ? " -Inf" : " Inf");
      67                 :          0 :   else if (REAL_VALUE_ISNAN (d))
      68                 :            :     {
      69                 :            :       /* Print a NaN in the format [-][Q]NaN[(significand[exponent])]
      70                 :            :          where significand is a hexadecimal string that starts with
      71                 :            :          the 0x prefix followed by 0 if the number is not canonical
      72                 :            :          and a non-zero digit if it is, and exponent is decimal.  */
      73                 :          0 :       unsigned start = 0;
      74                 :          0 :       const char *psig = (const char *) d.sig;
      75                 :          0 :       for (unsigned i = 0; i != sizeof d.sig; ++i)
      76                 :          0 :         if (psig[i])
      77                 :            :           {
      78                 :            :             start = i;
      79                 :            :             break;
      80                 :            :           }
      81                 :            : 
      82                 :          0 :       fprintf (file, " %s%sNaN", d.sign ? "-" : "",
      83                 :          0 :                d.signalling ? "S" : "Q");
      84                 :            : 
      85                 :          0 :       if (brief)
      86                 :          0 :         return;
      87                 :            : 
      88                 :          0 :       if (start)
      89                 :          0 :         fprintf (file, "(0x%s", d.canonical ? "" : "0");
      90                 :          0 :       else if (d.uexp)
      91                 :          0 :         fprintf (file, "(%s", d.canonical ? "" : "0");
      92                 :          0 :       else if (!d.canonical)
      93                 :            :         {
      94                 :          0 :           fprintf (file, "(0)");
      95                 :          0 :           return;
      96                 :            :         }
      97                 :            : 
      98                 :          0 :       if (psig[start])
      99                 :            :         {
     100                 :          0 :           for (unsigned i = start; i != sizeof d.sig; ++i)
     101                 :          0 :             if (i == start)
     102                 :          0 :               fprintf (file, "%x", psig[i]);
     103                 :            :             else
     104                 :          0 :               fprintf (file, "%02x", psig[i]);
     105                 :            :         }
     106                 :            : 
     107                 :          0 :       if (d.uexp)
     108                 :          0 :         fprintf (file, "%se%u)", psig[start] ? "," : "", d.uexp);
     109                 :          0 :       else if (psig[start])
     110                 :          0 :         fputc (')', file);
     111                 :            :     }
     112                 :            :   else
     113                 :            :     {
     114                 :          0 :       char string[64];
     115                 :          0 :       real_to_decimal (string, &d, sizeof (string), 0, 1);
     116                 :          0 :       fprintf (file, " %s", string);
     117                 :            :     }
     118                 :            : }
     119                 :            : 
     120                 :            : /* Print a node in brief fashion, with just the code, address and name.  */
     121                 :            : 
     122                 :            : void
     123                 :      29932 : print_node_brief (FILE *file, const char *prefix, const_tree node, int indent)
     124                 :            : {
     125                 :      29932 :   enum tree_code_class tclass;
     126                 :            : 
     127                 :      29932 :   if (node == 0)
     128                 :            :     return;
     129                 :            : 
     130                 :      29902 :   tclass = TREE_CODE_CLASS (TREE_CODE (node));
     131                 :            : 
     132                 :            :   /* Always print the slot this node is in, and its code, address and
     133                 :            :      name if any.  */
     134                 :      29902 :   if (indent > 0)
     135                 :      29559 :     fprintf (file, " ");
     136                 :      29902 :   fprintf (file, "%s <%s", prefix, get_tree_code_name (TREE_CODE (node)));
     137                 :      29902 :   dump_addr (file, " ", node);
     138                 :            : 
     139                 :      29902 :   if (tclass == tcc_declaration)
     140                 :            :     {
     141                 :      29076 :       if (DECL_NAME (node))
     142                 :      29004 :         fprintf (file, " %s", IDENTIFIER_POINTER (DECL_NAME (node)));
     143                 :         72 :       else if (TREE_CODE (node) == LABEL_DECL
     144                 :         72 :                && LABEL_DECL_UID (node) != -1)
     145                 :            :         {
     146                 :         48 :           if (dump_flags & TDF_NOUID)
     147                 :          0 :             fprintf (file, " L.xxxx");
     148                 :            :           else
     149                 :         48 :             fprintf (file, " L.%d", (int) LABEL_DECL_UID (node));
     150                 :            :         }
     151                 :            :       else
     152                 :            :         {
     153                 :         24 :           if (dump_flags & TDF_NOUID)
     154                 :          0 :             fprintf (file, " %c.xxxx",
     155                 :            :                      TREE_CODE (node) == CONST_DECL ? 'C' : 'D');
     156                 :            :           else
     157                 :         48 :             fprintf (file, " %c.%u",
     158                 :            :                      TREE_CODE (node) == CONST_DECL ? 'C' : 'D',
     159                 :         24 :                      DECL_UID (node));
     160                 :            :         }
     161                 :            :     }
     162                 :        826 :   else if (tclass == tcc_type)
     163                 :            :     {
     164                 :        446 :       if (TYPE_NAME (node))
     165                 :            :         {
     166                 :        153 :           if (TREE_CODE (TYPE_NAME (node)) == IDENTIFIER_NODE)
     167                 :        144 :             fprintf (file, " %s", IDENTIFIER_POINTER (TYPE_NAME (node)));
     168                 :          9 :           else if (TREE_CODE (TYPE_NAME (node)) == TYPE_DECL
     169                 :          9 :                    && DECL_NAME (TYPE_NAME (node)))
     170                 :          9 :             fprintf (file, " %s",
     171                 :          9 :                      IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (node))));
     172                 :            :         }
     173                 :        446 :       if (!ADDR_SPACE_GENERIC_P (TYPE_ADDR_SPACE (node)))
     174                 :          0 :         fprintf (file, " address-space-%d", TYPE_ADDR_SPACE (node));
     175                 :            :     }
     176                 :      29902 :   if (TREE_CODE (node) == IDENTIFIER_NODE)
     177                 :         84 :     fprintf (file, " %s", IDENTIFIER_POINTER (node));
     178                 :            : 
     179                 :            :   /* We might as well always print the value of an integer or real.  */
     180                 :      29902 :   if (TREE_CODE (node) == INTEGER_CST)
     181                 :            :     {
     182                 :         60 :       if (TREE_OVERFLOW (node))
     183                 :          0 :         fprintf (file, " overflow");
     184                 :            : 
     185                 :         60 :       fprintf (file, " ");
     186                 :         60 :       print_dec (wi::to_wide (node), file, TYPE_SIGN (TREE_TYPE (node)));
     187                 :            :     }
     188                 :      29902 :   if (TREE_CODE (node) == REAL_CST)
     189                 :          0 :     print_real_cst (file, node, true);
     190                 :      29902 :   if (TREE_CODE (node) == FIXED_CST)
     191                 :            :     {
     192                 :          0 :       FIXED_VALUE_TYPE f;
     193                 :          0 :       char string[60];
     194                 :            : 
     195                 :          0 :       if (TREE_OVERFLOW (node))
     196                 :          0 :         fprintf (file, " overflow");
     197                 :            : 
     198                 :          0 :       f = TREE_FIXED_CST (node);
     199                 :          0 :       fixed_to_decimal (string, &f, sizeof (string));
     200                 :          0 :       fprintf (file, " %s", string);
     201                 :            :     }
     202                 :            : 
     203                 :      29902 :   fprintf (file, ">");
     204                 :            : }
     205                 :            : 
     206                 :            : void
     207                 :         92 : indent_to (FILE *file, int column)
     208                 :            : {
     209                 :         92 :   int i;
     210                 :            : 
     211                 :            :   /* Since this is the long way, indent to desired column.  */
     212                 :         92 :   if (column > 0)
     213                 :         86 :     fprintf (file, "\n");
     214                 :        716 :   for (i = 0; i < column; i++)
     215                 :        624 :     fprintf (file, " ");
     216                 :         92 : }
     217                 :            : 
     218                 :            : /* Print the node NODE in full on file FILE, preceded by PREFIX,
     219                 :            :    starting in column INDENT.  */
     220                 :            : 
     221                 :            : void
     222                 :         90 : print_node (FILE *file, const char *prefix, tree node, int indent,
     223                 :            :             bool brief_for_visited)
     224                 :            : {
     225                 :         90 :   machine_mode mode;
     226                 :         90 :   enum tree_code_class tclass;
     227                 :         90 :   int len;
     228                 :         90 :   int i;
     229                 :         90 :   expanded_location xloc;
     230                 :         90 :   enum tree_code code;
     231                 :            : 
     232                 :         90 :   if (node == 0)
     233                 :         38 :     return;
     234                 :            : 
     235                 :         60 :   code = TREE_CODE (node);
     236                 :            : 
     237                 :            :   /* It is unsafe to look at any other fields of a node with ERROR_MARK or
     238                 :            :      invalid code.  */
     239                 :         60 :   if (code == ERROR_MARK || code >= MAX_TREE_CODES)
     240                 :            :     {
     241                 :          0 :       print_node_brief (file, prefix, node, indent);
     242                 :          0 :       return;
     243                 :            :     }
     244                 :            : 
     245                 :         60 :   tclass = TREE_CODE_CLASS (code);
     246                 :            : 
     247                 :            :   /* Don't get too deep in nesting.  If the user wants to see deeper,
     248                 :            :      it is easy to use the address of a lowest-level node
     249                 :            :      as an argument in another call to debug_tree.  */
     250                 :            : 
     251                 :         60 :   if (indent > 24)
     252                 :            :     {
     253                 :          0 :       print_node_brief (file, prefix, node, indent);
     254                 :          0 :       return;
     255                 :            :     }
     256                 :            : 
     257                 :         60 :   if (indent > 8 && (tclass == tcc_type || tclass == tcc_declaration))
     258                 :            :     {
     259                 :          8 :       print_node_brief (file, prefix, node, indent);
     260                 :          8 :       return;
     261                 :            :     }
     262                 :            : 
     263                 :            :   /* Allow this function to be called if the table is not there.  */
     264                 :         52 :   if (table)
     265                 :            :     {
     266                 :            :       /* If node is in the table, just mention its address.  */
     267                 :          0 :       if (table->contains (node) && brief_for_visited)
     268                 :            :         {
     269                 :          0 :           print_node_brief (file, prefix, node, indent);
     270                 :          0 :           return;
     271                 :            :         }
     272                 :            : 
     273                 :          0 :       table->add (node);
     274                 :            :     }
     275                 :            : 
     276                 :            :   /* Indent to the specified column, since this is the long form.  */
     277                 :         52 :   indent_to (file, indent);
     278                 :            : 
     279                 :            :   /* Print the slot this node is in, and its code, and address.  */
     280                 :         52 :   fprintf (file, "%s <%s", prefix, get_tree_code_name (code));
     281                 :         52 :   dump_addr (file, " ", node);
     282                 :            : 
     283                 :            :   /* Print the name, if any.  */
     284                 :         52 :   if (tclass == tcc_declaration)
     285                 :            :     {
     286                 :          6 :       if (DECL_NAME (node))
     287                 :          6 :         fprintf (file, " %s", IDENTIFIER_POINTER (DECL_NAME (node)));
     288                 :          0 :       else if (code == LABEL_DECL
     289                 :          0 :                && LABEL_DECL_UID (node) != -1)
     290                 :            :         {
     291                 :          0 :           if (dump_flags & TDF_NOUID)
     292                 :          0 :             fprintf (file, " L.xxxx");
     293                 :            :           else
     294                 :          0 :             fprintf (file, " L.%d", (int) LABEL_DECL_UID (node));
     295                 :            :         }
     296                 :            :       else
     297                 :            :         {
     298                 :          0 :           if (dump_flags & TDF_NOUID)
     299                 :          0 :             fprintf (file, " %c.xxxx", code == CONST_DECL ? 'C' : 'D');
     300                 :            :           else
     301                 :          0 :             fprintf (file, " %c.%u", code == CONST_DECL ? 'C' : 'D',
     302                 :          0 :                      DECL_UID (node));
     303                 :            :         }
     304                 :            :     }
     305                 :         46 :   else if (tclass == tcc_type)
     306                 :            :     {
     307                 :         10 :       if (TYPE_NAME (node))
     308                 :            :         {
     309                 :          2 :           if (TREE_CODE (TYPE_NAME (node)) == IDENTIFIER_NODE)
     310                 :          0 :             fprintf (file, " %s", IDENTIFIER_POINTER (TYPE_NAME (node)));
     311                 :          2 :           else if (TREE_CODE (TYPE_NAME (node)) == TYPE_DECL
     312                 :          2 :                    && DECL_NAME (TYPE_NAME (node)))
     313                 :          4 :             fprintf (file, " %s",
     314                 :          2 :                      IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (node))));
     315                 :            :         }
     316                 :            :     }
     317                 :         52 :   if (code == IDENTIFIER_NODE)
     318                 :          0 :     fprintf (file, " %s", IDENTIFIER_POINTER (node));
     319                 :            : 
     320                 :         52 :   if (code == INTEGER_CST)
     321                 :            :     {
     322                 :         32 :       if (indent <= 4)
     323                 :         12 :         print_node_brief (file, "type", TREE_TYPE (node), indent + 4);
     324                 :            :     }
     325                 :         20 :   else if (CODE_CONTAINS_STRUCT (code, TS_TYPED))
     326                 :            :     {
     327                 :         20 :       print_node (file, "type", TREE_TYPE (node), indent + 4);
     328                 :         20 :       if (TREE_TYPE (node))
     329                 :         14 :         indent_to (file, indent + 3);
     330                 :            :     }
     331                 :            : 
     332                 :         52 :   if (!TYPE_P (node) && TREE_SIDE_EFFECTS (node))
     333                 :          0 :     fputs (" side-effects", file);
     334                 :            : 
     335                 :         52 :   if (TYPE_P (node) ? TYPE_READONLY (node) : TREE_READONLY (node))
     336                 :          7 :     fputs (" readonly", file);
     337                 :         52 :   if (TYPE_P (node) && TYPE_ATOMIC (node))
     338                 :          0 :     fputs (" atomic", file);
     339                 :         52 :   if (!TYPE_P (node) && TREE_CONSTANT (node))
     340                 :         32 :     fputs (" constant", file);
     341                 :         20 :   else if (TYPE_P (node) && TYPE_SIZES_GIMPLIFIED (node))
     342                 :          0 :     fputs (" sizes-gimplified", file);
     343                 :            : 
     344                 :         52 :   if (TYPE_P (node) && !ADDR_SPACE_GENERIC_P (TYPE_ADDR_SPACE (node)))
     345                 :          0 :     fprintf (file, " address-space-%d", TYPE_ADDR_SPACE (node));
     346                 :            : 
     347                 :         52 :   if (TREE_ADDRESSABLE (node))
     348                 :          1 :     fputs (" addressable", file);
     349                 :         52 :   if (TREE_THIS_VOLATILE (node))
     350                 :          0 :     fputs (" volatile", file);
     351                 :         52 :   if (TREE_ASM_WRITTEN (node))
     352                 :          0 :     fputs (" asm_written", file);
     353                 :         52 :   if (TREE_USED (node))
     354                 :          6 :     fputs (" used", file);
     355                 :         52 :   if (TREE_NOTHROW (node))
     356                 :          0 :     fputs (" nothrow", file);
     357                 :         52 :   if (TREE_PUBLIC (node))
     358                 :          6 :     fputs (" public", file);
     359                 :         52 :   if (TREE_PRIVATE (node))
     360                 :          0 :     fputs (" private", file);
     361                 :         52 :   if (TREE_PROTECTED (node))
     362                 :          0 :     fputs (" protected", file);
     363                 :         52 :   if (TREE_STATIC (node))
     364                 :         12 :     fputs (code == CALL_EXPR ? " must-tail-call" : " static", file);
     365                 :         52 :   if (TREE_DEPRECATED (node))
     366                 :          0 :     fputs (" deprecated", file);
     367                 :         52 :   if (TREE_VISITED (node))
     368                 :          0 :     fputs (" visited", file);
     369                 :            : 
     370                 :         52 :   if (code != TREE_VEC && code != INTEGER_CST && code != SSA_NAME)
     371                 :            :     {
     372                 :         40 :       if (TREE_LANG_FLAG_0 (node))
     373                 :          0 :         fputs (" tree_0", file);
     374                 :         40 :       if (TREE_LANG_FLAG_1 (node))
     375                 :          0 :         fputs (" tree_1", file);
     376                 :         40 :       if (TREE_LANG_FLAG_2 (node))
     377                 :          0 :         fputs (" tree_2", file);
     378                 :         40 :       if (TREE_LANG_FLAG_3 (node))
     379                 :          0 :         fputs (" tree_3", file);
     380                 :         40 :       if (TREE_LANG_FLAG_4 (node))
     381                 :          0 :         fputs (" tree_4", file);
     382                 :         40 :       if (TREE_LANG_FLAG_5 (node))
     383                 :          0 :         fputs (" tree_5", file);
     384                 :         40 :       if (TREE_LANG_FLAG_6 (node))
     385                 :          0 :         fputs (" tree_6", file);
     386                 :            :     }
     387                 :            : 
     388                 :            :   /* DECL_ nodes have additional attributes.  */
     389                 :            : 
     390                 :         52 :   switch (TREE_CODE_CLASS (code))
     391                 :            :     {
     392                 :          6 :     case tcc_declaration:
     393                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_COMMON))
     394                 :            :         {
     395                 :          6 :           if (DECL_UNSIGNED (node))
     396                 :          4 :             fputs (" unsigned", file);
     397                 :          6 :           if (DECL_IGNORED_P (node))
     398                 :          0 :             fputs (" ignored", file);
     399                 :          6 :           if (DECL_ABSTRACT_P (node))
     400                 :          0 :             fputs (" abstract", file);
     401                 :          6 :           if (DECL_EXTERNAL (node))
     402                 :          0 :             fputs (" external", file);
     403                 :          6 :           if (DECL_NONLOCAL (node))
     404                 :          0 :             fputs (" nonlocal", file);
     405                 :            :         }
     406                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_WITH_VIS))
     407                 :            :         {
     408                 :          6 :           if (DECL_WEAK (node))
     409                 :          0 :             fputs (" weak", file);
     410                 :          6 :           if (DECL_IN_SYSTEM_HEADER (node))
     411                 :          0 :             fputs (" in_system_header", file);
     412                 :            :         }
     413                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_WRTL)
     414                 :            :           && code != LABEL_DECL
     415                 :          6 :           && code != FUNCTION_DECL
     416                 :         12 :           && DECL_REGISTER (node))
     417                 :          0 :         fputs (" regdecl", file);
     418                 :            : 
     419                 :          6 :       if (code == TYPE_DECL && TYPE_DECL_SUPPRESS_DEBUG (node))
     420                 :          0 :         fputs (" suppress-debug", file);
     421                 :            : 
     422                 :          6 :       if (code == FUNCTION_DECL
     423                 :          6 :           && DECL_FUNCTION_SPECIFIC_TARGET (node))
     424                 :          0 :         fputs (" function-specific-target", file);
     425                 :          6 :       if (code == FUNCTION_DECL
     426                 :          6 :           && DECL_FUNCTION_SPECIFIC_OPTIMIZATION (node))
     427                 :          0 :         fputs (" function-specific-opt", file);
     428                 :          6 :       if (code == FUNCTION_DECL && DECL_DECLARED_INLINE_P (node))
     429                 :          0 :         fputs (" autoinline", file);
     430                 :          6 :       if (code == FUNCTION_DECL && DECL_UNINLINABLE (node))
     431                 :          0 :         fputs (" uninlinable", file);
     432                 :          6 :       if (code == FUNCTION_DECL && fndecl_built_in_p (node))
     433                 :          0 :         fputs (" built-in", file);
     434                 :          6 :       if (code == FUNCTION_DECL && DECL_STATIC_CHAIN (node))
     435                 :          0 :         fputs (" static-chain", file);
     436                 :          6 :       if (TREE_CODE (node) == FUNCTION_DECL && decl_is_tm_clone (node))
     437                 :          0 :         fputs (" tm-clone", file);
     438                 :            : 
     439                 :          6 :       if (code == FIELD_DECL && DECL_PACKED (node))
     440                 :          0 :         fputs (" packed", file);
     441                 :          6 :       if (code == FIELD_DECL && DECL_BIT_FIELD (node))
     442                 :          0 :         fputs (" bit-field", file);
     443                 :          6 :       if (code == FIELD_DECL && DECL_NONADDRESSABLE_P (node))
     444                 :          0 :         fputs (" nonaddressable", file);
     445                 :            : 
     446                 :          6 :       if (code == LABEL_DECL && EH_LANDING_PAD_NR (node))
     447                 :          0 :         fprintf (file, " landing-pad:%d", EH_LANDING_PAD_NR (node));
     448                 :            : 
     449                 :          6 :       if (code == VAR_DECL && DECL_IN_TEXT_SECTION (node))
     450                 :          0 :         fputs (" in-text-section", file);
     451                 :          6 :       if (code == VAR_DECL && DECL_IN_CONSTANT_POOL (node))
     452                 :          0 :         fputs (" in-constant-pool", file);
     453                 :          6 :       if (code == VAR_DECL && DECL_COMMON (node))
     454                 :          1 :         fputs (" common", file);
     455                 :          6 :       if ((code == VAR_DECL || code == PARM_DECL) && DECL_READ_P (node))
     456                 :          6 :         fputs (" read", file);
     457                 :          6 :       if (code == VAR_DECL && DECL_THREAD_LOCAL_P (node))
     458                 :            :         {
     459                 :          0 :           fputs (" ", file);
     460                 :          0 :           fputs (tls_model_names[DECL_TLS_MODEL (node)], file);
     461                 :            :         }
     462                 :            : 
     463                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_COMMON))
     464                 :            :         {
     465                 :          6 :           if (DECL_VIRTUAL_P (node))
     466                 :          0 :             fputs (" virtual", file);
     467                 :          6 :           if (DECL_PRESERVE_P (node))
     468                 :          0 :             fputs (" preserve", file);
     469                 :          6 :           if (DECL_LANG_FLAG_0 (node))
     470                 :          0 :             fputs (" decl_0", file);
     471                 :          6 :           if (DECL_LANG_FLAG_1 (node))
     472                 :          0 :             fputs (" decl_1", file);
     473                 :          6 :           if (DECL_LANG_FLAG_2 (node))
     474                 :          0 :             fputs (" decl_2", file);
     475                 :          6 :           if (DECL_LANG_FLAG_3 (node))
     476                 :          0 :             fputs (" decl_3", file);
     477                 :          6 :           if (DECL_LANG_FLAG_4 (node))
     478                 :          0 :             fputs (" decl_4", file);
     479                 :          6 :           if (DECL_LANG_FLAG_5 (node))
     480                 :          0 :             fputs (" decl_5", file);
     481                 :          6 :           if (DECL_LANG_FLAG_6 (node))
     482                 :          0 :             fputs (" decl_6", file);
     483                 :          6 :           if (DECL_LANG_FLAG_7 (node))
     484                 :          0 :             fputs (" decl_7", file);
     485                 :            : 
     486                 :          6 :           mode = DECL_MODE (node);
     487                 :          6 :           fprintf (file, " %s", GET_MODE_NAME (mode));
     488                 :            :         }
     489                 :            : 
     490                 :          0 :       if ((code == VAR_DECL || code == PARM_DECL || code == RESULT_DECL)
     491                 :          6 :           && DECL_BY_REFERENCE (node))
     492                 :          0 :         fputs (" passed-by-reference", file);
     493                 :            : 
     494                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_WITH_VIS)  && DECL_DEFER_OUTPUT (node))
     495                 :          0 :         fputs (" defer-output", file);
     496                 :            : 
     497                 :            : 
     498                 :          6 :       xloc = expand_location (DECL_SOURCE_LOCATION (node));
     499                 :          6 :       fprintf (file, " %s:%d:%d", xloc.file, xloc.line,
     500                 :            :                xloc.column);
     501                 :            : 
     502                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_COMMON))
     503                 :            :         {
     504                 :          6 :           print_node (file, "size", DECL_SIZE (node), indent + 4);
     505                 :          6 :           print_node (file, "unit-size", DECL_SIZE_UNIT (node), indent + 4);
     506                 :            : 
     507                 :          6 :           if (code != FUNCTION_DECL || fndecl_built_in_p (node))
     508                 :          6 :             indent_to (file, indent + 3);
     509                 :            : 
     510                 :          6 :           if (DECL_USER_ALIGN (node))
     511                 :          0 :             fprintf (file, " user");
     512                 :            : 
     513                 :         12 :           fprintf (file, " align:%d warn_if_not_align:%d",
     514                 :          6 :                    DECL_ALIGN (node), DECL_WARN_IF_NOT_ALIGN (node));
     515                 :          6 :           if (code == FIELD_DECL)
     516                 :          0 :             fprintf (file, " offset_align " HOST_WIDE_INT_PRINT_UNSIGNED,
     517                 :          0 :                      DECL_OFFSET_ALIGN (node));
     518                 :            : 
     519                 :          6 :           if (code == FUNCTION_DECL && fndecl_built_in_p (node))
     520                 :            :             {
     521                 :          0 :               if (DECL_BUILT_IN_CLASS (node) == BUILT_IN_MD)
     522                 :          0 :                 fprintf (file, " built-in: BUILT_IN_MD:%d",
     523                 :            :                          DECL_MD_FUNCTION_CODE (node));
     524                 :          0 :               else if (DECL_BUILT_IN_CLASS (node) == BUILT_IN_FRONTEND)
     525                 :          0 :                 fprintf (file, " built-in: BUILT_IN_FRONTEND:%d",
     526                 :            :                          DECL_FE_FUNCTION_CODE (node));
     527                 :            :               else
     528                 :          0 :                 fprintf (file, " built-in: %s:%s",
     529                 :          0 :                          built_in_class_names[(int) DECL_BUILT_IN_CLASS (node)],
     530                 :          0 :                          built_in_names[(int) DECL_FUNCTION_CODE (node)]);
     531                 :            :             }
     532                 :            :         }
     533                 :          6 :       if (code == FIELD_DECL)
     534                 :            :         {
     535                 :          0 :           print_node (file, "offset", DECL_FIELD_OFFSET (node), indent + 4);
     536                 :          0 :           print_node (file, "bit-offset", DECL_FIELD_BIT_OFFSET (node),
     537                 :            :                       indent + 4);
     538                 :          0 :           if (DECL_BIT_FIELD_TYPE (node))
     539                 :          0 :             print_node (file, "bit_field_type", DECL_BIT_FIELD_TYPE (node),
     540                 :            :                         indent + 4);
     541                 :            :         }
     542                 :            : 
     543                 :          6 :       print_node_brief (file, "context", DECL_CONTEXT (node), indent + 4);
     544                 :            : 
     545                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_COMMON))
     546                 :            :         {
     547                 :         12 :           print_node (file, "attributes",
     548                 :          6 :                             DECL_ATTRIBUTES (node), indent + 4);
     549                 :          6 :           if (code != PARM_DECL)
     550                 :          6 :             print_node_brief (file, "initial", DECL_INITIAL (node),
     551                 :            :                               indent + 4);
     552                 :            :         }
     553                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_WRTL))
     554                 :            :         {
     555                 :         12 :           print_node_brief (file, "abstract_origin",
     556                 :          6 :                             DECL_ABSTRACT_ORIGIN (node), indent + 4);
     557                 :            :         }
     558                 :          6 :       if (CODE_CONTAINS_STRUCT (code, TS_DECL_NON_COMMON))
     559                 :            :         {
     560                 :          0 :           print_node (file, "result", DECL_RESULT_FLD (node), indent + 4);
     561                 :            :         }
     562                 :            : 
     563                 :          6 :       lang_hooks.print_decl (file, node, indent);
     564                 :            : 
     565                 :          6 :       if (DECL_RTL_SET_P (node))
     566                 :            :         {
     567                 :          0 :           indent_to (file, indent + 4);
     568                 :          0 :           print_rtl (file, DECL_RTL (node));
     569                 :            :         }
     570                 :            : 
     571                 :          6 :       if (code == PARM_DECL)
     572                 :            :         {
     573                 :          0 :           print_node (file, "arg-type", DECL_ARG_TYPE (node), indent + 4);
     574                 :            : 
     575                 :          0 :           if (DECL_INCOMING_RTL (node) != 0)
     576                 :            :             {
     577                 :          0 :               indent_to (file, indent + 4);
     578                 :          0 :               fprintf (file, "incoming-rtl ");
     579                 :          0 :               print_rtl (file, DECL_INCOMING_RTL (node));
     580                 :            :             }
     581                 :            :         }
     582                 :          6 :       else if (code == FUNCTION_DECL
     583                 :          6 :                && DECL_STRUCT_FUNCTION (node) != 0)
     584                 :            :         {
     585                 :          0 :           print_node (file, "arguments", DECL_ARGUMENTS (node), indent + 4);
     586                 :          0 :           indent_to (file, indent + 4);
     587                 :          0 :           dump_addr (file, "struct-function ", DECL_STRUCT_FUNCTION (node));
     588                 :            :         }
     589                 :            : 
     590                 :          6 :       if ((code == VAR_DECL || code == PARM_DECL)
     591                 :          6 :           && DECL_HAS_VALUE_EXPR_P (node))
     592                 :          0 :         print_node (file, "value-expr", DECL_VALUE_EXPR (node), indent + 4);
     593                 :            : 
     594                 :            :       /* Print the decl chain only if decl is at second level.  */
     595                 :          6 :       if (indent == 4)
     596                 :          0 :         print_node (file, "chain", TREE_CHAIN (node), indent + 4);
     597                 :            :       else
     598                 :          6 :         print_node_brief (file, "chain", TREE_CHAIN (node), indent + 4);
     599                 :            :       break;
     600                 :            : 
     601                 :         10 :     case tcc_type:
     602                 :         10 :       if (TYPE_UNSIGNED (node))
     603                 :          4 :         fputs (" unsigned", file);
     604                 :            : 
     605                 :         10 :       if (TYPE_NO_FORCE_BLK (node))
     606                 :          0 :         fputs (" no-force-blk", file);
     607                 :            : 
     608                 :         10 :       if (code == ARRAY_TYPE && TYPE_STRING_FLAG (node))
     609                 :          0 :         fputs (" string-flag", file);
     610                 :            : 
     611                 :         10 :       if (TYPE_NEEDS_CONSTRUCTING (node))
     612                 :          0 :         fputs (" needs-constructing", file);
     613                 :            : 
     614                 :         10 :       if ((code == RECORD_TYPE
     615                 :            :            || code == UNION_TYPE
     616                 :            :            || code == QUAL_UNION_TYPE
     617                 :         10 :            || code == ARRAY_TYPE)
     618                 :         10 :           && TYPE_REVERSE_STORAGE_ORDER (node))
     619                 :          0 :         fputs (" reverse-storage-order", file);
     620                 :            : 
     621                 :         10 :       if ((code == RECORD_TYPE
     622                 :         10 :            || code == UNION_TYPE)
     623                 :         10 :           && TYPE_CXX_ODR_P (node))
     624                 :          0 :         fputs (" cxx-odr-p", file);
     625                 :            : 
     626                 :            :       /* The transparent-union flag is used for different things in
     627                 :            :          different nodes.  */
     628                 :         10 :       if ((code == UNION_TYPE || code == RECORD_TYPE)
     629                 :         10 :           && TYPE_TRANSPARENT_AGGR (node))
     630                 :          0 :         fputs (" transparent-aggr", file);
     631                 :         10 :       else if (code == ARRAY_TYPE
     632                 :         10 :                && TYPE_NONALIASED_COMPONENT (node))
     633                 :          0 :         fputs (" nonaliased-component", file);
     634                 :            : 
     635                 :         10 :       if (TYPE_PACKED (node))
     636                 :          0 :         fputs (" packed", file);
     637                 :            : 
     638                 :         10 :       if (TYPE_RESTRICT (node))
     639                 :          0 :         fputs (" restrict", file);
     640                 :            : 
     641                 :         10 :       if (TYPE_LANG_FLAG_0 (node))
     642                 :          0 :         fputs (" type_0", file);
     643                 :         10 :       if (TYPE_LANG_FLAG_1 (node))
     644                 :          0 :         fputs (" type_1", file);
     645                 :         10 :       if (TYPE_LANG_FLAG_2 (node))
     646                 :          0 :         fputs (" type_2", file);
     647                 :         10 :       if (TYPE_LANG_FLAG_3 (node))
     648                 :          0 :         fputs (" type_3", file);
     649                 :         10 :       if (TYPE_LANG_FLAG_4 (node))
     650                 :          0 :         fputs (" type_4", file);
     651                 :         10 :       if (TYPE_LANG_FLAG_5 (node))
     652                 :          0 :         fputs (" type_5", file);
     653                 :         10 :       if (TYPE_LANG_FLAG_6 (node))
     654                 :          0 :         fputs (" type_6", file);
     655                 :         10 :       if (TYPE_LANG_FLAG_7 (node))
     656                 :          0 :         fputs (" type_7", file);
     657                 :            : 
     658                 :         10 :       mode = TYPE_MODE (node);
     659                 :         10 :       fprintf (file, " %s", GET_MODE_NAME (mode));
     660                 :            : 
     661                 :         10 :       print_node (file, "size", TYPE_SIZE (node), indent + 4);
     662                 :         10 :       print_node (file, "unit-size", TYPE_SIZE_UNIT (node), indent + 4);
     663                 :         10 :       indent_to (file, indent + 3);
     664                 :            : 
     665                 :         10 :       if (TYPE_USER_ALIGN (node))
     666                 :          0 :         fprintf (file, " user");
     667                 :            : 
     668                 :         20 :       fprintf (file, " align:%d warn_if_not_align:%d symtab:%d alias-set "
     669                 :            :                HOST_WIDE_INT_PRINT_DEC,
     670                 :         10 :                TYPE_ALIGN (node), TYPE_WARN_IF_NOT_ALIGN (node),
     671                 :         10 :                TYPE_SYMTAB_ADDRESS (node),
     672                 :         10 :                (HOST_WIDE_INT) TYPE_ALIAS_SET (node));
     673                 :            : 
     674                 :         10 :       if (TYPE_STRUCTURAL_EQUALITY_P (node))
     675                 :          0 :         fprintf (file, " structural-equality");
     676                 :            :       else
     677                 :         10 :         dump_addr (file, " canonical-type ", TYPE_CANONICAL (node));
     678                 :            : 
     679                 :         10 :       print_node (file, "attributes", TYPE_ATTRIBUTES (node), indent + 4);
     680                 :            : 
     681                 :         10 :       if (INTEGRAL_TYPE_P (node) || code == REAL_TYPE
     682                 :          8 :           || code == FIXED_POINT_TYPE)
     683                 :            :         {
     684                 :          2 :           fprintf (file, " precision:%d", TYPE_PRECISION (node));
     685                 :          2 :           print_node_brief (file, "min", TYPE_MIN_VALUE (node), indent + 4);
     686                 :          2 :           print_node_brief (file, "max", TYPE_MAX_VALUE (node), indent + 4);
     687                 :            :         }
     688                 :            : 
     689                 :         10 :       if (code == ENUMERAL_TYPE)
     690                 :          0 :         print_node (file, "values", TYPE_VALUES (node), indent + 4);
     691                 :         10 :       else if (code == ARRAY_TYPE)
     692                 :          0 :         print_node (file, "domain", TYPE_DOMAIN (node), indent + 4);
     693                 :         10 :       else if (code == VECTOR_TYPE)
     694                 :            :         {
     695                 :          0 :           fprintf (file, " nunits:");
     696                 :          0 :           print_dec (TYPE_VECTOR_SUBPARTS (node), file);
     697                 :            :         }
     698                 :         10 :       else if (code == RECORD_TYPE
     699                 :            :                || code == UNION_TYPE
     700                 :            :                || code == QUAL_UNION_TYPE)
     701                 :          0 :         print_node (file, "fields", TYPE_FIELDS (node), indent + 4);
     702                 :         10 :       else if (code == FUNCTION_TYPE
     703                 :         10 :                || code == METHOD_TYPE)
     704                 :            :         {
     705                 :          4 :           if (TYPE_METHOD_BASETYPE (node))
     706                 :          0 :             print_node_brief (file, "method basetype",
     707                 :          0 :                               TYPE_METHOD_BASETYPE (node), indent + 4);
     708                 :          4 :           print_node (file, "arg-types", TYPE_ARG_TYPES (node), indent + 4);
     709                 :            :         }
     710                 :          6 :       else if (code == OFFSET_TYPE)
     711                 :          0 :         print_node_brief (file, "basetype", TYPE_OFFSET_BASETYPE (node),
     712                 :            :                           indent + 4);
     713                 :            : 
     714                 :         10 :       if (TYPE_CONTEXT (node))
     715                 :          0 :         print_node_brief (file, "context", TYPE_CONTEXT (node), indent + 4);
     716                 :            : 
     717                 :         10 :       lang_hooks.print_type (file, node, indent);
     718                 :            : 
     719                 :         10 :       if (TYPE_POINTER_TO (node) || TREE_CHAIN (node))
     720                 :         10 :         indent_to (file, indent + 3);
     721                 :            : 
     722                 :         10 :       print_node_brief (file, "pointer_to_this", TYPE_POINTER_TO (node),
     723                 :            :                         indent + 4);
     724                 :         10 :       print_node_brief (file, "reference_to_this", TYPE_REFERENCE_TO (node),
     725                 :            :                         indent + 4);
     726                 :         10 :       print_node_brief (file, "chain", TREE_CHAIN (node), indent + 4);
     727                 :         10 :       break;
     728                 :            : 
     729                 :          0 :     case tcc_expression:
     730                 :          0 :     case tcc_comparison:
     731                 :          0 :     case tcc_unary:
     732                 :          0 :     case tcc_binary:
     733                 :          0 :     case tcc_reference:
     734                 :          0 :     case tcc_statement:
     735                 :          0 :     case tcc_vl_exp:
     736                 :          0 :       if (code == BIND_EXPR)
     737                 :            :         {
     738                 :          0 :           print_node (file, "vars", TREE_OPERAND (node, 0), indent + 4);
     739                 :          0 :           print_node (file, "body", TREE_OPERAND (node, 1), indent + 4);
     740                 :          0 :           print_node (file, "block", TREE_OPERAND (node, 2), indent + 4);
     741                 :          0 :           break;
     742                 :            :         }
     743                 :          0 :       if (code == CALL_EXPR)
     744                 :            :         {
     745                 :          0 :           call_expr_arg_iterator iter;
     746                 :          0 :           tree arg;
     747                 :          0 :           print_node (file, "fn", CALL_EXPR_FN (node), indent + 4);
     748                 :          0 :           print_node (file, "static_chain", CALL_EXPR_STATIC_CHAIN (node),
     749                 :            :                       indent + 4);
     750                 :          0 :           i = 0;
     751                 :          0 :           FOR_EACH_CALL_EXPR_ARG (arg, iter, node)
     752                 :            :             {
     753                 :            :               /* Buffer big enough to format a 32-bit UINT_MAX into, plus
     754                 :            :                  the text.  */
     755                 :          0 :               char temp[15];
     756                 :          0 :               sprintf (temp, "arg:%u", i);
     757                 :          0 :               print_node (file, temp, arg, indent + 4);
     758                 :          0 :               i++;
     759                 :            :             }
     760                 :            :         }
     761                 :            :       else
     762                 :            :         {
     763                 :          0 :           len = TREE_OPERAND_LENGTH (node);
     764                 :            : 
     765                 :          0 :           for (i = 0; i < len; i++)
     766                 :            :             {
     767                 :            :               /* Buffer big enough to format a 32-bit UINT_MAX into, plus
     768                 :            :                  the text.  */
     769                 :          0 :               char temp[15];
     770                 :            : 
     771                 :          0 :               sprintf (temp, "arg:%d", i);
     772                 :          0 :               print_node (file, temp, TREE_OPERAND (node, i), indent + 4);
     773                 :            :             }
     774                 :            :         }
     775                 :          0 :       if (CODE_CONTAINS_STRUCT (code, TS_COMMON))
     776                 :          0 :         print_node (file, "chain", TREE_CHAIN (node), indent + 4);
     777                 :            :       break;
     778                 :            : 
     779                 :         36 :     case tcc_constant:
     780                 :         36 :     case tcc_exceptional:
     781                 :         36 :       switch (code)
     782                 :            :         {
     783                 :         32 :         case INTEGER_CST:
     784                 :         32 :           if (TREE_OVERFLOW (node))
     785                 :          0 :             fprintf (file, " overflow");
     786                 :            : 
     787                 :         32 :           fprintf (file, " ");
     788                 :         32 :           print_dec (wi::to_wide (node), file, TYPE_SIGN (TREE_TYPE (node)));
     789                 :         32 :           break;
     790                 :            : 
     791                 :          0 :         case REAL_CST:
     792                 :          0 :           print_real_cst (file, node, false);
     793                 :          0 :           break;
     794                 :            : 
     795                 :          0 :         case FIXED_CST:
     796                 :          0 :           {
     797                 :          0 :             FIXED_VALUE_TYPE f;
     798                 :          0 :             char string[64];
     799                 :            : 
     800                 :          0 :             if (TREE_OVERFLOW (node))
     801                 :          0 :               fprintf (file, " overflow");
     802                 :            : 
     803                 :          0 :             f = TREE_FIXED_CST (node);
     804                 :          0 :             fixed_to_decimal (string, &f, sizeof (string));
     805                 :          0 :             fprintf (file, " %s", string);
     806                 :            :           }
     807                 :          0 :           break;
     808                 :            : 
     809                 :          0 :         case VECTOR_CST:
     810                 :          0 :           {
     811                 :            :             /* Big enough for UINT_MAX plus the string below.  */
     812                 :          0 :             char buf[32];
     813                 :            : 
     814                 :          0 :             fprintf (file, " npatterns:%u nelts-per-pattern:%u",
     815                 :          0 :                      VECTOR_CST_NPATTERNS (node),
     816                 :          0 :                      VECTOR_CST_NELTS_PER_PATTERN (node));
     817                 :          0 :             unsigned int count = vector_cst_encoded_nelts (node);
     818                 :          0 :             for (unsigned int i = 0; i < count; ++i)
     819                 :            :               {
     820                 :          0 :                 sprintf (buf, "elt:%u: ", i);
     821                 :          0 :                 print_node (file, buf, VECTOR_CST_ENCODED_ELT (node, i),
     822                 :            :                             indent + 4);
     823                 :            :               }
     824                 :            :           }
     825                 :          0 :           break;
     826                 :            : 
     827                 :          0 :         case COMPLEX_CST:
     828                 :          0 :           print_node (file, "real", TREE_REALPART (node), indent + 4);
     829                 :          0 :           print_node (file, "imag", TREE_IMAGPART (node), indent + 4);
     830                 :          0 :           break;
     831                 :            : 
     832                 :          0 :         case STRING_CST:
     833                 :          0 :           {
     834                 :          0 :             const char *p = TREE_STRING_POINTER (node);
     835                 :          0 :             int i = TREE_STRING_LENGTH (node);
     836                 :          0 :             fputs (" \"", file);
     837                 :          0 :             while (--i >= 0)
     838                 :            :               {
     839                 :          0 :                 char ch = *p++;
     840                 :          0 :                 if (ch >= ' ' && ch < 127)
     841                 :          0 :                   putc (ch, file);
     842                 :            :                 else
     843                 :          0 :                   fprintf (file, "\\%03o", ch & 0xFF);
     844                 :            :               }
     845                 :          0 :             fputc ('\"', file);
     846                 :            :           }
     847                 :          0 :           break;
     848                 :            : 
     849                 :            :         case POLY_INT_CST:
     850                 :            :           {
     851                 :            :             char buf[10];
     852                 :          0 :             for (unsigned int i = 0; i < NUM_POLY_INT_COEFFS; ++i)
     853                 :            :               {
     854                 :          0 :                 snprintf (buf, sizeof (buf), "elt%u: ", i);
     855                 :          0 :                 print_node (file, buf, POLY_INT_CST_COEFF (node, i),
     856                 :            :                             indent + 4);
     857                 :            :               }
     858                 :            :           }
     859                 :          0 :           break;
     860                 :            : 
     861                 :          0 :         case IDENTIFIER_NODE:
     862                 :          0 :           lang_hooks.print_identifier (file, node, indent);
     863                 :          0 :           break;
     864                 :            : 
     865                 :          4 :         case TREE_LIST:
     866                 :          4 :           print_node (file, "purpose", TREE_PURPOSE (node), indent + 4);
     867                 :          4 :           print_node (file, "value", TREE_VALUE (node), indent + 4);
     868                 :          4 :           print_node (file, "chain", TREE_CHAIN (node), indent + 4);
     869                 :          4 :           break;
     870                 :            : 
     871                 :          0 :         case TREE_VEC:
     872                 :          0 :           len = TREE_VEC_LENGTH (node);
     873                 :          0 :           fprintf (file, " length:%d", len);
     874                 :          0 :           for (i = 0; i < len; i++)
     875                 :          0 :             if (TREE_VEC_ELT (node, i))
     876                 :            :               {
     877                 :            :               /* Buffer big enough to format a 32-bit UINT_MAX into, plus
     878                 :            :                  the text.  */
     879                 :          0 :                 char temp[15];
     880                 :          0 :                 sprintf (temp, "elt:%d", i);
     881                 :          0 :                 print_node (file, temp, TREE_VEC_ELT (node, i), indent + 4);
     882                 :            :               }
     883                 :            :           break;
     884                 :            : 
     885                 :          0 :         case CONSTRUCTOR:
     886                 :          0 :           {
     887                 :          0 :             unsigned HOST_WIDE_INT cnt;
     888                 :          0 :             tree index, value;
     889                 :          0 :             len = CONSTRUCTOR_NELTS (node);
     890                 :          0 :             fprintf (file, " length:%d", len);
     891                 :          0 :             FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (node),
     892                 :            :                                       cnt, index, value)
     893                 :            :               {
     894                 :          0 :                 print_node (file, "idx", index, indent + 4, false);
     895                 :          0 :                 print_node (file, "val", value, indent + 4, false);
     896                 :            :               }
     897                 :            :           }
     898                 :            :           break;
     899                 :            : 
     900                 :          0 :         case STATEMENT_LIST:
     901                 :          0 :           dump_addr (file, " head ", node->stmt_list.head);
     902                 :          0 :           dump_addr (file, " tail ", node->stmt_list.tail);
     903                 :          0 :           fprintf (file, " stmts");
     904                 :          0 :           {
     905                 :          0 :             tree_stmt_iterator i;
     906                 :          0 :             for (i = tsi_start (node); !tsi_end_p (i); tsi_next (&i))
     907                 :            :               {
     908                 :            :                 /* Not printing the addresses of the (not-a-tree)
     909                 :            :                    'struct tree_stmt_list_node's.  */
     910                 :          0 :                 dump_addr (file, " ", tsi_stmt (i));
     911                 :            :               }
     912                 :          0 :             fprintf (file, "\n");
     913                 :          0 :             for (i = tsi_start (node); !tsi_end_p (i); tsi_next (&i))
     914                 :            :               {
     915                 :            :                 /* Not printing the addresses of the (not-a-tree)
     916                 :            :                    'struct tree_stmt_list_node's.  */
     917                 :          0 :                 print_node (file, "stmt", tsi_stmt (i), indent + 4);
     918                 :            :               }
     919                 :            :           }
     920                 :          0 :           break;
     921                 :            : 
     922                 :          0 :         case BLOCK:
     923                 :          0 :           print_node (file, "vars", BLOCK_VARS (node), indent + 4);
     924                 :          0 :           print_node (file, "supercontext", BLOCK_SUPERCONTEXT (node),
     925                 :            :                       indent + 4);
     926                 :          0 :           print_node (file, "subblocks", BLOCK_SUBBLOCKS (node), indent + 4);
     927                 :          0 :           print_node (file, "chain", BLOCK_CHAIN (node), indent + 4);
     928                 :          0 :           print_node (file, "abstract_origin",
     929                 :          0 :                       BLOCK_ABSTRACT_ORIGIN (node), indent + 4);
     930                 :          0 :           break;
     931                 :            : 
     932                 :          0 :         case SSA_NAME:
     933                 :          0 :           print_node_brief (file, "var", SSA_NAME_VAR (node), indent + 4);
     934                 :          0 :           indent_to (file, indent + 4);
     935                 :          0 :           fprintf (file, "def_stmt ");
     936                 :          0 :           {
     937                 :          0 :             pretty_printer buffer;
     938                 :          0 :             buffer.buffer->stream = file;
     939                 :          0 :             pp_gimple_stmt_1 (&buffer, SSA_NAME_DEF_STMT (node), indent + 4,
     940                 :            :                               TDF_NONE);
     941                 :          0 :             pp_flush (&buffer);
     942                 :            :           }
     943                 :            : 
     944                 :          0 :           indent_to (file, indent + 4);
     945                 :          0 :           fprintf (file, "version:%u", SSA_NAME_VERSION (node));
     946                 :          0 :           if (SSA_NAME_OCCURS_IN_ABNORMAL_PHI (node))
     947                 :          0 :             fprintf (file, " in-abnormal-phi");
     948                 :          0 :           if (SSA_NAME_IN_FREE_LIST (node))
     949                 :          0 :             fprintf (file, " in-free-list");
     950                 :            : 
     951                 :          0 :           if (SSA_NAME_PTR_INFO (node))
     952                 :            :             {
     953                 :          0 :               indent_to (file, indent + 3);
     954                 :          0 :               if (SSA_NAME_PTR_INFO (node))
     955                 :          0 :                 dump_addr (file, " ptr-info ", SSA_NAME_PTR_INFO (node));
     956                 :            :             }
     957                 :            :           break;
     958                 :            : 
     959                 :          0 :         case OMP_CLAUSE:
     960                 :          0 :             {
     961                 :          0 :               int i;
     962                 :          0 :               fprintf (file, " %s",
     963                 :          0 :                        omp_clause_code_name[OMP_CLAUSE_CODE (node)]);
     964                 :          0 :               for (i = 0; i < omp_clause_num_ops[OMP_CLAUSE_CODE (node)]; i++)
     965                 :            :                 {
     966                 :          0 :                   indent_to (file, indent + 4);
     967                 :          0 :                   fprintf (file, "op-%d:", i);
     968                 :          0 :                   print_node_brief (file, "", OMP_CLAUSE_OPERAND (node, i), 0);
     969                 :            :                 }
     970                 :            :             }
     971                 :            :           break;
     972                 :            : 
     973                 :          0 :         case OPTIMIZATION_NODE:
     974                 :          0 :           cl_optimization_print (file, indent + 4, TREE_OPTIMIZATION (node));
     975                 :          0 :           break;
     976                 :            : 
     977                 :          0 :         case TARGET_OPTION_NODE:
     978                 :          0 :           cl_target_option_print (file, indent + 4, TREE_TARGET_OPTION (node));
     979                 :          0 :           break;
     980                 :          0 :         case IMPORTED_DECL:
     981                 :          0 :           fprintf (file, " imported-declaration");
     982                 :          0 :           print_node_brief (file, "associated-declaration",
     983                 :          0 :                             IMPORTED_DECL_ASSOCIATED_DECL (node),
     984                 :            :                             indent + 4);
     985                 :          0 :           break;
     986                 :            : 
     987                 :          0 :         case TREE_BINFO:
     988                 :          0 :           fprintf (file, " bases:%d",
     989                 :          0 :                    vec_safe_length (BINFO_BASE_BINFOS (node)));
     990                 :          0 :           print_node_brief (file, "offset", BINFO_OFFSET (node), indent + 4);
     991                 :          0 :           print_node_brief (file, "virtuals", BINFO_VIRTUALS (node),
     992                 :            :                             indent + 4);
     993                 :          0 :           print_node_brief (file, "inheritance-chain",
     994                 :          0 :                             BINFO_INHERITANCE_CHAIN (node),
     995                 :            :                             indent + 4);
     996                 :          0 :           break;
     997                 :            : 
     998                 :          0 :         default:
     999                 :          0 :           if (EXCEPTIONAL_CLASS_P (node))
    1000                 :          0 :             lang_hooks.print_xnode (file, node, indent);
    1001                 :            :           break;
    1002                 :            :         }
    1003                 :            : 
    1004                 :            :       break;
    1005                 :            :     }
    1006                 :            : 
    1007                 :         52 :   if (EXPR_HAS_LOCATION (node))
    1008                 :            :     {
    1009                 :          0 :       expanded_location xloc = expand_location (EXPR_LOCATION (node));
    1010                 :          0 :       indent_to (file, indent+4);
    1011                 :          0 :       fprintf (file, "%s:%d:%d", xloc.file, xloc.line, xloc.column);
    1012                 :            : 
    1013                 :            :       /* Print the range, if any */
    1014                 :          0 :       source_range r = EXPR_LOCATION_RANGE (node);
    1015                 :          0 :       if (r.m_start)
    1016                 :            :         {
    1017                 :          0 :           xloc = expand_location (r.m_start);
    1018                 :          0 :           fprintf (file, " start: %s:%d:%d", xloc.file, xloc.line, xloc.column);
    1019                 :            :         }
    1020                 :            :       else
    1021                 :            :         {
    1022                 :          0 :           fprintf (file, " start: unknown");
    1023                 :            :         }
    1024                 :          0 :       if (r.m_finish)
    1025                 :            :         {
    1026                 :          0 :           xloc = expand_location (r.m_finish);
    1027                 :          0 :           fprintf (file, " finish: %s:%d:%d", xloc.file, xloc.line, xloc.column);
    1028                 :            :         }
    1029                 :            :       else
    1030                 :            :         {
    1031                 :          0 :           fprintf (file, " finish: unknown");
    1032                 :            :         }
    1033                 :            :     }
    1034                 :            : 
    1035                 :         52 :   fprintf (file, ">");
    1036                 :            : }
    1037                 :            : 
    1038                 :            : /* Print the identifier for DECL according to FLAGS.  */
    1039                 :            : 
    1040                 :            : void
    1041                 :         19 : print_decl_identifier (FILE *file, tree decl, int flags)
    1042                 :            : {
    1043                 :         19 :   bool needs_colon = false;
    1044                 :         19 :   const char *name;
    1045                 :         19 :   char c;
    1046                 :            : 
    1047                 :         19 :   if (flags & PRINT_DECL_ORIGIN)
    1048                 :            :     {
    1049                 :         19 :       if (DECL_IS_BUILTIN (decl))
    1050                 :          0 :         fputs ("<built-in>", file);
    1051                 :            :       else
    1052                 :            :         {
    1053                 :         19 :           expanded_location loc
    1054                 :         19 :             = expand_location (DECL_SOURCE_LOCATION (decl));
    1055                 :         19 :           fprintf (file, "%s:%d:%d", loc.file, loc.line, loc.column);
    1056                 :            :         }
    1057                 :            :       needs_colon = true;
    1058                 :            :     }
    1059                 :            : 
    1060                 :         19 :   if (flags & PRINT_DECL_UNIQUE_NAME)
    1061                 :            :     {
    1062                 :          0 :       name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
    1063                 :          0 :       if (!TREE_PUBLIC (decl)
    1064                 :          0 :           || (DECL_WEAK (decl) && !DECL_EXTERNAL (decl)))
    1065                 :            :         /* The symbol has internal or weak linkage so its assembler name
    1066                 :            :            is not necessarily unique among the compilation units of the
    1067                 :            :            program.  We therefore have to further mangle it.  But we can't
    1068                 :            :            simply use DECL_SOURCE_FILE because it contains the name of the
    1069                 :            :            file the symbol originates from so, e.g. for function templates
    1070                 :            :            in C++ where the templates are defined in a header file, we can
    1071                 :            :            have symbols with the same assembler name and DECL_SOURCE_FILE.
    1072                 :            :            That's why we use the name of the top-level source file of the
    1073                 :            :            compilation unit.  ??? Unnecessary for Ada.  */
    1074                 :          0 :         name = ACONCAT ((main_input_filename, ":", name, NULL));
    1075                 :            :     }
    1076                 :         19 :   else if (flags & PRINT_DECL_NAME)
    1077                 :            :     {
    1078                 :            :       /* We don't want to print the full qualified name because it can be long,
    1079                 :            :          so we strip the scope prefix, but we may need to deal with the suffix
    1080                 :            :          created by the compiler.  */
    1081                 :         19 :       const char *suffix = strchr (IDENTIFIER_POINTER (DECL_NAME (decl)), '.');
    1082                 :         19 :       name = lang_hooks.decl_printable_name (decl, 2);
    1083                 :         19 :       if (suffix)
    1084                 :            :         {
    1085                 :          0 :           const char *dot = strchr (name, '.');
    1086                 :          0 :           while (dot && strcasecmp (dot, suffix) != 0)
    1087                 :            :             {
    1088                 :          0 :               name = dot + 1;
    1089                 :          0 :               dot = strchr (name, '.');
    1090                 :            :             }
    1091                 :            :         }
    1092                 :            :       else
    1093                 :            :         {
    1094                 :         19 :           const char *dot = strrchr (name, '.');
    1095                 :         19 :           if (dot)
    1096                 :          0 :             name = dot + 1;
    1097                 :            :         }
    1098                 :            :     }
    1099                 :            :   else
    1100                 :            :     return;
    1101                 :            : 
    1102                 :         19 :   if (needs_colon)
    1103                 :         19 :     fputc (':', file);
    1104                 :            : 
    1105                 :       1681 :   while ((c = *name++) != '\0')
    1106                 :            :     {
    1107                 :            :       /* Strip double-quotes because of VCG.  */
    1108                 :       1662 :       if (c == '"')
    1109                 :          0 :         continue;
    1110                 :       1662 :       fputc (c, file);
    1111                 :            :     }
    1112                 :            : }
    1113                 :            : 
    1114                 :            : 
    1115                 :            : /* Print the node NODE on standard error, for debugging.
    1116                 :            :    Most nodes referred to by this one are printed recursively
    1117                 :            :    down to a depth of six.  */
    1118                 :            : 
    1119                 :            : DEBUG_FUNCTION void
    1120                 :          0 : debug_tree (tree node)
    1121                 :            : {
    1122                 :          0 :   table = new hash_set<tree> (HASH_SIZE);
    1123                 :          0 :   print_node (stderr, "", node, 0);
    1124                 :          0 :   delete table;
    1125                 :          0 :   table = NULL;
    1126                 :          0 :   putc ('\n', stderr);
    1127                 :          0 : }
    1128                 :            : 
    1129                 :            : DEBUG_FUNCTION void
    1130                 :          0 : debug_raw (const tree_node &ref)
    1131                 :            : {
    1132                 :          0 :   debug_tree (const_cast <tree> (&ref));
    1133                 :          0 : }
    1134                 :            : 
    1135                 :            : DEBUG_FUNCTION void
    1136                 :          0 : debug_raw (const tree_node *ptr)
    1137                 :            : {
    1138                 :          0 :   if (ptr)
    1139                 :          0 :     debug_raw (*ptr);
    1140                 :            :   else
    1141                 :          0 :     fprintf (stderr, "<nil>\n");
    1142                 :          0 : }
    1143                 :            : 
    1144                 :            : static void
    1145                 :          0 : dump_tree_via_hooks (const tree_node *ptr, dump_flags_t options)
    1146                 :            : {
    1147                 :          0 :   if (DECL_P (ptr))
    1148                 :          0 :     lang_hooks.print_decl (stderr, const_cast <tree_node*> (ptr), 0);
    1149                 :          0 :   else if (TYPE_P (ptr))
    1150                 :          0 :     lang_hooks.print_type (stderr, const_cast <tree_node*> (ptr), 0);
    1151                 :          0 :   else if (TREE_CODE (ptr) == IDENTIFIER_NODE)
    1152                 :          0 :     lang_hooks.print_identifier (stderr, const_cast <tree_node*> (ptr), 0);
    1153                 :            :   else
    1154                 :          0 :     print_generic_expr (stderr, const_cast <tree_node*> (ptr), options);
    1155                 :          0 :   fprintf (stderr, "\n");
    1156                 :          0 : }
    1157                 :            : 
    1158                 :            : DEBUG_FUNCTION void
    1159                 :          0 : debug (const tree_node &ref)
    1160                 :            : {
    1161                 :          0 :   dump_tree_via_hooks (&ref, TDF_NONE);
    1162                 :          0 : }
    1163                 :            : 
    1164                 :            : DEBUG_FUNCTION void
    1165                 :          0 : debug (const tree_node *ptr)
    1166                 :            : {
    1167                 :          0 :   if (ptr)
    1168                 :          0 :     debug (*ptr);
    1169                 :            :   else
    1170                 :          0 :     fprintf (stderr, "<nil>\n");
    1171                 :          0 : }
    1172                 :            : 
    1173                 :            : DEBUG_FUNCTION void
    1174                 :          0 : debug_head (const tree_node &ref)
    1175                 :            : {
    1176                 :          0 :   debug (ref);
    1177                 :          0 : }
    1178                 :            : 
    1179                 :            : DEBUG_FUNCTION void
    1180                 :          0 : debug_head (const tree_node *ptr)
    1181                 :            : {
    1182                 :          0 :   if (ptr)
    1183                 :          0 :     debug_head (*ptr);
    1184                 :            :   else
    1185                 :          0 :     fprintf (stderr, "<nil>\n");
    1186                 :          0 : }
    1187                 :            : 
    1188                 :            : DEBUG_FUNCTION void
    1189                 :          0 : debug_body (const tree_node &ref)
    1190                 :            : {
    1191                 :          0 :   if (TREE_CODE (&ref) == FUNCTION_DECL)
    1192                 :          0 :     dump_function_to_file (const_cast <tree_node*> (&ref), stderr, TDF_NONE);
    1193                 :            :   else
    1194                 :          0 :     debug (ref);
    1195                 :          0 : }
    1196                 :            : 
    1197                 :            : DEBUG_FUNCTION void
    1198                 :          0 : debug_body (const tree_node *ptr)
    1199                 :            : {
    1200                 :          0 :   if (ptr)
    1201                 :          0 :     debug_body (*ptr);
    1202                 :            :   else
    1203                 :          0 :     fprintf (stderr, "<nil>\n");
    1204                 :          0 : }
    1205                 :            : 
    1206                 :            : /* Print the vector of trees VEC on standard error, for debugging.
    1207                 :            :    Most nodes referred to by this one are printed recursively
    1208                 :            :    down to a depth of six.  */
    1209                 :            : 
    1210                 :            : DEBUG_FUNCTION void
    1211                 :          0 : debug_raw (vec<tree, va_gc> &ref)
    1212                 :            : {
    1213                 :          0 :   tree elt;
    1214                 :          0 :   unsigned ix;
    1215                 :            : 
    1216                 :            :   /* Print the slot this node is in, and its code, and address.  */
    1217                 :          0 :   fprintf (stderr, "<VEC");
    1218                 :          0 :   dump_addr (stderr, " ", ref.address ());
    1219                 :            : 
    1220                 :          0 :   FOR_EACH_VEC_ELT (ref, ix, elt)
    1221                 :            :     {
    1222                 :          0 :       fprintf (stderr, "elt:%d ", ix);
    1223                 :          0 :       debug_raw (elt);
    1224                 :            :     }
    1225                 :          0 : }
    1226                 :            : 
    1227                 :            : DEBUG_FUNCTION void
    1228                 :          0 : debug_raw (vec<tree, va_gc> *ptr)
    1229                 :            : {
    1230                 :          0 :   if (ptr)
    1231                 :          0 :     debug_raw (*ptr);
    1232                 :            :   else
    1233                 :          0 :     fprintf (stderr, "<nil>\n");
    1234                 :          0 : }
    1235                 :            : 
    1236                 :            : static void
    1237                 :          0 : debug_slim (tree t)
    1238                 :            : {
    1239                 :          0 :   print_node_brief (stderr, "", t, 0);
    1240                 :          0 : }
    1241                 :            : 
    1242                 :          0 : DEFINE_DEBUG_VEC (tree)
    1243                 :          0 : DEFINE_DEBUG_HASH_SET (tree)

Generated by: LCOV version 1.0

LCOV profile is generated on x86_64 machine using following configure options: configure --disable-bootstrap --enable-coverage=opt --enable-languages=c,c++,fortran,go,jit,lto --enable-host-shared. GCC test suite is run with the built compiler.