LCOV - code coverage report
Current view: top level - gcc - varasm.c (source / functions) Hit Total Coverage
Test: gcc.info Lines: 2616 3308 79.1 %
Date: 2020-04-04 11:58:09 Functions: 165 213 77.5 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 0 0 -

           Branch data     Line data    Source code
       1                 :            : /* Output variables, constants and external declarations, for GNU compiler.
       2                 :            :    Copyright (C) 1987-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                 :            : /* This file handles generation of all the assembler code
      22                 :            :    *except* the instructions of a function.
      23                 :            :    This includes declarations of variables and their initial values.
      24                 :            : 
      25                 :            :    We also output the assembler code for constants stored in memory
      26                 :            :    and are responsible for combining constants with the same value.  */
      27                 :            : 
      28                 :            : #include "config.h"
      29                 :            : #include "system.h"
      30                 :            : #include "coretypes.h"
      31                 :            : #include "backend.h"
      32                 :            : #include "target.h"
      33                 :            : #include "rtl.h"
      34                 :            : #include "tree.h"
      35                 :            : #include "predict.h"
      36                 :            : #include "memmodel.h"
      37                 :            : #include "tm_p.h"
      38                 :            : #include "stringpool.h"
      39                 :            : #include "regs.h"
      40                 :            : #include "emit-rtl.h"
      41                 :            : #include "cgraph.h"
      42                 :            : #include "diagnostic-core.h"
      43                 :            : #include "fold-const.h"
      44                 :            : #include "stor-layout.h"
      45                 :            : #include "varasm.h"
      46                 :            : #include "flags.h"
      47                 :            : #include "stmt.h"
      48                 :            : #include "expr.h"
      49                 :            : #include "expmed.h"
      50                 :            : #include "optabs.h"
      51                 :            : #include "output.h"
      52                 :            : #include "langhooks.h"
      53                 :            : #include "debug.h"
      54                 :            : #include "common/common-target.h"
      55                 :            : #include "stringpool.h"
      56                 :            : #include "attribs.h"
      57                 :            : #include "asan.h"
      58                 :            : #include "rtl-iter.h"
      59                 :            : #include "file-prefix-map.h" /* remap_debug_filename()  */
      60                 :            : 
      61                 :            : #ifdef XCOFF_DEBUGGING_INFO
      62                 :            : #include "xcoffout.h"         /* Needed for external data declarations.  */
      63                 :            : #endif
      64                 :            : 
      65                 :            : /* The (assembler) name of the first globally-visible object output.  */
      66                 :            : extern GTY(()) const char *first_global_object_name;
      67                 :            : extern GTY(()) const char *weak_global_object_name;
      68                 :            : 
      69                 :            : const char *first_global_object_name;
      70                 :            : const char *weak_global_object_name;
      71                 :            : 
      72                 :            : class addr_const;
      73                 :            : class constant_descriptor_rtx;
      74                 :            : struct rtx_constant_pool;
      75                 :            : 
      76                 :            : #define n_deferred_constants (crtl->varasm.deferred_constants)
      77                 :            : 
      78                 :            : /* Number for making the label on the next
      79                 :            :    constant that is stored in memory.  */
      80                 :            : 
      81                 :            : static GTY(()) int const_labelno;
      82                 :            : 
      83                 :            : /* Carry information from ASM_DECLARE_OBJECT_NAME
      84                 :            :    to ASM_FINISH_DECLARE_OBJECT.  */
      85                 :            : 
      86                 :            : int size_directive_output;
      87                 :            : 
      88                 :            : /* The last decl for which assemble_variable was called,
      89                 :            :    if it did ASM_DECLARE_OBJECT_NAME.
      90                 :            :    If the last call to assemble_variable didn't do that,
      91                 :            :    this holds 0.  */
      92                 :            : 
      93                 :            : tree last_assemble_variable_decl;
      94                 :            : 
      95                 :            : /* The following global variable indicates if the first basic block
      96                 :            :    in a function belongs to the cold partition or not.  */
      97                 :            : 
      98                 :            : bool first_function_block_is_cold;
      99                 :            : 
     100                 :            : /* Whether we saw any functions with no_split_stack.  */
     101                 :            : 
     102                 :            : static bool saw_no_split_stack;
     103                 :            : 
     104                 :            : static const char *strip_reg_name (const char *);
     105                 :            : static int contains_pointers_p (tree);
     106                 :            : #ifdef ASM_OUTPUT_EXTERNAL
     107                 :            : static bool incorporeal_function_p (tree);
     108                 :            : #endif
     109                 :            : static void decode_addr_const (tree, class addr_const *);
     110                 :            : static hashval_t const_hash_1 (const tree);
     111                 :            : static int compare_constant (const tree, const tree);
     112                 :            : static void output_constant_def_contents (rtx);
     113                 :            : static void output_addressed_constants (tree);
     114                 :            : static unsigned HOST_WIDE_INT output_constant (tree, unsigned HOST_WIDE_INT,
     115                 :            :                                                unsigned int, bool, bool);
     116                 :            : static void globalize_decl (tree);
     117                 :            : static bool decl_readonly_section_1 (enum section_category);
     118                 :            : #ifdef BSS_SECTION_ASM_OP
     119                 :            : #ifdef ASM_OUTPUT_ALIGNED_BSS
     120                 :            : static void asm_output_aligned_bss (FILE *, tree, const char *,
     121                 :            :                                     unsigned HOST_WIDE_INT, int)
     122                 :            :      ATTRIBUTE_UNUSED;
     123                 :            : #endif
     124                 :            : #endif /* BSS_SECTION_ASM_OP */
     125                 :            : static void mark_weak (tree);
     126                 :            : static void output_constant_pool (const char *, tree);
     127                 :            : static void handle_vtv_comdat_section (section *, const_tree);
     128                 :            : 
     129                 :            : /* Well-known sections, each one associated with some sort of *_ASM_OP.  */
     130                 :            : section *text_section;
     131                 :            : section *data_section;
     132                 :            : section *readonly_data_section;
     133                 :            : section *sdata_section;
     134                 :            : section *ctors_section;
     135                 :            : section *dtors_section;
     136                 :            : section *bss_section;
     137                 :            : section *sbss_section;
     138                 :            : 
     139                 :            : /* Various forms of common section.  All are guaranteed to be nonnull.  */
     140                 :            : section *tls_comm_section;
     141                 :            : section *comm_section;
     142                 :            : section *lcomm_section;
     143                 :            : 
     144                 :            : /* A SECTION_NOSWITCH section used for declaring global BSS variables.
     145                 :            :    May be null.  */
     146                 :            : section *bss_noswitch_section;
     147                 :            : 
     148                 :            : /* The section that holds the main exception table, when known.  The section
     149                 :            :    is set either by the target's init_sections hook or by the first call to
     150                 :            :    switch_to_exception_section.  */
     151                 :            : section *exception_section;
     152                 :            : 
     153                 :            : /* The section that holds the DWARF2 frame unwind information, when known.
     154                 :            :    The section is set either by the target's init_sections hook or by the
     155                 :            :    first call to switch_to_eh_frame_section.  */
     156                 :            : section *eh_frame_section;
     157                 :            : 
     158                 :            : /* asm_out_file's current section.  This is NULL if no section has yet
     159                 :            :    been selected or if we lose track of what the current section is.  */
     160                 :            : section *in_section;
     161                 :            : 
     162                 :            : /* True if code for the current function is currently being directed
     163                 :            :    at the cold section.  */
     164                 :            : bool in_cold_section_p;
     165                 :            : 
     166                 :            : /* The following global holds the "function name" for the code in the
     167                 :            :    cold section of a function, if hot/cold function splitting is enabled
     168                 :            :    and there was actually code that went into the cold section.  A
     169                 :            :    pseudo function name is needed for the cold section of code for some
     170                 :            :    debugging tools that perform symbolization. */
     171                 :            : tree cold_function_name = NULL_TREE;
     172                 :            : 
     173                 :            : /* A linked list of all the unnamed sections.  */
     174                 :            : static GTY(()) section *unnamed_sections;
     175                 :            : 
     176                 :            : /* Return a nonzero value if DECL has a section attribute.  */
     177                 :            : #define IN_NAMED_SECTION(DECL) \
     178                 :            :   (VAR_OR_FUNCTION_DECL_P (DECL) && DECL_SECTION_NAME (DECL) != NULL)
     179                 :            : 
     180                 :            : struct section_hasher : ggc_ptr_hash<section>
     181                 :            : {
     182                 :            :   typedef const char *compare_type;
     183                 :            : 
     184                 :            :   static hashval_t hash (section *);
     185                 :            :   static bool equal (section *, const char *);
     186                 :            : };
     187                 :            : 
     188                 :            : /* Hash table of named sections.  */
     189                 :            : static GTY(()) hash_table<section_hasher> *section_htab;
     190                 :            : 
     191                 :            : struct object_block_hasher : ggc_ptr_hash<object_block>
     192                 :            : {
     193                 :            :   typedef const section *compare_type;
     194                 :            : 
     195                 :            :   static hashval_t hash (object_block *);
     196                 :            :   static bool equal (object_block *, const section *);
     197                 :            : };
     198                 :            : 
     199                 :            : /* A table of object_blocks, indexed by section.  */
     200                 :            : static GTY(()) hash_table<object_block_hasher> *object_block_htab;
     201                 :            : 
     202                 :            : /* The next number to use for internal anchor labels.  */
     203                 :            : static GTY(()) int anchor_labelno;
     204                 :            : 
     205                 :            : /* A pool of constants that can be shared between functions.  */
     206                 :            : static GTY(()) struct rtx_constant_pool *shared_constant_pool;
     207                 :            : 
     208                 :            : /* Helper routines for maintaining section_htab.  */
     209                 :            : 
     210                 :            : bool
     211                 :  215156000 : section_hasher::equal (section *old, const char *new_name)
     212                 :            : {
     213                 :  215156000 :   return strcmp (old->named.name, new_name) == 0;
     214                 :            : }
     215                 :            : 
     216                 :            : hashval_t
     217                 :  156035000 : section_hasher::hash (section *old)
     218                 :            : {
     219                 :  156035000 :   return htab_hash_string (old->named.name);
     220                 :            : }
     221                 :            : 
     222                 :            : /* Return a hash value for section SECT.  */
     223                 :            : 
     224                 :            : static hashval_t
     225                 :          0 : hash_section (section *sect)
     226                 :            : {
     227                 :          0 :   if (sect->common.flags & SECTION_NAMED)
     228                 :          0 :     return htab_hash_string (sect->named.name);
     229                 :          0 :   return sect->common.flags & ~SECTION_DECLARED;
     230                 :            : }
     231                 :            : 
     232                 :            : /* Helper routines for maintaining object_block_htab.  */
     233                 :            : 
     234                 :            : inline bool
     235                 :          0 : object_block_hasher::equal (object_block *old, const section *new_section)
     236                 :            : {
     237                 :          0 :   return old->sect == new_section;
     238                 :            : }
     239                 :            : 
     240                 :            : hashval_t
     241                 :          0 : object_block_hasher::hash (object_block *old)
     242                 :            : {
     243                 :          0 :   return hash_section (old->sect);
     244                 :            : }
     245                 :            : 
     246                 :            : /* Return a new unnamed section with the given fields.  */
     247                 :            : 
     248                 :            : section *
     249                 :     794332 : get_unnamed_section (unsigned int flags, void (*callback) (const void *),
     250                 :            :                      const void *data)
     251                 :            : {
     252                 :     794332 :   section *sect;
     253                 :            : 
     254                 :     794332 :   sect = ggc_alloc<section> ();
     255                 :     794332 :   sect->unnamed.common.flags = flags | SECTION_UNNAMED;
     256                 :     794332 :   sect->unnamed.callback = callback;
     257                 :     794332 :   sect->unnamed.data = data;
     258                 :     794332 :   sect->unnamed.next = unnamed_sections;
     259                 :            : 
     260                 :     794332 :   unnamed_sections = sect;
     261                 :     794332 :   return sect;
     262                 :            : }
     263                 :            : 
     264                 :            : /* Return a SECTION_NOSWITCH section with the given fields.  */
     265                 :            : 
     266                 :            : static section *
     267                 :     794332 : get_noswitch_section (unsigned int flags, noswitch_section_callback callback)
     268                 :            : {
     269                 :     794332 :   section *sect;
     270                 :            : 
     271                 :          0 :   sect = ggc_alloc<section> ();
     272                 :     794332 :   sect->noswitch.common.flags = flags | SECTION_NOSWITCH;
     273                 :     794332 :   sect->noswitch.callback = callback;
     274                 :            : 
     275                 :     794332 :   return sect;
     276                 :            : }
     277                 :            : 
     278                 :            : /* Return the named section structure associated with NAME.  Create
     279                 :            :    a new section with the given fields if no such structure exists.  */
     280                 :            : 
     281                 :            : section *
     282                 :   36862100 : get_section (const char *name, unsigned int flags, tree decl)
     283                 :            : {
     284                 :   36862100 :   section *sect, **slot;
     285                 :            : 
     286                 :   36862100 :   slot = section_htab->find_slot_with_hash (name, htab_hash_string (name),
     287                 :            :                                             INSERT);
     288                 :   36862100 :   flags |= SECTION_NAMED;
     289                 :   36862100 :   if (*slot == NULL)
     290                 :            :     {
     291                 :    2568500 :       sect = ggc_alloc<section> ();
     292                 :    2568500 :       sect->named.common.flags = flags;
     293                 :    2568500 :       sect->named.name = ggc_strdup (name);
     294                 :    2568500 :       sect->named.decl = decl;
     295                 :    2568500 :       *slot = sect;
     296                 :            :     }
     297                 :            :   else
     298                 :            :     {
     299                 :   34293600 :       sect = *slot;
     300                 :            :       /* It is fine if one of the sections has SECTION_NOTYPE as long as
     301                 :            :          the other has none of the contrary flags (see the logic at the end
     302                 :            :          of default_section_type_flags, below).  */
     303                 :   34293600 :       if (((sect->common.flags ^ flags) & SECTION_NOTYPE)
     304                 :          3 :           && !((sect->common.flags | flags)
     305                 :          3 :                & (SECTION_CODE | SECTION_BSS | SECTION_TLS | SECTION_ENTSIZE
     306                 :            :                   | (HAVE_COMDAT_GROUP ? SECTION_LINKONCE : 0))))
     307                 :            :         {
     308                 :          1 :           sect->common.flags |= SECTION_NOTYPE;
     309                 :          1 :           flags |= SECTION_NOTYPE;
     310                 :            :         }
     311                 :   34293600 :       if ((sect->common.flags & ~SECTION_DECLARED) != flags
     312                 :         14 :           && ((sect->common.flags | flags) & SECTION_OVERRIDE) == 0)
     313                 :            :         {
     314                 :            :           /* It is fine if one of the section flags is
     315                 :            :              SECTION_WRITE | SECTION_RELRO and the other has none of these
     316                 :            :              flags (i.e. read-only) in named sections and either the
     317                 :            :              section hasn't been declared yet or has been declared as writable.
     318                 :            :              In that case just make sure the resulting flags are
     319                 :            :              SECTION_WRITE | SECTION_RELRO, ie. writable only because of
     320                 :            :              relocations.  */
     321                 :         10 :           if (((sect->common.flags ^ flags) & (SECTION_WRITE | SECTION_RELRO))
     322                 :            :               == (SECTION_WRITE | SECTION_RELRO)
     323                 :          8 :               && (sect->common.flags
     324                 :          8 :                   & ~(SECTION_DECLARED | SECTION_WRITE | SECTION_RELRO))
     325                 :          8 :                  == (flags & ~(SECTION_WRITE | SECTION_RELRO))
     326                 :          8 :               && ((sect->common.flags & SECTION_DECLARED) == 0
     327                 :          8 :                   || (sect->common.flags & SECTION_WRITE)))
     328                 :            :             {
     329                 :          8 :               sect->common.flags |= (SECTION_WRITE | SECTION_RELRO);
     330                 :          8 :               return sect;
     331                 :            :             }
     332                 :            :           /* Sanity check user variables for flag changes.  */
     333                 :          2 :           if (sect->named.decl != NULL
     334                 :          2 :               && DECL_P (sect->named.decl)
     335                 :          2 :               && decl != sect->named.decl)
     336                 :            :             {
     337                 :          2 :               if (decl != NULL && DECL_P (decl))
     338                 :          2 :                 error ("%+qD causes a section type conflict with %qD",
     339                 :            :                        decl, sect->named.decl);
     340                 :            :               else
     341                 :          0 :                 error ("section type conflict with %qD", sect->named.decl);
     342                 :          2 :               inform (DECL_SOURCE_LOCATION (sect->named.decl),
     343                 :            :                       "%qD was declared here", sect->named.decl);
     344                 :            :             }
     345                 :          0 :           else if (decl != NULL && DECL_P (decl))
     346                 :          0 :             error ("%+qD causes a section type conflict", decl);
     347                 :            :           else
     348                 :          0 :             error ("section type conflict");
     349                 :            :           /* Make sure we don't error about one section multiple times.  */
     350                 :          2 :           sect->common.flags |= SECTION_OVERRIDE;
     351                 :            :         }
     352                 :            :     }
     353                 :            :   return sect;
     354                 :            : }
     355                 :            : 
     356                 :            : /* Return true if the current compilation mode benefits from having
     357                 :            :    objects grouped into blocks.  */
     358                 :            : 
     359                 :            : static bool
     360                 :    7436820 : use_object_blocks_p (void)
     361                 :            : {
     362                 :    7436820 :   return flag_section_anchors;
     363                 :            : }
     364                 :            : 
     365                 :            : /* Return the object_block structure for section SECT.  Create a new
     366                 :            :    structure if we haven't created one already.  Return null if SECT
     367                 :            :    itself is null.  Return also null for mergeable sections since
     368                 :            :    section anchors can't be used in mergeable sections anyway,
     369                 :            :    because the linker might move objects around, and using the
     370                 :            :    object blocks infrastructure in that case is both a waste and a
     371                 :            :    maintenance burden.  */
     372                 :            : 
     373                 :            : static struct object_block *
     374                 :          0 : get_block_for_section (section *sect)
     375                 :            : {
     376                 :          0 :   struct object_block *block;
     377                 :            : 
     378                 :          0 :   if (sect == NULL)
     379                 :            :     return NULL;
     380                 :            : 
     381                 :          0 :   if (sect->common.flags & SECTION_MERGE)
     382                 :            :     return NULL;
     383                 :            : 
     384                 :          0 :   object_block **slot
     385                 :          0 :     = object_block_htab->find_slot_with_hash (sect, hash_section (sect),
     386                 :            :                                               INSERT);
     387                 :          0 :   block = *slot;
     388                 :          0 :   if (block == NULL)
     389                 :            :     {
     390                 :          0 :       block = ggc_cleared_alloc<object_block> ();
     391                 :          0 :       block->sect = sect;
     392                 :          0 :       *slot = block;
     393                 :            :     }
     394                 :            :   return block;
     395                 :            : }
     396                 :            : 
     397                 :            : /* Create a symbol with label LABEL and place it at byte offset
     398                 :            :    OFFSET in BLOCK.  OFFSET can be negative if the symbol's offset
     399                 :            :    is not yet known.  LABEL must be a garbage-collected string.  */
     400                 :            : 
     401                 :            : static rtx
     402                 :          0 : create_block_symbol (const char *label, struct object_block *block,
     403                 :            :                      HOST_WIDE_INT offset)
     404                 :            : {
     405                 :          0 :   rtx symbol;
     406                 :          0 :   unsigned int size;
     407                 :            : 
     408                 :            :   /* Create the extended SYMBOL_REF.  */
     409                 :          0 :   size = RTX_HDR_SIZE + sizeof (struct block_symbol);
     410                 :          0 :   symbol = (rtx) ggc_internal_alloc (size);
     411                 :            : 
     412                 :            :   /* Initialize the normal SYMBOL_REF fields.  */
     413                 :          0 :   memset (symbol, 0, size);
     414                 :          0 :   PUT_CODE (symbol, SYMBOL_REF);
     415                 :          0 :   PUT_MODE (symbol, Pmode);
     416                 :          0 :   XSTR (symbol, 0) = label;
     417                 :          0 :   SYMBOL_REF_FLAGS (symbol) = SYMBOL_FLAG_HAS_BLOCK_INFO;
     418                 :            : 
     419                 :            :   /* Initialize the block_symbol stuff.  */
     420                 :          0 :   SYMBOL_REF_BLOCK (symbol) = block;
     421                 :          0 :   SYMBOL_REF_BLOCK_OFFSET (symbol) = offset;
     422                 :            : 
     423                 :          0 :   return symbol;
     424                 :            : }
     425                 :            : 
     426                 :            : /* Return a section with a particular name and with whatever SECTION_*
     427                 :            :    flags section_type_flags deems appropriate.  The name of the section
     428                 :            :    is taken from NAME if nonnull, otherwise it is taken from DECL's
     429                 :            :    DECL_SECTION_NAME.  DECL is the decl associated with the section
     430                 :            :    (see the section comment for details) and RELOC is as for
     431                 :            :    section_type_flags.  */
     432                 :            : 
     433                 :            : section *
     434                 :   35520400 : get_named_section (tree decl, const char *name, int reloc)
     435                 :            : {
     436                 :   35520400 :   unsigned int flags;
     437                 :            : 
     438                 :   35520400 :   if (name == NULL)
     439                 :            :     {
     440                 :   31442300 :       gcc_assert (decl && DECL_P (decl) && DECL_SECTION_NAME (decl));
     441                 :   31442300 :       name = DECL_SECTION_NAME (decl);
     442                 :            :     }
     443                 :            : 
     444                 :   35520400 :   flags = targetm.section_type_flags (decl, name, reloc);
     445                 :   35520400 :   return get_section (name, flags, decl);
     446                 :            : }
     447                 :            : 
     448                 :            : /* Worker for resolve_unique_section.  */
     449                 :            : 
     450                 :            : static bool
     451                 :    1539830 : set_implicit_section (struct symtab_node *n, void *data ATTRIBUTE_UNUSED)
     452                 :            : {
     453                 :    1539830 :   n->implicit_section = true;
     454                 :    1539830 :   return false;
     455                 :            : }
     456                 :            : 
     457                 :            : /* If required, set DECL_SECTION_NAME to a unique name.  */
     458                 :            : 
     459                 :            : void
     460                 :    5926100 : resolve_unique_section (tree decl, int reloc ATTRIBUTE_UNUSED,
     461                 :            :                         int flag_function_or_data_sections)
     462                 :            : {
     463                 :    5926100 :   if (DECL_SECTION_NAME (decl) == NULL
     464                 :    3550720 :       && targetm_common.have_named_sections
     465                 :    9476810 :       && (flag_function_or_data_sections
     466                 :    2146460 :           || DECL_COMDAT_GROUP (decl)))
     467                 :            :     {
     468                 :    1505850 :       targetm.asm_out.unique_section (decl, reloc);
     469                 :    1505850 :       if (DECL_SECTION_NAME (decl))
     470                 :    1505850 :         symtab_node::get (decl)->call_for_symbol_and_aliases
     471                 :    1505850 :           (set_implicit_section, NULL, true);
     472                 :            :     }
     473                 :    5926100 : }
     474                 :            : 
     475                 :            : #ifdef BSS_SECTION_ASM_OP
     476                 :            : 
     477                 :            : #ifdef ASM_OUTPUT_ALIGNED_BSS
     478                 :            : 
     479                 :            : /* Utility function for targets to use in implementing
     480                 :            :    ASM_OUTPUT_ALIGNED_BSS.
     481                 :            :    ??? It is believed that this function will work in most cases so such
     482                 :            :    support is localized here.  */
     483                 :            : 
     484                 :            : static void
     485                 :          0 : asm_output_aligned_bss (FILE *file, tree decl ATTRIBUTE_UNUSED,
     486                 :            :                         const char *name, unsigned HOST_WIDE_INT size,
     487                 :            :                         int align)
     488                 :            : {
     489                 :          0 :   switch_to_section (bss_section);
     490                 :          0 :   ASM_OUTPUT_ALIGN (file, floor_log2 (align / BITS_PER_UNIT));
     491                 :            : #ifdef ASM_DECLARE_OBJECT_NAME
     492                 :          0 :   last_assemble_variable_decl = decl;
     493                 :          0 :   ASM_DECLARE_OBJECT_NAME (file, name, decl);
     494                 :            : #else
     495                 :            :   /* Standard thing is just output label for the object.  */
     496                 :            :   ASM_OUTPUT_LABEL (file, name);
     497                 :            : #endif /* ASM_DECLARE_OBJECT_NAME */
     498                 :          0 :   ASM_OUTPUT_SKIP (file, size ? size : 1);
     499                 :          0 : }
     500                 :            : 
     501                 :            : #endif
     502                 :            : 
     503                 :            : #endif /* BSS_SECTION_ASM_OP */
     504                 :            : 
     505                 :            : #ifndef USE_SELECT_SECTION_FOR_FUNCTIONS
     506                 :            : /* Return the hot section for function DECL.  Return text_section for
     507                 :            :    null DECLs.  */
     508                 :            : 
     509                 :            : static section *
     510                 :   46612000 : hot_function_section (tree decl)
     511                 :            : {
     512                 :   46612000 :   if (decl != NULL_TREE
     513                 :   46612000 :       && DECL_SECTION_NAME (decl) != NULL
     514                 :   75599000 :       && targetm_common.have_named_sections)
     515                 :   28987000 :     return get_named_section (decl, NULL, 0);
     516                 :            :   else
     517                 :   17625000 :     return text_section;
     518                 :            : }
     519                 :            : #endif
     520                 :            : 
     521                 :            : /* Return section for TEXT_SECTION_NAME if DECL or DECL_SECTION_NAME (DECL)
     522                 :            :    is NULL.
     523                 :            : 
     524                 :            :    When DECL_SECTION_NAME is non-NULL and it is implicit section and
     525                 :            :    NAMED_SECTION_SUFFIX is non-NULL, then produce section called
     526                 :            :    concatenate the name with NAMED_SECTION_SUFFIX.
     527                 :            :    Otherwise produce "TEXT_SECTION_NAME.IMPLICIT_NAME".  */
     528                 :            : 
     529                 :            : section *
     530                 :    4073970 : get_named_text_section (tree decl,
     531                 :            :                         const char *text_section_name,
     532                 :            :                         const char *named_section_suffix)
     533                 :            : {
     534                 :    4073970 :   if (decl && DECL_SECTION_NAME (decl))
     535                 :            :     {
     536                 :    3346010 :       if (named_section_suffix)
     537                 :            :         {
     538                 :          0 :           const char *dsn = DECL_SECTION_NAME (decl);
     539                 :          0 :           const char *stripped_name;
     540                 :          0 :           char *name, *buffer;
     541                 :            : 
     542                 :          0 :           name = (char *) alloca (strlen (dsn) + 1);
     543                 :          0 :           memcpy (name, dsn,
     544                 :          0 :                   strlen (dsn) + 1);
     545                 :            : 
     546                 :          0 :           stripped_name = targetm.strip_name_encoding (name);
     547                 :            : 
     548                 :          0 :           buffer = ACONCAT ((stripped_name, named_section_suffix, NULL));
     549                 :          0 :           return get_named_section (decl, buffer, 0);
     550                 :            :         }
     551                 :    3346010 :       else if (symtab_node::get (decl)->implicit_section)
     552                 :            :         {
     553                 :    3345990 :           const char *name;
     554                 :            : 
     555                 :            :           /* Do not try to split gnu_linkonce functions.  This gets somewhat
     556                 :            :              slipperly.  */
     557                 :    3345990 :           if (DECL_COMDAT_GROUP (decl) && !HAVE_COMDAT_GROUP)
     558                 :            :             return NULL;
     559                 :    3345990 :           name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
     560                 :    3345990 :           name = targetm.strip_name_encoding (name);
     561                 :    3345990 :           return get_named_section (decl, ACONCAT ((text_section_name, ".",
     562                 :    3345990 :                                                    name, NULL)), 0);
     563                 :            :         }
     564                 :            :       else
     565                 :            :         return NULL;
     566                 :            :     }
     567                 :     727959 :   return get_named_section (decl, text_section_name, 0);
     568                 :            : }
     569                 :            : 
     570                 :            : /* Choose named function section based on its frequency.  */
     571                 :            : 
     572                 :            : section *
     573                 :   50686000 : default_function_section (tree decl, enum node_frequency freq,
     574                 :            :                           bool startup, bool exit)
     575                 :            : {
     576                 :            : #if defined HAVE_LD_EH_GC_SECTIONS && defined HAVE_LD_EH_GC_SECTIONS_BUG
     577                 :            :   /* Old GNU linkers have buggy --gc-section support, which sometimes
     578                 :            :      results in .gcc_except_table* sections being garbage collected.  */
     579                 :            :   if (decl
     580                 :            :       && symtab_node::get (decl)->implicit_section)
     581                 :            :     return NULL;
     582                 :            : #endif
     583                 :            : 
     584                 :   50686000 :   if (!flag_reorder_functions
     585                 :   49310900 :       || !targetm_common.have_named_sections)
     586                 :            :     return NULL;
     587                 :            :   /* Startup code should go to startup subsection unless it is
     588                 :            :      unlikely executed (this happens especially with function splitting
     589                 :            :      where we can split away unnecessary parts of static constructors.  */
     590                 :   49310900 :   if (startup && freq != NODE_FREQUENCY_UNLIKELY_EXECUTED)
     591                 :            :   {
     592                 :            :     /* During LTO the tp_first_run profiling will naturally place all
     593                 :            :        initialization code first.  Using separate section is counter-productive
     594                 :            :        because startup only code may call functions which are no longer
     595                 :            :        startup only.  */
     596                 :    1026020 :     if (!in_lto_p
     597                 :      32759 :         || !cgraph_node::get (decl)->tp_first_run
     598                 :    1026030 :         || !opt_for_fn (decl, flag_profile_reorder_functions))
     599                 :    1026010 :       return get_named_text_section (decl, ".text.startup", NULL);
     600                 :            :     else
     601                 :            :       return NULL;
     602                 :            :   }
     603                 :            : 
     604                 :            :   /* Similarly for exit.  */
     605                 :   48284900 :   if (exit && freq != NODE_FREQUENCY_UNLIKELY_EXECUTED)
     606                 :       1920 :     return get_named_text_section (decl, ".text.exit", NULL);
     607                 :            : 
     608                 :            :   /* Group cold functions together, similarly for hot code.  */
     609                 :   48283000 :   switch (freq)
     610                 :            :     {
     611                 :    3045270 :       case NODE_FREQUENCY_UNLIKELY_EXECUTED:
     612                 :    3045270 :         return get_named_text_section (decl, ".text.unlikely", NULL);
     613                 :        763 :       case NODE_FREQUENCY_HOT:
     614                 :        763 :         return get_named_text_section (decl, ".text.hot", NULL);
     615                 :            :         /* FALLTHRU */
     616                 :            :       default:
     617                 :            :         return NULL;
     618                 :            :     }
     619                 :            : }
     620                 :            : 
     621                 :            : /* Return the section for function DECL.
     622                 :            : 
     623                 :            :    If DECL is NULL_TREE, return the text section.  We can be passed
     624                 :            :    NULL_TREE under some circumstances by dbxout.c at least.
     625                 :            : 
     626                 :            :    If FORCE_COLD is true, return cold function section ignoring
     627                 :            :    the frequency info of cgraph_node.  */
     628                 :            : 
     629                 :            : static section *
     630                 :   50686000 : function_section_1 (tree decl, bool force_cold)
     631                 :            : {
     632                 :   50686000 :   section *section = NULL;
     633                 :   50686000 :   enum node_frequency freq = NODE_FREQUENCY_NORMAL;
     634                 :   50686000 :   bool startup = false, exit = false;
     635                 :            : 
     636                 :   50686000 :   if (decl)
     637                 :            :     {
     638                 :   50686000 :       struct cgraph_node *node = cgraph_node::get (decl);
     639                 :            : 
     640                 :   50686000 :       if (node)
     641                 :            :         {
     642                 :   50686000 :           freq = node->frequency;
     643                 :   50686000 :           startup = node->only_called_at_startup;
     644                 :   50686000 :           exit = node->only_called_at_exit;
     645                 :            :         }
     646                 :            :     }
     647                 :   50686000 :   if (force_cold)
     648                 :    2993540 :     freq = NODE_FREQUENCY_UNLIKELY_EXECUTED;
     649                 :            : 
     650                 :            : #ifdef USE_SELECT_SECTION_FOR_FUNCTIONS
     651                 :            :   if (decl != NULL_TREE
     652                 :            :       && DECL_SECTION_NAME (decl) != NULL)
     653                 :            :     {
     654                 :            :       if (targetm.asm_out.function_section)
     655                 :            :         section = targetm.asm_out.function_section (decl, freq,
     656                 :            :                                                     startup, exit);
     657                 :            :       if (section)
     658                 :            :         return section;
     659                 :            :       return get_named_section (decl, NULL, 0);
     660                 :            :     }
     661                 :            :   else
     662                 :            :     return targetm.asm_out.select_section
     663                 :            :             (decl, freq == NODE_FREQUENCY_UNLIKELY_EXECUTED,
     664                 :            :              symtab_node::get (decl)->definition_alignment ());
     665                 :            : #else
     666                 :   50686000 :   if (targetm.asm_out.function_section)
     667                 :   50686000 :     section = targetm.asm_out.function_section (decl, freq, startup, exit);
     668                 :   50686000 :   if (section)
     669                 :            :     return section;
     670                 :   46612000 :   return hot_function_section (decl);
     671                 :            : #endif
     672                 :            : }
     673                 :            : 
     674                 :            : /* Return the section for function DECL.
     675                 :            : 
     676                 :            :    If DECL is NULL_TREE, return the text section.  We can be passed
     677                 :            :    NULL_TREE under some circumstances by dbxout.c at least.  */
     678                 :            : 
     679                 :            : section *
     680                 :    2364060 : function_section (tree decl)
     681                 :            : {
     682                 :            :   /* Handle cases where function splitting code decides
     683                 :            :      to put function entry point into unlikely executed section
     684                 :            :      despite the fact that the function itself is not cold
     685                 :            :      (i.e. it is called rarely but contains a hot loop that is
     686                 :            :      better to live in hot subsection for the code locality).  */
     687                 :    2364060 :   return function_section_1 (decl,
     688                 :    2364060 :                              first_function_block_is_cold);
     689                 :            : }
     690                 :            : 
     691                 :            : /* Return the section for the current function, take IN_COLD_SECTION_P
     692                 :            :    into account.  */
     693                 :            : 
     694                 :            : section *
     695                 :   48219000 : current_function_section (void)
     696                 :            : {
     697                 :   48219000 :   return function_section_1 (current_function_decl, in_cold_section_p);
     698                 :            : }
     699                 :            : 
     700                 :            : /* Tell assembler to switch to unlikely-to-be-executed text section.  */
     701                 :            : 
     702                 :            : section *
     703                 :     102877 : unlikely_text_section (void)
     704                 :            : {
     705                 :     102877 :   return function_section_1 (current_function_decl, true);
     706                 :            : }
     707                 :            : 
     708                 :            : /* When called within a function context, return true if the function
     709                 :            :    has been assigned a cold text section and if SECT is that section.
     710                 :            :    When called outside a function context, return true if SECT is the
     711                 :            :    default cold section.  */
     712                 :            : 
     713                 :            : bool
     714                 :          0 : unlikely_text_section_p (section *sect)
     715                 :            : {
     716                 :          0 :   return sect == function_section_1 (current_function_decl, true);
     717                 :            : }
     718                 :            : 
     719                 :            : /* Switch to the other function partition (if inside of hot section
     720                 :            :    into cold section, otherwise into the hot section).  */
     721                 :            : 
     722                 :            : void
     723                 :          0 : switch_to_other_text_partition (void)
     724                 :            : {
     725                 :          0 :   in_cold_section_p = !in_cold_section_p;
     726                 :          0 :   switch_to_section (current_function_section ());
     727                 :          0 : }
     728                 :            : 
     729                 :            : /* Return the read-only data section associated with function DECL.  */
     730                 :            : 
     731                 :            : section *
     732                 :     335686 : default_function_rodata_section (tree decl)
     733                 :            : {
     734                 :     335686 :   if (decl != NULL_TREE && DECL_SECTION_NAME (decl))
     735                 :            :     {
     736                 :      77301 :       const char *name = DECL_SECTION_NAME (decl);
     737                 :            : 
     738                 :      77301 :       if (DECL_COMDAT_GROUP (decl) && HAVE_COMDAT_GROUP)
     739                 :            :         {
     740                 :      15265 :           const char *dot;
     741                 :      15265 :           size_t len;
     742                 :      15265 :           char* rname;
     743                 :            : 
     744                 :      15265 :           dot = strchr (name + 1, '.');
     745                 :      15265 :           if (!dot)
     746                 :          0 :             dot = name;
     747                 :      15265 :           len = strlen (dot) + 8;
     748                 :      15265 :           rname = (char *) alloca (len);
     749                 :            : 
     750                 :      15265 :           strcpy (rname, ".rodata");
     751                 :      15265 :           strcat (rname, dot);
     752                 :      15265 :           return get_section (rname, SECTION_LINKONCE, decl);
     753                 :            :         }
     754                 :            :       /* For .gnu.linkonce.t.foo we want to use .gnu.linkonce.r.foo.  */
     755                 :      62036 :       else if (DECL_COMDAT_GROUP (decl)
     756                 :      62036 :                && strncmp (name, ".gnu.linkonce.t.", 16) == 0)
     757                 :            :         {
     758                 :          0 :           size_t len = strlen (name) + 1;
     759                 :          0 :           char *rname = (char *) alloca (len);
     760                 :            : 
     761                 :          0 :           memcpy (rname, name, len);
     762                 :          0 :           rname[14] = 'r';
     763                 :          0 :           return get_section (rname, SECTION_LINKONCE, decl);
     764                 :            :         }
     765                 :            :       /* For .text.foo we want to use .rodata.foo.  */
     766                 :      62036 :       else if (flag_function_sections && flag_data_sections
     767                 :      62032 :                && strncmp (name, ".text.", 6) == 0)
     768                 :            :         {
     769                 :      62032 :           size_t len = strlen (name) + 1;
     770                 :      62032 :           char *rname = (char *) alloca (len + 2);
     771                 :            : 
     772                 :      62032 :           memcpy (rname, ".rodata", 7);
     773                 :      62032 :           memcpy (rname + 7, name + 5, len - 5);
     774                 :      62032 :           return get_section (rname, 0, decl);
     775                 :            :         }
     776                 :            :     }
     777                 :            : 
     778                 :     258389 :   return readonly_data_section;
     779                 :            : }
     780                 :            : 
     781                 :            : /* Return the read-only data section associated with function DECL
     782                 :            :    for targets where that section should be always the single
     783                 :            :    readonly data section.  */
     784                 :            : 
     785                 :            : section *
     786                 :          0 : default_no_function_rodata_section (tree decl ATTRIBUTE_UNUSED)
     787                 :            : {
     788                 :          0 :   return readonly_data_section;
     789                 :            : }
     790                 :            : 
     791                 :            : /* A subroutine of mergeable_string_section and mergeable_constant_section.  */
     792                 :            : 
     793                 :            : static const char *
     794                 :     315960 : function_mergeable_rodata_prefix (void)
     795                 :            : {
     796                 :          0 :   section *s = targetm.asm_out.function_rodata_section (current_function_decl);
     797                 :     315960 :   if (SECTION_STYLE (s) == SECTION_NAMED)
     798                 :      75867 :     return s->named.name;
     799                 :            :   else
     800                 :     240093 :     return targetm.asm_out.mergeable_rodata_prefix;
     801                 :            : }
     802                 :            : 
     803                 :            : /* Return the section to use for string merging.  */
     804                 :            : 
     805                 :            : static section *
     806                 :     797633 : mergeable_string_section (tree decl ATTRIBUTE_UNUSED,
     807                 :            :                           unsigned HOST_WIDE_INT align ATTRIBUTE_UNUSED,
     808                 :            :                           unsigned int flags ATTRIBUTE_UNUSED)
     809                 :            : {
     810                 :     797633 :   HOST_WIDE_INT len;
     811                 :            : 
     812                 :     797633 :   if (HAVE_GAS_SHF_MERGE && flag_merge_constants
     813                 :     729584 :       && TREE_CODE (decl) == STRING_CST
     814                 :     729584 :       && TREE_CODE (TREE_TYPE (decl)) == ARRAY_TYPE
     815                 :     729584 :       && align <= 256
     816                 :     729584 :       && (len = int_size_in_bytes (TREE_TYPE (decl))) > 0
     817                 :    1527100 :       && TREE_STRING_LENGTH (decl) == len)
     818                 :            :     {
     819                 :     208916 :       scalar_int_mode mode;
     820                 :     208916 :       unsigned int modesize;
     821                 :     208916 :       const char *str;
     822                 :     208916 :       HOST_WIDE_INT i;
     823                 :     208916 :       int j, unit;
     824                 :     208916 :       const char *prefix = function_mergeable_rodata_prefix ();
     825                 :     208916 :       char *name = (char *) alloca (strlen (prefix) + 30);
     826                 :            : 
     827                 :     208916 :       mode = SCALAR_INT_TYPE_MODE (TREE_TYPE (TREE_TYPE (decl)));
     828                 :     208916 :       modesize = GET_MODE_BITSIZE (mode);
     829                 :     208916 :       if (modesize >= 8 && modesize <= 256
     830                 :     208916 :           && (modesize & (modesize - 1)) == 0)
     831                 :            :         {
     832                 :     208916 :           if (align < modesize)
     833                 :            :             align = modesize;
     834                 :            : 
     835                 :     208916 :           if (!HAVE_LD_ALIGNED_SHF_MERGE && align > 8)
     836                 :     206881 :             return readonly_data_section;
     837                 :            : 
     838                 :     208916 :           str = TREE_STRING_POINTER (decl);
     839                 :     208916 :           unit = GET_MODE_SIZE (mode);
     840                 :            : 
     841                 :            :           /* Check for embedded NUL characters.  */
     842                 :  107495000 :           for (i = 0; i < len; i += unit)
     843                 :            :             {
     844                 :  107650000 :               for (j = 0; j < unit; j++)
     845                 :  107471000 :                 if (str[i + j] != '\0')
     846                 :            :                   break;
     847                 :  107465000 :               if (j == unit)
     848                 :            :                 break;
     849                 :            :             }
     850                 :     208916 :           if (i == len - unit || (unit == 1 && i == len))
     851                 :            :             {
     852                 :     206881 :               sprintf (name, "%s.str%d.%d", prefix,
     853                 :     206881 :                        modesize / 8, (int) (align / 8));
     854                 :     206881 :               flags |= (modesize / 8) | SECTION_MERGE | SECTION_STRINGS;
     855                 :     206881 :               return get_section (name, flags, NULL);
     856                 :            :             }
     857                 :            :         }
     858                 :            :     }
     859                 :            : 
     860                 :     590752 :   return readonly_data_section;
     861                 :            : }
     862                 :            : 
     863                 :            : /* Return the section to use for constant merging.  */
     864                 :            : 
     865                 :            : section *
     866                 :     133123 : mergeable_constant_section (machine_mode mode ATTRIBUTE_UNUSED,
     867                 :            :                             unsigned HOST_WIDE_INT align ATTRIBUTE_UNUSED,
     868                 :            :                             unsigned int flags ATTRIBUTE_UNUSED)
     869                 :            : {
     870                 :     133123 :   if (HAVE_GAS_SHF_MERGE && flag_merge_constants
     871                 :     108207 :       && mode != VOIDmode
     872                 :     108207 :       && mode != BLKmode
     873                 :     108206 :       && known_le (GET_MODE_BITSIZE (mode), align)
     874                 :     108206 :       && align >= 8
     875                 :     108206 :       && align <= 256
     876                 :     107044 :       && (align & (align - 1)) == 0
     877                 :     133123 :       && (HAVE_LD_ALIGNED_SHF_MERGE ? 1 : align == 8))
     878                 :            :     {
     879                 :     107044 :       const char *prefix = function_mergeable_rodata_prefix ();
     880                 :     107044 :       char *name = (char *) alloca (strlen (prefix) + 30);
     881                 :            : 
     882                 :     107044 :       sprintf (name, "%s.cst%d", prefix, (int) (align / 8));
     883                 :     107044 :       flags |= (align / 8) | SECTION_MERGE;
     884                 :     107044 :       return get_section (name, flags, NULL);
     885                 :            :     }
     886                 :      26079 :   return readonly_data_section;
     887                 :            : }
     888                 :            : 
     889                 :            : /* Given NAME, a putative register name, discard any customary prefixes.  */
     890                 :            : 
     891                 :            : static const char *
     892                 :    5434490 : strip_reg_name (const char *name)
     893                 :            : {
     894                 :            : #ifdef REGISTER_PREFIX
     895                 :            :   if (!strncmp (name, REGISTER_PREFIX, strlen (REGISTER_PREFIX)))
     896                 :            :     name += strlen (REGISTER_PREFIX);
     897                 :            : #endif
     898                 :    5434430 :   if (name[0] == '%' || name[0] == '#')
     899                 :         54 :     name++;
     900                 :    5434490 :   return name;
     901                 :            : }
     902                 :            : 
     903                 :            : /* The user has asked for a DECL to have a particular name.  Set (or
     904                 :            :    change) it in such a way that we don't prefix an underscore to
     905                 :            :    it.  */
     906                 :            : void
     907                 :    1319770 : set_user_assembler_name (tree decl, const char *name)
     908                 :            : {
     909                 :    1319770 :   char *starred = (char *) alloca (strlen (name) + 2);
     910                 :    1319770 :   starred[0] = '*';
     911                 :    1319770 :   strcpy (starred + 1, name);
     912                 :    1319770 :   symtab->change_decl_assembler_name (decl, get_identifier (starred));
     913                 :    1319770 :   SET_DECL_RTL (decl, NULL_RTX);
     914                 :    1319770 : }
     915                 :            : 
     916                 :            : /* Decode an `asm' spec for a declaration as a register name.
     917                 :            :    Return the register number, or -1 if nothing specified,
     918                 :            :    or -2 if the ASMSPEC is not `cc' or `memory' and is not recognized,
     919                 :            :    or -3 if ASMSPEC is `cc' and is not recognized,
     920                 :            :    or -4 if ASMSPEC is `memory' and is not recognized.
     921                 :            :    Accept an exact spelling or a decimal number.
     922                 :            :    Prefixes such as % are optional.  */
     923                 :            : 
     924                 :            : int
     925                 :      83782 : decode_reg_name_and_count (const char *asmspec, int *pnregs)
     926                 :            : {
     927                 :            :   /* Presume just one register is clobbered.  */
     928                 :      83782 :   *pnregs = 1;
     929                 :            : 
     930                 :      83782 :   if (asmspec != 0)
     931                 :            :     {
     932                 :      83782 :       int i;
     933                 :            : 
     934                 :            :       /* Get rid of confusing prefixes.  */
     935                 :      83782 :       asmspec = strip_reg_name (asmspec);
     936                 :            : 
     937                 :            :       /* Allow a decimal number as a "register name".  */
     938                 :     143824 :       for (i = strlen (asmspec) - 1; i >= 0; i--)
     939                 :     143813 :         if (! ISDIGIT (asmspec[i]))
     940                 :            :           break;
     941                 :      83782 :       if (asmspec[0] != 0 && i < 0)
     942                 :            :         {
     943                 :         11 :           i = atoi (asmspec);
     944                 :         11 :           if (i < FIRST_PSEUDO_REGISTER && i >= 0 && reg_names[i][0])
     945                 :            :             return i;
     946                 :            :           else
     947                 :          0 :             return -2;
     948                 :            :         }
     949                 :            : 
     950                 :    5404220 :       for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
     951                 :    5350700 :         if (reg_names[i][0]
     952                 :   10701400 :             && ! strcmp (asmspec, strip_reg_name (reg_names[i])))
     953                 :      30256 :           return i;
     954                 :            : 
     955                 :            : #ifdef OVERLAPPING_REGISTER_NAMES
     956                 :            :       {
     957                 :            :         static const struct
     958                 :            :         {
     959                 :            :           const char *const name;
     960                 :            :           const int number;
     961                 :            :           const int nregs;
     962                 :            :         } table[] = OVERLAPPING_REGISTER_NAMES;
     963                 :            : 
     964                 :            :         for (i = 0; i < (int) ARRAY_SIZE (table); i++)
     965                 :            :           if (table[i].name[0]
     966                 :            :               && ! strcmp (asmspec, table[i].name))
     967                 :            :             {
     968                 :            :               *pnregs = table[i].nregs;
     969                 :            :               return table[i].number;
     970                 :            :             }
     971                 :            :       }
     972                 :            : #endif /* OVERLAPPING_REGISTER_NAMES */
     973                 :            : 
     974                 :            : #ifdef ADDITIONAL_REGISTER_NAMES
     975                 :            :       {
     976                 :            :         static const struct { const char *const name; const int number; } table[]
     977                 :            :           = ADDITIONAL_REGISTER_NAMES;
     978                 :            : 
     979                 :    4195240 :         for (i = 0; i < (int) ARRAY_SIZE (table); i++)
     980                 :    4151420 :           if (table[i].name[0]
     981                 :    4151420 :               && ! strcmp (asmspec, table[i].name)
     982                 :       9704 :               && reg_names[table[i].number][0])
     983                 :       9704 :             return table[i].number;
     984                 :            :       }
     985                 :            : #endif /* ADDITIONAL_REGISTER_NAMES */
     986                 :            : 
     987                 :      43811 :       if (!strcmp (asmspec, "memory"))
     988                 :            :         return -4;
     989                 :            : 
     990                 :      15774 :       if (!strcmp (asmspec, "cc"))
     991                 :            :         return -3;
     992                 :            : 
     993                 :         26 :       return -2;
     994                 :            :     }
     995                 :            : 
     996                 :            :   return -1;
     997                 :            : }
     998                 :            : 
     999                 :            : int
    1000                 :        706 : decode_reg_name (const char *name)
    1001                 :            : {
    1002                 :        706 :   int count;
    1003                 :        706 :   return decode_reg_name_and_count (name, &count);
    1004                 :            : }
    1005                 :            : 
    1006                 :            : 
    1007                 :            : /* Return true if DECL's initializer is suitable for a BSS section.  */
    1008                 :            : 
    1009                 :            : bool
    1010                 :    5282660 : bss_initializer_p (const_tree decl, bool named)
    1011                 :            : {
    1012                 :            :   /* Do not put non-common constants into the .bss section, they belong in
    1013                 :            :      a readonly section, except when NAMED is true.  */
    1014                 :    9182740 :   return ((!TREE_READONLY (decl) || DECL_COMMON (decl) || named)
    1015                 :    6685620 :           && (DECL_INITIAL (decl) == NULL
    1016                 :            :               /* In LTO we have no errors in program; error_mark_node is used
    1017                 :            :                  to mark offlined constructors.  */
    1018                 :     346886 :               || (DECL_INITIAL (decl) == error_mark_node
    1019                 :          4 :                   && !in_lto_p)
    1020                 :     346882 :               || (flag_zero_initialized_in_bss
    1021                 :     346824 :                   && initializer_zerop (DECL_INITIAL (decl)))));
    1022                 :            : }
    1023                 :            : 
    1024                 :            : /* Compute the alignment of variable specified by DECL.
    1025                 :            :    DONT_OUTPUT_DATA is from assemble_variable.  */
    1026                 :            : 
    1027                 :            : void
    1028                 :    4794040 : align_variable (tree decl, bool dont_output_data)
    1029                 :            : {
    1030                 :    4794040 :   unsigned int align = DECL_ALIGN (decl);
    1031                 :            : 
    1032                 :            :   /* In the case for initialing an array whose length isn't specified,
    1033                 :            :      where we have not yet been able to do the layout,
    1034                 :            :      figure out the proper alignment now.  */
    1035                 :        677 :   if (dont_output_data && DECL_SIZE (decl) == 0
    1036                 :    4794040 :       && TREE_CODE (TREE_TYPE (decl)) == ARRAY_TYPE)
    1037                 :          0 :     align = MAX (align, TYPE_ALIGN (TREE_TYPE (TREE_TYPE (decl))));
    1038                 :            : 
    1039                 :            :   /* Some object file formats have a maximum alignment which they support.
    1040                 :            :      In particular, a.out format supports a maximum alignment of 4.  */
    1041                 :    4794040 :   if (align > MAX_OFILE_ALIGNMENT)
    1042                 :            :     {
    1043                 :          0 :       error ("alignment of %q+D is greater than maximum object "
    1044                 :            :              "file alignment %d", decl,
    1045                 :            :              MAX_OFILE_ALIGNMENT/BITS_PER_UNIT);
    1046                 :          0 :       align = MAX_OFILE_ALIGNMENT;
    1047                 :            :     }
    1048                 :            : 
    1049                 :    4794040 :   if (! DECL_USER_ALIGN (decl))
    1050                 :            :     {
    1051                 :            : #ifdef DATA_ABI_ALIGNMENT
    1052                 :    4690570 :       unsigned int data_abi_align
    1053                 :    4690570 :         = DATA_ABI_ALIGNMENT (TREE_TYPE (decl), align);
    1054                 :            :       /* For backwards compatibility, don't assume the ABI alignment for
    1055                 :            :          TLS variables.  */
    1056                 :    4690700 :       if (! DECL_THREAD_LOCAL_P (decl) || data_abi_align <= BITS_PER_WORD)
    1057                 :            :         align = data_abi_align;
    1058                 :            : #endif
    1059                 :            : 
    1060                 :            :       /* On some machines, it is good to increase alignment sometimes.
    1061                 :            :          But as DECL_ALIGN is used both for actually emitting the variable
    1062                 :            :          and for code accessing the variable as guaranteed alignment, we
    1063                 :            :          can only increase the alignment if it is a performance optimization
    1064                 :            :          if the references to it must bind to the current definition.  */
    1065                 :    4690570 :       if (decl_binds_to_current_def_p (decl)
    1066                 :    8830820 :           && !DECL_VIRTUAL_P (decl))
    1067                 :            :         {
    1068                 :            : #ifdef DATA_ALIGNMENT
    1069                 :    4140250 :           unsigned int data_align = DATA_ALIGNMENT (TREE_TYPE (decl), align);
    1070                 :            :           /* Don't increase alignment too much for TLS variables - TLS space
    1071                 :            :              is too precious.  */
    1072                 :    4140310 :           if (! DECL_THREAD_LOCAL_P (decl) || data_align <= BITS_PER_WORD)
    1073                 :            :             align = data_align;
    1074                 :            : #endif
    1075                 :    4140250 :           if (DECL_INITIAL (decl) != 0
    1076                 :            :               /* In LTO we have no errors in program; error_mark_node is used
    1077                 :            :                  to mark offlined constructors.  */
    1078                 :    4140250 :               && (in_lto_p || DECL_INITIAL (decl) != error_mark_node))
    1079                 :            :             {
    1080                 :    2420310 :               unsigned int const_align
    1081                 :    2420310 :                 = targetm.constant_alignment (DECL_INITIAL (decl), align);
    1082                 :            :               /* Don't increase alignment too much for TLS variables - TLS
    1083                 :            :                  space is too precious.  */
    1084                 :    2420320 :               if (! DECL_THREAD_LOCAL_P (decl) || const_align <= BITS_PER_WORD)
    1085                 :            :                 align = const_align;
    1086                 :            :             }
    1087                 :            :         }
    1088                 :            :     }
    1089                 :            : 
    1090                 :            :   /* Reset the alignment in case we have made it tighter, so we can benefit
    1091                 :            :      from it in get_pointer_alignment.  */
    1092                 :    4794040 :   SET_DECL_ALIGN (decl, align);
    1093                 :    4794040 : }
    1094                 :            : 
    1095                 :            : /* Return DECL_ALIGN (decl), possibly increased for optimization purposes
    1096                 :            :    beyond what align_variable returned.  */
    1097                 :            : 
    1098                 :            : static unsigned int
    1099                 :    4651930 : get_variable_align (tree decl)
    1100                 :            : {
    1101                 :    4651930 :   unsigned int align = DECL_ALIGN (decl);
    1102                 :            : 
    1103                 :            :   /* For user aligned vars or static vars align_variable already did
    1104                 :            :      everything.  */
    1105                 :    4651930 :   if (DECL_USER_ALIGN (decl) || !TREE_PUBLIC (decl))
    1106                 :            :     return align;
    1107                 :            : 
    1108                 :            : #ifdef DATA_ABI_ALIGNMENT
    1109                 :    2198180 :   if (DECL_THREAD_LOCAL_P (decl))
    1110                 :       5250 :     align = DATA_ABI_ALIGNMENT (TREE_TYPE (decl), align);
    1111                 :            : #endif
    1112                 :            : 
    1113                 :            :   /* For decls that bind to the current definition, align_variable
    1114                 :            :      did also everything, except for not assuming ABI required alignment
    1115                 :            :      of TLS variables.  For other vars, increase the alignment here
    1116                 :            :      as an optimization.  */
    1117                 :    2198180 :   if (!decl_binds_to_current_def_p (decl))
    1118                 :            :     {
    1119                 :            :       /* On some machines, it is good to increase alignment sometimes.  */
    1120                 :            : #ifdef DATA_ALIGNMENT
    1121                 :     535425 :       unsigned int data_align = DATA_ALIGNMENT (TREE_TYPE (decl), align);
    1122                 :            :       /* Don't increase alignment too much for TLS variables - TLS space
    1123                 :            :          is too precious.  */
    1124                 :     535669 :       if (! DECL_THREAD_LOCAL_P (decl) || data_align <= BITS_PER_WORD)
    1125                 :            :         align = data_align;
    1126                 :            : #endif
    1127                 :     535425 :       if (DECL_INITIAL (decl) != 0
    1128                 :            :           /* In LTO we have no errors in program; error_mark_node is used
    1129                 :            :              to mark offlined constructors.  */
    1130                 :     535425 :           && (in_lto_p || DECL_INITIAL (decl) != error_mark_node))
    1131                 :            :         {
    1132                 :     523227 :           unsigned int const_align
    1133                 :     523227 :             = targetm.constant_alignment (DECL_INITIAL (decl), align);
    1134                 :            :           /* Don't increase alignment too much for TLS variables - TLS space
    1135                 :            :              is too precious.  */
    1136                 :     523232 :           if (! DECL_THREAD_LOCAL_P (decl) || const_align <= BITS_PER_WORD)
    1137                 :            :             align = const_align;
    1138                 :            :         }
    1139                 :            :     }
    1140                 :            : 
    1141                 :            :   return align;
    1142                 :            : }
    1143                 :            : 
    1144                 :            : /* Return the section into which the given VAR_DECL or CONST_DECL
    1145                 :            :    should be placed.  PREFER_NOSWITCH_P is true if a noswitch
    1146                 :            :    section should be used wherever possible.  */
    1147                 :            : 
    1148                 :            : section *
    1149                 :    3708900 : get_variable_section (tree decl, bool prefer_noswitch_p)
    1150                 :            : {
    1151                 :    3708900 :   addr_space_t as = ADDR_SPACE_GENERIC;
    1152                 :    3708900 :   int reloc;
    1153                 :    3708900 :   varpool_node *vnode = varpool_node::get (decl);
    1154                 :    3708900 :   if (vnode)
    1155                 :            :     {
    1156                 :    3708880 :       vnode = vnode->ultimate_alias_target ();
    1157                 :    3708880 :       decl = vnode->decl;
    1158                 :            :     }
    1159                 :            : 
    1160                 :    3708900 :   if (TREE_TYPE (decl) != error_mark_node)
    1161                 :    3708900 :     as = TYPE_ADDR_SPACE (TREE_TYPE (decl));
    1162                 :            : 
    1163                 :            :   /* We need the constructor to figure out reloc flag.  */
    1164                 :    3708900 :   if (vnode)
    1165                 :    3708880 :     vnode->get_constructor ();
    1166                 :            : 
    1167                 :    3708900 :   if (DECL_COMMON (decl))
    1168                 :            :     {
    1169                 :            :       /* If the decl has been given an explicit section name, or it resides
    1170                 :            :          in a non-generic address space, then it isn't common, and shouldn't
    1171                 :            :          be handled as such.  */
    1172                 :       1246 :       gcc_assert (DECL_SECTION_NAME (decl) == NULL
    1173                 :            :                   && ADDR_SPACE_GENERIC_P (as));
    1174                 :       1247 :       if (DECL_THREAD_LOCAL_P (decl))
    1175                 :         35 :         return tls_comm_section;
    1176                 :       1211 :       else if (TREE_PUBLIC (decl) && bss_initializer_p (decl))
    1177                 :       1211 :         return comm_section;
    1178                 :            :     }
    1179                 :            : 
    1180                 :    3707660 :   if (DECL_INITIAL (decl) == error_mark_node)
    1181                 :          2 :     reloc = contains_pointers_p (TREE_TYPE (decl)) ? 3 : 0;
    1182                 :    3707660 :   else if (DECL_INITIAL (decl))
    1183                 :    2679740 :     reloc = compute_reloc_for_constant (DECL_INITIAL (decl));
    1184                 :            :   else
    1185                 :            :     reloc = 0;
    1186                 :            : 
    1187                 :    3707660 :   resolve_unique_section (decl, reloc, flag_data_sections);
    1188                 :    3707660 :   if (IN_NAMED_SECTION (decl))
    1189                 :            :     {
    1190                 :    2452220 :       section *sect = get_named_section (decl, NULL, reloc);
    1191                 :            : 
    1192                 :    2452220 :       if ((sect->common.flags & SECTION_BSS)
    1193                 :    2452220 :           && !bss_initializer_p (decl, true))
    1194                 :            :         {
    1195                 :          2 :           error_at (DECL_SOURCE_LOCATION (decl),
    1196                 :            :                     "only zero initializers are allowed in section %qs",
    1197                 :            :                     sect->named.name);
    1198                 :          2 :           DECL_INITIAL (decl) = error_mark_node;
    1199                 :            :         }
    1200                 :    2452220 :       return sect;
    1201                 :            :     }
    1202                 :            : 
    1203                 :    1255430 :   if (ADDR_SPACE_GENERIC_P (as)
    1204                 :    1257050 :       && !DECL_THREAD_LOCAL_P (decl)
    1205                 :    1252440 :       && !(prefer_noswitch_p && targetm.have_switchable_bss_sections)
    1206                 :    2507880 :       && bss_initializer_p (decl))
    1207                 :            :     {
    1208                 :    1027070 :       if (!TREE_PUBLIC (decl)
    1209                 :    1027230 :           && !((flag_sanitize & SANITIZE_ADDRESS)
    1210                 :        163 :                && asan_protect_global (decl)))
    1211                 :      93047 :         return lcomm_section;
    1212                 :     934019 :       if (bss_noswitch_section)
    1213                 :            :         return bss_noswitch_section;
    1214                 :            :     }
    1215                 :            : 
    1216                 :     228367 :   return targetm.asm_out.select_section (decl, reloc,
    1217                 :     456734 :                                          get_variable_align (decl));
    1218                 :            : }
    1219                 :            : 
    1220                 :            : /* Return the block into which object_block DECL should be placed.  */
    1221                 :            : 
    1222                 :            : static struct object_block *
    1223                 :          0 : get_block_for_decl (tree decl)
    1224                 :            : {
    1225                 :          0 :   section *sect;
    1226                 :            : 
    1227                 :          0 :   if (VAR_P (decl))
    1228                 :            :     {
    1229                 :            :       /* The object must be defined in this translation unit.  */
    1230                 :          0 :       if (DECL_EXTERNAL (decl))
    1231                 :            :         return NULL;
    1232                 :            : 
    1233                 :            :       /* There's no point using object blocks for something that is
    1234                 :            :          isolated by definition.  */
    1235                 :          0 :       if (DECL_COMDAT_GROUP (decl))
    1236                 :            :         return NULL;
    1237                 :            :     }
    1238                 :            : 
    1239                 :            :   /* We can only calculate block offsets if the decl has a known
    1240                 :            :      constant size.  */
    1241                 :          0 :   if (DECL_SIZE_UNIT (decl) == NULL)
    1242                 :            :     return NULL;
    1243                 :          0 :   if (!tree_fits_uhwi_p (DECL_SIZE_UNIT (decl)))
    1244                 :            :     return NULL;
    1245                 :            : 
    1246                 :            :   /* Find out which section should contain DECL.  We cannot put it into
    1247                 :            :      an object block if it requires a standalone definition.  */
    1248                 :          0 :   if (VAR_P (decl))
    1249                 :          0 :       align_variable (decl, 0);
    1250                 :          0 :   sect = get_variable_section (decl, true);
    1251                 :          0 :   if (SECTION_STYLE (sect) == SECTION_NOSWITCH)
    1252                 :            :     return NULL;
    1253                 :            : 
    1254                 :          0 :   return get_block_for_section (sect);
    1255                 :            : }
    1256                 :            : 
    1257                 :            : /* Make sure block symbol SYMBOL is in block BLOCK.  */
    1258                 :            : 
    1259                 :            : static void
    1260                 :          0 : change_symbol_block (rtx symbol, struct object_block *block)
    1261                 :            : {
    1262                 :          0 :   if (block != SYMBOL_REF_BLOCK (symbol))
    1263                 :            :     {
    1264                 :          0 :       gcc_assert (SYMBOL_REF_BLOCK_OFFSET (symbol) < 0);
    1265                 :          0 :       SYMBOL_REF_BLOCK (symbol) = block;
    1266                 :            :     }
    1267                 :          0 : }
    1268                 :            : 
    1269                 :            : /* Return true if it is possible to put DECL in an object_block.  */
    1270                 :            : 
    1271                 :            : static bool
    1272                 :          0 : use_blocks_for_decl_p (tree decl)
    1273                 :            : {
    1274                 :          0 :   struct symtab_node *snode;
    1275                 :            : 
    1276                 :            :   /* Only data DECLs can be placed into object blocks.  */
    1277                 :          0 :   if (!VAR_P (decl) && TREE_CODE (decl) != CONST_DECL)
    1278                 :            :     return false;
    1279                 :            : 
    1280                 :            :   /* DECL_INITIAL (decl) set to decl is a hack used for some decls that
    1281                 :            :      are never used from code directly and we never want object block handling
    1282                 :            :      for those.  */
    1283                 :          0 :   if (DECL_INITIAL (decl) == decl)
    1284                 :            :     return false;
    1285                 :            : 
    1286                 :            :   /* If this decl is an alias, then we don't want to emit a
    1287                 :            :      definition.  */
    1288                 :          0 :   if (VAR_P (decl)
    1289                 :          0 :       && (snode = symtab_node::get (decl)) != NULL
    1290                 :          0 :       && snode->alias)
    1291                 :            :     return false;
    1292                 :            : 
    1293                 :          0 :   return targetm.use_blocks_for_decl_p (decl);
    1294                 :            : }
    1295                 :            : 
    1296                 :            : /* Follow the IDENTIFIER_TRANSPARENT_ALIAS chain starting at *ALIAS
    1297                 :            :    until we find an identifier that is not itself a transparent alias.
    1298                 :            :    Modify the alias passed to it by reference (and all aliases on the
    1299                 :            :    way to the ultimate target), such that they do not have to be
    1300                 :            :    followed again, and return the ultimate target of the alias
    1301                 :            :    chain.  */
    1302                 :            : 
    1303                 :            : static inline tree
    1304                 :   27262600 : ultimate_transparent_alias_target (tree *alias)
    1305                 :            : {
    1306                 :   27262600 :   tree target = *alias;
    1307                 :            : 
    1308                 :   27262600 :   if (IDENTIFIER_TRANSPARENT_ALIAS (target))
    1309                 :            :     {
    1310                 :          0 :       gcc_assert (TREE_CHAIN (target));
    1311                 :          0 :       target = ultimate_transparent_alias_target (&TREE_CHAIN (target));
    1312                 :          0 :       gcc_assert (! IDENTIFIER_TRANSPARENT_ALIAS (target)
    1313                 :            :                   && ! TREE_CHAIN (target));
    1314                 :          0 :       *alias = target;
    1315                 :            :     }
    1316                 :            : 
    1317                 :   27262600 :   return target;
    1318                 :            : }
    1319                 :            : 
    1320                 :            : /* Create the DECL_RTL for a VAR_DECL or FUNCTION_DECL.  DECL should
    1321                 :            :    have static storage duration.  In other words, it should not be an
    1322                 :            :    automatic variable, including PARM_DECLs.
    1323                 :            : 
    1324                 :            :    There is, however, one exception: this function handles variables
    1325                 :            :    explicitly placed in a particular register by the user.
    1326                 :            : 
    1327                 :            :    This is never called for PARM_DECL nodes.  */
    1328                 :            : 
    1329                 :            : void
    1330                 :    6473580 : make_decl_rtl (tree decl)
    1331                 :            : {
    1332                 :    6473580 :   const char *name = 0;
    1333                 :    6473580 :   int reg_number;
    1334                 :    6473580 :   tree id;
    1335                 :    6473580 :   rtx x;
    1336                 :            : 
    1337                 :            :   /* Check that we are not being given an automatic variable.  */
    1338                 :    6473580 :   gcc_assert (TREE_CODE (decl) != PARM_DECL
    1339                 :            :               && TREE_CODE (decl) != RESULT_DECL);
    1340                 :            : 
    1341                 :            :   /* A weak alias has TREE_PUBLIC set but not the other bits.  */
    1342                 :    6474850 :   gcc_assert (!VAR_P (decl)
    1343                 :            :               || TREE_STATIC (decl)
    1344                 :            :               || TREE_PUBLIC (decl)
    1345                 :            :               || DECL_EXTERNAL (decl)
    1346                 :            :               || DECL_REGISTER (decl));
    1347                 :            : 
    1348                 :            :   /* And that we were not given a type or a label.  */
    1349                 :    6473580 :   gcc_assert (TREE_CODE (decl) != TYPE_DECL
    1350                 :            :               && TREE_CODE (decl) != LABEL_DECL);
    1351                 :            : 
    1352                 :            :   /* For a duplicate declaration, we can be called twice on the
    1353                 :            :      same DECL node.  Don't discard the RTL already made.  */
    1354                 :    6473580 :   if (DECL_RTL_SET_P (decl))
    1355                 :            :     {
    1356                 :            :       /* If the old RTL had the wrong mode, fix the mode.  */
    1357                 :       9417 :       x = DECL_RTL (decl);
    1358                 :       9417 :       if (GET_MODE (x) != DECL_MODE (decl))
    1359                 :          0 :         SET_DECL_RTL (decl, adjust_address_nv (x, DECL_MODE (decl), 0));
    1360                 :            : 
    1361                 :      11242 :       if (TREE_CODE (decl) != FUNCTION_DECL && DECL_REGISTER (decl))
    1362                 :            :         return;
    1363                 :            : 
    1364                 :            :       /* ??? Another way to do this would be to maintain a hashed
    1365                 :            :          table of such critters.  Instead of adding stuff to a DECL
    1366                 :            :          to give certain attributes to it, we could use an external
    1367                 :            :          hash map from DECL to set of attributes.  */
    1368                 :            : 
    1369                 :            :       /* Let the target reassign the RTL if it wants.
    1370                 :            :          This is necessary, for example, when one machine specific
    1371                 :            :          decl attribute overrides another.  */
    1372                 :       9372 :       targetm.encode_section_info (decl, DECL_RTL (decl), false);
    1373                 :            : 
    1374                 :            :       /* If the symbol has a SYMBOL_REF_BLOCK field, update it based
    1375                 :            :          on the new decl information.  */
    1376                 :       9372 :       if (MEM_P (x)
    1377                 :       9372 :           && GET_CODE (XEXP (x, 0)) == SYMBOL_REF
    1378                 :      18744 :           && SYMBOL_REF_HAS_BLOCK_INFO_P (XEXP (x, 0)))
    1379                 :          0 :         change_symbol_block (XEXP (x, 0), get_block_for_decl (decl));
    1380                 :            : 
    1381                 :       9372 :       return;
    1382                 :            :     }
    1383                 :            : 
    1384                 :            :   /* If this variable belongs to the global constant pool, retrieve the
    1385                 :            :      pre-computed RTL or recompute it in LTO mode.  */
    1386                 :    6464170 :   if (VAR_P (decl) && DECL_IN_CONSTANT_POOL (decl))
    1387                 :            :     {
    1388                 :       2475 :       SET_DECL_RTL (decl, output_constant_def (DECL_INITIAL (decl), 1));
    1389                 :       2475 :       return;
    1390                 :            :     }
    1391                 :            : 
    1392                 :    6461690 :   id = DECL_ASSEMBLER_NAME (decl);
    1393                 :    6461690 :   name = IDENTIFIER_POINTER (id);
    1394                 :            : 
    1395                 :    6399670 :   if (name[0] != '*' && TREE_CODE (decl) != FUNCTION_DECL
    1396                 :    8983550 :       && DECL_REGISTER (decl))
    1397                 :            :     {
    1398                 :         16 :       error ("register name not specified for %q+D", decl);
    1399                 :            :     }
    1400                 :    9029220 :   else if (TREE_CODE (decl) != FUNCTION_DECL && DECL_REGISTER (decl))
    1401                 :            :     {
    1402                 :        706 :       const char *asmspec = name+1;
    1403                 :        706 :       machine_mode mode = DECL_MODE (decl);
    1404                 :        706 :       reg_number = decode_reg_name (asmspec);
    1405                 :            :       /* First detect errors in declaring global registers.  */
    1406                 :        706 :       if (reg_number == -1)
    1407                 :          0 :         error ("register name not specified for %q+D", decl);
    1408                 :        706 :       else if (reg_number < 0)
    1409                 :         20 :         error ("invalid register name for %q+D", decl);
    1410                 :        686 :       else if (mode == BLKmode)
    1411                 :          0 :         error ("data type of %q+D isn%'t suitable for a register",
    1412                 :            :                decl);
    1413                 :        686 :       else if (!in_hard_reg_set_p (accessible_reg_set, mode, reg_number))
    1414                 :          2 :         error ("the register specified for %q+D cannot be accessed"
    1415                 :            :                " by the current target", decl);
    1416                 :        684 :       else if (!in_hard_reg_set_p (operand_reg_set, mode, reg_number))
    1417                 :          0 :         error ("the register specified for %q+D is not general enough"
    1418                 :            :                " to be used as a register variable", decl);
    1419                 :        684 :       else if (!targetm.hard_regno_mode_ok (reg_number, mode))
    1420                 :          2 :         error ("register specified for %q+D isn%'t suitable for data type",
    1421                 :            :                decl);
    1422                 :            :       /* Now handle properly declared static register variables.  */
    1423                 :            :       else
    1424                 :            :         {
    1425                 :        682 :           int nregs;
    1426                 :            : 
    1427                 :        682 :           if (DECL_INITIAL (decl) != 0 && TREE_STATIC (decl))
    1428                 :            :             {
    1429                 :          0 :               DECL_INITIAL (decl) = 0;
    1430                 :          0 :               error ("global register variable has initial value");
    1431                 :            :             }
    1432                 :        682 :           if (TREE_THIS_VOLATILE (decl))
    1433                 :          9 :             warning (OPT_Wvolatile_register_var,
    1434                 :            :                      "optimization may eliminate reads and/or "
    1435                 :            :                      "writes to register variables");
    1436                 :            : 
    1437                 :            :           /* If the user specified one of the eliminables registers here,
    1438                 :            :              e.g., FRAME_POINTER_REGNUM, we don't want to get this variable
    1439                 :            :              confused with that register and be eliminated.  This usage is
    1440                 :            :              somewhat suspect...  */
    1441                 :            : 
    1442                 :        682 :           SET_DECL_RTL (decl, gen_raw_REG (mode, reg_number));
    1443                 :        682 :           ORIGINAL_REGNO (DECL_RTL (decl)) = reg_number;
    1444                 :        682 :           REG_USERVAR_P (DECL_RTL (decl)) = 1;
    1445                 :            : 
    1446                 :        682 :           if (TREE_STATIC (decl))
    1447                 :            :             {
    1448                 :            :               /* Make this register global, so not usable for anything
    1449                 :            :                  else.  */
    1450                 :            : #ifdef ASM_DECLARE_REGISTER_GLOBAL
    1451                 :            :               name = IDENTIFIER_POINTER (DECL_NAME (decl));
    1452                 :            :               ASM_DECLARE_REGISTER_GLOBAL (asm_out_file, decl, reg_number, name);
    1453                 :            : #endif
    1454                 :         76 :               nregs = hard_regno_nregs (reg_number, mode);
    1455                 :        152 :               while (nregs > 0)
    1456                 :         76 :                 globalize_reg (decl, reg_number + --nregs);
    1457                 :            :             }
    1458                 :            : 
    1459                 :            :           /* As a register variable, it has no section.  */
    1460                 :        682 :           return;
    1461                 :            :         }
    1462                 :            :       /* Avoid internal errors from invalid register
    1463                 :            :          specifications.  */
    1464                 :         24 :       SET_DECL_ASSEMBLER_NAME (decl, NULL_TREE);
    1465                 :         24 :       DECL_HARD_REGISTER (decl) = 0;
    1466                 :            :       /* Also avoid SSA inconsistencies by pretending this is an external
    1467                 :            :          decl now.  */
    1468                 :         24 :       DECL_EXTERNAL (decl) = 1;
    1469                 :         24 :       return;
    1470                 :            :     }
    1471                 :            :   /* Now handle ordinary static variables and functions (in memory).
    1472                 :            :      Also handle vars declared register invalidly.  */
    1473                 :            :   else if (name[0] == '*')
    1474                 :            :   {
    1475                 :            : #ifdef REGISTER_PREFIX
    1476                 :            :     if (strlen (REGISTER_PREFIX) != 0)
    1477                 :            :       {
    1478                 :            :         reg_number = decode_reg_name (name);
    1479                 :            :         if (reg_number >= 0 || reg_number == -3)
    1480                 :            :           error ("register name given for non-register variable %q+D", decl);
    1481                 :            :       }
    1482                 :            : #endif
    1483                 :            :   }
    1484                 :            : 
    1485                 :            :   /* Specifying a section attribute on a variable forces it into a
    1486                 :            :      non-.bss section, and thus it cannot be common.  */
    1487                 :            :   /* FIXME: In general this code should not be necessary because
    1488                 :            :      visibility pass is doing the same work.  But notice_global_symbol
    1489                 :            :      is called early and it needs to make DECL_RTL to get the name.
    1490                 :            :      we take care of recomputing the DECL_RTL after visibility is changed.  */
    1491                 :    6460980 :   if (VAR_P (decl)
    1492                 :    2779420 :       && (TREE_STATIC (decl) || DECL_EXTERNAL (decl))
    1493                 :    2566860 :       && DECL_SECTION_NAME (decl) != NULL
    1494                 :    1184390 :       && DECL_INITIAL (decl) == NULL_TREE
    1495                 :    6461060 :       && DECL_COMMON (decl))
    1496                 :          0 :     DECL_COMMON (decl) = 0;
    1497                 :            : 
    1498                 :            :   /* Variables can't be both common and weak.  */
    1499                 :    9027840 :   if (VAR_P (decl) && DECL_WEAK (decl))
    1500                 :     301926 :     DECL_COMMON (decl) = 0;
    1501                 :            : 
    1502                 :    6460980 :   if (use_object_blocks_p () && use_blocks_for_decl_p (decl))
    1503                 :          0 :     x = create_block_symbol (name, get_block_for_decl (decl), -1);
    1504                 :            :   else
    1505                 :            :     {
    1506                 :    7313590 :       machine_mode address_mode = Pmode;
    1507                 :    6460980 :       if (TREE_TYPE (decl) != error_mark_node)
    1508                 :            :         {
    1509                 :    6460980 :           addr_space_t as = TYPE_ADDR_SPACE (TREE_TYPE (decl));
    1510                 :    6460980 :           address_mode = targetm.addr_space.address_mode (as);
    1511                 :            :         }
    1512                 :    6460980 :       x = gen_rtx_SYMBOL_REF (address_mode, name);
    1513                 :            :     }
    1514                 :    6460980 :   SYMBOL_REF_WEAK (x) = DECL_WEAK (decl);
    1515                 :    6460980 :   SET_SYMBOL_REF_DECL (x, decl);
    1516                 :            : 
    1517                 :    6460980 :   x = gen_rtx_MEM (DECL_MODE (decl), x);
    1518                 :    6460980 :   if (TREE_CODE (decl) != FUNCTION_DECL)
    1519                 :    2566860 :     set_mem_attributes (x, decl, 1);
    1520                 :    6460980 :   SET_DECL_RTL (decl, x);
    1521                 :            : 
    1522                 :            :   /* Optionally set flags or add text to the name to record information
    1523                 :            :      such as that it is a function name.
    1524                 :            :      If the name is changed, the macro ASM_OUTPUT_LABELREF
    1525                 :            :      will have to know how to strip this information.  */
    1526                 :    6460980 :   targetm.encode_section_info (decl, DECL_RTL (decl), true);
    1527                 :            : }
    1528                 :            : 
    1529                 :            : /* Like make_decl_rtl, but inhibit creation of new alias sets when
    1530                 :            :    calling make_decl_rtl.  Also, reset DECL_RTL before returning the
    1531                 :            :    rtl.  */
    1532                 :            : 
    1533                 :            : rtx
    1534                 :      24108 : make_decl_rtl_for_debug (tree decl)
    1535                 :            : {
    1536                 :      24108 :   unsigned int save_aliasing_flag;
    1537                 :      24108 :   rtx rtl;
    1538                 :            : 
    1539                 :      24108 :   if (DECL_RTL_SET_P (decl))
    1540                 :      24108 :     return DECL_RTL (decl);
    1541                 :            : 
    1542                 :            :   /* Kludge alert!  Somewhere down the call chain, make_decl_rtl will
    1543                 :            :      call new_alias_set.  If running with -fcompare-debug, sometimes
    1544                 :            :      we do not want to create alias sets that will throw the alias
    1545                 :            :      numbers off in the comparison dumps.  So... clearing
    1546                 :            :      flag_strict_aliasing will keep new_alias_set() from creating a
    1547                 :            :      new set.  */
    1548                 :      24108 :   save_aliasing_flag = flag_strict_aliasing;
    1549                 :      24108 :   flag_strict_aliasing = 0;
    1550                 :            : 
    1551                 :      24108 :   rtl = DECL_RTL (decl);
    1552                 :            :   /* Reset DECL_RTL back, as various parts of the compiler expects
    1553                 :            :      DECL_RTL set meaning it is actually going to be output.  */
    1554                 :      24108 :   SET_DECL_RTL (decl, NULL);
    1555                 :            : 
    1556                 :      24108 :   flag_strict_aliasing = save_aliasing_flag;
    1557                 :      24108 :   return rtl;
    1558                 :            : }
    1559                 :            : 
    1560                 :            : /* Output a string of literal assembler code
    1561                 :            :    for an `asm' keyword used between functions.  */
    1562                 :            : 
    1563                 :            : void
    1564                 :        286 : assemble_asm (tree string)
    1565                 :            : {
    1566                 :        286 :   const char *p;
    1567                 :        286 :   app_enable ();
    1568                 :            : 
    1569                 :        286 :   if (TREE_CODE (string) == ADDR_EXPR)
    1570                 :          0 :     string = TREE_OPERAND (string, 0);
    1571                 :            : 
    1572                 :        286 :   p = TREE_STRING_POINTER (string);
    1573                 :        553 :   fprintf (asm_out_file, "%s%s\n", p[0] == '\t' ? "" : "\t", p);
    1574                 :        286 : }
    1575                 :            : 
    1576                 :            : /* Write the address of the entity given by SYMBOL to SEC.  */
    1577                 :            : void
    1578                 :      13447 : assemble_addr_to_section (rtx symbol, section *sec)
    1579                 :            : {
    1580                 :      13447 :   switch_to_section (sec);
    1581                 :      13502 :   assemble_align (POINTER_SIZE);
    1582                 :      13557 :   assemble_integer (symbol, POINTER_SIZE_UNITS, POINTER_SIZE, 1);
    1583                 :      13447 : }
    1584                 :            : 
    1585                 :            : /* Return the numbered .ctors.N (if CONSTRUCTOR_P) or .dtors.N (if
    1586                 :            :    not) section for PRIORITY.  */
    1587                 :            : section *
    1588                 :          0 : get_cdtor_priority_section (int priority, bool constructor_p)
    1589                 :            : {
    1590                 :            :   /* Buffer conservatively large enough for the full range of a 32-bit
    1591                 :            :      int plus the text below.  */
    1592                 :          0 :   char buf[18];
    1593                 :            : 
    1594                 :            :   /* ??? This only works reliably with the GNU linker.  */
    1595                 :          0 :   sprintf (buf, "%s.%.5u",
    1596                 :            :            constructor_p ? ".ctors" : ".dtors",
    1597                 :            :            /* Invert the numbering so the linker puts us in the proper
    1598                 :            :               order; constructors are run from right to left, and the
    1599                 :            :               linker sorts in increasing order.  */
    1600                 :            :            MAX_INIT_PRIORITY - priority);
    1601                 :          0 :   return get_section (buf, SECTION_WRITE, NULL);
    1602                 :            : }
    1603                 :            : 
    1604                 :            : void
    1605                 :          0 : default_named_section_asm_out_destructor (rtx symbol, int priority)
    1606                 :            : {
    1607                 :          0 :   section *sec;
    1608                 :            : 
    1609                 :          0 :   if (priority != DEFAULT_INIT_PRIORITY)
    1610                 :          0 :     sec = get_cdtor_priority_section (priority,
    1611                 :            :                                       /*constructor_p=*/false);
    1612                 :            :   else
    1613                 :          0 :     sec = get_section (".dtors", SECTION_WRITE, NULL);
    1614                 :            : 
    1615                 :          0 :   assemble_addr_to_section (symbol, sec);
    1616                 :          0 : }
    1617                 :            : 
    1618                 :            : #ifdef DTORS_SECTION_ASM_OP
    1619                 :            : void
    1620                 :            : default_dtor_section_asm_out_destructor (rtx symbol,
    1621                 :            :                                          int priority ATTRIBUTE_UNUSED)
    1622                 :            : {
    1623                 :            :   assemble_addr_to_section (symbol, dtors_section);
    1624                 :            : }
    1625                 :            : #endif
    1626                 :            : 
    1627                 :            : void
    1628                 :          0 : default_named_section_asm_out_constructor (rtx symbol, int priority)
    1629                 :            : {
    1630                 :          0 :   section *sec;
    1631                 :            : 
    1632                 :          0 :   if (priority != DEFAULT_INIT_PRIORITY)
    1633                 :          0 :     sec = get_cdtor_priority_section (priority,
    1634                 :            :                                       /*constructor_p=*/true);
    1635                 :            :   else
    1636                 :          0 :     sec = get_section (".ctors", SECTION_WRITE, NULL);
    1637                 :            : 
    1638                 :          0 :   assemble_addr_to_section (symbol, sec);
    1639                 :          0 : }
    1640                 :            : 
    1641                 :            : #ifdef CTORS_SECTION_ASM_OP
    1642                 :            : void
    1643                 :            : default_ctor_section_asm_out_constructor (rtx symbol,
    1644                 :            :                                           int priority ATTRIBUTE_UNUSED)
    1645                 :            : {
    1646                 :            :   assemble_addr_to_section (symbol, ctors_section);
    1647                 :            : }
    1648                 :            : #endif
    1649                 :            : 
    1650                 :            : /* CONSTANT_POOL_BEFORE_FUNCTION may be defined as an expression with
    1651                 :            :    a nonzero value if the constant pool should be output before the
    1652                 :            :    start of the function, or a zero value if the pool should output
    1653                 :            :    after the end of the function.  The default is to put it before the
    1654                 :            :    start.  */
    1655                 :            : 
    1656                 :            : #ifndef CONSTANT_POOL_BEFORE_FUNCTION
    1657                 :            : #define CONSTANT_POOL_BEFORE_FUNCTION 1
    1658                 :            : #endif
    1659                 :            : 
    1660                 :            : /* DECL is an object (either VAR_DECL or FUNCTION_DECL) which is going
    1661                 :            :    to be output to assembler.
    1662                 :            :    Set first_global_object_name and weak_global_object_name as appropriate.  */
    1663                 :            : 
    1664                 :            : void
    1665                 :   41115700 : notice_global_symbol (tree decl)
    1666                 :            : {
    1667                 :   41115700 :   const char **t = &first_global_object_name;
    1668                 :            : 
    1669                 :   41115700 :   if (first_global_object_name
    1670                 :   25582000 :       || !TREE_PUBLIC (decl)
    1671                 :   24805500 :       || DECL_EXTERNAL (decl)
    1672                 :    2292740 :       || !DECL_NAME (decl)
    1673                 :    2292720 :       || (VAR_P (decl) && DECL_HARD_REGISTER (decl))
    1674                 :   43408300 :       || (TREE_CODE (decl) != FUNCTION_DECL
    1675                 :     901845 :           && (!VAR_P (decl)
    1676                 :     901845 :               || (DECL_COMMON (decl)
    1677                 :       7683 :                   && (DECL_INITIAL (decl) == 0
    1678                 :     909353 :                       || DECL_INITIAL (decl) == error_mark_node)))))
    1679                 :            :     return;
    1680                 :            : 
    1681                 :            :   /* We win when global object is found, but it is useful to know about weak
    1682                 :            :      symbol as well so we can produce nicer unique names.  */
    1683                 :    2292520 :   if (DECL_WEAK (decl) || DECL_ONE_ONLY (decl) || flag_shlib)
    1684                 :            :     t = &weak_global_object_name;
    1685                 :            : 
    1686                 :    2292520 :   if (!*t)
    1687                 :            :     {
    1688                 :     189610 :       tree id = DECL_ASSEMBLER_NAME (decl);
    1689                 :     189610 :       ultimate_transparent_alias_target (&id);
    1690                 :     189610 :       *t = ggc_strdup (targetm.strip_name_encoding (IDENTIFIER_POINTER (id)));
    1691                 :            :     }
    1692                 :            : }
    1693                 :            : 
    1694                 :            : /* If not using flag_reorder_blocks_and_partition, decide early whether the
    1695                 :            :    current function goes into the cold section, so that targets can use
    1696                 :            :    current_function_section during RTL expansion.  DECL describes the
    1697                 :            :    function.  */
    1698                 :            : 
    1699                 :            : void
    1700                 :     949715 : decide_function_section (tree decl)
    1701                 :            : {
    1702                 :     949715 :   first_function_block_is_cold = false;
    1703                 :            : 
    1704                 :     949715 :  if (DECL_SECTION_NAME (decl))
    1705                 :            :     {
    1706                 :       7930 :       struct cgraph_node *node = cgraph_node::get (current_function_decl);
    1707                 :            :       /* Calls to function_section rely on first_function_block_is_cold
    1708                 :            :          being accurate.  */
    1709                 :       7930 :       first_function_block_is_cold = (node
    1710                 :       7930 :                                       && node->frequency
    1711                 :       7930 :                                       == NODE_FREQUENCY_UNLIKELY_EXECUTED);
    1712                 :            :     }
    1713                 :            : 
    1714                 :     949715 :   in_cold_section_p = first_function_block_is_cold;
    1715                 :     949715 : }
    1716                 :            : 
    1717                 :            : /* Get the function's name, as described by its RTL.  This may be
    1718                 :            :    different from the DECL_NAME name used in the source file.  */
    1719                 :            : const char *
    1720                 :    1936450 : get_fnname_from_decl (tree decl)
    1721                 :            : {
    1722                 :    1936450 :   rtx x = DECL_RTL (decl);
    1723                 :    1936450 :   gcc_assert (MEM_P (x));
    1724                 :    1936450 :   x = XEXP (x, 0);
    1725                 :    1936450 :   gcc_assert (GET_CODE (x) == SYMBOL_REF);
    1726                 :    1936450 :   return XSTR (x, 0);
    1727                 :            : }
    1728                 :            : 
    1729                 :            : /* Output assembler code for the constant pool of a function and associated
    1730                 :            :    with defining the name of the function.  DECL describes the function.
    1731                 :            :    NAME is the function's name.  For the constant pool, we use the current
    1732                 :            :    constant pool data.  */
    1733                 :            : 
    1734                 :            : void
    1735                 :     946296 : assemble_start_function (tree decl, const char *fnname)
    1736                 :            : {
    1737                 :     946296 :   int align;
    1738                 :     946296 :   char tmp_label[100];
    1739                 :     946296 :   bool hot_label_written = false;
    1740                 :            : 
    1741                 :     946296 :   if (crtl->has_bb_partition)
    1742                 :            :     {
    1743                 :      48257 :       ASM_GENERATE_INTERNAL_LABEL (tmp_label, "LHOTB", const_labelno);
    1744                 :      48257 :       crtl->subsections.hot_section_label = ggc_strdup (tmp_label);
    1745                 :      48257 :       ASM_GENERATE_INTERNAL_LABEL (tmp_label, "LCOLDB", const_labelno);
    1746                 :      48257 :       crtl->subsections.cold_section_label = ggc_strdup (tmp_label);
    1747                 :      48257 :       ASM_GENERATE_INTERNAL_LABEL (tmp_label, "LHOTE", const_labelno);
    1748                 :      48257 :       crtl->subsections.hot_section_end_label = ggc_strdup (tmp_label);
    1749                 :      48257 :       ASM_GENERATE_INTERNAL_LABEL (tmp_label, "LCOLDE", const_labelno);
    1750                 :      48257 :       crtl->subsections.cold_section_end_label = ggc_strdup (tmp_label);
    1751                 :      48257 :       const_labelno++;
    1752                 :      48257 :       cold_function_name = NULL_TREE;
    1753                 :            :     }
    1754                 :            :   else
    1755                 :            :     {
    1756                 :     898039 :       crtl->subsections.hot_section_label = NULL;
    1757                 :     898039 :       crtl->subsections.cold_section_label = NULL;
    1758                 :     898039 :       crtl->subsections.hot_section_end_label = NULL;
    1759                 :     898039 :       crtl->subsections.cold_section_end_label = NULL;
    1760                 :            :     }
    1761                 :            : 
    1762                 :            :   /* The following code does not need preprocessing in the assembler.  */
    1763                 :            : 
    1764                 :     946296 :   app_disable ();
    1765                 :            : 
    1766                 :     946296 :   if (CONSTANT_POOL_BEFORE_FUNCTION)
    1767                 :    1892590 :     output_constant_pool (fnname, decl);
    1768                 :            : 
    1769                 :     946296 :   align = symtab_node::get (decl)->definition_alignment ();
    1770                 :            : 
    1771                 :            :   /* Make sure the not and cold text (code) sections are properly
    1772                 :            :      aligned.  This is necessary here in the case where the function
    1773                 :            :      has both hot and cold sections, because we don't want to re-set
    1774                 :            :      the alignment when the section switch happens mid-function.  */
    1775                 :            : 
    1776                 :     946296 :   if (crtl->has_bb_partition)
    1777                 :            :     {
    1778                 :      48257 :       first_function_block_is_cold = false;
    1779                 :            : 
    1780                 :      48257 :       switch_to_section (unlikely_text_section ());
    1781                 :      48257 :       assemble_align (align);
    1782                 :      48257 :       ASM_OUTPUT_LABEL (asm_out_file, crtl->subsections.cold_section_label);
    1783                 :            : 
    1784                 :            :       /* When the function starts with a cold section, we need to explicitly
    1785                 :            :          align the hot section and write out the hot section label.
    1786                 :            :          But if the current function is a thunk, we do not have a CFG.  */
    1787                 :      48257 :       if (!cfun->is_thunk
    1788                 :      48257 :           && BB_PARTITION (ENTRY_BLOCK_PTR_FOR_FN (cfun)->next_bb) == BB_COLD_PARTITION)
    1789                 :            :         {
    1790                 :          0 :           switch_to_section (text_section);
    1791                 :          0 :           assemble_align (align);
    1792                 :          0 :           ASM_OUTPUT_LABEL (asm_out_file, crtl->subsections.hot_section_label);
    1793                 :          0 :           hot_label_written = true;
    1794                 :          0 :           first_function_block_is_cold = true;
    1795                 :            :         }
    1796                 :      48257 :       in_cold_section_p = first_function_block_is_cold;
    1797                 :            :     }
    1798                 :            : 
    1799                 :            : 
    1800                 :            :   /* Switch to the correct text section for the start of the function.  */
    1801                 :            : 
    1802                 :     946296 :   switch_to_section (function_section (decl));
    1803                 :     946296 :   if (crtl->has_bb_partition && !hot_label_written)
    1804                 :      48257 :     ASM_OUTPUT_LABEL (asm_out_file, crtl->subsections.hot_section_label);
    1805                 :            : 
    1806                 :            :   /* Tell assembler to move to target machine's alignment for functions.  */
    1807                 :     946296 :   align = floor_log2 (align / BITS_PER_UNIT);
    1808                 :     946296 :   if (align > 0)
    1809                 :            :     {
    1810                 :     128188 :       ASM_OUTPUT_ALIGN (asm_out_file, align);
    1811                 :            :     }
    1812                 :            : 
    1813                 :            :   /* Handle a user-specified function alignment.
    1814                 :            :      Note that we still need to align to DECL_ALIGN, as above,
    1815                 :            :      because ASM_OUTPUT_MAX_SKIP_ALIGN might not do any alignment at all.  */
    1816                 :     946296 :   if (! DECL_USER_ALIGN (decl)
    1817                 :     946260 :       && align_functions.levels[0].log > align
    1818                 :    1563620 :       && optimize_function_for_speed_p (cfun))
    1819                 :            :     {
    1820                 :            : #ifdef ASM_OUTPUT_MAX_SKIP_ALIGN
    1821                 :     602226 :       int align_log = align_functions.levels[0].log;
    1822                 :            : #endif
    1823                 :     602226 :       int max_skip = align_functions.levels[0].maxskip;
    1824                 :     602226 :       if (flag_limit_function_alignment && crtl->max_insn_address > 0
    1825                 :          1 :           && max_skip >= crtl->max_insn_address)
    1826                 :          1 :         max_skip = crtl->max_insn_address - 1;
    1827                 :            : 
    1828                 :            : #ifdef ASM_OUTPUT_MAX_SKIP_ALIGN
    1829                 :     602226 :       ASM_OUTPUT_MAX_SKIP_ALIGN (asm_out_file, align_log, max_skip);
    1830                 :     602226 :       if (max_skip == align_functions.levels[0].maxskip)
    1831                 :     602225 :         ASM_OUTPUT_MAX_SKIP_ALIGN (asm_out_file,
    1832                 :            :                                    align_functions.levels[1].log,
    1833                 :            :                                    align_functions.levels[1].maxskip);
    1834                 :            : #else
    1835                 :            :       ASM_OUTPUT_ALIGN (asm_out_file, align_functions.levels[0].log);
    1836                 :            : #endif
    1837                 :            :     }
    1838                 :            : 
    1839                 :            : #ifdef ASM_OUTPUT_FUNCTION_PREFIX
    1840                 :            :   ASM_OUTPUT_FUNCTION_PREFIX (asm_out_file, fnname);
    1841                 :            : #endif
    1842                 :            : 
    1843                 :     946296 :   if (!DECL_IGNORED_P (decl))
    1844                 :     922786 :     (*debug_hooks->begin_function) (decl);
    1845                 :            : 
    1846                 :            :   /* Make function name accessible from other files, if appropriate.  */
    1847                 :            : 
    1848                 :     946296 :   if (TREE_PUBLIC (decl))
    1849                 :            :     {
    1850                 :     752908 :       notice_global_symbol (decl);
    1851                 :            : 
    1852                 :     752908 :       globalize_decl (decl);
    1853                 :            : 
    1854                 :     752908 :       maybe_assemble_visibility (decl);
    1855                 :            :     }
    1856                 :            : 
    1857                 :     946296 :   if (DECL_PRESERVE_P (decl))
    1858                 :       3045 :     targetm.asm_out.mark_decl_preserved (fnname);
    1859                 :            : 
    1860                 :     946296 :   unsigned HOST_WIDE_INT patch_area_size = function_entry_patch_area_size;
    1861                 :     946296 :   unsigned HOST_WIDE_INT patch_area_entry = function_entry_patch_area_start;
    1862                 :            : 
    1863                 :     946296 :   tree patchable_function_entry_attr
    1864                 :     946296 :     = lookup_attribute ("patchable_function_entry", DECL_ATTRIBUTES (decl));
    1865                 :     946296 :   if (patchable_function_entry_attr)
    1866                 :            :     {
    1867                 :         10 :       tree pp_val = TREE_VALUE (patchable_function_entry_attr);
    1868                 :         10 :       tree patchable_function_entry_value1 = TREE_VALUE (pp_val);
    1869                 :            : 
    1870                 :         10 :       patch_area_size = tree_to_uhwi (patchable_function_entry_value1);
    1871                 :         10 :       patch_area_entry = 0;
    1872                 :         10 :       if (TREE_CHAIN (pp_val) != NULL_TREE)
    1873                 :            :         {
    1874                 :          0 :           tree patchable_function_entry_value2
    1875                 :          0 :             = TREE_VALUE (TREE_CHAIN (pp_val));
    1876                 :          0 :           patch_area_entry = tree_to_uhwi (patchable_function_entry_value2);
    1877                 :            :         }
    1878                 :            :     }
    1879                 :            : 
    1880                 :     946296 :   if (patch_area_entry > patch_area_size)
    1881                 :            :     {
    1882                 :          0 :       if (patch_area_size > 0)
    1883                 :          0 :         warning (OPT_Wattributes,
    1884                 :            :                  "patchable function entry %wu exceeds size %wu",
    1885                 :            :                  patch_area_entry, patch_area_size);
    1886                 :            :       patch_area_entry = 0;
    1887                 :            :     }
    1888                 :            : 
    1889                 :            :   /* Emit the patching area before the entry label, if any.  */
    1890                 :     946296 :   if (patch_area_entry > 0)
    1891                 :          5 :     targetm.asm_out.print_patchable_function_entry (asm_out_file,
    1892                 :            :                                                     patch_area_entry, true);
    1893                 :            : 
    1894                 :            :   /* Do any machine/system dependent processing of the function name.  */
    1895                 :            : #ifdef ASM_DECLARE_FUNCTION_NAME
    1896                 :     946296 :   ASM_DECLARE_FUNCTION_NAME (asm_out_file, fnname, current_function_decl);
    1897                 :            : #else
    1898                 :            :   /* Standard thing is just output label for the function.  */
    1899                 :            :   ASM_OUTPUT_FUNCTION_LABEL (asm_out_file, fnname, current_function_decl);
    1900                 :            : #endif /* ASM_DECLARE_FUNCTION_NAME */
    1901                 :            : 
    1902                 :            :   /* And the area after the label.  Record it if we haven't done so yet.  */
    1903                 :     946296 :   if (patch_area_size > patch_area_entry)
    1904                 :         15 :     targetm.asm_out.print_patchable_function_entry (asm_out_file,
    1905                 :            :                                                     patch_area_size
    1906                 :            :                                                     - patch_area_entry,
    1907                 :            :                                                     patch_area_entry == 0);
    1908                 :            : 
    1909                 :     946296 :   if (lookup_attribute ("no_split_stack", DECL_ATTRIBUTES (decl)))
    1910                 :       2141 :     saw_no_split_stack = true;
    1911                 :     946296 : }
    1912                 :            : 
    1913                 :            : /* Output assembler code associated with defining the size of the
    1914                 :            :    function.  DECL describes the function.  NAME is the function's name.  */
    1915                 :            : 
    1916                 :            : void
    1917                 :     946296 : assemble_end_function (tree decl, const char *fnname ATTRIBUTE_UNUSED)
    1918                 :            : {
    1919                 :            : #ifdef ASM_DECLARE_FUNCTION_SIZE
    1920                 :            :   /* We could have switched section in the middle of the function.  */
    1921                 :     946296 :   if (crtl->has_bb_partition)
    1922                 :      48257 :     switch_to_section (function_section (decl));
    1923                 :     946296 :   ASM_DECLARE_FUNCTION_SIZE (asm_out_file, fnname, decl);
    1924                 :            : #endif
    1925                 :     946296 :   if (! CONSTANT_POOL_BEFORE_FUNCTION)
    1926                 :            :     {
    1927                 :            :       output_constant_pool (fnname, decl);
    1928                 :            :       switch_to_section (function_section (decl)); /* need to switch back */
    1929                 :            :     }
    1930                 :            :   /* Output labels for end of hot/cold text sections (to be used by
    1931                 :            :      debug info.)  */
    1932                 :     946296 :   if (crtl->has_bb_partition)
    1933                 :            :     {
    1934                 :      48257 :       section *save_text_section;
    1935                 :            : 
    1936                 :      48257 :       save_text_section = in_section;
    1937                 :      48257 :       switch_to_section (unlikely_text_section ());
    1938                 :            : #ifdef ASM_DECLARE_COLD_FUNCTION_SIZE
    1939                 :      48257 :       if (cold_function_name != NULL_TREE)
    1940                 :      48257 :         ASM_DECLARE_COLD_FUNCTION_SIZE (asm_out_file,
    1941                 :            :                                         IDENTIFIER_POINTER (cold_function_name),
    1942                 :            :                                         decl);
    1943                 :            : #endif
    1944                 :      48257 :       ASM_OUTPUT_LABEL (asm_out_file, crtl->subsections.cold_section_end_label);
    1945                 :      48257 :       if (first_function_block_is_cold)
    1946                 :          0 :         switch_to_section (text_section);
    1947                 :            :       else
    1948                 :      48257 :         switch_to_section (function_section (decl));
    1949                 :      48257 :       ASM_OUTPUT_LABEL (asm_out_file, crtl->subsections.hot_section_end_label);
    1950                 :      48257 :       switch_to_section (save_text_section);
    1951                 :            :     }
    1952                 :     946296 : }
    1953                 :            : 
    1954                 :            : /* Assemble code to leave SIZE bytes of zeros.  */
    1955                 :            : 
    1956                 :            : void
    1957                 :     759950 : assemble_zeros (unsigned HOST_WIDE_INT size)
    1958                 :            : {
    1959                 :            :   /* Do no output if -fsyntax-only.  */
    1960                 :     759950 :   if (flag_syntax_only)
    1961                 :            :     return;
    1962                 :            : 
    1963                 :            : #ifdef ASM_NO_SKIP_IN_TEXT
    1964                 :            :   /* The `space' pseudo in the text section outputs nop insns rather than 0s,
    1965                 :            :      so we must output 0s explicitly in the text section.  */
    1966                 :     759950 :   if (ASM_NO_SKIP_IN_TEXT && (in_section->common.flags & SECTION_CODE) != 0)
    1967                 :            :     {
    1968                 :            :       unsigned HOST_WIDE_INT i;
    1969                 :          0 :       for (i = 0; i < size; i++)
    1970                 :          0 :         assemble_integer (const0_rtx, 1, BITS_PER_UNIT, 1);
    1971                 :            :     }
    1972                 :            :   else
    1973                 :            : #endif
    1974                 :     759950 :     if (size > 0)
    1975                 :     698983 :       ASM_OUTPUT_SKIP (asm_out_file, size);
    1976                 :            : }
    1977                 :            : 
    1978                 :            : /* Assemble an alignment pseudo op for an ALIGN-bit boundary.  */
    1979                 :            : 
    1980                 :            : void
    1981                 :     233479 : assemble_align (unsigned int align)
    1982                 :            : {
    1983                 :     233479 :   if (align > BITS_PER_UNIT)
    1984                 :            :     {
    1985                 :     187414 :       ASM_OUTPUT_ALIGN (asm_out_file, floor_log2 (align / BITS_PER_UNIT));
    1986                 :            :     }
    1987                 :     233479 : }
    1988                 :            : 
    1989                 :            : /* Assemble a string constant with the specified C string as contents.  */
    1990                 :            : 
    1991                 :            : void
    1992                 :   22335100 : assemble_string (const char *p, int size)
    1993                 :            : {
    1994                 :   22335100 :   int pos = 0;
    1995                 :   22335100 :   int maximum = 2000;
    1996                 :            : 
    1997                 :            :   /* If the string is very long, split it up.  */
    1998                 :            : 
    1999                 :   44770100 :   while (pos < size)
    2000                 :            :     {
    2001                 :   22435000 :       int thissize = size - pos;
    2002                 :   22435000 :       if (thissize > maximum)
    2003                 :            :         thissize = maximum;
    2004                 :            : 
    2005                 :   22435000 :       ASM_OUTPUT_ASCII (asm_out_file, p, thissize);
    2006                 :            : 
    2007                 :   22435000 :       pos += thissize;
    2008                 :   22435000 :       p += thissize;
    2009                 :            :     }
    2010                 :   22335100 : }
    2011                 :            : 
    2012                 :            : 
    2013                 :            : /* A noswitch_section_callback for lcomm_section.  */
    2014                 :            : 
    2015                 :            : static bool
    2016                 :      93043 : emit_local (tree decl ATTRIBUTE_UNUSED,
    2017                 :            :             const char *name ATTRIBUTE_UNUSED,
    2018                 :            :             unsigned HOST_WIDE_INT size ATTRIBUTE_UNUSED,
    2019                 :            :             unsigned HOST_WIDE_INT rounded ATTRIBUTE_UNUSED)
    2020                 :            : {
    2021                 :            : #if defined ASM_OUTPUT_ALIGNED_DECL_LOCAL
    2022                 :            :   unsigned int align = symtab_node::get (decl)->definition_alignment ();
    2023                 :            :   ASM_OUTPUT_ALIGNED_DECL_LOCAL (asm_out_file, decl, name,
    2024                 :            :                                  size, align);
    2025                 :            :   return true;
    2026                 :            : #elif defined ASM_OUTPUT_ALIGNED_LOCAL
    2027                 :      93043 :   unsigned int align = symtab_node::get (decl)->definition_alignment ();
    2028                 :      93043 :   ASM_OUTPUT_ALIGNED_LOCAL (asm_out_file, name, size, align);
    2029                 :      93043 :   return true;
    2030                 :            : #else
    2031                 :            :   ASM_OUTPUT_LOCAL (asm_out_file, name, size, rounded);
    2032                 :            :   return false;
    2033                 :            : #endif
    2034                 :            : }
    2035                 :            : 
    2036                 :            : /* A noswitch_section_callback for bss_noswitch_section.  */
    2037                 :            : 
    2038                 :            : #if defined ASM_OUTPUT_ALIGNED_BSS
    2039                 :            : static bool
    2040                 :     718237 : emit_bss (tree decl ATTRIBUTE_UNUSED,
    2041                 :            :           const char *name ATTRIBUTE_UNUSED,
    2042                 :            :           unsigned HOST_WIDE_INT size ATTRIBUTE_UNUSED,
    2043                 :            :           unsigned HOST_WIDE_INT rounded ATTRIBUTE_UNUSED)
    2044                 :            : {
    2045                 :     718237 :   ASM_OUTPUT_ALIGNED_BSS (asm_out_file, decl, name, size,
    2046                 :            :                           get_variable_align (decl));
    2047                 :     718237 :   return true;
    2048                 :            : }
    2049                 :            : #endif
    2050                 :            : 
    2051                 :            : /* A noswitch_section_callback for comm_section.  */
    2052                 :            : 
    2053                 :            : static bool
    2054                 :       1162 : emit_common (tree decl ATTRIBUTE_UNUSED,
    2055                 :            :              const char *name ATTRIBUTE_UNUSED,
    2056                 :            :              unsigned HOST_WIDE_INT size ATTRIBUTE_UNUSED,
    2057                 :            :              unsigned HOST_WIDE_INT rounded ATTRIBUTE_UNUSED)
    2058                 :            : {
    2059                 :            : #if defined ASM_OUTPUT_ALIGNED_DECL_COMMON
    2060                 :       1162 :   ASM_OUTPUT_ALIGNED_DECL_COMMON (asm_out_file, decl, name,
    2061                 :       1162 :                                   size, get_variable_align (decl));
    2062                 :       1162 :   return true;
    2063                 :            : #elif defined ASM_OUTPUT_ALIGNED_COMMON
    2064                 :            :   ASM_OUTPUT_ALIGNED_COMMON (asm_out_file, name, size,
    2065                 :            :                              get_variable_align (decl));
    2066                 :            :   return true;
    2067                 :            : #else
    2068                 :            :   ASM_OUTPUT_COMMON (asm_out_file, name, size, rounded);
    2069                 :            :   return false;
    2070                 :            : #endif
    2071                 :            : }
    2072                 :            : 
    2073                 :            : /* A noswitch_section_callback for tls_comm_section.  */
    2074                 :            : 
    2075                 :            : static bool
    2076                 :         35 : emit_tls_common (tree decl ATTRIBUTE_UNUSED,
    2077                 :            :                  const char *name ATTRIBUTE_UNUSED,
    2078                 :            :                  unsigned HOST_WIDE_INT size ATTRIBUTE_UNUSED,
    2079                 :            :                  unsigned HOST_WIDE_INT rounded ATTRIBUTE_UNUSED)
    2080                 :            : {
    2081                 :            : #ifdef ASM_OUTPUT_TLS_COMMON
    2082                 :         35 :   ASM_OUTPUT_TLS_COMMON (asm_out_file, decl, name, size);
    2083                 :         35 :   return true;
    2084                 :            : #else
    2085                 :            :   sorry ("thread-local COMMON data not implemented");
    2086                 :            :   return true;
    2087                 :            : #endif
    2088                 :            : }
    2089                 :            : 
    2090                 :            : /* Assemble DECL given that it belongs in SECTION_NOSWITCH section SECT.
    2091                 :            :    NAME is the name of DECL's SYMBOL_REF.  */
    2092                 :            : 
    2093                 :            : static void
    2094                 :     812477 : assemble_noswitch_variable (tree decl, const char *name, section *sect,
    2095                 :            :                             unsigned int align)
    2096                 :            : {
    2097                 :     812477 :   unsigned HOST_WIDE_INT size, rounded;
    2098                 :            : 
    2099                 :     812477 :   size = tree_to_uhwi (DECL_SIZE_UNIT (decl));
    2100                 :     812477 :   rounded = size;
    2101                 :            : 
    2102                 :     812477 :   if ((flag_sanitize & SANITIZE_ADDRESS) && asan_protect_global (decl))
    2103                 :       1651 :     size += asan_red_zone_size (size);
    2104                 :            : 
    2105                 :            :   /* Don't allocate zero bytes of common,
    2106                 :            :      since that means "undefined external" in the linker.  */
    2107                 :     812477 :   if (size == 0)
    2108                 :       1394 :     rounded = 1;
    2109                 :            : 
    2110                 :            :   /* Round size up to multiple of BIGGEST_ALIGNMENT bits
    2111                 :            :      so that each uninitialized object starts on such a boundary.  */
    2112                 :     812477 :   rounded += (BIGGEST_ALIGNMENT / BITS_PER_UNIT) - 1;
    2113                 :     812477 :   rounded = (rounded / (BIGGEST_ALIGNMENT / BITS_PER_UNIT)
    2114                 :     812477 :              * (BIGGEST_ALIGNMENT / BITS_PER_UNIT));
    2115                 :            : 
    2116                 :     812477 :   if (!sect->noswitch.callback (decl, name, size, rounded)
    2117                 :     812477 :       && (unsigned HOST_WIDE_INT) (align / BITS_PER_UNIT) > rounded)
    2118                 :          0 :     error ("requested alignment for %q+D is greater than "
    2119                 :            :            "implemented alignment of %wu", decl, rounded);
    2120                 :     812477 : }
    2121                 :            : 
    2122                 :            : /* A subroutine of assemble_variable.  Output the label and contents of
    2123                 :            :    DECL, whose address is a SYMBOL_REF with name NAME.  DONT_OUTPUT_DATA
    2124                 :            :    is as for assemble_variable.  */
    2125                 :            : 
    2126                 :            : static void
    2127                 :    1487650 : assemble_variable_contents (tree decl, const char *name,
    2128                 :            :                             bool dont_output_data, bool merge_strings)
    2129                 :            : {
    2130                 :            :   /* Do any machine/system dependent processing of the object.  */
    2131                 :            : #ifdef ASM_DECLARE_OBJECT_NAME
    2132                 :    1487650 :   last_assemble_variable_decl = decl;
    2133                 :    3546660 :   ASM_DECLARE_OBJECT_NAME (asm_out_file, name, decl);
    2134                 :            : #else
    2135                 :            :   /* Standard thing is just output label for the object.  */
    2136                 :            :   ASM_OUTPUT_LABEL (asm_out_file, name);
    2137                 :            : #endif /* ASM_DECLARE_OBJECT_NAME */
    2138                 :            : 
    2139                 :    1487650 :   if (!dont_output_data)
    2140                 :            :     {
    2141                 :            :       /* Caller is supposed to use varpool_get_constructor when it wants
    2142                 :            :          to output the body.  */
    2143                 :    1503750 :       gcc_assert (!in_lto_p || DECL_INITIAL (decl) != error_mark_node);
    2144                 :    1486970 :       if (DECL_INITIAL (decl)
    2145                 :    1472030 :           && DECL_INITIAL (decl) != error_mark_node
    2146                 :    2959010 :           && !initializer_zerop (DECL_INITIAL (decl)))
    2147                 :            :         /* Output the actual data.  */
    2148                 :    1404040 :         output_constant (DECL_INITIAL (decl),
    2149                 :    1404040 :                          tree_to_uhwi (DECL_SIZE_UNIT (decl)),
    2150                 :            :                          get_variable_align (decl),
    2151                 :            :                          false, merge_strings);
    2152                 :            :       else
    2153                 :            :         /* Leave space for it.  */
    2154                 :      82936 :         assemble_zeros (tree_to_uhwi (DECL_SIZE_UNIT (decl)));
    2155                 :    1486970 :       targetm.asm_out.decl_end ();
    2156                 :            :     }
    2157                 :    1487650 : }
    2158                 :            : 
    2159                 :            : /* Write out assembly for the variable DECL, which is not defined in
    2160                 :            :    the current translation unit.  */
    2161                 :            : void
    2162                 :     237860 : assemble_undefined_decl (tree decl)
    2163                 :            : {
    2164                 :     237860 :   const char *name = XSTR (XEXP (DECL_RTL (decl), 0), 0);
    2165                 :     237860 :   targetm.asm_out.assemble_undefined_decl (asm_out_file, name, decl);
    2166                 :     237860 : }
    2167                 :            : 
    2168                 :            : /* Assemble everything that is needed for a variable or function declaration.
    2169                 :            :    Not used for automatic variables, and not used for function definitions.
    2170                 :            :    Should not be called for variables of incomplete structure type.
    2171                 :            : 
    2172                 :            :    TOP_LEVEL is nonzero if this variable has file scope.
    2173                 :            :    AT_END is nonzero if this is the special handling, at end of compilation,
    2174                 :            :    to define things that have had only tentative definitions.
    2175                 :            :    DONT_OUTPUT_DATA if nonzero means don't actually output the
    2176                 :            :    initial value (that will be done by the caller).  */
    2177                 :            : 
    2178                 :            : void
    2179                 :    2306860 : assemble_variable (tree decl, int top_level ATTRIBUTE_UNUSED,
    2180                 :            :                    int at_end ATTRIBUTE_UNUSED, int dont_output_data)
    2181                 :            : {
    2182                 :    2306860 :   const char *name;
    2183                 :    2306860 :   rtx decl_rtl, symbol;
    2184                 :    2306860 :   section *sect;
    2185                 :    2306860 :   unsigned int align;
    2186                 :    2306860 :   bool asan_protected = false;
    2187                 :            : 
    2188                 :            :   /* This function is supposed to handle VARIABLES.  Ensure we have one.  */
    2189                 :    2306860 :   gcc_assert (VAR_P (decl));
    2190                 :            : 
    2191                 :            :   /* Emulated TLS had better not get this far.  */
    2192                 :    2306860 :   gcc_checking_assert (targetm.have_tls || !DECL_THREAD_LOCAL_P (decl));
    2193                 :            : 
    2194                 :    2306860 :   last_assemble_variable_decl = 0;
    2195                 :            : 
    2196                 :            :   /* Normally no need to say anything here for external references,
    2197                 :            :      since assemble_external is called by the language-specific code
    2198                 :            :      when a declaration is first seen.  */
    2199                 :            : 
    2200                 :    2306860 :   if (DECL_EXTERNAL (decl))
    2201                 :            :     return;
    2202                 :            : 
    2203                 :            :   /* Do nothing for global register variables.  */
    2204                 :    2300710 :   if (DECL_RTL_SET_P (decl) && REG_P (DECL_RTL (decl)))
    2205                 :            :     {
    2206                 :          0 :       TREE_ASM_WRITTEN (decl) = 1;
    2207                 :          0 :       return;
    2208                 :            :     }
    2209                 :            : 
    2210                 :            :   /* If type was incomplete when the variable was declared,
    2211                 :            :      see if it is complete now.  */
    2212                 :            : 
    2213                 :    2300710 :   if (DECL_SIZE (decl) == 0)
    2214                 :          1 :     layout_decl (decl, 0);
    2215                 :            : 
    2216                 :            :   /* Still incomplete => don't allocate it; treat the tentative defn
    2217                 :            :      (which is what it must have been) as an `extern' reference.  */
    2218                 :            : 
    2219                 :    4600750 :   if (!dont_output_data && DECL_SIZE (decl) == 0)
    2220                 :            :     {
    2221                 :          1 :       error ("storage size of %q+D isn%'t known", decl);
    2222                 :          1 :       TREE_ASM_WRITTEN (decl) = 1;
    2223                 :          1 :       return;
    2224                 :            :     }
    2225                 :            : 
    2226                 :            :   /* The first declaration of a variable that comes through this function
    2227                 :            :      decides whether it is global (in C, has external linkage)
    2228                 :            :      or local (in C, has internal linkage).  So do nothing more
    2229                 :            :      if this function has already run.  */
    2230                 :            : 
    2231                 :    2300710 :   if (TREE_ASM_WRITTEN (decl))
    2232                 :            :     return;
    2233                 :            : 
    2234                 :            :   /* Make sure targetm.encode_section_info is invoked before we set
    2235                 :            :      ASM_WRITTEN.  */
    2236                 :    2300710 :   decl_rtl = DECL_RTL (decl);
    2237                 :            : 
    2238                 :    2300710 :   TREE_ASM_WRITTEN (decl) = 1;
    2239                 :            : 
    2240                 :            :   /* Do no output if -fsyntax-only.  */
    2241                 :    2300710 :   if (flag_syntax_only)
    2242                 :            :     return;
    2243                 :            : 
    2244                 :    2300710 :   if (! dont_output_data
    2245                 :    4600740 :       && ! valid_constant_size_p (DECL_SIZE_UNIT (decl)))
    2246                 :            :     {
    2247                 :          0 :       error ("size of variable %q+D is too large", decl);
    2248                 :          0 :       return;
    2249                 :            :     }
    2250                 :            : 
    2251                 :    2300710 :   gcc_assert (MEM_P (decl_rtl));
    2252                 :    2300710 :   gcc_assert (GET_CODE (XEXP (decl_rtl, 0)) == SYMBOL_REF);
    2253                 :    2300710 :   symbol = XEXP (decl_rtl, 0);
    2254                 :            : 
    2255                 :            :   /* If this symbol belongs to the tree constant pool, output the constant
    2256                 :            :      if it hasn't already been written.  */
    2257                 :    2300710 :   if (TREE_CONSTANT_POOL_ADDRESS_P (symbol))
    2258                 :            :     {
    2259                 :        583 :       tree decl = SYMBOL_REF_DECL (symbol);
    2260                 :        583 :       if (!TREE_ASM_WRITTEN (DECL_INITIAL (decl)))
    2261                 :          0 :         output_constant_def_contents (symbol);
    2262                 :        583 :       return;
    2263                 :            :     }
    2264                 :            : 
    2265                 :    2300130 :   app_disable ();
    2266                 :            : 
    2267                 :    2300130 :   name = XSTR (symbol, 0);
    2268                 :    3425530 :   if (TREE_PUBLIC (decl) && DECL_NAME (decl))
    2269                 :    1125330 :     notice_global_symbol (decl);
    2270                 :            : 
    2271                 :            :   /* Compute the alignment of this data.  */
    2272                 :            : 
    2273                 :    2300130 :   align_variable (decl, dont_output_data);
    2274                 :            : 
    2275                 :    2300130 :   if ((flag_sanitize & SANITIZE_ADDRESS)
    2276                 :    2300130 :       && asan_protect_global (decl))
    2277                 :            :     {
    2278                 :       1665 :       asan_protected = true;
    2279                 :       1665 :       SET_DECL_ALIGN (decl, MAX (DECL_ALIGN (decl),
    2280                 :            :                                  ASAN_RED_ZONE_SIZE * BITS_PER_UNIT));
    2281                 :            :     }
    2282                 :            : 
    2283                 :    2300130 :   set_mem_align (decl_rtl, DECL_ALIGN (decl));
    2284                 :            : 
    2285                 :    2300130 :   align = get_variable_align (decl);
    2286                 :            : 
    2287                 :    2300130 :   if (TREE_PUBLIC (decl))
    2288                 :    1125400 :     maybe_assemble_visibility (decl);
    2289                 :            : 
    2290                 :    2300130 :   if (DECL_PRESERVE_P (decl))
    2291                 :        583 :     targetm.asm_out.mark_decl_preserved (name);
    2292                 :            : 
    2293                 :            :   /* First make the assembler name(s) global if appropriate.  */
    2294                 :    2300130 :   sect = get_variable_section (decl, false);
    2295                 :    2300130 :   if (TREE_PUBLIC (decl)
    2296                 :    2300130 :       && (sect->common.flags & SECTION_COMMON) == 0)
    2297                 :    1124200 :     globalize_decl (decl);
    2298                 :            : 
    2299                 :            :   /* Output any data that we will need to use the address of.  */
    2300                 :    2300130 :   if (DECL_INITIAL (decl) && DECL_INITIAL (decl) != error_mark_node)
    2301                 :    1487620 :     output_addressed_constants (DECL_INITIAL (decl));
    2302                 :            : 
    2303                 :            :   /* dbxout.c needs to know this.  */
    2304                 :    2300130 :   if (sect && (sect->common.flags & SECTION_CODE) != 0)
    2305                 :          0 :     DECL_IN_TEXT_SECTION (decl) = 1;
    2306                 :            : 
    2307                 :            :   /* If the decl is part of an object_block, make sure that the decl
    2308                 :            :      has been positioned within its block, but do not write out its
    2309                 :            :      definition yet.  output_object_blocks will do that later.  */
    2310                 :    2300130 :   if (SYMBOL_REF_HAS_BLOCK_INFO_P (symbol) && SYMBOL_REF_BLOCK (symbol))
    2311                 :            :     {
    2312                 :          0 :       gcc_assert (!dont_output_data);
    2313                 :          0 :       place_block_symbol (symbol);
    2314                 :            :     }
    2315                 :    2300130 :   else if (SECTION_STYLE (sect) == SECTION_NOSWITCH)
    2316                 :     812477 :     assemble_noswitch_variable (decl, name, sect, align);
    2317                 :            :   else
    2318                 :            :     {
    2319                 :            :       /* Special-case handling of vtv comdat sections.  */
    2320                 :    1487650 :       if (sect->named.name
    2321                 :    1487650 :           && (strcmp (sect->named.name, ".vtable_map_vars") == 0))
    2322                 :          5 :         handle_vtv_comdat_section (sect, decl);
    2323                 :            :       else
    2324                 :    1487650 :         switch_to_section (sect);
    2325                 :    1487650 :       if (align > BITS_PER_UNIT)
    2326                 :    1403870 :         ASM_OUTPUT_ALIGN (asm_out_file, floor_log2 (align / BITS_PER_UNIT));
    2327                 :    1487650 :       assemble_variable_contents (decl, name, dont_output_data,
    2328                 :            :                                   (sect->common.flags & SECTION_MERGE)
    2329                 :    1487650 :                                   && (sect->common.flags & SECTION_STRINGS));
    2330                 :    1487650 :       if (asan_protected)
    2331                 :            :         {
    2332                 :        799 :           unsigned HOST_WIDE_INT int size
    2333                 :        799 :             = tree_to_uhwi (DECL_SIZE_UNIT (decl));
    2334                 :       1530 :           assemble_zeros (asan_red_zone_size (size));
    2335                 :            :         }
    2336                 :            :     }
    2337                 :            : }
    2338                 :            : 
    2339                 :            : 
    2340                 :            : /* Given a function declaration (FN_DECL), this function assembles the
    2341                 :            :    function into the .preinit_array section.  */
    2342                 :            : 
    2343                 :            : void
    2344                 :          0 : assemble_vtv_preinit_initializer (tree fn_decl)
    2345                 :            : {
    2346                 :          0 :   section *sect;
    2347                 :          0 :   unsigned flags = SECTION_WRITE;
    2348                 :          0 :   rtx symbol = XEXP (DECL_RTL (fn_decl), 0);
    2349                 :            : 
    2350                 :          0 :   flags |= SECTION_NOTYPE;
    2351                 :          0 :   sect = get_section (".preinit_array", flags, fn_decl);
    2352                 :          0 :   switch_to_section (sect);
    2353                 :          0 :   assemble_addr_to_section (symbol, sect);
    2354                 :          0 : }
    2355                 :            : 
    2356                 :            : /* Return 1 if type TYPE contains any pointers.  */
    2357                 :            : 
    2358                 :            : static int
    2359                 :          2 : contains_pointers_p (tree type)
    2360                 :            : {
    2361                 :          2 :   switch (TREE_CODE (type))
    2362                 :            :     {
    2363                 :            :     case POINTER_TYPE:
    2364                 :            :     case REFERENCE_TYPE:
    2365                 :            :       /* I'm not sure whether OFFSET_TYPE needs this treatment,
    2366                 :            :          so I'll play safe and return 1.  */
    2367                 :            :     case OFFSET_TYPE:
    2368                 :            :       return 1;
    2369                 :            : 
    2370                 :          0 :     case RECORD_TYPE:
    2371                 :          0 :     case UNION_TYPE:
    2372                 :          0 :     case QUAL_UNION_TYPE:
    2373                 :          0 :       {
    2374                 :          0 :         tree fields;
    2375                 :            :         /* For a type that has fields, see if the fields have pointers.  */
    2376                 :          0 :         for (fields = TYPE_FIELDS (type); fields; fields = DECL_CHAIN (fields))
    2377                 :          0 :           if (TREE_CODE (fields) == FIELD_DECL
    2378                 :          0 :               && contains_pointers_p (TREE_TYPE (fields)))
    2379                 :            :             return 1;
    2380                 :            :         return 0;
    2381                 :            :       }
    2382                 :            : 
    2383                 :          0 :     case ARRAY_TYPE:
    2384                 :            :       /* An array type contains pointers if its element type does.  */
    2385                 :          0 :       return contains_pointers_p (TREE_TYPE (type));
    2386                 :            : 
    2387                 :          1 :     default:
    2388                 :          1 :       return 0;
    2389                 :            :     }
    2390                 :            : }
    2391                 :            : 
    2392                 :            : /* We delay assemble_external processing until
    2393                 :            :    the compilation unit is finalized.  This is the best we can do for
    2394                 :            :    right now (i.e. stage 3 of GCC 4.0) - the right thing is to delay
    2395                 :            :    it all the way to final.  See PR 17982 for further discussion.  */
    2396                 :            : static GTY(()) tree pending_assemble_externals;
    2397                 :            : 
    2398                 :            : #ifdef ASM_OUTPUT_EXTERNAL
    2399                 :            : /* Some targets delay some output to final using TARGET_ASM_FILE_END.
    2400                 :            :    As a result, assemble_external can be called after the list of externals
    2401                 :            :    is processed and the pointer set destroyed.  */
    2402                 :            : static bool pending_assemble_externals_processed;
    2403                 :            : 
    2404                 :            : /* Avoid O(external_decls**2) lookups in the pending_assemble_externals
    2405                 :            :    TREE_LIST in assemble_external.  */
    2406                 :            : static hash_set<tree> *pending_assemble_externals_set;
    2407                 :            : 
    2408                 :            : /* True if DECL is a function decl for which no out-of-line copy exists.
    2409                 :            :    It is assumed that DECL's assembler name has been set.  */
    2410                 :            : 
    2411                 :            : static bool
    2412                 :    1476470 : incorporeal_function_p (tree decl)
    2413                 :            : {
    2414                 :    1476470 :   if (TREE_CODE (decl) == FUNCTION_DECL && fndecl_built_in_p (decl))
    2415                 :            :     {
    2416                 :     139569 :       const char *name;
    2417                 :            : 
    2418                 :     139569 :       if (DECL_BUILT_IN_CLASS (decl) == BUILT_IN_NORMAL
    2419                 :     139569 :           && ALLOCA_FUNCTION_CODE_P (DECL_FUNCTION_CODE (decl)))
    2420                 :            :         return true;
    2421                 :            : 
    2422                 :     139566 :       name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
    2423                 :            :       /* Atomic or sync builtins which have survived this far will be
    2424                 :            :          resolved externally and therefore are not incorporeal.  */
    2425                 :     139566 :       if (strncmp (name, "__builtin_", 10) == 0)
    2426                 :          0 :         return true;
    2427                 :            :     }
    2428                 :            :   return false;
    2429                 :            : }
    2430                 :            : 
    2431                 :            : /* Actually do the tests to determine if this is necessary, and invoke
    2432                 :            :    ASM_OUTPUT_EXTERNAL.  */
    2433                 :            : static void
    2434                 :    1486550 : assemble_external_real (tree decl)
    2435                 :            : {
    2436                 :    1486550 :   rtx rtl = DECL_RTL (decl);
    2437                 :            : 
    2438                 :    1486550 :   if (MEM_P (rtl) && GET_CODE (XEXP (rtl, 0)) == SYMBOL_REF
    2439                 :    1486550 :       && !SYMBOL_REF_USED (XEXP (rtl, 0))
    2440                 :    2963020 :       && !incorporeal_function_p (decl))
    2441                 :            :     {
    2442                 :            :       /* Some systems do require some output.  */
    2443                 :    1476470 :       SYMBOL_REF_USED (XEXP (rtl, 0)) = 1;
    2444                 :    1476470 :       ASM_OUTPUT_EXTERNAL (asm_out_file, decl, XSTR (XEXP (rtl, 0), 0));
    2445                 :            :     }
    2446                 :    1486550 : }
    2447                 :            : #endif
    2448                 :            : 
    2449                 :            : void
    2450                 :     163841 : process_pending_assemble_externals (void)
    2451                 :            : {
    2452                 :            : #ifdef ASM_OUTPUT_EXTERNAL
    2453                 :     163841 :   tree list;
    2454                 :    1649860 :   for (list = pending_assemble_externals; list; list = TREE_CHAIN (list))
    2455                 :    1486010 :     assemble_external_real (TREE_VALUE (list));
    2456                 :            : 
    2457                 :     163841 :   pending_assemble_externals = 0;
    2458                 :     163841 :   pending_assemble_externals_processed = true;
    2459                 :     327682 :   delete pending_assemble_externals_set;
    2460                 :            : #endif
    2461                 :     163841 : }
    2462                 :            : 
    2463                 :            : /* This TREE_LIST contains any weak symbol declarations waiting
    2464                 :            :    to be emitted.  */
    2465                 :            : static GTY(()) tree weak_decls;
    2466                 :            : 
    2467                 :            : /* Output something to declare an external symbol to the assembler,
    2468                 :            :    and qualifiers such as weakness.  (Most assemblers don't need
    2469                 :            :    extern declaration, so we normally output nothing.)  Do nothing if
    2470                 :            :    DECL is not external.  */
    2471                 :            : 
    2472                 :            : void
    2473                 :   27718800 : assemble_external (tree decl ATTRIBUTE_UNUSED)
    2474                 :            : {
    2475                 :            :   /*  Make sure that the ASM_OUT_FILE is open.
    2476                 :            :       If it's not, we should not be calling this function.  */
    2477                 :   27718800 :   gcc_assert (asm_out_file);
    2478                 :            : 
    2479                 :            :   /* In a perfect world, the following condition would be true.
    2480                 :            :      Sadly, the Go front end emit assembly *from the front end*,
    2481                 :            :      bypassing the call graph.  See PR52739.  Fix before GCC 4.8.  */
    2482                 :            : #if 0
    2483                 :            :   /* This function should only be called if we are expanding, or have
    2484                 :            :      expanded, to RTL.
    2485                 :            :      Ideally, only final.c would be calling this function, but it is
    2486                 :            :      not clear whether that would break things somehow.  See PR 17982
    2487                 :            :      for further discussion.  */
    2488                 :            :   gcc_assert (state == EXPANSION
    2489                 :            :               || state == FINISHED);
    2490                 :            : #endif
    2491                 :            : 
    2492                 :   27718800 :   if (!DECL_P (decl) || !DECL_EXTERNAL (decl) || !TREE_PUBLIC (decl))
    2493                 :            :     return;
    2494                 :            : 
    2495                 :            :   /* We want to output annotation for weak and external symbols at
    2496                 :            :      very last to check if they are references or not.  */
    2497                 :            : 
    2498                 :   12221900 :   if (TARGET_SUPPORTS_WEAK
    2499                 :   12221900 :       && DECL_WEAK (decl)
    2500                 :            :       /* TREE_STATIC is a weird and abused creature which is not
    2501                 :            :          generally the right test for whether an entity has been
    2502                 :            :          locally emitted, inlined or otherwise not-really-extern, but
    2503                 :            :          for declarations that can be weak, it happens to be
    2504                 :            :          match.  */
    2505                 :       4306 :       && !TREE_STATIC (decl)
    2506                 :       3078 :       && lookup_attribute ("weak", DECL_ATTRIBUTES (decl))
    2507                 :   12224500 :       && value_member (decl, weak_decls) == NULL_TREE)
    2508                 :        449 :     weak_decls = tree_cons (NULL, decl, weak_decls);
    2509                 :            : 
    2510                 :            : #ifdef ASM_OUTPUT_EXTERNAL
    2511                 :   12221900 :   if (pending_assemble_externals_processed)
    2512                 :            :     {
    2513                 :        537 :       assemble_external_real (decl);
    2514                 :        537 :       return;
    2515                 :            :     }
    2516                 :            : 
    2517                 :   12221400 :   if (! pending_assemble_externals_set->add (decl))
    2518                 :    1486050 :     pending_assemble_externals = tree_cons (NULL, decl,
    2519                 :            :                                             pending_assemble_externals);
    2520                 :            : #endif
    2521                 :            : }
    2522                 :            : 
    2523                 :            : /* Similar, for calling a library function FUN.  */
    2524                 :            : 
    2525                 :            : void
    2526                 :     139773 : assemble_external_libcall (rtx fun)
    2527                 :            : {
    2528                 :            :   /* Declare library function name external when first used, if nec.  */
    2529                 :     139773 :   if (! SYMBOL_REF_USED (fun))
    2530                 :            :     {
    2531                 :      20057 :       SYMBOL_REF_USED (fun) = 1;
    2532                 :      20057 :       targetm.asm_out.external_libcall (fun);
    2533                 :            :     }
    2534                 :     139773 : }
    2535                 :            : 
    2536                 :            : /* Assemble a label named NAME.  */
    2537                 :            : 
    2538                 :            : void
    2539                 :     822674 : assemble_label (FILE *file, const char *name)
    2540                 :            : {
    2541                 :     822674 :   ASM_OUTPUT_LABEL (file, name);
    2542                 :     822674 : }
    2543                 :            : 
    2544                 :            : /* Set the symbol_referenced flag for ID.  */
    2545                 :            : void
    2546                 :   25135500 : mark_referenced (tree id)
    2547                 :            : {
    2548                 :   25135500 :   TREE_SYMBOL_REFERENCED (id) = 1;
    2549                 :   25135500 : }
    2550                 :            : 
    2551                 :            : /* Set the symbol_referenced flag for DECL and notify callgraph.  */
    2552                 :            : void
    2553                 :          0 : mark_decl_referenced (tree decl)
    2554                 :            : {
    2555                 :          0 :   if (TREE_CODE (decl) == FUNCTION_DECL)
    2556                 :            :     {
    2557                 :            :       /* Extern inline functions don't become needed when referenced.
    2558                 :            :          If we know a method will be emitted in other TU and no new
    2559                 :            :          functions can be marked reachable, just use the external
    2560                 :            :          definition.  */
    2561                 :          0 :       struct cgraph_node *node = cgraph_node::get_create (decl);
    2562                 :          0 :       if (!DECL_EXTERNAL (decl)
    2563                 :          0 :           && !node->definition)
    2564                 :          0 :         node->mark_force_output ();
    2565                 :            :     }
    2566                 :          0 :   else if (VAR_P (decl))
    2567                 :            :     {
    2568                 :          0 :       varpool_node *node = varpool_node::get_create (decl);
    2569                 :            :       /* C++ frontend use mark_decl_references to force COMDAT variables
    2570                 :            :          to be output that might appear dead otherwise.  */
    2571                 :          0 :       node->force_output = true;
    2572                 :            :     }
    2573                 :            :   /* else do nothing - we can get various sorts of CST nodes here,
    2574                 :            :      which do not need to be marked.  */
    2575                 :          0 : }
    2576                 :            : 
    2577                 :            : 
    2578                 :            : /* Output to FILE (an assembly file) a reference to NAME.  If NAME
    2579                 :            :    starts with a *, the rest of NAME is output verbatim.  Otherwise
    2580                 :            :    NAME is transformed in a target-specific way (usually by the
    2581                 :            :    addition of an underscore).  */
    2582                 :            : 
    2583                 :            : void
    2584                 :  238241000 : assemble_name_raw (FILE *file, const char *name)
    2585                 :            : {
    2586                 :  238241000 :   if (name[0] == '*')
    2587                 :  212871000 :     fputs (&name[1], file);
    2588                 :            :   else
    2589                 :   25370800 :     ASM_OUTPUT_LABELREF (file, name);
    2590                 :  238241000 : }
    2591                 :            : 
    2592                 :            : /* Return NAME that should actually be emitted, looking through
    2593                 :            :    transparent aliases.  If NAME refers to an entity that is also
    2594                 :            :    represented as a tree (like a function or variable), mark the entity
    2595                 :            :    as referenced.  */
    2596                 :            : const char *
    2597                 :  195438000 : assemble_name_resolve (const char *name)
    2598                 :            : {
    2599                 :  195438000 :   const char *real_name = targetm.strip_name_encoding (name);
    2600                 :  195438000 :   tree id = maybe_get_identifier (real_name);
    2601                 :            : 
    2602                 :  195438000 :   if (id)
    2603                 :            :     {
    2604                 :   25135500 :       tree id_orig = id;
    2605                 :            : 
    2606                 :   25135500 :       mark_referenced (id);
    2607                 :   25135500 :       ultimate_transparent_alias_target (&id);
    2608                 :   25135500 :       if (id != id_orig)
    2609                 :          0 :         name = IDENTIFIER_POINTER (id);
    2610                 :   25135500 :       gcc_assert (! TREE_CHAIN (id));
    2611                 :            :     }
    2612                 :            : 
    2613                 :  195438000 :   return name;
    2614                 :            : }
    2615                 :            : 
    2616                 :            : /* Like assemble_name_raw, but should be used when NAME might refer to
    2617                 :            :    an entity that is also represented as a tree (like a function or
    2618                 :            :    variable).  If NAME does refer to such an entity, that entity will
    2619                 :            :    be marked as referenced.  */
    2620                 :            : 
    2621                 :            : void
    2622                 :   89704900 : assemble_name (FILE *file, const char *name)
    2623                 :            : {
    2624                 :   89704900 :   assemble_name_raw (file, assemble_name_resolve (name));
    2625                 :   89704900 : }
    2626                 :            : 
    2627                 :            : /* Allocate SIZE bytes writable static space with a gensym name
    2628                 :            :    and return an RTX to refer to its address.  */
    2629                 :            : 
    2630                 :            : rtx
    2631                 :          0 : assemble_static_space (unsigned HOST_WIDE_INT size)
    2632                 :            : {
    2633                 :          0 :   char name[17];
    2634                 :          0 :   const char *namestring;
    2635                 :          0 :   rtx x;
    2636                 :            : 
    2637                 :          0 :   ASM_GENERATE_INTERNAL_LABEL (name, "LF", const_labelno);
    2638                 :          0 :   ++const_labelno;
    2639                 :          0 :   namestring = ggc_strdup (name);
    2640                 :            : 
    2641                 :          0 :   x = gen_rtx_SYMBOL_REF (Pmode, namestring);
    2642                 :          0 :   SYMBOL_REF_FLAGS (x) = SYMBOL_FLAG_LOCAL;
    2643                 :            : 
    2644                 :            : #ifdef ASM_OUTPUT_ALIGNED_DECL_LOCAL
    2645                 :            :   ASM_OUTPUT_ALIGNED_DECL_LOCAL (asm_out_file, NULL_TREE, name, size,
    2646                 :            :                                  BIGGEST_ALIGNMENT);
    2647                 :            : #else
    2648                 :            : #ifdef ASM_OUTPUT_ALIGNED_LOCAL
    2649                 :          0 :   ASM_OUTPUT_ALIGNED_LOCAL (asm_out_file, name, size, BIGGEST_ALIGNMENT);
    2650                 :            : #else
    2651                 :            :   {
    2652                 :            :     /* Round size up to multiple of BIGGEST_ALIGNMENT bits
    2653                 :            :        so that each uninitialized object starts on such a boundary.  */
    2654                 :            :     /* Variable `rounded' might or might not be used in ASM_OUTPUT_LOCAL.  */
    2655                 :            :     unsigned HOST_WIDE_INT rounded ATTRIBUTE_UNUSED
    2656                 :            :       = ((size + (BIGGEST_ALIGNMENT / BITS_PER_UNIT) - 1)
    2657                 :            :          / (BIGGEST_ALIGNMENT / BITS_PER_UNIT)
    2658                 :            :          * (BIGGEST_ALIGNMENT / BITS_PER_UNIT));
    2659                 :            :     ASM_OUTPUT_LOCAL (asm_out_file, name, size, rounded);
    2660                 :            :   }
    2661                 :            : #endif
    2662                 :            : #endif
    2663                 :          0 :   return x;
    2664                 :            : }
    2665                 :            : 
    2666                 :            : /* Assemble the static constant template for function entry trampolines.
    2667                 :            :    This is done at most once per compilation.
    2668                 :            :    Returns an RTX for the address of the template.  */
    2669                 :            : 
    2670                 :            : static GTY(()) rtx initial_trampoline;
    2671                 :            : 
    2672                 :            : rtx
    2673                 :          0 : assemble_trampoline_template (void)
    2674                 :            : {
    2675                 :          0 :   char label[256];
    2676                 :          0 :   const char *name;
    2677                 :          0 :   int align;
    2678                 :          0 :   rtx symbol;
    2679                 :            : 
    2680                 :          0 :   gcc_assert (targetm.asm_out.trampoline_template != NULL);
    2681                 :            : 
    2682                 :          0 :   if (initial_trampoline)
    2683                 :            :     return initial_trampoline;
    2684                 :            : 
    2685                 :            :   /* By default, put trampoline templates in read-only data section.  */
    2686                 :            : 
    2687                 :            : #ifdef TRAMPOLINE_SECTION
    2688                 :            :   switch_to_section (TRAMPOLINE_SECTION);
    2689                 :            : #else
    2690                 :          0 :   switch_to_section (readonly_data_section);
    2691                 :            : #endif
    2692                 :            : 
    2693                 :            :   /* Write the assembler code to define one.  */
    2694                 :          0 :   align = floor_log2 (TRAMPOLINE_ALIGNMENT / BITS_PER_UNIT);
    2695                 :          0 :   if (align > 0)
    2696                 :          0 :     ASM_OUTPUT_ALIGN (asm_out_file, align);
    2697                 :            : 
    2698                 :          0 :   targetm.asm_out.internal_label (asm_out_file, "LTRAMP", 0);
    2699                 :          0 :   targetm.asm_out.trampoline_template (asm_out_file);
    2700                 :            : 
    2701                 :            :   /* Record the rtl to refer to it.  */
    2702                 :          0 :   ASM_GENERATE_INTERNAL_LABEL (label, "LTRAMP", 0);
    2703                 :          0 :   name = ggc_strdup (label);
    2704                 :          0 :   symbol = gen_rtx_SYMBOL_REF (Pmode, name);
    2705                 :          0 :   SYMBOL_REF_FLAGS (symbol) = SYMBOL_FLAG_LOCAL;
    2706                 :            : 
    2707                 :          0 :   initial_trampoline = gen_const_mem (BLKmode, symbol);
    2708                 :          0 :   set_mem_align (initial_trampoline, TRAMPOLINE_ALIGNMENT);
    2709                 :          0 :   set_mem_size (initial_trampoline, TRAMPOLINE_SIZE);
    2710                 :            : 
    2711                 :          0 :   return initial_trampoline;
    2712                 :            : }
    2713                 :            : 
    2714                 :            : /* A and B are either alignments or offsets.  Return the minimum alignment
    2715                 :            :    that may be assumed after adding the two together.  */
    2716                 :            : 
    2717                 :            : static inline unsigned
    2718                 :   12200500 : min_align (unsigned int a, unsigned int b)
    2719                 :            : {
    2720                 :   12200500 :   return least_bit_hwi (a | b);
    2721                 :            : }
    2722                 :            : 
    2723                 :            : /* Return the assembler directive for creating a given kind of integer
    2724                 :            :    object.  SIZE is the number of bytes in the object and ALIGNED_P
    2725                 :            :    indicates whether it is known to be aligned.  Return NULL if the
    2726                 :            :    assembly dialect has no such directive.
    2727                 :            : 
    2728                 :            :    The returned string should be printed at the start of a new line and
    2729                 :            :    be followed immediately by the object's initial value.  */
    2730                 :            : 
    2731                 :            : const char *
    2732                 :  286358000 : integer_asm_op (int size, int aligned_p)
    2733                 :            : {
    2734                 :  286358000 :   struct asm_int_op *ops;
    2735                 :            : 
    2736                 :  286358000 :   if (aligned_p)
    2737                 :            :     ops = &targetm.asm_out.aligned_op;
    2738                 :            :   else
    2739                 :  275064000 :     ops = &targetm.asm_out.unaligned_op;
    2740                 :            : 
    2741                 :  286358000 :   switch (size)
    2742                 :            :     {
    2743                 :  108300000 :     case 1:
    2744                 :  108300000 :       return targetm.asm_out.byte_op;
    2745                 :   24049300 :     case 2:
    2746                 :   24049300 :       return ops->hi;
    2747                 :          0 :     case 3:
    2748                 :          0 :       return ops->psi;
    2749                 :   96815200 :     case 4:
    2750                 :   96815200 :       return ops->si;
    2751                 :          0 :     case 5:
    2752                 :          0 :     case 6:
    2753                 :          0 :     case 7:
    2754                 :          0 :       return ops->pdi;
    2755                 :   57182900 :     case 8:
    2756                 :   57182900 :       return ops->di;
    2757                 :          0 :     case 9:
    2758                 :          0 :     case 10:
    2759                 :          0 :     case 11:
    2760                 :          0 :     case 12:
    2761                 :          0 :     case 13:
    2762                 :          0 :     case 14:
    2763                 :          0 :     case 15:
    2764                 :          0 :       return ops->pti;
    2765                 :      10937 :     case 16:
    2766                 :      10937 :       return ops->ti;
    2767                 :            :     default:
    2768                 :            :       return NULL;
    2769                 :            :     }
    2770                 :            : }
    2771                 :            : 
    2772                 :            : /* Use directive OP to assemble an integer object X.  Print OP at the
    2773                 :            :    start of the line, followed immediately by the value of X.  */
    2774                 :            : 
    2775                 :            : void
    2776                 :   11047900 : assemble_integer_with_op (const char *op, rtx x)
    2777                 :            : {
    2778                 :   11047900 :   fputs (op, asm_out_file);
    2779                 :   11047900 :   output_addr_const (asm_out_file, x);
    2780                 :   11047900 :   fputc ('\n', asm_out_file);
    2781                 :   11047900 : }
    2782                 :            : 
    2783                 :            : /* The default implementation of the asm_out.integer target hook.  */
    2784                 :            : 
    2785                 :            : bool
    2786                 :   11309100 : default_assemble_integer (rtx x ATTRIBUTE_UNUSED,
    2787                 :            :                           unsigned int size ATTRIBUTE_UNUSED,
    2788                 :            :                           int aligned_p ATTRIBUTE_UNUSED)
    2789                 :            : {
    2790                 :   11309100 :   const char *op = integer_asm_op (size, aligned_p);
    2791                 :            :   /* Avoid GAS bugs for large values.  Specifically negative values whose
    2792                 :            :      absolute value fits in a bfd_vma, but not in a bfd_signed_vma.  */
    2793                 :   15717500 :   if (size > UNITS_PER_WORD && size > POINTER_SIZE_UNITS)
    2794                 :            :     return false;
    2795                 :   11047900 :   return op && (assemble_integer_with_op (op, x), true);
    2796                 :            : }
    2797                 :            : 
    2798                 :            : /* Assemble the integer constant X into an object of SIZE bytes.  ALIGN is
    2799                 :            :    the alignment of the integer in bits.  Return 1 if we were able to output
    2800                 :            :    the constant, otherwise 0.  We must be able to output the constant,
    2801                 :            :    if FORCE is nonzero.  */
    2802                 :            : 
    2803                 :            : bool
    2804                 :   11309100 : assemble_integer (rtx x, unsigned int size, unsigned int align, int force)
    2805                 :            : {
    2806                 :   11309100 :   int aligned_p;
    2807                 :            : 
    2808                 :   11309100 :   aligned_p = (align >= MIN (size * BITS_PER_UNIT, BIGGEST_ALIGNMENT));
    2809                 :            : 
    2810                 :            :   /* See if the target hook can handle this kind of object.  */
    2811                 :   11309100 :   if (targetm.asm_out.integer (x, size, aligned_p))
    2812                 :            :     return true;
    2813                 :            : 
    2814                 :            :   /* If the object is a multi-byte one, try splitting it up.  Split
    2815                 :            :      it into words it if is multi-word, otherwise split it into bytes.  */
    2816                 :     261259 :   if (size > 1)
    2817                 :            :     {
    2818                 :     261259 :       machine_mode omode, imode;
    2819                 :     261259 :       unsigned int subalign;
    2820                 :     261259 :       unsigned int subsize, i;
    2821                 :     261259 :       enum mode_class mclass;
    2822                 :            : 
    2823                 :     512017 :       subsize = size > UNITS_PER_WORD? UNITS_PER_WORD : 1;
    2824                 :     261259 :       subalign = MIN (align, subsize * BITS_PER_UNIT);
    2825                 :     261259 :       if (GET_CODE (x) == CONST_FIXED)
    2826                 :          0 :         mclass = GET_MODE_CLASS (GET_MODE (x));
    2827                 :            :       else
    2828                 :            :         mclass = MODE_INT;
    2829                 :            : 
    2830                 :     261259 :       omode = mode_for_size (subsize * BITS_PER_UNIT, mclass, 0).require ();
    2831                 :     261259 :       imode = mode_for_size (size * BITS_PER_UNIT, mclass, 0).require ();
    2832                 :            : 
    2833                 :     783807 :       for (i = 0; i < size; i += subsize)
    2834                 :            :         {
    2835                 :     522548 :           rtx partial = simplify_subreg (omode, x, imode, i);
    2836                 :     522548 :           if (!partial || !assemble_integer (partial, subsize, subalign, 0))
    2837                 :            :             break;
    2838                 :            :         }
    2839                 :     261259 :       if (i == size)
    2840                 :   11309100 :         return true;
    2841                 :            : 
    2842                 :            :       /* If we've printed some of it, but not all of it, there's no going
    2843                 :            :          back now.  */
    2844                 :          0 :       gcc_assert (!i);
    2845                 :            :     }
    2846                 :            : 
    2847                 :          0 :   gcc_assert (!force);
    2848                 :            : 
    2849                 :            :   return false;
    2850                 :            : }
    2851                 :            : 
    2852                 :            : /* Assemble the floating-point constant D into an object of size MODE.  ALIGN
    2853                 :            :    is the alignment of the constant in bits.  If REVERSE is true, D is output
    2854                 :            :    in reverse storage order.  */
    2855                 :            : 
    2856                 :            : void
    2857                 :     370946 : assemble_real (REAL_VALUE_TYPE d, scalar_float_mode mode, unsigned int align,
    2858                 :            :                bool reverse)
    2859                 :            : {
    2860                 :     370946 :   long data[4] = {0, 0, 0, 0};
    2861                 :     370946 :   int bitsize, nelts, nunits, units_per;
    2862                 :     370946 :   rtx elt;
    2863                 :            : 
    2864                 :            :   /* This is hairy.  We have a quantity of known size.  real_to_target
    2865                 :            :      will put it into an array of *host* longs, 32 bits per element
    2866                 :            :      (even if long is more than 32 bits).  We need to determine the
    2867                 :            :      number of array elements that are occupied (nelts) and the number
    2868                 :            :      of *target* min-addressable units that will be occupied in the
    2869                 :            :      object file (nunits).  We cannot assume that 32 divides the
    2870                 :            :      mode's bitsize (size * BITS_PER_UNIT) evenly.
    2871                 :            : 
    2872                 :            :      size * BITS_PER_UNIT is used here to make sure that padding bits
    2873                 :            :      (which might appear at either end of the value; real_to_target
    2874                 :            :      will include the padding bits in its output array) are included.  */
    2875                 :            : 
    2876                 :     370946 :   nunits = GET_MODE_SIZE (mode);
    2877                 :     370946 :   bitsize = nunits * BITS_PER_UNIT;
    2878                 :     370946 :   nelts = CEIL (bitsize, 32);
    2879                 :     370946 :   units_per = 32 / BITS_PER_UNIT;
    2880                 :            : 
    2881                 :     370946 :   real_to_target (data, &d, mode);
    2882                 :            : 
    2883                 :            :   /* Put out the first word with the specified alignment.  */
    2884                 :     370946 :   unsigned int chunk_nunits = MIN (nunits, units_per);
    2885                 :     370946 :   if (reverse)
    2886                 :         72 :     elt = flip_storage_order (SImode, gen_int_mode (data[nelts - 1], SImode));
    2887                 :            :   else
    2888                 :     741748 :     elt = GEN_INT (sext_hwi (data[0], chunk_nunits * BITS_PER_UNIT));
    2889                 :     370946 :   assemble_integer (elt, chunk_nunits, align, 1);
    2890                 :     370946 :   nunits -= chunk_nunits;
    2891                 :            : 
    2892                 :            :   /* Subsequent words need only 32-bit alignment.  */
    2893                 :     370946 :   align = min_align (align, 32);
    2894                 :            : 
    2895                 :     707795 :   for (int i = 1; i < nelts; i++)
    2896                 :            :     {
    2897                 :     336849 :       chunk_nunits = MIN (nunits, units_per);
    2898                 :     336849 :       if (reverse)
    2899                 :         18 :         elt = flip_storage_order (SImode,
    2900                 :         18 :                                   gen_int_mode (data[nelts - 1 - i], SImode));
    2901                 :            :       else
    2902                 :     673662 :         elt = GEN_INT (sext_hwi (data[i], chunk_nunits * BITS_PER_UNIT));
    2903                 :     336849 :       assemble_integer (elt, chunk_nunits, align, 1);
    2904                 :     336849 :       nunits -= chunk_nunits;
    2905                 :            :     }
    2906                 :     370946 : }
    2907                 :            : 
    2908                 :            : /* Given an expression EXP with a constant value,
    2909                 :            :    reduce it to the sum of an assembler symbol and an integer.
    2910                 :            :    Store them both in the structure *VALUE.
    2911                 :            :    EXP must be reducible.  */
    2912                 :            : 
    2913                 :       1255 : class addr_const {
    2914                 :            : public:
    2915                 :            :   rtx base;
    2916                 :            :   poly_int64 offset;
    2917                 :            : };
    2918                 :            : 
    2919                 :            : static void
    2920                 :       1365 : decode_addr_const (tree exp, class addr_const *value)
    2921                 :            : {
    2922                 :       1365 :   tree target = TREE_OPERAND (exp, 0);
    2923                 :       1365 :   poly_int64 offset = 0;
    2924                 :       1595 :   rtx x;
    2925                 :            : 
    2926                 :       1825 :   while (1)
    2927                 :            :     {
    2928                 :       1595 :       poly_int64 bytepos;
    2929                 :       1595 :       if (TREE_CODE (target) == COMPONENT_REF
    2930                 :       1595 :           && poly_int_tree_p (byte_position (TREE_OPERAND (target, 1)),
    2931                 :            :                               &bytepos))
    2932                 :            :         {
    2933                 :        216 :           offset += bytepos;
    2934                 :        216 :           target = TREE_OPERAND (target, 0);
    2935                 :            :         }
    2936                 :       1379 :       else if (TREE_CODE (target) == ARRAY_REF
    2937                 :       1379 :                || TREE_CODE (target) == ARRAY_RANGE_REF)
    2938                 :            :         {
    2939                 :            :           /* Truncate big offset.  */
    2940                 :         14 :           offset
    2941                 :         14 :             += (TREE_INT_CST_LOW (TYPE_SIZE_UNIT (TREE_TYPE (target)))
    2942                 :         28 :                 * wi::to_poly_widest (TREE_OPERAND (target, 1)).force_shwi ());
    2943                 :         14 :           target = TREE_OPERAND (target, 0);
    2944                 :            :         }
    2945                 :       1365 :       else if (TREE_CODE (target) == MEM_REF
    2946                 :       1365 :                && TREE_CODE (TREE_OPERAND (target, 0)) == ADDR_EXPR)
    2947                 :            :         {
    2948                 :          0 :           offset += mem_ref_offset (target).force_shwi ();
    2949                 :          0 :           target = TREE_OPERAND (TREE_OPERAND (target, 0), 0);
    2950                 :            :         }
    2951                 :       1365 :       else if (TREE_CODE (target) == INDIRECT_REF
    2952                 :          0 :                && TREE_CODE (TREE_OPERAND (target, 0)) == NOP_EXPR
    2953                 :       1365 :                && TREE_CODE (TREE_OPERAND (TREE_OPERAND (target, 0), 0))
    2954                 :            :                   == ADDR_EXPR)
    2955                 :          0 :         target = TREE_OPERAND (TREE_OPERAND (TREE_OPERAND (target, 0), 0), 0);
    2956                 :            :       else
    2957                 :            :         break;
    2958                 :        230 :     }
    2959                 :            : 
    2960                 :       1365 :   switch (TREE_CODE (target))
    2961                 :            :     {
    2962                 :       1073 :     case VAR_DECL:
    2963                 :       1073 :     case FUNCTION_DECL:
    2964                 :       1073 :       x = DECL_RTL (target);
    2965                 :            :       break;
    2966                 :            : 
    2967                 :          0 :     case LABEL_DECL:
    2968                 :          0 :       x = gen_rtx_MEM (FUNCTION_MODE,
    2969                 :          0 :                        gen_rtx_LABEL_REF (Pmode, force_label_rtx (target)));
    2970                 :          0 :       break;
    2971                 :            : 
    2972                 :        190 :     case REAL_CST:
    2973                 :        190 :     case FIXED_CST:
    2974                 :        190 :     case STRING_CST:
    2975                 :        190 :     case COMPLEX_CST:
    2976                 :        190 :     case CONSTRUCTOR:
    2977                 :        190 :     case INTEGER_CST:
    2978                 :        190 :       x = lookup_constant_def (target);
    2979                 :            :       /* Should have been added by output_addressed_constants.  */
    2980                 :        190 :       gcc_assert (x);
    2981                 :            :       break;
    2982                 :            : 
    2983                 :          0 :     case INDIRECT_REF:
    2984                 :            :       /* This deals with absolute addresses.  */
    2985                 :          0 :       offset += tree_to_shwi (TREE_OPERAND (target, 0));
    2986                 :          0 :       x = gen_rtx_MEM (QImode,
    2987                 :          0 :                        gen_rtx_SYMBOL_REF (Pmode, "origin of addresses"));
    2988                 :          0 :       break;
    2989                 :            : 
    2990                 :        102 :     case COMPOUND_LITERAL_EXPR:
    2991                 :        102 :       gcc_assert (COMPOUND_LITERAL_EXPR_DECL (target));
    2992                 :        102 :       x = DECL_RTL (COMPOUND_LITERAL_EXPR_DECL (target));
    2993                 :            :       break;
    2994                 :            : 
    2995                 :          0 :     default:
    2996                 :          0 :       gcc_unreachable ();
    2997                 :            :     }
    2998                 :            : 
    2999                 :       1365 :   gcc_assert (MEM_P (x));
    3000                 :       1365 :   x = XEXP (x, 0);
    3001                 :            : 
    3002                 :       1365 :   value->base = x;
    3003                 :       1365 :   value->offset = offset;
    3004                 :       1365 : }
    3005                 :            : 
    3006                 :            : static GTY(()) hash_table<tree_descriptor_hasher> *const_desc_htab;
    3007                 :            : 
    3008                 :            : static void maybe_output_constant_def_contents (struct constant_descriptor_tree *, int);
    3009                 :            : 
    3010                 :            : /* Constant pool accessor function.  */
    3011                 :            : 
    3012                 :            : hash_table<tree_descriptor_hasher> *
    3013                 :       1815 : constant_pool_htab (void)
    3014                 :            : {
    3015                 :       1815 :   return const_desc_htab;
    3016                 :            : }
    3017                 :            : 
    3018                 :            : /* Compute a hash code for a constant expression.  */
    3019                 :            : 
    3020                 :            : hashval_t
    3021                 :    7321280 : tree_descriptor_hasher::hash (constant_descriptor_tree *ptr)
    3022                 :            : {
    3023                 :    7321280 :   return ptr->hash;
    3024                 :            : }
    3025                 :            : 
    3026                 :            : static hashval_t
    3027                 :    3738800 : const_hash_1 (const tree exp)
    3028                 :            : {
    3029                 :    3738800 :   const char *p;
    3030                 :    3738800 :   hashval_t hi;
    3031                 :    3738800 :   int len, i;
    3032                 :    3738800 :   enum tree_code code = TREE_CODE (exp);
    3033                 :            : 
    3034                 :            :   /* Either set P and LEN to the address and len of something to hash and
    3035                 :            :      exit the switch or return a value.  */
    3036                 :            : 
    3037                 :    3738800 :   switch (code)
    3038                 :            :     {
    3039                 :     522374 :     case INTEGER_CST:
    3040                 :     522374 :       p = (char *) &TREE_INT_CST_ELT (exp, 0);
    3041                 :     522374 :       len = TREE_INT_CST_NUNITS (exp) * sizeof (HOST_WIDE_INT);
    3042                 :     522374 :       break;
    3043                 :            : 
    3044                 :      49215 :     case REAL_CST:
    3045                 :      49215 :       return real_hash (TREE_REAL_CST_PTR (exp));
    3046                 :            : 
    3047                 :          0 :     case FIXED_CST:
    3048                 :          0 :       return fixed_hash (TREE_FIXED_CST_PTR (exp));
    3049                 :            : 
    3050                 :    2792520 :     case STRING_CST:
    3051                 :    2792520 :       p = TREE_STRING_POINTER (exp);
    3052                 :    2792520 :       len = TREE_STRING_LENGTH (exp);
    3053                 :    2792520 :       break;
    3054                 :            : 
    3055                 :      24358 :     case COMPLEX_CST:
    3056                 :      24358 :       return (const_hash_1 (TREE_REALPART (exp)) * 5
    3057                 :      24358 :               + const_hash_1 (TREE_IMAGPART (exp)));
    3058                 :            : 
    3059                 :          8 :     case VECTOR_CST:
    3060                 :          8 :       {
    3061                 :          8 :         hi = 7 + VECTOR_CST_NPATTERNS (exp);
    3062                 :          8 :         hi = hi * 563 + VECTOR_CST_NELTS_PER_PATTERN (exp);
    3063                 :          8 :         unsigned int count = vector_cst_encoded_nelts (exp);
    3064                 :        104 :         for (unsigned int i = 0; i < count; ++i)
    3065                 :         96 :           hi = hi * 563 + const_hash_1 (VECTOR_CST_ENCODED_ELT (exp, i));
    3066                 :            :         return hi;
    3067                 :            :       }
    3068                 :            : 
    3069                 :     177916 :     case CONSTRUCTOR:
    3070                 :     177916 :       {
    3071                 :     177916 :         unsigned HOST_WIDE_INT idx;
    3072                 :     177916 :         tree value;
    3073                 :            : 
    3074                 :     177916 :         hi = 5 + int_size_in_bytes (TREE_TYPE (exp));
    3075                 :            : 
    3076                 :    1800160 :         FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (exp), idx, value)
    3077                 :     722166 :           if (value)
    3078                 :     722166 :             hi = hi * 603 + const_hash_1 (value);
    3079                 :            : 
    3080                 :            :         return hi;
    3081                 :            :       }
    3082                 :            : 
    3083                 :      72567 :     case ADDR_EXPR:
    3084                 :      72567 :       if (CONSTANT_CLASS_P (TREE_OPERAND (exp, 0)))
    3085                 :      71422 :        return const_hash_1 (TREE_OPERAND (exp, 0));
    3086                 :            : 
    3087                 :            :       /* Fallthru.  */
    3088                 :       1145 :     case FDESC_EXPR:
    3089                 :       1145 :       {
    3090                 :       1145 :         class addr_const value;
    3091                 :            : 
    3092                 :       1145 :         decode_addr_const (exp, &value);
    3093                 :       1145 :         switch (GET_CODE (value.base))
    3094                 :            :           {
    3095                 :       1145 :           case SYMBOL_REF:
    3096                 :            :             /* Don't hash the address of the SYMBOL_REF;
    3097                 :            :                only use the offset and the symbol name.  */
    3098                 :       1145 :             hi = value.offset.coeffs[0];
    3099                 :       1145 :             p = XSTR (value.base, 0);
    3100                 :      32966 :             for (i = 0; p[i] != 0; i++)
    3101                 :      31821 :               hi = ((hi * 613) + (unsigned) (p[i]));
    3102                 :            :             break;
    3103                 :            : 
    3104                 :          0 :           case LABEL_REF:
    3105                 :          0 :             hi = (value.offset.coeffs[0]
    3106                 :          0 :                   + CODE_LABEL_NUMBER (label_ref_label (value.base)) * 13);
    3107                 :          0 :             break;
    3108                 :            : 
    3109                 :          0 :           default:
    3110                 :          0 :             gcc_unreachable ();
    3111                 :            :           }
    3112                 :            :       }
    3113                 :       1145 :       return hi;
    3114                 :            : 
    3115                 :          0 :     case PLUS_EXPR:
    3116                 :          0 :     case POINTER_PLUS_EXPR:
    3117                 :          0 :     case MINUS_EXPR:
    3118                 :          0 :       return (const_hash_1 (TREE_OPERAND (exp, 0)) * 9
    3119                 :          0 :               + const_hash_1 (TREE_OPERAND (exp, 1)));
    3120                 :            : 
    3121                 :      99840 :     CASE_CONVERT:
    3122                 :      99840 :       return const_hash_1 (TREE_OPERAND (exp, 0)) * 7 + 2;
    3123                 :            : 
    3124                 :            :     default:
    3125                 :            :       /* A language specific constant. Just hash the code.  */
    3126                 :            :       return code;
    3127                 :            :     }
    3128                 :            : 
    3129                 :            :   /* Compute hashing function.  */
    3130                 :    3314890 :   hi = len;
    3131                 :  205180000 :   for (i = 0; i < len; i++)
    3132                 :  201865000 :     hi = ((hi * 613) + (unsigned) (p[i]));
    3133                 :            : 
    3134                 :            :   return hi;
    3135                 :            : }
    3136                 :            : 
    3137                 :            : /* Wrapper of compare_constant, for the htab interface.  */
    3138                 :            : bool
    3139                 :    9728260 : tree_descriptor_hasher::equal (constant_descriptor_tree *c1,
    3140                 :            :                                constant_descriptor_tree *c2)
    3141                 :            : {
    3142                 :    9728260 :   if (c1->hash != c2->hash)
    3143                 :            :     return 0;
    3144                 :    1893150 :   return compare_constant (c1->value, c2->value);
    3145                 :            : }
    3146                 :            : 
    3147                 :            : /* Compare t1 and t2, and return 1 only if they are known to result in
    3148                 :            :    the same bit pattern on output.  */
    3149                 :            : 
    3150                 :            : static int
    3151                 :    2275670 : compare_constant (const tree t1, const tree t2)
    3152                 :            : {
    3153                 :    2275670 :   enum tree_code typecode;
    3154                 :            : 
    3155                 :    2275670 :   if (t1 == NULL_TREE)
    3156                 :          0 :     return t2 == NULL_TREE;
    3157                 :    2275670 :   if (t2 == NULL_TREE)
    3158                 :            :     return 0;
    3159                 :            : 
    3160                 :    2275670 :   if (TREE_CODE (t1) != TREE_CODE (t2))
    3161                 :            :     return 0;
    3162                 :            : 
    3163                 :    2275610 :   switch (TREE_CODE (t1))
    3164                 :            :     {
    3165                 :     348041 :     case INTEGER_CST:
    3166                 :            :       /* Integer constants are the same only if the same width of type.  */
    3167                 :     348041 :       if (TYPE_PRECISION (TREE_TYPE (t1)) != TYPE_PRECISION (TREE_TYPE (t2)))
    3168                 :            :         return 0;
    3169                 :     682274 :       if (TYPE_MODE (TREE_TYPE (t1)) != TYPE_MODE (TREE_TYPE (t2)))
    3170                 :            :         return 0;
    3171                 :     341065 :       return tree_int_cst_equal (t1, t2);
    3172                 :            : 
    3173                 :      45466 :     case REAL_CST:
    3174                 :            :       /* Real constants are the same only if the same width of type.  In
    3175                 :            :          addition to the same width, we need to check whether the modes are the
    3176                 :            :          same.  There might be two floating point modes that are the same size
    3177                 :            :          but have different representations, such as the PowerPC that has 2
    3178                 :            :          different 128-bit floating point types (IBM extended double and IEEE
    3179                 :            :          128-bit floating point).  */
    3180                 :      45466 :       if (TYPE_PRECISION (TREE_TYPE (t1)) != TYPE_PRECISION (TREE_TYPE (t2)))
    3181                 :            :         return 0;
    3182                 :      64312 :       if (TYPE_MODE (TREE_TYPE (t1)) != TYPE_MODE (TREE_TYPE (t2)))
    3183                 :            :         return 0;
    3184                 :      32156 :       return real_identical (&TREE_REAL_CST (t1), &TREE_REAL_CST (t2));
    3185                 :            : 
    3186                 :          0 :     case FIXED_CST:
    3187                 :            :       /* Fixed constants are the same only if the same width of type.  */
    3188                 :          0 :       if (TYPE_PRECISION (TREE_TYPE (t1)) != TYPE_PRECISION (TREE_TYPE (t2)))
    3189                 :            :         return 0;
    3190                 :            : 
    3191                 :          0 :       return FIXED_VALUES_IDENTICAL (TREE_FIXED_CST (t1), TREE_FIXED_CST (t2));
    3192                 :            : 
    3193                 :    1821900 :     case STRING_CST:
    3194                 :    3643810 :       if (TYPE_MODE (TREE_TYPE (t1)) != TYPE_MODE (TREE_TYPE (t2))
    3195                 :    5465710 :           || int_size_in_bytes (TREE_TYPE (t1))
    3196                 :    1821900 :              != int_size_in_bytes (TREE_TYPE (t2)))
    3197                 :          0 :         return 0;
    3198                 :            : 
    3199                 :    1821900 :       return (TREE_STRING_LENGTH (t1) == TREE_STRING_LENGTH (t2)
    3200                 :    1821900 :               && ! memcmp (TREE_STRING_POINTER (t1), TREE_STRING_POINTER (t2),
    3201                 :    1821900 :                          TREE_STRING_LENGTH (t1)));
    3202                 :            : 
    3203                 :      29787 :     case COMPLEX_CST:
    3204                 :      29787 :       return (compare_constant (TREE_REALPART (t1), TREE_REALPART (t2))
    3205                 :      47633 :               && compare_constant (TREE_IMAGPART (t1), TREE_IMAGPART (t2)));
    3206                 :            : 
    3207                 :          4 :     case VECTOR_CST:
    3208                 :          4 :       {
    3209                 :          4 :         if (VECTOR_CST_NPATTERNS (t1)
    3210                 :          4 :             != VECTOR_CST_NPATTERNS (t2))
    3211                 :            :           return 0;
    3212                 :            : 
    3213                 :          4 :         if (VECTOR_CST_NELTS_PER_PATTERN (t1)
    3214                 :          4 :             != VECTOR_CST_NELTS_PER_PATTERN (t2))
    3215                 :            :           return 0;
    3216                 :            : 
    3217                 :          4 :         unsigned int count = vector_cst_encoded_nelts (t1);
    3218                 :         52 :         for (unsigned int i = 0; i < count; ++i)
    3219                 :         96 :           if (!compare_constant (VECTOR_CST_ENCODED_ELT (t1, i),
    3220                 :         48 :                                  VECTOR_CST_ENCODED_ELT (t2, i)))
    3221                 :            :             return 0;
    3222                 :            : 
    3223                 :            :         return 1;
    3224                 :            :       }
    3225                 :            : 
    3226                 :      30193 :     case CONSTRUCTOR:
    3227                 :      30193 :       {
    3228                 :      30193 :         vec<constructor_elt, va_gc> *v1, *v2;
    3229                 :      30193 :         unsigned HOST_WIDE_INT idx;
    3230                 :            : 
    3231                 :      30193 :         typecode = TREE_CODE (TREE_TYPE (t1));
    3232                 :      30193 :         if (typecode != TREE_CODE (TREE_TYPE (t2)))
    3233                 :            :           return 0;
    3234                 :            : 
    3235                 :      30193 :         if (typecode == ARRAY_TYPE)
    3236                 :            :           {
    3237                 :        801 :             HOST_WIDE_INT size_1 = int_size_in_bytes (TREE_TYPE (t1));
    3238                 :            :             /* For arrays, check that mode, size and storage order match.  */
    3239                 :       1602 :             if (TYPE_MODE (TREE_TYPE (t1)) != TYPE_MODE (TREE_TYPE (t2))
    3240                 :        801 :                 || size_1 == -1
    3241                 :        801 :                 || size_1 != int_size_in_bytes (TREE_TYPE (t2))
    3242                 :       1602 :                 || TYPE_REVERSE_STORAGE_ORDER (TREE_TYPE (t1))
    3243                 :        801 :                    != TYPE_REVERSE_STORAGE_ORDER (TREE_TYPE (t2)))
    3244                 :          0 :               return 0;
    3245                 :            :           }
    3246                 :            :         else
    3247                 :            :           {
    3248                 :            :             /* For record and union constructors, require exact type
    3249                 :            :                equality.  */
    3250                 :      29392 :             if (TREE_TYPE (t1) != TREE_TYPE (t2))
    3251                 :            :               return 0;
    3252                 :            :           }
    3253                 :            : 
    3254                 :      30183 :         v1 = CONSTRUCTOR_ELTS (t1);
    3255                 :      30183 :         v2 = CONSTRUCTOR_ELTS (t2);
    3256                 :      90549 :         if (vec_safe_length (v1) != vec_safe_length (v2))
    3257                 :            :           return 0;
    3258                 :            : 
    3259                 :     482230 :         for (idx = 0; idx < vec_safe_length (v1); ++idx)
    3260                 :            :           {
    3261                 :     210940 :             constructor_elt *c1 = &(*v1)[idx];
    3262                 :     210940 :             constructor_elt *c2 = &(*v2)[idx];
    3263                 :            : 
    3264                 :            :             /* Check that each value is the same...  */
    3265                 :     210940 :             if (!compare_constant (c1->value, c2->value))
    3266                 :            :               return 0;
    3267                 :            :             /* ... and that they apply to the same fields!  */
    3268                 :     210932 :             if (typecode == ARRAY_TYPE)
    3269                 :            :               {
    3270                 :     123786 :                 if (!compare_constant (c1->index, c2->index))
    3271                 :            :                   return 0;
    3272                 :            :               }
    3273                 :            :             else
    3274                 :            :               {
    3275                 :      87146 :                 if (c1->index != c2->index)
    3276                 :            :                   return 0;
    3277                 :            :               }
    3278                 :            :           }
    3279                 :            : 
    3280                 :            :         return 1;
    3281                 :            :       }
    3282                 :            : 
    3283                 :        110 :     case ADDR_EXPR:
    3284                 :        110 :     case FDESC_EXPR:
    3285                 :        110 :       {
    3286                 :        110 :         class addr_const value1, value2;
    3287                 :        110 :         enum rtx_code code;
    3288                 :        110 :         int ret;
    3289                 :            : 
    3290                 :        110 :         decode_addr_const (t1, &value1);
    3291                 :        110 :         decode_addr_const (t2, &value2);
    3292                 :            : 
    3293                 :        110 :         if (maybe_ne (value1.offset, value2.offset))
    3294                 :            :           return 0;
    3295                 :            : 
    3296                 :        110 :         code = GET_CODE (value1.base);
    3297                 :        110 :         if (code != GET_CODE (value2.base))
    3298                 :            :           return 0;
    3299                 :            : 
    3300                 :        110 :         switch (code)
    3301                 :            :           {
    3302                 :        110 :           case SYMBOL_REF:
    3303                 :        110 :             ret = (strcmp (XSTR (value1.base, 0), XSTR (value2.base, 0)) == 0);
    3304                 :        110 :             break;
    3305                 :            : 
    3306                 :          0 :           case LABEL_REF:
    3307                 :          0 :             ret = (CODE_LABEL_NUMBER (label_ref_label (value1.base))
    3308                 :          0 :                    == CODE_LABEL_NUMBER (label_ref_label (value2.base)));
    3309                 :          0 :             break;
    3310                 :            : 
    3311                 :          0 :           default:
    3312                 :          0 :             gcc_unreachable ();
    3313                 :            :           }
    3314                 :            :         return ret;
    3315                 :            :       }
    3316                 :            : 
    3317                 :          0 :     case PLUS_EXPR:
    3318                 :          0 :     case POINTER_PLUS_EXPR:
    3319                 :          0 :     case MINUS_EXPR:
    3320                 :          0 :     case RANGE_EXPR:
    3321                 :          0 :       return (compare_constant (TREE_OPERAND (t1, 0), TREE_OPERAND (t2, 0))
    3322                 :          0 :               && compare_constant (TREE_OPERAND (t1, 1), TREE_OPERAND (t2, 1)));
    3323                 :            : 
    3324                 :        109 :     CASE_CONVERT:
    3325                 :        109 :     case VIEW_CONVERT_EXPR:
    3326                 :        109 :       return compare_constant (TREE_OPERAND (t1, 0), TREE_OPERAND (t2, 0));
    3327                 :            : 
    3328                 :            :     default:
    3329                 :            :       return 0;
    3330                 :            :     }
    3331                 :            : 
    3332                 :            :   gcc_unreachable ();
    3333                 :            : }
    3334                 :            : 
    3335                 :            : /* Return the section into which constant EXP should be placed.  */
    3336                 :            : 
    3337                 :            : static section *
    3338                 :     822674 : get_constant_section (tree exp, unsigned int align)
    3339                 :            : {
    3340                 :     822674 :   return targetm.asm_out.select_section (exp,
    3341                 :            :                                          compute_reloc_for_constant (exp),
    3342                 :          0 :                                          align);
    3343                 :            : }
    3344                 :            : 
    3345                 :            : /* Return the size of constant EXP in bytes.  */
    3346                 :            : 
    3347                 :            : static HOST_WIDE_INT
    3348                 :     823850 : get_constant_size (tree exp)
    3349                 :            : {
    3350                 :     823850 :   HOST_WIDE_INT size;
    3351                 :            : 
    3352                 :     823850 :   size = int_size_in_bytes (TREE_TYPE (exp));
    3353                 :     823850 :   gcc_checking_assert (size >= 0);
    3354                 :     823850 :   gcc_checking_assert (TREE_CODE (exp) != STRING_CST
    3355                 :            :                        || size >= TREE_STRING_LENGTH (exp));
    3356                 :     823850 :   return size;
    3357                 :            : }
    3358                 :            : 
    3359                 :            : /* Subroutine of output_constant_def:
    3360                 :            :    No constant equal to EXP is known to have been output.
    3361                 :            :    Make a constant descriptor to enter EXP in the hash table.
    3362                 :            :    Assign the label number and construct RTL to refer to the
    3363                 :            :    constant's location in memory.
    3364                 :            :    Caller is responsible for updating the hash table.  */
    3365                 :            : 
    3366                 :            : static struct constant_descriptor_tree *
    3367                 :     825864 : build_constant_desc (tree exp)
    3368                 :            : {
    3369                 :     825864 :   struct constant_descriptor_tree *desc;
    3370                 :     825864 :   rtx symbol, rtl;
    3371                 :     825864 :   char label[256];
    3372                 :     825864 :   int labelno;
    3373                 :     825864 :   tree decl;
    3374                 :            : 
    3375                 :     825864 :   desc = ggc_alloc<constant_descriptor_tree> ();
    3376                 :     825864 :   desc->value = exp;
    3377                 :            : 
    3378                 :            :   /* Create a string containing the label name, in LABEL.  */
    3379                 :     825864 :   labelno = const_labelno++;
    3380                 :     825864 :   ASM_GENERATE_INTERNAL_LABEL (label, "LC", labelno);
    3381                 :            : 
    3382                 :            :   /* Construct the VAR_DECL associated with the constant.  */
    3383                 :    1651730 :   decl = build_decl (UNKNOWN_LOCATION, VAR_DECL, get_identifier (label),
    3384                 :     825864 :                      TREE_TYPE (exp));
    3385                 :     825864 :   DECL_ARTIFICIAL (decl) = 1;
    3386                 :     825864 :   DECL_IGNORED_P (decl) = 1;
    3387                 :     825864 :   TREE_READONLY (decl) = 1;
    3388                 :     825864 :   TREE_STATIC (decl) = 1;
    3389                 :     825864 :   TREE_ADDRESSABLE (decl) = 1;
    3390                 :            :   /* We don't set the RTL yet as this would cause varpool to assume that the
    3391                 :            :      variable is referenced.  Moreover, it would just be dropped in LTO mode.
    3392                 :            :      Instead we set the flag that will be recognized in make_decl_rtl.  */
    3393                 :     825864 :   DECL_IN_CONSTANT_POOL (decl) = 1;
    3394                 :     825864 :   DECL_INITIAL (decl) = desc->value;
    3395                 :            :   /* ??? targetm.constant_alignment hasn't been updated for vector types on
    3396                 :            :      most architectures so use DATA_ALIGNMENT as well, except for strings.  */
    3397                 :     825864 :   if (TREE_CODE (exp) == STRING_CST)
    3398                 :     801376 :     SET_DECL_ALIGN (decl, targetm.constant_alignment (exp, DECL_ALIGN (decl)));
    3399                 :            :   else
    3400                 :            :     {
    3401                 :      24488 :       align_variable (decl, 0);
    3402                 :      24488 :       if (DECL_ALIGN (decl) < GET_MODE_ALIGNMENT (DECL_MODE (decl))
    3403                 :      24492 :           && ((optab_handler (movmisalign_optab, DECL_MODE (decl))
    3404                 :            :                != CODE_FOR_nothing)
    3405                 :          8 :               || targetm.slow_unaligned_access (DECL_MODE (decl),
    3406                 :          4 :                                                 DECL_ALIGN (decl))))
    3407                 :          0 :         SET_DECL_ALIGN (decl, GET_MODE_ALIGNMENT (DECL_MODE (decl)));
    3408                 :            :     }
    3409                 :            : 
    3410                 :            :   /* Now construct the SYMBOL_REF and the MEM.  */
    3411                 :     825864 :   if (use_object_blocks_p ())
    3412                 :            :     {
    3413                 :          0 :       int align = (TREE_CODE (decl) == CONST_DECL
    3414                 :          0 :                    || (VAR_P (decl) && DECL_IN_CONSTANT_POOL (decl))
    3415                 :          0 :                    ? DECL_ALIGN (decl)
    3416                 :          0 :                    : symtab_node::get (decl)->definition_alignment ());
    3417                 :          0 :       section *sect = get_constant_section (exp, align);
    3418                 :          0 :       symbol = create_block_symbol (ggc_strdup (label),
    3419                 :            :                                     get_block_for_section (sect), -1);
    3420                 :            :     }
    3421                 :            :   else
    3422                 :    1079970 :     symbol = gen_rtx_SYMBOL_REF (Pmode, ggc_strdup (label));
    3423                 :     825864 :   SYMBOL_REF_FLAGS (symbol) |= SYMBOL_FLAG_LOCAL;
    3424                 :     825864 :   SET_SYMBOL_REF_DECL (symbol, decl);
    3425                 :     825864 :   TREE_CONSTANT_POOL_ADDRESS_P (symbol) = 1;
    3426                 :            : 
    3427                 :     825864 :   rtl = gen_const_mem (TYPE_MODE (TREE_TYPE (exp)), symbol);
    3428                 :     825864 :   set_mem_attributes (rtl, exp, 1);
    3429                 :     825864 :   set_mem_alias_set (rtl, 0);
    3430                 :            : 
    3431                 :            :   /* Putting EXP into the literal pool might have imposed a different
    3432                 :            :      alignment which should be visible in the RTX as well.  */
    3433                 :     825864 :   set_mem_align (rtl, DECL_ALIGN (decl));
    3434                 :            : 
    3435                 :            :   /* We cannot share RTX'es in pool entries.
    3436                 :            :      Mark this piece of RTL as required for unsharing.  */
    3437                 :     825864 :   RTX_FLAG (rtl, used) = 1;
    3438                 :            : 
    3439                 :            :   /* Set flags or add text to the name to record information, such as
    3440                 :            :      that it is a local symbol.  If the name is changed, the macro
    3441                 :            :      ASM_OUTPUT_LABELREF will have to know how to strip this
    3442                 :            :      information.  This call might invalidate our local variable
    3443                 :            :      SYMBOL; we can't use it afterward.  */
    3444                 :     825864 :   targetm.encode_section_info (exp, rtl, true);
    3445                 :            : 
    3446                 :     825864 :   desc->rtl = rtl;
    3447                 :            : 
    3448                 :     825864 :   return desc;
    3449                 :            : }
    3450                 :            : 
    3451                 :            : /* Subroutine of output_constant_def and tree_output_constant_def:
    3452                 :            :    Add a constant to the hash table that tracks which constants
    3453                 :            :    already have labels.  */
    3454                 :            : 
    3455                 :            : static constant_descriptor_tree *
    3456                 :    2560180 : add_constant_to_table (tree exp)
    3457                 :            : {
    3458                 :            :   /* The hash table methods may call output_constant_def for addressed
    3459                 :            :      constants, so handle them first.  */
    3460                 :    2560180 :   output_addressed_constants (exp);
    3461                 :            : 
    3462                 :            :   /* Sanity check to catch recursive insertion.  */
    3463                 :    2560180 :   static bool inserting;
    3464                 :    2560180 :   gcc_assert (!inserting);
    3465                 :    2560180 :   inserting = true;
    3466                 :            : 
    3467                 :            :   /* Look up EXP in the table of constant descriptors.  If we didn't
    3468                 :            :      find it, create a new one.  */
    3469                 :    2560180 :   struct constant_descriptor_tree key;
    3470                 :    2560180 :   key.value = exp;
    3471                 :    2560180 :   key.hash = const_hash_1 (exp);
    3472                 :    2560180 :   constant_descriptor_tree **loc
    3473                 :    2560180 :     = const_desc_htab->find_slot_with_hash (&key, key.hash, INSERT);
    3474                 :            : 
    3475                 :    2560180 :   inserting = false;
    3476                 :            : 
    3477                 :    2560180 :   struct constant_descriptor_tree *desc = *loc;
    3478                 :    2560180 :   if (!desc)
    3479                 :            :     {
    3480                 :     825864 :       desc = build_constant_desc (exp);
    3481                 :     825864 :       desc->hash = key.hash;
    3482                 :     825864 :       *loc = desc;
    3483                 :            :     }
    3484                 :            : 
    3485                 :    2560180 :   return desc;
    3486                 :            : }
    3487                 :            : 
    3488                 :            : /* Return an rtx representing a reference to constant data in memory
    3489                 :            :    for the constant expression EXP.
    3490                 :            : 
    3491                 :            :    If assembler code for such a constant has already been output,
    3492                 :            :    return an rtx to refer to it.
    3493                 :            :    Otherwise, output such a constant in memory
    3494                 :            :    and generate an rtx for it.
    3495                 :            : 
    3496                 :            :    If DEFER is nonzero, this constant can be deferred and output only
    3497                 :            :    if referenced in the function after all optimizations.
    3498                 :            : 
    3499                 :            :    `const_desc_table' records which constants already have label strings.  */
    3500                 :            : 
    3501                 :            : rtx
    3502                 :    2558810 : output_constant_def (tree exp, int defer)
    3503                 :            : {
    3504                 :    2558810 :   struct constant_descriptor_tree *desc = add_constant_to_table (exp);
    3505                 :    2558810 :   maybe_output_constant_def_contents (desc, defer);
    3506                 :    2558810 :   return desc->rtl;
    3507                 :            : }
    3508                 :            : 
    3509                 :            : /* Subroutine of output_constant_def: Decide whether or not we need to
    3510                 :            :    output the constant DESC now, and if so, do it.  */
    3511                 :            : static void
    3512                 :    2558810 : maybe_output_constant_def_contents (struct constant_descriptor_tree *desc,
    3513                 :            :                                     int defer)
    3514                 :            : {
    3515                 :    2558810 :   rtx symbol = XEXP (desc->rtl, 0);
    3516                 :    2558810 :   tree exp = desc->value;
    3517                 :            : 
    3518                 :    2558810 :   if (flag_syntax_only)
    3519                 :            :     return;
    3520                 :            : 
    3521                 :    2558810 :   if (TREE_ASM_WRITTEN (exp))
    3522                 :            :     /* Already output; don't do it again.  */
    3523                 :            :     return;
    3524                 :            : 
    3525                 :            :   /* We can always defer constants as long as the context allows
    3526                 :            :      doing so.  */
    3527                 :     858668 :   if (defer)
    3528                 :            :     {
    3529                 :            :       /* Increment n_deferred_constants if it exists.  It needs to be at
    3530                 :            :          least as large as the number of constants actually referred to
    3531                 :            :          by the function.  If it's too small we'll stop looking too early
    3532                 :            :          and fail to emit constants; if it's too large we'll only look
    3533                 :            :          through the entire function when we could have stopped earlier.  */
    3534                 :      43121 :       if (cfun)
    3535                 :      17237 :         n_deferred_constants++;
    3536                 :      43121 :       return;
    3537                 :            :     }
    3538                 :            : 
    3539                 :     815547 :   output_constant_def_contents (symbol);
    3540                 :            : }
    3541                 :            : 
    3542                 :            : /* Subroutine of output_constant_def_contents.  Output the definition
    3543                 :            :    of constant EXP, which is pointed to by label LABEL.  ALIGN is the
    3544                 :            :    constant's alignment in bits.  */
    3545                 :            : 
    3546                 :            : static void
    3547                 :     822674 : assemble_constant_contents (tree exp, const char *label, unsigned int align,
    3548                 :            :                             bool merge_strings)
    3549                 :            : {
    3550                 :     822674 :   HOST_WIDE_INT size;
    3551                 :            : 
    3552                 :     822674 :   size = get_constant_size (exp);
    3553                 :            : 
    3554                 :            :   /* Do any machine/system dependent processing of the constant.  */
    3555                 :     822674 :   targetm.asm_out.declare_constant_name (asm_out_file, label, exp, size);
    3556                 :            : 
    3557                 :            :   /* Output the value of EXP.  */
    3558                 :     822674 :   output_constant (exp, size, align, false, merge_strings);
    3559                 :            : 
    3560                 :     822674 :   targetm.asm_out.decl_end ();
    3561                 :     822674 : }
    3562                 :            : 
    3563                 :            : /* We must output the constant data referred to by SYMBOL; do so.  */
    3564                 :            : 
    3565                 :            : static void
    3566                 :     822674 : output_constant_def_contents (rtx symbol)
    3567                 :            : {
    3568                 :     822674 :   tree decl = SYMBOL_REF_DECL (symbol);
    3569                 :     822674 :   tree exp = DECL_INITIAL (decl);
    3570                 :     822674 :   bool asan_protected = false;
    3571                 :            : 
    3572                 :            :   /* Make sure any other constants whose addresses appear in EXP
    3573                 :            :      are assigned label numbers.  */
    3574                 :     822674 :   output_addressed_constants (exp);
    3575                 :            : 
    3576                 :            :   /* We are no longer deferring this constant.  */
    3577                 :     822674 :   TREE_ASM_WRITTEN (decl) = TREE_ASM_WRITTEN (exp) = 1;
    3578                 :            : 
    3579                 :     822674 :   if ((flag_sanitize & SANITIZE_ADDRESS)
    3580                 :       2291 :       && TREE_CODE (exp) == STRING_CST
    3581                 :     824965 :       && asan_protect_global (exp))
    3582                 :            :     {
    3583                 :       1176 :       asan_protected = true;
    3584                 :       1176 :       SET_DECL_ALIGN (decl, MAX (DECL_ALIGN (decl),
    3585                 :            :                                  ASAN_RED_ZONE_SIZE * BITS_PER_UNIT));
    3586                 :            :     }
    3587                 :            : 
    3588                 :            :   /* If the constant is part of an object block, make sure that the
    3589                 :            :      decl has been positioned within its block, but do not write out
    3590                 :            :      its definition yet.  output_object_blocks will do that later.  */
    3591                 :     822674 :   if (SYMBOL_REF_HAS_BLOCK_INFO_P (symbol) && SYMBOL_REF_BLOCK (symbol))
    3592                 :          0 :     place_block_symbol (symbol);
    3593                 :            :   else
    3594                 :            :     {
    3595                 :     822674 :       int align = (TREE_CODE (decl) == CONST_DECL
    3596                 :     822674 :                    || (VAR_P (decl) && DECL_IN_CONSTANT_POOL (decl))
    3597                 :    1645350 :                    ? DECL_ALIGN (decl)
    3598                 :          0 :                    : symtab_node::get (decl)->definition_alignment ());
    3599                 :     822674 :       section *sect = get_constant_section (exp, align);
    3600                 :     822674 :       switch_to_section (sect);
    3601                 :     822674 :       if (align > BITS_PER_UNIT)
    3602                 :     262586 :         ASM_OUTPUT_ALIGN (asm_out_file, floor_log2 (align / BITS_PER_UNIT));
    3603                 :     822674 :       assemble_constant_contents (exp, XSTR (symbol, 0), align,
    3604                 :            :                                   (sect->common.flags & SECTION_MERGE)
    3605                 :     822674 :                                   && (sect->common.flags & SECTION_STRINGS));
    3606                 :     822674 :       if (asan_protected)
    3607                 :            :         {
    3608                 :       1176 :           HOST_WIDE_INT size = get_constant_size (exp);
    3609                 :       2329 :           assemble_zeros (asan_red_zone_size (size));
    3610                 :            :         }
    3611                 :            :     }
    3612                 :     822674 : }
    3613                 :            : 
    3614                 :            : /* Look up EXP in the table of constant descriptors.  Return the rtl
    3615                 :            :    if it has been emitted, else null.  */
    3616                 :            : 
    3617                 :            : rtx
    3618                 :     236373 : lookup_constant_def (tree exp)
    3619                 :            : {
    3620                 :     236373 :   struct constant_descriptor_tree key;
    3621                 :            : 
    3622                 :     236373 :   key.value = exp;
    3623                 :     236373 :   key.hash = const_hash_1 (exp);
    3624                 :     236373 :   constant_descriptor_tree *desc
    3625                 :     236373 :     = const_desc_htab->find_with_hash (&key, key.hash);
    3626                 :            : 
    3627                 :     236373 :   return (desc ? desc->rtl : NULL_RTX);
    3628                 :            : }
    3629                 :            : 
    3630                 :            : /* Return a tree representing a reference to constant data in memory
    3631                 :            :    for the constant expression EXP.
    3632                 :            : 
    3633                 :            :    This is the counterpart of output_constant_def at the Tree level.  */
    3634                 :            : 
    3635                 :            : tree
    3636                 :       1373 : tree_output_constant_def (tree exp)
    3637                 :            : {
    3638                 :       1373 :   struct constant_descriptor_tree *desc = add_constant_to_table (exp);
    3639                 :       1373 :   tree decl = SYMBOL_REF_DECL (XEXP (desc->rtl, 0));
    3640                 :       1373 :   varpool_node::finalize_decl (decl);
    3641                 :       1373 :   return decl;
    3642                 :            : }
    3643                 :            : 
    3644                 :    1122680 : class GTY((chain_next ("%h.next"), for_user)) constant_descriptor_rtx {
    3645                 :            : public:
    3646                 :            :   class constant_descriptor_rtx *next;
    3647                 :            :   rtx mem;
    3648                 :            :   rtx sym;
    3649                 :            :   rtx constant;
    3650                 :            :   HOST_WIDE_INT offset;
    3651                 :            :   hashval_t hash;
    3652                 :            :   fixed_size_mode mode;
    3653                 :            :   unsigned int align;
    3654                 :            :   int labelno;
    3655                 :            :   int mark;
    3656                 :            : };
    3657                 :            : 
    3658                 :            : struct const_rtx_desc_hasher : ggc_ptr_hash<constant_descriptor_rtx>
    3659                 :            : {
    3660                 :            :   static hashval_t hash (constant_descriptor_rtx *);
    3661                 :            :   static bool equal (constant_descriptor_rtx *, constant_descriptor_rtx *);
    3662                 :            : };
    3663                 :            : 
    3664                 :            : /* Used in the hash tables to avoid outputting the same constant
    3665                 :            :    twice.  Unlike 'struct constant_descriptor_tree', RTX constants
    3666                 :            :    are output once per function, not once per file.  */
    3667                 :            : /* ??? Only a few targets need per-function constant pools.  Most
    3668                 :            :    can use one per-file pool.  Should add a targetm bit to tell the
    3669                 :            :    difference.  */
    3670                 :            : 
    3671                 :            : struct GTY(()) rtx_constant_pool {
    3672                 :            :   /* Pointers to first and last constant in pool, as ordered by offset.  */
    3673                 :            :   class constant_descriptor_rtx *first;
    3674                 :            :   class constant_descriptor_rtx *last;
    3675                 :            : 
    3676                 :            :   /* Hash facility for making memory-constants from constant rtl-expressions.
    3677                 :            :      It is used on RISC machines where immediate integer arguments and
    3678                 :            :      constant addresses are restricted so that such constants must be stored
    3679                 :            :      in memory.  */
    3680                 :            :   hash_table<const_rtx_desc_hasher> *const_rtx_htab;
    3681                 :            : 
    3682                 :            :   /* Current offset in constant pool (does not include any
    3683                 :            :      machine-specific header).  */
    3684                 :            :   HOST_WIDE_INT offset;
    3685                 :            : };
    3686                 :            : 
    3687                 :            : /* Hash and compare functions for const_rtx_htab.  */
    3688                 :            : 
    3689                 :            : hashval_t
    3690                 :    3975110 : const_rtx_desc_hasher::hash (constant_descriptor_rtx *desc)
    3691                 :            : {
    3692                 :    3975110 :   return desc->hash;
    3693                 :            : }
    3694                 :            : 
    3695                 :            : bool
    3696                 :    4977370 : const_rtx_desc_hasher::equal (constant_descriptor_rtx *x,
    3697                 :            :                               constant_descriptor_rtx *y)
    3698                 :            : {
    3699                 :    4977370 :   if (x->mode != y->mode)
    3700                 :            :     return 0;
    3701                 :    3181510 :   return rtx_equal_p (x->constant, y->constant);
    3702                 :            : }
    3703                 :            : 
    3704                 :            : /* Hash one component of a constant.  */
    3705                 :            : 
    3706                 :            : static hashval_t
    3707                 :    2443140 : const_rtx_hash_1 (const_rtx x)
    3708                 :            : {
    3709                 :    2443140 :   unsigned HOST_WIDE_INT hwi;
    3710                 :    2443140 :   machine_mode mode;
    3711                 :    2443140 :   enum rtx_code code;
    3712                 :    2443140 :   hashval_t h;
    3713                 :    2443140 :   int i;
    3714                 :            : 
    3715                 :    2443140 :   code = GET_CODE (x);
    3716                 :    2443140 :   mode = GET_MODE (x);
    3717                 :    2443140 :   h = (hashval_t) code * 1048573 + mode;
    3718                 :            : 
    3719                 :    2443140 :   switch (code)
    3720                 :            :     {
    3721                 :     973913 :     case CONST_INT:
    3722                 :     973913 :       hwi = INTVAL (x);
    3723                 :            : 
    3724                 :    1009620 :     fold_hwi:
    3725                 :    1009620 :       {
    3726                 :    1009620 :         int shift = sizeof (hashval_t) * CHAR_BIT;
    3727                 :    1009620 :         const int n = sizeof (HOST_WIDE_INT) / sizeof (hashval_t);
    3728                 :            : 
    3729                 :    1009620 :         h ^= (hashval_t) hwi;
    3730                 :    2019240 :         for (i = 1; i < n; ++i)
    3731                 :            :           {
    3732                 :    1009620 :             hwi >>= shift;
    3733                 :    1009620 :             h ^= (hashval_t) hwi;
    3734                 :            :           }
    3735                 :            :       }
    3736                 :            :       break;
    3737                 :            : 
    3738                 :            :     case CONST_WIDE_INT:
    3739                 :            :       hwi = 0;
    3740                 :            :       {
    3741                 :     107115 :         for (i = 0; i < CONST_WIDE_INT_NUNITS (x); i++)
    3742                 :      71410 :           hwi ^= CONST_WIDE_INT_ELT (x, i);
    3743                 :      35705 :         goto fold_hwi;
    3744                 :            :       }
    3745                 :            : 
    3746                 :    1128830 :     case CONST_DOUBLE:
    3747                 :    1128830 :       if (TARGET_SUPPORTS_WIDE_INT == 0 && mode == VOIDmode)
    3748                 :            :         {
    3749                 :            :           hwi = CONST_DOUBLE_LOW (x) ^ CONST_DOUBLE_HIGH (x);
    3750                 :            :           goto fold_hwi;
    3751                 :            :         }
    3752                 :            :       else
    3753                 :    1128830 :         h ^= real_hash (CONST_DOUBLE_REAL_VALUE (x));
    3754                 :    1128830 :       break;
    3755                 :            : 
    3756                 :          0 :     case CONST_FIXED:
    3757                 :          0 :       h ^= fixed_hash (CONST_FIXED_VALUE (x));
    3758                 :          0 :       break;
    3759                 :            : 
    3760                 :       1067 :     case SYMBOL_REF:
    3761                 :       1067 :       h ^= htab_hash_string (XSTR (x, 0));
    3762                 :       1067 :       break;
    3763                 :            : 
    3764                 :          3 :     case LABEL_REF:
    3765                 :          3 :       h = h * 251 + CODE_LABEL_NUMBER (label_ref_label (x));
    3766                 :          3 :       break;
    3767                 :            : 
    3768                 :          0 :     case UNSPEC:
    3769                 :          0 :     case UNSPEC_VOLATILE:
    3770                 :          0 :       h = h * 251 + XINT (x, 1);
    3771                 :          0 :       break;
    3772                 :            : 
    3773                 :            :     default:
    3774                 :            :       break;
    3775                 :            :     }
    3776                 :            : 
    3777                 :    2443140 :   return h;
    3778                 :            : }
    3779                 :            : 
    3780                 :            : /* Compute a hash value for X, which should be a constant.  */
    3781                 :            : 
    3782                 :            : static hashval_t
    3783                 :    1102800 : const_rtx_hash (rtx x)
    3784                 :            : {
    3785                 :    1102800 :   hashval_t h = 0;
    3786                 :    1102800 :   subrtx_iterator::array_type array;
    3787                 :    3545940 :   FOR_EACH_SUBRTX (iter, array, x, ALL)
    3788                 :    2443140 :     h = h * 509 + const_rtx_hash_1 (*iter);
    3789                 :    1102800 :   return h;
    3790                 :            : }
    3791                 :            : 
    3792                 :            : 
    3793                 :            : /* Create and return a new rtx constant pool.  */
    3794                 :            : 
    3795                 :            : static struct rtx_constant_pool *
    3796                 :    1300060 : create_constant_pool (void)
    3797                 :            : {
    3798                 :    1300060 :   struct rtx_constant_pool *pool;
    3799                 :            : 
    3800                 :    1300060 :   pool = ggc_alloc<rtx_constant_pool> ();
    3801                 :    1300060 :   pool->const_rtx_htab = hash_table<const_rtx_desc_hasher>::create_ggc (31);
    3802                 :    1300060 :   pool->first = NULL;
    3803                 :    1300060 :   pool->last = NULL;
    3804                 :    1300060 :   pool->offset = 0;
    3805                 :    1300060 :   return pool;
    3806                 :            : }
    3807                 :            : 
    3808                 :            : /* Initialize constant pool hashing for a new function.  */
    3809                 :            : 
    3810                 :            : void
    3811                 :    1101470 : init_varasm_status (void)
    3812                 :            : {
    3813                 :    1101470 :   crtl->varasm.pool = create_constant_pool ();
    3814                 :    1101470 :   crtl->varasm.deferred_constants = 0;
    3815                 :    1101470 : }
    3816                 :            : 
    3817                 :            : /* Given a MINUS expression, simplify it if both sides
    3818                 :            :    include the same symbol.  */
    3819                 :            : 
    3820                 :            : rtx
    3821                 :   10775700 : simplify_subtraction (rtx x)
    3822                 :            : {
    3823                 :   10775700 :   rtx r = simplify_rtx (x);
    3824                 :   10775700 :   return r ? r : x;
    3825                 :            : }
    3826                 :            : 
    3827                 :            : /* Given a constant rtx X, make (or find) a memory constant for its value
    3828                 :            :    and return a MEM rtx to refer to it in memory.  IN_MODE is the mode
    3829                 :            :    of X.  */
    3830                 :            : 
    3831                 :            : rtx
    3832                 :    1122680 : force_const_mem (machine_mode in_mode, rtx x)
    3833                 :            : {
    3834                 :    1122680 :   class constant_descriptor_rtx *desc, tmp;
    3835                 :    1122680 :   struct rtx_constant_pool *pool;
    3836                 :    1122680 :   char label[256];
    3837                 :    1122680 :   rtx def, symbol;
    3838                 :    1122680 :   hashval_t hash;
    3839                 :    1122680 :   unsigned int align;
    3840                 :    1122680 :   constant_descriptor_rtx **slot;
    3841                 :    1122680 :   fixed_size_mode mode;
    3842                 :            : 
    3843                 :            :   /* We can't force variable-sized objects to memory.  */
    3844                 :    1122680 :   if (!is_a <fixed_size_mode> (in_mode, &mode))
    3845                 :            :     return NULL_RTX;
    3846                 :            : 
    3847                 :            :   /* If we're not allowed to drop X into the constant pool, don't.  */
    3848                 :    1122680 :   if (targetm.cannot_force_const_mem (mode, x))
    3849                 :            :     return NULL_RTX;
    3850                 :            : 
    3851                 :            :   /* Record that this function has used a constant pool entry.  */
    3852                 :    1102800 :   crtl->uses_const_pool = 1;
    3853                 :            : 
    3854                 :            :   /* Decide which pool to use.  */
    3855                 :    1102800 :   pool = (targetm.use_blocks_for_constant_p (mode, x)
    3856                 :    1102800 :           ? shared_constant_pool
    3857                 :            :           : crtl->varasm.pool);
    3858                 :            : 
    3859                 :            :   /* Lookup the value in the hashtable.  */
    3860                 :    1102800 :   tmp.constant = x;
    3861                 :    1102800 :   tmp.mode = mode;
    3862                 :    1102800 :   hash = const_rtx_hash (x);
    3863                 :    1102800 :   slot = pool->const_rtx_htab->find_slot_with_hash (&tmp, hash, INSERT);
    3864                 :    1102800 :   desc = *slot;
    3865                 :            : 
    3866                 :            :   /* If the constant was already present, return its memory.  */
    3867                 :    1102800 :   if (desc)
    3868                 :     952901 :     return copy_rtx (desc->mem);
    3869                 :            : 
    3870                 :            :   /* Otherwise, create a new descriptor.  */
    3871                 :     149902 :   desc = ggc_alloc<constant_descriptor_rtx> ();
    3872                 :     149902 :   *slot = desc;
    3873                 :            : 
    3874                 :            :   /* Align the location counter as required by EXP's data type.  */
    3875                 :     149902 :   machine_mode align_mode = (mode == VOIDmode ? word_mode : mode);
    3876                 :     149902 :   align = targetm.static_rtx_alignment (align_mode);
    3877                 :            : 
    3878                 :     149902 :   pool->offset += (align / BITS_PER_UNIT) - 1;
    3879                 :     149902 :   pool->offset &= ~ ((align / BITS_PER_UNIT) - 1);
    3880                 :            : 
    3881                 :     149902 :   desc->next = NULL;
    3882                 :     149902 :   desc->constant = copy_rtx (tmp.constant);
    3883                 :     149902 :   desc->offset = pool->offset;
    3884                 :     149902 :   desc->hash = hash;
    3885                 :     149902 :   desc->mode = mode;
    3886                 :     149902 :   desc->align = align;
    3887                 :     149902 :   desc->labelno = const_labelno;
    3888                 :     149902 :   desc->mark = 0;
    3889                 :            : 
    3890                 :     149902 :   pool->offset += GET_MODE_SIZE (mode);
    3891                 :     149902 :   if (pool->last)
    3892                 :     124715 :     pool->last->next = desc;
    3893                 :            :   else
    3894                 :      25187 :     pool->first = pool->last = desc;
    3895                 :     149902 :   pool->last = desc;
    3896                 :            : 
    3897                 :            :   /* Create a string containing the label name, in LABEL.  */
    3898                 :     149902 :   ASM_GENERATE_INTERNAL_LABEL (label, "LC", const_labelno);
    3899                 :     149902 :   ++const_labelno;
    3900                 :            : 
    3901                 :            :   /* Construct the SYMBOL_REF.  Make sure to mark it as belonging to
    3902                 :            :      the constants pool.  */
    3903                 :     149902 :   if (use_object_blocks_p () && targetm.use_blocks_for_constant_p (mode, x))
    3904                 :            :     {
    3905                 :          0 :       section *sect = targetm.asm_out.select_rtx_section (mode, x, align);
    3906                 :          0 :       symbol = create_block_symbol (ggc_strdup (label),
    3907                 :            :                                     get_block_for_section (sect), -1);
    3908                 :            :     }
    3909                 :            :   else
    3910                 :     156376 :     symbol = gen_rtx_SYMBOL_REF (Pmode, ggc_strdup (label));
    3911                 :     149902 :   desc->sym = symbol;
    3912                 :     149902 :   SYMBOL_REF_FLAGS (symbol) |= SYMBOL_FLAG_LOCAL;
    3913                 :     149902 :   CONSTANT_POOL_ADDRESS_P (symbol) = 1;
    3914                 :     149902 :   SET_SYMBOL_REF_CONSTANT (symbol, desc);
    3915                 :            : 
    3916                 :            :   /* Construct the MEM.  */
    3917                 :     149902 :   desc->mem = def = gen_const_mem (mode, symbol);
    3918                 :     149902 :   set_mem_align (def, align);
    3919                 :            : 
    3920                 :            :   /* If we're dropping a label to the constant pool, make sure we
    3921                 :            :      don't delete it.  */
    3922                 :     149902 :   if (GET_CODE (x) == LABEL_REF)
    3923                 :          3 :     LABEL_PRESERVE_P (XEXP (x, 0)) = 1;
    3924                 :            : 
    3925                 :     149902 :   return copy_rtx (def);
    3926                 :            : }
    3927                 :            : 
    3928                 :            : /* Given a constant pool SYMBOL_REF, return the corresponding constant.  */
    3929                 :            : 
    3930                 :            : rtx
    3931                 :    5406760 : get_pool_constant (const_rtx addr)
    3932                 :            : {
    3933                 :    5406760 :   return SYMBOL_REF_CONSTANT (addr)->constant;
    3934                 :            : }
    3935                 :            : 
    3936                 :            : /* Given a constant pool SYMBOL_REF, return the corresponding constant
    3937                 :            :    and whether it has been output or not.  */
    3938                 :            : 
    3939                 :            : rtx
    3940                 :          0 : get_pool_constant_mark (rtx addr, bool *pmarked)
    3941                 :            : {
    3942                 :          0 :   class constant_descriptor_rtx *desc;
    3943                 :            : 
    3944                 :          0 :   desc = SYMBOL_REF_CONSTANT (addr);
    3945                 :          0 :   *pmarked = (desc->mark != 0);
    3946                 :          0 :   return desc->constant;
    3947                 :            : }
    3948                 :            : 
    3949                 :            : /* Similar, return the mode.  */
    3950                 :            : 
    3951                 :            : fixed_size_mode
    3952                 :    3458280 : get_pool_mode (const_rtx addr)
    3953                 :            : {
    3954                 :    3458280 :   return SYMBOL_REF_CONSTANT (addr)->mode;
    3955                 :            : }
    3956                 :            : 
    3957                 :            : /* Return TRUE if and only if the constant pool has no entries.  Note
    3958                 :            :    that even entries we might end up choosing not to emit are counted
    3959                 :            :    here, so there is the potential for missed optimizations.  */
    3960                 :            : 
    3961                 :            : bool
    3962                 :          0 : constant_pool_empty_p (void)
    3963                 :            : {
    3964                 :          0 :   return crtl->varasm.pool->first == NULL;
    3965                 :            : }
    3966                 :            : 
    3967                 :            : /* Worker function for output_constant_pool_1.  Emit assembly for X
    3968                 :            :    in MODE with known alignment ALIGN.  */
    3969                 :            : 
    3970                 :            : static void
    3971                 :     349020 : output_constant_pool_2 (fixed_size_mode mode, rtx x, unsigned int align)
    3972                 :            : {
    3973                 :     349020 :   switch (GET_MODE_CLASS (mode))
    3974                 :            :     {
    3975                 :     117298 :     case MODE_FLOAT:
    3976                 :     117298 :     case MODE_DECIMAL_FLOAT:
    3977                 :     117298 :       {
    3978                 :     117298 :         gcc_assert (CONST_DOUBLE_AS_FLOAT_P (x));
    3979                 :     117298 :         assemble_real (*CONST_DOUBLE_REAL_VALUE (x),
    3980                 :            :                        as_a <scalar_float_mode> (mode), align, false);
    3981                 :     117298 :         break;
    3982                 :            :       }
    3983                 :            : 
    3984                 :     183219 :     case MODE_INT:
    3985                 :     183219 :     case MODE_PARTIAL_INT:
    3986                 :     183219 :     case MODE_FRACT:
    3987                 :     183219 :     case MODE_UFRACT:
    3988                 :     183219 :     case MODE_ACCUM:
    3989                 :     183219 :     case MODE_UACCUM:
    3990                 :     183219 :       assemble_integer (x, GET_MODE_SIZE (mode), align, 1);
    3991                 :     183219 :       break;
    3992                 :            : 
    3993                 :          0 :     case MODE_VECTOR_BOOL:
    3994                 :          0 :       {
    3995                 :          0 :         gcc_assert (GET_CODE (x) == CONST_VECTOR);
    3996                 :            : 
    3997                 :            :         /* Pick the smallest integer mode that contains at least one
    3998                 :            :            whole element.  Often this is byte_mode and contains more
    3999                 :            :            than one element.  */
    4000                 :          0 :         unsigned int nelts = GET_MODE_NUNITS (mode);
    4001                 :          0 :         unsigned int elt_bits = GET_MODE_BITSIZE (mode) / nelts;
    4002                 :          0 :         unsigned int int_bits = MAX (elt_bits, BITS_PER_UNIT);
    4003                 :          0 :         scalar_int_mode int_mode = int_mode_for_size (int_bits, 0).require ();
    4004                 :            : 
    4005                 :            :         /* Build the constant up one integer at a time.  */
    4006                 :          0 :         unsigned int elts_per_int = int_bits / elt_bits;
    4007                 :          0 :         for (unsigned int i = 0; i < nelts; i += elts_per_int)
    4008                 :            :           {
    4009                 :          0 :             unsigned HOST_WIDE_INT value = 0;
    4010                 :          0 :             unsigned int limit = MIN (nelts - i, elts_per_int);
    4011                 :          0 :             for (unsigned int j = 0; j < limit; ++j)
    4012                 :          0 :               if (INTVAL (CONST_VECTOR_ELT (x, i + j)) != 0)
    4013                 :          0 :                 value |= 1 << (j * elt_bits);
    4014                 :          0 :             output_constant_pool_2 (int_mode, gen_int_mode (value, int_mode),
    4015                 :            :                                     i != 0 ? MIN (align, int_bits) : align);
    4016                 :            :           }
    4017                 :            :         break;
    4018                 :            :       }
    4019                 :      48503 :     case MODE_VECTOR_FLOAT:
    4020                 :      48503 :     case MODE_VECTOR_INT:
    4021                 :      48503 :     case MODE_VECTOR_FRACT:
    4022                 :      48503 :     case MODE_VECTOR_UFRACT:
    4023                 :      48503 :     case MODE_VECTOR_ACCUM:
    4024                 :      48503 :     case MODE_VECTOR_UACCUM:
    4025                 :      48503 :       {
    4026                 :      48503 :         int i, units;
    4027                 :      48503 :         scalar_mode submode = GET_MODE_INNER (mode);
    4028                 :     145509 :         unsigned int subalign = MIN (align, GET_MODE_BITSIZE (submode));
    4029                 :            : 
    4030                 :      48503 :         gcc_assert (GET_CODE (x) == CONST_VECTOR);
    4031                 :      48503 :         units = GET_MODE_NUNITS (mode);
    4032                 :            : 
    4033                 :     264394 :         for (i = 0; i < units; i++)
    4034                 :            :           {
    4035                 :     215891 :             rtx elt = CONST_VECTOR_ELT (x, i);
    4036                 :     264394 :             output_constant_pool_2 (submode, elt, i ? subalign : align);
    4037                 :            :           }
    4038                 :            :       }
    4039                 :            :       break;
    4040                 :            : 
    4041                 :          0 :     default:
    4042                 :          0 :       gcc_unreachable ();
    4043                 :            :     }
    4044                 :     349020 : }
    4045                 :            : 
    4046                 :            : /* Worker function for output_constant_pool.  Emit constant DESC,
    4047                 :            :    giving it ALIGN bits of alignment.  */
    4048                 :            : 
    4049                 :            : static void
    4050                 :     133129 : output_constant_pool_1 (class constant_descriptor_rtx *desc,
    4051                 :            :                         unsigned int align)
    4052                 :            : {
    4053                 :     133129 :   rtx x, tmp;
    4054                 :            : 
    4055                 :     133129 :   x = desc->constant;
    4056                 :            : 
    4057                 :            :   /* See if X is a LABEL_REF (or a CONST referring to a LABEL_REF)
    4058                 :            :      whose CODE_LABEL has been deleted.  This can occur if a jump table
    4059                 :            :      is eliminated by optimization.  If so, write a constant of zero
    4060                 :            :      instead.  Note that this can also happen by turning the
    4061                 :            :      CODE_LABEL into a NOTE.  */
    4062                 :            :   /* ??? This seems completely and utterly wrong.  Certainly it's
    4063                 :            :      not true for NOTE_INSN_DELETED_LABEL, but I disbelieve proper
    4064                 :            :      functioning even with rtx_insn::deleted and friends.  */
    4065                 :            : 
    4066                 :     133129 :   tmp = x;
    4067                 :     133129 :   switch (GET_CODE (tmp))
    4068                 :            :     {
    4069                 :        128 :     case CONST:
    4070                 :        128 :       if (GET_CODE (XEXP (tmp, 0)) != PLUS
    4071                 :        128 :           || GET_CODE (XEXP (XEXP (tmp, 0), 0)) != LABEL_REF)
    4072                 :            :         break;
    4073                 :            :       tmp = XEXP (XEXP (tmp, 0), 0);
    4074                 :            :       /* FALLTHRU  */
    4075                 :            : 
    4076                 :          3 :     case LABEL_REF:
    4077                 :          3 :       {
    4078                 :          3 :         rtx_insn *insn = label_ref_label (tmp);
    4079                 :          3 :         gcc_assert (!insn->deleted ());
    4080                 :          3 :         gcc_assert (!NOTE_P (insn)
    4081                 :            :                     || NOTE_KIND (insn) != NOTE_INSN_DELETED);
    4082                 :            :         break;
    4083                 :            :       }
    4084                 :            : 
    4085                 :            :     default:
    4086                 :            :       break;
    4087                 :            :     }
    4088                 :            : 
    4089                 :            : #ifdef ASM_OUTPUT_SPECIAL_POOL_ENTRY
    4090                 :            :   ASM_OUTPUT_SPECIAL_POOL_ENTRY (asm_out_file, x, desc->mode,
    4091                 :            :                                  align, desc->labelno, done);
    4092                 :            : #endif
    4093                 :            : 
    4094                 :     133129 :   assemble_align (align);
    4095                 :            : 
    4096                 :            :   /* Output the label.  */
    4097                 :     133129 :   targetm.asm_out.internal_label (asm_out_file, "LC", desc->labelno);
    4098                 :            : 
    4099                 :            :   /* Output the data.
    4100                 :            :      Pass actual alignment value while emitting string constant to asm code
    4101                 :            :      as function 'output_constant_pool_1' explicitly passes the alignment as 1
    4102                 :            :      assuming that the data is already aligned which prevents the generation 
    4103                 :            :      of fix-up table entries.  */
    4104                 :     133129 :   output_constant_pool_2 (desc->mode, x, desc->align);
    4105                 :            : 
    4106                 :            :   /* Make sure all constants in SECTION_MERGE and not SECTION_STRINGS
    4107                 :            :      sections have proper size.  */
    4108                 :     133129 :   if (align > GET_MODE_BITSIZE (desc->mode)
    4109                 :         84 :       && in_section
    4110                 :     133213 :       && (in_section->common.flags & SECTION_MERGE))
    4111                 :         84 :     assemble_align (align);
    4112                 :            : 
    4113                 :            : #ifdef ASM_OUTPUT_SPECIAL_POOL_ENTRY
    4114                 :            :  done:
    4115                 :            : #endif
    4116                 :     133129 :   return;
    4117                 :            : }
    4118                 :            : 
    4119                 :            : /* Recompute the offsets of entries in POOL, and the overall size of
    4120                 :            :    POOL.  Do this after calling mark_constant_pool to ensure that we
    4121                 :            :    are computing the offset values for the pool which we will actually
    4122                 :            :    emit.  */
    4123                 :            : 
    4124                 :            : static void
    4125                 :     946296 : recompute_pool_offsets (struct rtx_constant_pool *pool)
    4126                 :            : {
    4127                 :     946296 :   class constant_descriptor_rtx *desc;
    4128                 :     946296 :   pool->offset = 0;
    4129                 :            : 
    4130                 :     946296 :   for (desc = pool->first; desc ; desc = desc->next)
    4131                 :          0 :     if (desc->mark)
    4132                 :            :       {
    4133                 :            :           /* Recalculate offset.  */
    4134                 :          0 :         unsigned int align = desc->align;
    4135                 :          0 :         pool->offset += (align / BITS_PER_UNIT) - 1;
    4136                 :          0 :         pool->offset &= ~ ((align / BITS_PER_UNIT) - 1);
    4137                 :          0 :         desc->offset = pool->offset;
    4138                 :          0 :         pool->offset += GET_MODE_SIZE (desc->mode);
    4139                 :            :       }
    4140                 :     946296 : }
    4141                 :            : 
    4142                 :            : /* Mark all constants that are referenced by SYMBOL_REFs in X.
    4143                 :            :    Emit referenced deferred strings.  */
    4144                 :            : 
    4145                 :            : static void
    4146                 :   16019300 : mark_constants_in_pattern (rtx insn)
    4147                 :            : {
    4148                 :   16019300 :   subrtx_iterator::array_type array;
    4149                 :  110066000 :   FOR_EACH_SUBRTX (iter, array, PATTERN (insn), ALL)
    4150                 :            :     {
    4151                 :   94047100 :       const_rtx x = *iter;
    4152                 :   94047100 :       if (GET_CODE (x) == SYMBOL_REF)
    4153                 :            :         {
    4154                 :    3693130 :           if (CONSTANT_POOL_ADDRESS_P (x))
    4155                 :            :             {
    4156                 :     477009 :               class constant_descriptor_rtx *desc = SYMBOL_REF_CONSTANT (x);
    4157                 :     477009 :               if (desc->mark == 0)
    4158                 :            :                 {
    4159                 :     133129 :                   desc->mark = 1;
    4160                 :   94047100 :                   iter.substitute (desc->constant);
    4161                 :            :                 }
    4162                 :            :             }
    4163                 :    3216120 :           else if (TREE_CONSTANT_POOL_ADDRESS_P (x))
    4164                 :            :             {
    4165                 :     217867 :               tree decl = SYMBOL_REF_DECL (x);
    4166                 :     217867 :               if (!TREE_ASM_WRITTEN (DECL_INITIAL (decl)))
    4167                 :            :                 {
    4168                 :       7127 :                   n_deferred_constants--;
    4169                 :       7127 :                   output_constant_def_contents (CONST_CAST_RTX (x));
    4170                 :            :                 }
    4171                 :            :             }
    4172                 :            :         }
    4173                 :            :     }
    4174                 :   16019300 : }
    4175                 :            : 
    4176                 :            : /* Look through appropriate parts of INSN, marking all entries in the
    4177                 :            :    constant pool which are actually being used.  Entries that are only
    4178                 :            :    referenced by other constants are also marked as used.  Emit
    4179                 :            :    deferred strings that are used.  */
    4180                 :            : 
    4181                 :            : static void
    4182                 :   28436500 : mark_constants (rtx_insn *insn)
    4183                 :            : {
    4184                 :   28436500 :   if (!INSN_P (insn))
    4185                 :            :     return;
    4186                 :            : 
    4187                 :            :   /* Insns may appear inside a SEQUENCE.  Only check the patterns of
    4188                 :            :      insns, not any notes that may be attached.  We don't want to mark
    4189                 :            :      a constant just because it happens to appear in a REG_EQUIV note.  */
    4190                 :   16019300 :   if (rtx_sequence *seq = dyn_cast <rtx_sequence *> (PATTERN (insn)))
    4191                 :            :     {
    4192                 :          0 :       int i, n = seq->len ();
    4193                 :          0 :       for (i = 0; i < n; ++i)
    4194                 :            :         {
    4195                 :          0 :           rtx subinsn = seq->element (i);
    4196                 :          0 :           if (INSN_P (subinsn))
    4197                 :          0 :             mark_constants_in_pattern (subinsn);
    4198                 :            :         }
    4199                 :            :     }
    4200                 :            :   else
    4201                 :   16019300 :     mark_constants_in_pattern (insn);
    4202                 :            : }
    4203                 :            : 
    4204                 :            : /* Look through the instructions for this function, and mark all the
    4205                 :            :    entries in POOL which are actually being used.  Emit deferred constants
    4206                 :            :    which have indeed been used.  */
    4207                 :            : 
    4208                 :            : static void
    4209                 :     946296 : mark_constant_pool (void)
    4210                 :            : {
    4211                 :     946296 :   rtx_insn *insn;
    4212                 :            : 
    4213                 :     946296 :   if (!crtl->uses_const_pool && n_deferred_constants == 0)
    4214                 :            :     return;
    4215                 :            : 
    4216                 :   56947800 :   for (insn = get_insns (); insn; insn = NEXT_INSN (insn))
    4217                 :   28436500 :     mark_constants (insn);
    4218                 :            : }
    4219                 :            : 
    4220                 :            : /* Write all the constants in POOL.  */
    4221                 :            : 
    4222                 :            : static void
    4223                 :    1110140 : output_constant_pool_contents (struct rtx_constant_pool *pool)
    4224                 :            : {
    4225                 :    1110140 :   class constant_descriptor_rtx *desc;
    4226                 :            : 
    4227                 :    1260020 :   for (desc = pool->first; desc ; desc = desc->next)
    4228                 :     149886 :     if (desc->mark)
    4229                 :            :       {
    4230                 :            :         /* If the constant is part of an object_block, make sure that
    4231                 :            :            the constant has been positioned within its block, but do not
    4232                 :            :            write out its definition yet.  output_object_blocks will do
    4233                 :            :            that later.  */
    4234                 :     133129 :         if (SYMBOL_REF_HAS_BLOCK_INFO_P (desc->sym)
    4235                 :     133129 :             && SYMBOL_REF_BLOCK (desc->sym))
    4236                 :          0 :           place_block_symbol (desc->sym);
    4237                 :            :         else
    4238                 :            :           {
    4239                 :     133129 :             switch_to_section (targetm.asm_out.select_rtx_section
    4240                 :     133129 :                                (desc->mode, desc->constant, desc->align));
    4241                 :     133129 :             output_constant_pool_1 (desc, desc->align);
    4242                 :            :           }
    4243                 :            :       }
    4244                 :    1110140 : }
    4245                 :            : 
    4246                 :            : /* Mark all constants that are used in the current function, then write
    4247                 :            :    out the function's private constant pool.  */
    4248                 :            : 
    4249                 :            : static void
    4250                 :     946296 : output_constant_pool (const char *fnname ATTRIBUTE_UNUSED,
    4251                 :            :                       tree fndecl ATTRIBUTE_UNUSED)
    4252                 :            : {
    4253                 :     946296 :   struct rtx_constant_pool *pool = crtl->varasm.pool;
    4254                 :            : 
    4255                 :            :   /* It is possible for gcc to call force_const_mem and then to later
    4256                 :            :      discard the instructions which refer to the constant.  In such a
    4257                 :            :      case we do not need to output the constant.  */
    4258                 :     946296 :   mark_constant_pool ();
    4259                 :            : 
    4260                 :            :   /* Having marked the constant pool entries we'll actually emit, we
    4261                 :            :      now need to rebuild the offset information, which may have become
    4262                 :            :      stale.  */
    4263                 :     946296 :   recompute_pool_offsets (pool);
    4264                 :            : 
    4265                 :            : #ifdef ASM_OUTPUT_POOL_PROLOGUE
    4266                 :            :   ASM_OUTPUT_POOL_PROLOGUE (asm_out_file, fnname, fndecl, pool->offset);
    4267                 :            : #endif
    4268                 :            : 
    4269                 :     946296 :   output_constant_pool_contents (pool);
    4270                 :            : 
    4271                 :            : #ifdef ASM_OUTPUT_POOL_EPILOGUE
    4272                 :            :   ASM_OUTPUT_POOL_EPILOGUE (asm_out_file, fnname, fndecl, pool->offset);
    4273                 :            : #endif
    4274                 :          0 : }
    4275                 :            : 
    4276                 :            : /* Write the contents of the shared constant pool.  */
    4277                 :            : 
    4278                 :            : void
    4279                 :     163841 : output_shared_constant_pool (void)
    4280                 :            : {
    4281                 :     163841 :   output_constant_pool_contents (shared_constant_pool);
    4282                 :     163841 : }
    4283                 :            : 
    4284                 :            : /* Determine what kind of relocations EXP may need.  */
    4285                 :            : 
    4286                 :            : int
    4287                 :   29485100 : compute_reloc_for_constant (tree exp)
    4288                 :            : {
    4289                 :   31497700 :   int reloc = 0, reloc2;
    4290                 :   31497700 :   tree tem;
    4291                 :            : 
    4292                 :   31497700 :   switch (TREE_CODE (exp))
    4293                 :            :     {
    4294                 :    8702370 :     case ADDR_EXPR:
    4295                 :    8702370 :     case FDESC_EXPR:
    4296                 :            :       /* Go inside any operations that get_inner_reference can handle and see
    4297                 :            :          if what's inside is a constant: no need to do anything here for
    4298                 :            :          addresses of variables or functions.  */
    4299                 :    8709020 :       for (tem = TREE_OPERAND (exp, 0); handled_component_p (tem);
    4300                 :       6646 :            tem = TREE_OPERAND (tem, 0))
    4301                 :            :         ;
    4302                 :            : 
    4303                 :    8702370 :       if (TREE_CODE (tem) == MEM_REF
    4304                 :    8702370 :           && TREE_CODE (TREE_OPERAND (tem, 0)) == ADDR_EXPR)
    4305                 :            :         {
    4306                 :      55813 :           reloc = compute_reloc_for_constant (TREE_OPERAND (tem, 0));
    4307                 :      55813 :           break;
    4308                 :            :         }
    4309                 :            : 
    4310                 :    8646560 :       if (!targetm.binds_local_p (tem))
    4311                 :            :         reloc |= 2;
    4312                 :            :       else
    4313                 :    6462840 :         reloc |= 1;
    4314                 :            :       break;
    4315                 :            : 
    4316                 :      19747 :     case PLUS_EXPR:
    4317                 :      19747 :     case POINTER_PLUS_EXPR:
    4318                 :      19747 :       reloc = compute_reloc_for_constant (TREE_OPERAND (exp, 0));
    4319                 :      19747 :       reloc |= compute_reloc_for_constant (TREE_OPERAND (exp, 1));
    4320                 :      19747 :       break;
    4321                 :            : 
    4322                 :         48 :     case MINUS_EXPR:
    4323                 :         48 :       reloc = compute_reloc_for_constant (TREE_OPERAND (exp, 0));
    4324                 :         48 :       reloc2 = compute_reloc_for_constant (TREE_OPERAND (exp, 1));
    4325                 :            :       /* The difference of two local labels is computable at link time.  */
    4326                 :         48 :       if (reloc == 1 && reloc2 == 1)
    4327                 :            :         reloc = 0;
    4328                 :            :       else
    4329                 :          0 :         reloc |= reloc2;
    4330                 :            :       break;
    4331                 :            : 
    4332                 :    1956830 :     CASE_CONVERT:
    4333                 :    1956830 :     case VIEW_CONVERT_EXPR:
    4334                 :    1956830 :       reloc = compute_reloc_for_constant (TREE_OPERAND (exp, 0));
    4335                 :    1956830 :       break;
    4336                 :            : 
    4337                 :            :     case CONSTRUCTOR:
    4338                 :            :       {
    4339                 :            :         unsigned HOST_WIDE_INT idx;
    4340                 :   63182800 :         FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (exp), idx, tem)
    4341                 :   24984600 :           if (tem != 0)
    4342                 :   24984600 :             reloc |= compute_reloc_for_constant (tem);
    4343                 :            :       }
    4344                 :            :       break;
    4345                 :            : 
    4346                 :            :     default:
    4347                 :            :       break;
    4348                 :            :     }
    4349                 :   29485100 :   return reloc;
    4350                 :            : }
    4351                 :            : 
    4352                 :            : /* Find all the constants whose addresses are referenced inside of EXP,
    4353                 :            :    and make sure assembler code with a label has been output for each one.
    4354                 :            :    Indicate whether an ADDR_EXPR has been encountered.  */
    4355                 :            : 
    4356                 :            : static void
    4357                 :   17448900 : output_addressed_constants (tree exp)
    4358                 :            : {
    4359                 :   17786400 :   tree tem;
    4360                 :            : 
    4361                 :   17786400 :   switch (TREE_CODE (exp))
    4362                 :            :     {
    4363                 :    3941330 :     case ADDR_EXPR:
    4364                 :    3941330 :     case FDESC_EXPR:
    4365                 :            :       /* Go inside any operations that get_inner_reference can handle and see
    4366                 :            :          if what's inside is a constant: no need to do anything here for
    4367                 :            :          addresses of variables or functions.  */
    4368                 :    3947980 :       for (tem = TREE_OPERAND (exp, 0); handled_component_p (tem);
    4369                 :       6654 :            tem = TREE_OPERAND (tem, 0))
    4370                 :            :         ;
    4371                 :            : 
    4372                 :            :       /* If we have an initialized CONST_DECL, retrieve the initializer.  */
    4373                 :    3941330 :       if (TREE_CODE (tem) == CONST_DECL && DECL_INITIAL (tem))
    4374                 :    3941330 :         tem = DECL_INITIAL (tem);
    4375                 :            : 
    4376                 :    3941330 :       if (CONSTANT_CLASS_P (tem) || TREE_CODE (tem) == CONSTRUCTOR)
    4377                 :     787162 :         output_constant_def (tem, 0);
    4378                 :            : 
    4379                 :    3941330 :       if (TREE_CODE (tem) == MEM_REF)
    4380                 :      51259 :         output_addressed_constants (TREE_OPERAND (tem, 0));
    4381                 :            :       break;
    4382                 :            : 
    4383                 :      17278 :     case PLUS_EXPR:
    4384                 :      17278 :     case POINTER_PLUS_EXPR:
    4385                 :      17278 :     case MINUS_EXPR:
    4386                 :      17278 :       output_addressed_constants (TREE_OPERAND (exp, 1));
    4387                 :     286241 :       gcc_fallthrough ();
    4388                 :            : 
    4389                 :     286241 :     CASE_CONVERT:
    4390                 :     286241 :     case VIEW_CONVERT_EXPR:
    4391                 :     286241 :       output_addressed_constants (TREE_OPERAND (exp, 0));
    4392                 :     286241 :       break;
    4393                 :            : 
    4394                 :            :     case CONSTRUCTOR:
    4395                 :            :       {
    4396                 :            :         unsigned HOST_WIDE_INT idx;
    4397                 :   31811800 :         FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (exp), idx, tem)
    4398                 :   12561200 :           if (tem != 0)
    4399                 :   12561200 :             output_addressed_constants (tem);
    4400                 :            :       }
    4401                 :            :       break;
    4402                 :            : 
    4403                 :            :     default:
    4404                 :            :       break;
    4405                 :            :     }
    4406                 :   17448900 : }
    4407                 :            : 
    4408                 :            : /* Whether a constructor CTOR is a valid static constant initializer if all
    4409                 :            :    its elements are.  This used to be internal to initializer_constant_valid_p
    4410                 :            :    and has been exposed to let other functions like categorize_ctor_elements
    4411                 :            :    evaluate the property while walking a constructor for other purposes.  */
    4412                 :            : 
    4413                 :            : bool
    4414                 :    6017560 : constructor_static_from_elts_p (const_tree ctor)
    4415                 :            : {
    4416                 :    6017560 :   return (TREE_CONSTANT (ctor)
    4417                 :    5561330 :           && (TREE_CODE (TREE_TYPE (ctor)) == UNION_TYPE
    4418                 :    5550240 :               || TREE_CODE (TREE_TYPE (ctor)) == RECORD_TYPE
    4419                 :    7161200 :               || TREE_CODE (TREE_TYPE (ctor)) == ARRAY_TYPE));
    4420                 :            : }
    4421                 :            : 
    4422                 :            : static tree initializer_constant_valid_p_1 (tree value, tree endtype,
    4423                 :            :                                             tree *cache);
    4424                 :            : 
    4425                 :            : /* A subroutine of initializer_constant_valid_p.  VALUE is a MINUS_EXPR,
    4426                 :            :    PLUS_EXPR or POINTER_PLUS_EXPR.  This looks for cases of VALUE
    4427                 :            :    which are valid when ENDTYPE is an integer of any size; in
    4428                 :            :    particular, this does not accept a pointer minus a constant.  This
    4429                 :            :    returns null_pointer_node if the VALUE is an absolute constant
    4430                 :            :    which can be used to initialize a static variable.  Otherwise it
    4431                 :            :    returns NULL.  */
    4432                 :            : 
    4433                 :            : static tree
    4434                 :      41342 : narrowing_initializer_constant_valid_p (tree value, tree endtype, tree *cache)
    4435                 :            : {
    4436                 :      41342 :   tree op0, op1;
    4437                 :            : 
    4438                 :      41342 :   if (!INTEGRAL_TYPE_P (endtype))
    4439                 :            :     return NULL_TREE;
    4440                 :            : 
    4441                 :      33800 :   op0 = TREE_OPERAND (value, 0);
    4442                 :      33800 :   op1 = TREE_OPERAND (value, 1);
    4443                 :            : 
    4444                 :            :   /* Like STRIP_NOPS except allow the operand mode to widen.  This
    4445                 :            :      works around a feature of fold that simplifies (int)(p1 - p2) to
    4446                 :            :      ((int)p1 - (int)p2) under the theory that the narrower operation
    4447                 :            :      is cheaper.  */
    4448                 :            : 
    4449                 :      32929 :   while (CONVERT_EXPR_P (op0)
    4450                 :      74863 :          || TREE_CODE (op0) == NON_LVALUE_EXPR)
    4451                 :            :     {
    4452                 :       9423 :       tree inner = TREE_OPERAND (op0, 0);
    4453                 :       9423 :       if (inner == error_mark_node
    4454                 :       9423 :           || ! INTEGRAL_MODE_P (TYPE_MODE (TREE_TYPE (inner)))
    4455                 :      18846 :           || (GET_MODE_SIZE (SCALAR_INT_TYPE_MODE (TREE_TYPE (op0)))
    4456                 :      18846 :               > GET_MODE_SIZE (SCALAR_INT_TYPE_MODE (TREE_TYPE (inner)))))
    4457                 :            :         break;
    4458                 :            :       op0 = inner;
    4459                 :            :     }
    4460                 :            : 
    4461                 :      34346 :   while (CONVERT_EXPR_P (op1)
    4462                 :      73886 :          || TREE_CODE (op1) == NON_LVALUE_EXPR)
    4463                 :            :     {
    4464                 :       6050 :       tree inner = TREE_OPERAND (op1, 0);
    4465                 :       6050 :       if (inner == error_mark_node
    4466                 :       6050 :           || ! INTEGRAL_MODE_P (TYPE_MODE (TREE_TYPE (inner)))
    4467                 :      12100 :           || (GET_MODE_SIZE (SCALAR_INT_TYPE_MODE (TREE_TYPE (op1)))
    4468                 :      12100 :               > GET_MODE_SIZE (SCALAR_INT_TYPE_MODE (TREE_TYPE (inner)))))
    4469                 :            :         break;
    4470                 :            :       op1 = inner;
    4471                 :            :     }
    4472                 :            : 
    4473                 :      33800 :   op0 = initializer_constant_valid_p_1 (op0, endtype, cache);
    4474                 :      33800 :   if (!op0)
    4475                 :            :     return NULL_TREE;
    4476                 :            : 
    4477                 :        768 :   op1 = initializer_constant_valid_p_1 (op1, endtype,
    4478                 :            :                                         cache ? cache + 2 : NULL);
    4479                 :            :   /* Both initializers must be known.  */
    4480                 :        768 :   if (op1)
    4481                 :            :     {
    4482                 :        304 :       if (op0 == op1
    4483                 :         61 :           && (op0 == null_pointer_node
    4484                 :         23 :               || TREE_CODE (value) == MINUS_EXPR))
    4485                 :            :         return null_pointer_node;
    4486                 :            : 
    4487                 :            :       /* Support differences between labels.  */
    4488                 :        266 :       if (TREE_CODE (op0) == LABEL_DECL
    4489                 :        231 :           && TREE_CODE (op1) == LABEL_DECL)
    4490                 :        231 :         return null_pointer_node;
    4491                 :            : 
    4492                 :         35 :       if (TREE_CODE (op0) == STRING_CST
    4493                 :          0 :           && TREE_CODE (op1) == STRING_CST
    4494                 :         35 :           && operand_equal_p (op0, op1, 1))
    4495                 :          0 :         return null_pointer_node;
    4496                 :            :     }
    4497                 :            : 
    4498                 :            :   return NULL_TREE;
    4499                 :            : }
    4500                 :            : 
    4501                 :            : /* Helper function of initializer_constant_valid_p.
    4502                 :            :    Return nonzero if VALUE is a valid constant-valued expression
    4503                 :            :    for use in initializing a static variable; one that can be an
    4504                 :            :    element of a "constant" initializer.
    4505                 :            : 
    4506                 :            :    Return null_pointer_node if the value is absolute;
    4507                 :            :    if it is relocatable, return the variable that determines the relocation.
    4508                 :            :    We assume that VALUE has been folded as much as possible;
    4509                 :            :    therefore, we do not need to check for such things as
    4510                 :            :    arithmetic-combinations of integers.
    4511                 :            : 
    4512                 :            :    Use CACHE (pointer to 2 tree values) for caching if non-NULL.  */
    4513                 :            : 
    4514                 :            : static tree
    4515                 :  108046000 : initializer_constant_valid_p_1 (tree value, tree endtype, tree *cache)
    4516                 :            : {
    4517                 :  108046000 :   tree ret;
    4518                 :            : 
    4519                 :  108046000 :   switch (TREE_CODE (value))
    4520                 :            :     {
    4521                 :    4954010 :     case CONSTRUCTOR:
    4522                 :    4954010 :       if (constructor_static_from_elts_p (value))
    4523                 :            :         {
    4524                 :    4943710 :           unsigned HOST_WIDE_INT idx;
    4525                 :    4943710 :           tree elt;
    4526                 :    4943710 :           bool absolute = true;
    4527                 :            : 
    4528                 :    4943710 :           if (cache && cache[0] == value)
    4529                 :          0 :             return cache[1];
    4530                 :   27837400 :           FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (value), idx, elt)
    4531                 :            :             {
    4532                 :    9000950 :               tree reloc;
    4533                 :    9000950 :               reloc = initializer_constant_valid_p_1 (elt, TREE_TYPE (elt),
    4534                 :            :                                                       NULL);
    4535                 :    9000950 :               if (!reloc
    4536                 :            :                   /* An absolute value is required with reverse SSO.  */
    4537                 :    9000950 :                   || (reloc != null_pointer_node
    4538                 :    4044780 :                       && TYPE_REVERSE_STORAGE_ORDER (TREE_TYPE (value))
    4539                 :          1 :                       && !AGGREGATE_TYPE_P (TREE_TYPE (elt))))
    4540                 :            :                 {
    4541                 :        125 :                   if (cache)
    4542                 :            :                     {
    4543                 :          0 :                       cache[0] = value;
    4544                 :          0 :                       cache[1] = NULL_TREE;
    4545                 :            :                     }
    4546                 :        125 :                   return NULL_TREE;
    4547                 :            :                 }
    4548                 :    9000830 :               if (reloc != null_pointer_node)
    4549                 :    4044780 :                 absolute = false;
    4550                 :            :             }
    4551                 :            :           /* For a non-absolute relocation, there is no single
    4552                 :            :              variable that can be "the variable that determines the
    4553                 :            :              relocation."  */
    4554                 :    4943580 :           if (cache)
    4555                 :            :             {
    4556                 :          0 :               cache[0] = value;
    4557                 :          0 :               cache[1] = absolute ? null_pointer_node : error_mark_node;
    4558                 :            :             }
    4559                 :    4943580 :           return absolute ? null_pointer_node : error_mark_node;
    4560                 :            :         }
    4561                 :            : 
    4562                 :      10299 :       return TREE_STATIC (value) ? null_pointer_node : NULL_TREE;
    4563                 :            : 
    4564                 :   72431700 :     case INTEGER_CST:
    4565                 :   72431700 :     case VECTOR_CST:
    4566                 :   72431700 :     case REAL_CST:
    4567                 :   72431700 :     case FIXED_CST:
    4568                 :   72431700 :     case STRING_CST:
    4569                 :   72431700 :     case COMPLEX_CST:
    4570                 :   72431700 :       return null_pointer_node;
    4571                 :            : 
    4572                 :   12722500 :     case ADDR_EXPR:
    4573                 :   12722500 :     case FDESC_EXPR:
    4574                 :   12722500 :       {
    4575                 :   12722500 :         tree op0 = staticp (TREE_OPERAND (value, 0));
    4576                 :   12722500 :         if (op0)
    4577                 :            :           {
    4578                 :            :             /* "&(*a).f" is like unto pointer arithmetic.  If "a" turns out
    4579                 :            :                to be a constant, this is old-skool offsetof-like nonsense.  */
    4580                 :   12174000 :             if (TREE_CODE (op0) == INDIRECT_REF
    4581                 :   12174000 :                 && TREE_CONSTANT (TREE_OPERAND (op0, 0)))
    4582                 :         78 :               return null_pointer_node;
    4583                 :            :             /* Taking the address of a nested function involves a trampoline,
    4584                 :            :                unless we don't need or want one.  */
    4585                 :   12173900 :             if (TREE_CODE (op0) == FUNCTION_DECL
    4586                 :    5503490 :                 && DECL_STATIC_CHAIN (op0)
    4587                 :   12173900 :                 && !TREE_NO_TRAMPOLINE (value))
    4588                 :            :               return NULL_TREE;
    4589                 :            :             /* "&{...}" requires a temporary to hold the constructed
    4590                 :            :                object.  */
    4591                 :   12173900 :             if (TREE_CODE (op0) == CONSTRUCTOR)
    4592                 :          0 :               return NULL_TREE;
    4593                 :            :           }
    4594                 :            :         return op0;
    4595                 :            :       }
    4596                 :            : 
    4597                 :      34034 :     case NON_LVALUE_EXPR:
    4598                 :      34034 :       return initializer_constant_valid_p_1 (TREE_OPERAND (value, 0),
    4599                 :      34034 :                                              endtype, cache);
    4600                 :            : 
    4601                 :      29127 :     case VIEW_CONVERT_EXPR:
    4602                 :      29127 :       {
    4603                 :      29127 :         tree src = TREE_OPERAND (value, 0);
    4604                 :      29127 :         tree src_type = TREE_TYPE (src);
    4605                 :      29127 :         tree dest_type = TREE_TYPE (value);
    4606                 :            : 
    4607                 :            :         /* Allow view-conversions from aggregate to non-aggregate type only
    4608                 :            :            if the bit pattern is fully preserved afterwards; otherwise, the
    4609                 :            :            RTL expander won't be able to apply a subsequent transformation
    4610                 :            :            to the underlying constructor.  */
    4611                 :      29127 :         if (AGGREGATE_TYPE_P (src_type) && !AGGREGATE_TYPE_P (dest_type))
    4612                 :            :           {
    4613                 :          0 :             if (TYPE_MODE (endtype) == TYPE_MODE (dest_type))
    4614                 :          0 :               return initializer_constant_valid_p_1 (src, endtype, cache);
    4615                 :            :             else
    4616                 :            :               return NULL_TREE;
    4617                 :            :           }
    4618                 :            : 
    4619                 :            :         /* Allow all other kinds of view-conversion.  */
    4620                 :      29127 :         return initializer_constant_valid_p_1 (src, endtype, cache);
    4621                 :            :       }
    4622                 :            : 
    4623                 :   12235600 :     CASE_CONVERT:
    4624                 :   12235600 :       {
    4625                 :   12235600 :         tree src = TREE_OPERAND (value, 0);
    4626                 :   12235600 :         tree src_type = TREE_TYPE (src);
    4627                 :   12235600 :         tree dest_type = TREE_TYPE (value);
    4628                 :            : 
    4629                 :            :         /* Allow conversions between pointer types, floating-point
    4630                 :            :            types, and offset types.  */
    4631                 :   12038200 :         if ((POINTER_TYPE_P (dest_type) && POINTER_TYPE_P (src_type))
    4632                 :     243285 :             || (FLOAT_TYPE_P (dest_type) && FLOAT_TYPE_P (src_type))
    4633                 :   12476900 :             || (TREE_CODE (dest_type) == OFFSET_TYPE
    4634                 :         89 :                 && TREE_CODE (src_type) == OFFSET_TYPE))
    4635                 :   11994500 :           return initializer_constant_valid_p_1 (src, endtype, cache);
    4636                 :            : 
    4637                 :            :         /* Allow length-preserving conversions between integer types.  */
    4638                 :     119336 :         if (INTEGRAL_TYPE_P (dest_type) && INTEGRAL_TYPE_P (src_type)
    4639                 :     334055 :             && (TYPE_PRECISION (dest_type) == TYPE_PRECISION (src_type)))
    4640                 :      67798 :           return initializer_constant_valid_p_1 (src, endtype, cache);
    4641                 :            : 
    4642                 :            :         /* Allow conversions between other integer types only if
    4643                 :            :            explicit value.  Don't allow sign-extension to a type larger
    4644                 :            :            than word and pointer, there aren't relocations that would
    4645                 :            :            allow to sign extend it to a wider type.  */
    4646                 :     173379 :         if (INTEGRAL_TYPE_P (dest_type)
    4647                 :      51538 :             && INTEGRAL_TYPE_P (src_type)
    4648                 :     173379 :             && (TYPE_UNSIGNED (src_type)
    4649                 :      29414 :                 || TYPE_PRECISION (dest_type) <= TYPE_PRECISION (src_type)
    4650                 :       3864 :                 || TYPE_PRECISION (dest_type) <= BITS_PER_WORD
    4651                 :        602 :                 || TYPE_PRECISION (dest_type) <= POINTER_SIZE))
    4652                 :            :           {
    4653                 :      24779 :             tree inner = initializer_constant_valid_p_1 (src, endtype, cache);
    4654                 :      24779 :             if (inner == null_pointer_node)
    4655                 :        185 :               return null_pointer_node;
    4656                 :            :             break;
    4657                 :            :           }
    4658                 :            : 
    4659                 :            :         /* Allow (int) &foo provided int is as wide as a pointer.  */
    4660                 :      26759 :         if (INTEGRAL_TYPE_P (dest_type) && POINTER_TYPE_P (src_type)
    4661                 :     175050 :             && (TYPE_PRECISION (dest_type) >= TYPE_PRECISION (src_type)))
    4662                 :      25949 :           return initializer_constant_valid_p_1 (src, endtype, cache);
    4663                 :            : 
    4664                 :            :         /* Likewise conversions from int to pointers, but also allow
    4665                 :            :            conversions from 0.  */
    4666                 :     122651 :         if ((POINTER_TYPE_P (dest_type)
    4667                 :      77075 :              || TREE_CODE (dest_type) == OFFSET_TYPE)
    4668                 :      45592 :             && INTEGRAL_TYPE_P (src_type))
    4669                 :            :           {
    4670                 :        511 :             if (TREE_CODE (src) == INTEGER_CST
    4671                 :        511 :                 && TYPE_PRECISION (dest_type) >= TYPE_PRECISION (src_type))
    4672                 :          0 :               return null_pointer_node;
    4673                 :        511 :             if (integer_zerop (src))
    4674                 :          0 :               return null_pointer_node;
    4675                 :        511 :             else if (TYPE_PRECISION (dest_type) <= TYPE_PRECISION (src_type))
    4676                 :        511 :               return initializer_constant_valid_p_1 (src, endtype, cache);
    4677                 :            :           }
    4678                 :            : 
    4679                 :            :         /* Allow conversions to struct or union types if the value
    4680                 :            :            inside is okay.  */
    4681                 :     122140 :         if (TREE_CODE (dest_type) == RECORD_TYPE
    4682                 :     122140 :             || TREE_CODE (dest_type) == UNION_TYPE)
    4683                 :      76102 :           return initializer_constant_valid_p_1 (src, endtype, cache);
    4684                 :            :       }
    4685                 :            :       break;
    4686                 :            : 
    4687                 :    2188420 :     case POINTER_PLUS_EXPR:
    4688                 :    2188420 :     case PLUS_EXPR:
    4689                 :            :       /* Any valid floating-point constants will have been folded by now;
    4690                 :            :          with -frounding-math we hit this with addition of two constants.  */
    4691                 :    2188420 :       if (TREE_CODE (endtype) == REAL_TYPE)
    4692                 :            :         return NULL_TREE;
    4693                 :    2148550 :       if (cache && cache[0] == value)
    4694                 :       3105 :         return cache[1];
    4695                 :    2145450 :       if (! INTEGRAL_TYPE_P (endtype)
    4696                 :    2201280 :           || TYPE_PRECISION (endtype) >= TYPE_PRECISION (TREE_TYPE (value)))
    4697                 :            :         {
    4698                 :    2145420 :           tree ncache[4] = { NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE };
    4699                 :    2145420 :           tree valid0
    4700                 :    2145420 :             = initializer_constant_valid_p_1 (TREE_OPERAND (value, 0),
    4701                 :            :                                               endtype, ncache);
    4702                 :    2145420 :           tree valid1
    4703                 :    2145420 :             = initializer_constant_valid_p_1 (TREE_OPERAND (value, 1),
    4704                 :            :                                               endtype, ncache + 2);
    4705                 :            :           /* If either term is absolute, use the other term's relocation.  */
    4706                 :    2145420 :           if (valid0 == null_pointer_node)
    4707                 :            :             ret = valid1;
    4708                 :    2145210 :           else if (valid1 == null_pointer_node)
    4709                 :            :             ret = valid0;
    4710                 :            :           /* Support narrowing pointer differences.  */
    4711                 :            :           else
    4712                 :      24419 :             ret = narrowing_initializer_constant_valid_p (value, endtype,
    4713                 :            :                                                           ncache);
    4714                 :            :         }
    4715                 :            :       else
    4716                 :            :       /* Support narrowing pointer differences.  */
    4717                 :         25 :         ret = narrowing_initializer_constant_valid_p (value, endtype, NULL);
    4718                 :    2145450 :       if (cache)
    4719                 :            :         {
    4720                 :       3191 :           cache[0] = value;
    4721                 :       3191 :           cache[1] = ret;
    4722                 :            :         }
    4723                 :            :       return ret;
    4724                 :            : 
    4725                 :      43091 :     case POINTER_DIFF_EXPR:
    4726                 :      43091 :     case MINUS_EXPR:
    4727                 :      43091 :       if (TREE_CODE (endtype) == REAL_TYPE)
    4728                 :            :         return NULL_TREE;
    4729                 :      22236 :       if (cache && cache[0] == value)
    4730                 :       3629 :         return cache[1];
    4731                 :      18607 :       if (! INTEGRAL_TYPE_P (endtype)
    4732                 :      37189 :           || TYPE_PRECISION (endtype) >= TYPE_PRECISION (TREE_TYPE (value)))
    4733                 :            :         {
    4734                 :      18383 :           tree ncache[4] = { NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE };
    4735                 :      18383 :           tree valid0
    4736                 :      18383 :             = initializer_constant_valid_p_1 (TREE_OPERAND (value, 0),
    4737                 :            :                                               endtype, ncache);
    4738                 :      18383 :           tree valid1
    4739                 :      18383 :             = initializer_constant_valid_p_1 (TREE_OPERAND (value, 1),
    4740                 :            :                                               endtype, ncache + 2);
    4741                 :            :           /* Win if second argument is absolute.  */
    4742                 :      18383 :           if (valid1 == null_pointer_node)
    4743                 :            :             ret = valid0;
    4744                 :            :           /* Win if both arguments have the same relocation.
    4745                 :            :              Then the value is absolute.  */
    4746                 :      16674 :           else if (valid0 == valid1 && valid0 != 0)
    4747                 :            :             ret = null_pointer_node;
    4748                 :            :           /* Since GCC guarantees that string constants are unique in the
    4749                 :            :              generated code, a subtraction between two copies of the same
    4750                 :            :              constant string is absolute.  */
    4751                 :        582 :           else if (valid0 && TREE_CODE (valid0) == STRING_CST
    4752                 :          0 :                    && valid1 && TREE_CODE (valid1) == STRING_CST
    4753                 :      16674 :                    && operand_equal_p (valid0, valid1, 1))
    4754                 :          0 :             ret = null_pointer_node;
    4755                 :            :           /* Support narrowing differences.  */
    4756                 :            :           else
    4757                 :      16674 :             ret = narrowing_initializer_constant_valid_p (value, endtype,
    4758                 :            :                                                           ncache);
    4759                 :            :         }
    4760                 :            :       else
    4761                 :            :         /* Support narrowing differences.  */
    4762                 :        224 :         ret = narrowing_initializer_constant_valid_p (value, endtype, NULL);
    4763                 :      18607 :       if (cache)
    4764                 :            :         {
    4765                 :       3723 :           cache[0] = value;
    4766                 :       3723 :           cache[1] = ret;
    4767                 :            :         }
    4768                 :            :       return ret;
    4769                 :            : 
    4770                 :            :     default:
    4771                 :            :       break;
    4772                 :            :     }
    4773                 :            : 
    4774                 :            :   return NULL_TREE;
    4775                 :            : }
    4776                 :            : 
    4777                 :            : /* Return nonzero if VALUE is a valid constant-valued expression
    4778                 :            :    for use in initializing a static variable; one that can be an
    4779                 :            :    element of a "constant" initializer.
    4780                 :            : 
    4781                 :            :    Return null_pointer_node if the value is absolute;
    4782                 :            :    if it is relocatable, return the variable that determines the relocation.
    4783                 :            :    We assume that VALUE has been folded as much as possible;
    4784                 :            :    therefore, we do not need to check for such things as
    4785                 :            :    arithmetic-combinations of integers.  */
    4786                 :            : tree
    4787                 :   82430400 : initializer_constant_valid_p (tree value, tree endtype, bool reverse)
    4788                 :            : {
    4789                 :   82430400 :   tree reloc = initializer_constant_valid_p_1 (value, endtype, NULL);
    4790                 :            : 
    4791                 :            :   /* An absolute value is required with reverse storage order.  */
    4792                 :   82430400 :   if (reloc
    4793                 :   78433300 :       && reloc != null_pointer_node
    4794                 :   11270800 :       && reverse
    4795                 :          1 :       && !AGGREGATE_TYPE_P (endtype)
    4796                 :          1 :       && !VECTOR_TYPE_P (endtype))
    4797                 :          1 :     reloc = NULL_TREE;
    4798                 :            : 
    4799                 :   82430400 :   return reloc;
    4800                 :            : }
    4801                 :            : 
    4802                 :            : /* Return true if VALUE is a valid constant-valued expression
    4803                 :            :    for use in initializing a static bit-field; one that can be
    4804                 :            :    an element of a "constant" initializer.  */
    4805                 :            : 
    4806                 :            : bool
    4807                 :          0 : initializer_constant_valid_for_bitfield_p (tree value)
    4808                 :            : {
    4809                 :            :   /* For bitfields we support integer constants or possibly nested aggregates
    4810                 :            :      of such.  */
    4811                 :          0 :   switch (TREE_CODE (value))
    4812                 :            :     {
    4813                 :            :     case CONSTRUCTOR:
    4814                 :            :       {
    4815                 :            :         unsigned HOST_WIDE_INT idx;
    4816                 :            :         tree elt;
    4817                 :            : 
    4818                 :          0 :         FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (value), idx, elt)
    4819                 :          0 :           if (!initializer_constant_valid_for_bitfield_p (elt))
    4820                 :            :             return false;
    4821                 :            :         return true;
    4822                 :            :       }
    4823                 :            : 
    4824                 :            :     case INTEGER_CST:
    4825                 :            :     case REAL_CST:
    4826                 :            :       return true;
    4827                 :            : 
    4828                 :          0 :     case VIEW_CONVERT_EXPR:
    4829                 :          0 :     case NON_LVALUE_EXPR:
    4830                 :          0 :       return
    4831                 :          0 :         initializer_constant_valid_for_bitfield_p (TREE_OPERAND (value, 0));
    4832                 :            : 
    4833                 :          0 :     default:
    4834                 :          0 :       break;
    4835                 :            :     }
    4836                 :            : 
    4837                 :          0 :   return false;
    4838                 :            : }
    4839                 :            : 
    4840                 :            : /* Check if a STRING_CST fits into the field.
    4841                 :            :    Tolerate only the case when the NUL termination
    4842                 :            :    does not fit into the field.   */
    4843                 :            : 
    4844                 :            : static bool
    4845                 :     879876 : check_string_literal (tree string, unsigned HOST_WIDE_INT size)
    4846                 :            : {
    4847                 :     879876 :   tree type = TREE_TYPE (string);
    4848                 :     879876 :   tree eltype = TREE_TYPE (type);
    4849                 :     879876 :   unsigned HOST_WIDE_INT elts = tree_to_uhwi (TYPE_SIZE_UNIT (eltype));
    4850                 :     879876 :   unsigned HOST_WIDE_INT mem_size = tree_to_uhwi (TYPE_SIZE_UNIT (type));
    4851                 :     879876 :   int len = TREE_STRING_LENGTH (string);
    4852                 :            : 
    4853                 :     879876 :   if (elts != 1 && elts != 2 && elts != 4)
    4854                 :            :     return false;
    4855                 :     879876 :   if (len < 0 || len % elts != 0)
    4856                 :            :     return false;
    4857                 :     879876 :   if (size < (unsigned)len)
    4858                 :            :     return false;
    4859                 :     879876 :   if (mem_size != size)
    4860                 :          0 :     return false;
    4861                 :            :   return true;
    4862                 :            : }
    4863                 :            : 
    4864                 :            : /* output_constructor outer state of relevance in recursive calls, typically
    4865                 :            :    for nested aggregate bitfields.  */
    4866                 :            : 
    4867                 :            : struct oc_outer_state {
    4868                 :            :   unsigned int bit_offset;  /* current position in ...  */
    4869                 :            :   int byte;                 /* ... the outer byte buffer.  */
    4870                 :            : };
    4871                 :            : 
    4872                 :            : static unsigned HOST_WIDE_INT
    4873                 :            : output_constructor (tree, unsigned HOST_WIDE_INT, unsigned int, bool,
    4874                 :            :                     oc_outer_state *);
    4875                 :            : 
    4876                 :            : /* Output assembler code for constant EXP, with no label.
    4877                 :            :    This includes the pseudo-op such as ".int" or ".byte", and a newline.
    4878                 :            :    Assumes output_addressed_constants has been done on EXP already.
    4879                 :            : 
    4880                 :            :    Generate at least SIZE bytes of assembler data, padding at the end
    4881                 :            :    with zeros if necessary.  SIZE must always be specified.  The returned
    4882                 :            :    value is the actual number of bytes of assembler data generated, which
    4883                 :            :    may be bigger than SIZE if the object contains a variable length field.
    4884                 :            : 
    4885                 :            :    SIZE is important for structure constructors,
    4886                 :            :    since trailing members may have been omitted from the constructor.
    4887                 :            :    It is also important for initialization of arrays from string constants
    4888                 :            :    since the full length of the string constant might not be wanted.
    4889                 :            :    It is also needed for initialization of unions, where the initializer's
    4890                 :            :    type is just one member, and that may not be as long as the union.
    4891                 :            : 
    4892                 :            :    There a case in which we would fail to output exactly SIZE bytes:
    4893                 :            :    for a structure constructor that wants to produce more than SIZE bytes.
    4894                 :            :    But such constructors will never be generated for any possible input.
    4895                 :            : 
    4896                 :            :    ALIGN is the alignment of the data in bits.
    4897                 :            : 
    4898                 :            :    If REVERSE is true, EXP is output in reverse storage order.  */
    4899                 :            : 
    4900                 :            : static unsigned HOST_WIDE_INT
    4901                 :   14143900 : output_constant (tree exp, unsigned HOST_WIDE_INT size, unsigned int align,
    4902                 :            :                  bool reverse, bool merge_strings)
    4903                 :            : {
    4904                 :   14143900 :   enum tree_code code;
    4905                 :   14143900 :   unsigned HOST_WIDE_INT thissize;
    4906                 :   14143900 :   rtx cst;
    4907                 :            : 
    4908                 :   14143900 :   if (size == 0 || flag_syntax_only)
    4909                 :            :     return size;
    4910                 :            : 
    4911                 :            :   /* See if we're trying to initialize a pointer in a non-default mode
    4912                 :            :      to the address of some declaration somewhere.  If the target says
    4913                 :            :      the mode is valid for pointers, assume the target has a way of
    4914                 :            :      resolving it.  */
    4915                 :   14143700 :   if (TREE_CODE (exp) == NOP_EXPR
    4916                 :        148 :       && POINTER_TYPE_P (TREE_TYPE (exp))
    4917                 :   14143900 :       && targetm.addr_space.valid_pointer_mode
    4918                 :        127 :            (SCALAR_INT_TYPE_MODE (TREE_TYPE (exp)),
    4919                 :        127 :             TYPE_ADDR_SPACE (TREE_TYPE (TREE_TYPE (exp)))))
    4920                 :            :     {
    4921                 :        127 :       tree saved_type = TREE_TYPE (exp);
    4922                 :            : 
    4923                 :            :       /* Peel off any intermediate conversions-to-pointer for valid
    4924                 :            :          pointer modes.  */
    4925                 :        254 :       while (TREE_CODE (exp) == NOP_EXPR
    4926                 :        127 :              && POINTER_TYPE_P (TREE_TYPE (exp))
    4927                 :        508 :              && targetm.addr_space.valid_pointer_mode
    4928                 :        127 :                   (SCALAR_INT_TYPE_MODE (TREE_TYPE (exp)),
    4929                 :        127 :                    TYPE_ADDR_SPACE (TREE_TYPE (TREE_TYPE (exp)))))
    4930                 :        127 :         exp = TREE_OPERAND (exp, 0);
    4931                 :            : 
    4932                 :            :       /* If what we're left with is the address of something, we can
    4933                 :            :          convert the address to the final type and output it that
    4934                 :            :          way.  */
    4935                 :        127 :       if (TREE_CODE (exp) == ADDR_EXPR)
    4936                 :         11 :         exp = build1 (ADDR_EXPR, saved_type, TREE_OPERAND (exp, 0));
    4937                 :            :       /* Likewise for constant ints.  */
    4938                 :        116 :       else if (TREE_CODE (exp) == INTEGER_CST)
    4939                 :        116 :         exp = fold_convert (saved_type, exp);
    4940                 :            : 
    4941                 :            :     }
    4942                 :            : 
    4943                 :            :   /* Eliminate any conversions since we'll be outputting the underlying
    4944                 :            :      constant.  */
    4945                 :   14145200 :   while (CONVERT_EXPR_P (exp)
    4946                 :   14145100 :          || TREE_CODE (exp) == NON_LVALUE_EXPR
    4947                 :   28290300 :          || TREE_CODE (exp) == VIEW_CONVERT_EXPR)
    4948                 :            :     {
    4949                 :       1512 :       HOST_WIDE_INT type_size = int_size_in_bytes (TREE_TYPE (exp));
    4950                 :       1512 :       HOST_WIDE_INT op_size = int_size_in_bytes (TREE_TYPE (TREE_OPERAND (exp, 0)));
    4951                 :            : 
    4952                 :            :       /* Make sure eliminating the conversion is really a no-op, except with
    4953                 :            :          VIEW_CONVERT_EXPRs to allow for wild Ada unchecked conversions and
    4954                 :            :          union types to allow for Ada unchecked unions.  */
    4955                 :       1512 :       if (type_size > op_size
    4956                 :          6 :           && TREE_CODE (exp) != VIEW_CONVERT_EXPR
    4957                 :       1518 :           && TREE_CODE (TREE_TYPE (exp)) != UNION_TYPE)
    4958                 :            :         /* Keep the conversion. */
    4959                 :            :         break;
    4960                 :            :       else
    4961                 :       1506 :         exp = TREE_OPERAND (exp, 0);
    4962                 :            :     }
    4963                 :            : 
    4964                 :   14143700 :   code = TREE_CODE (TREE_TYPE (exp));
    4965                 :   14143700 :   thissize = int_size_in_bytes (TREE_TYPE (exp));
    4966                 :            : 
    4967                 :            :   /* Allow a constructor with no elements for any data type.
    4968                 :            :      This means to fill the space with zeros.  */
    4969                 :   14143700 :   if (TREE_CODE (exp) == CONSTRUCTOR
    4970                 :   14143700 :       && vec_safe_is_empty (CONSTRUCTOR_ELTS (exp)))
    4971                 :            :     {
    4972                 :        764 :       assemble_zeros (size);
    4973                 :        764 :       return size;
    4974                 :            :     }
    4975                 :            : 
    4976                 :   14142900 :   if (TREE_CODE (exp) == FDESC_EXPR)
    4977                 :            :     {
    4978                 :            : #ifdef ASM_OUTPUT_FDESC
    4979                 :            :       HOST_WIDE_INT part = tree_to_shwi (TREE_OPERAND (exp, 1));
    4980                 :            :       tree decl = TREE_OPERAND (exp, 0);
    4981                 :            :       ASM_OUTPUT_FDESC (asm_out_file, decl, part);
    4982                 :            : #else
    4983                 :          0 :       gcc_unreachable ();
    4984                 :            : #endif
    4985                 :            :       return size;
    4986                 :            :     }
    4987                 :            : 
    4988                 :            :   /* Now output the underlying data.  If we've handling the padding, return.
    4989                 :            :      Otherwise, break and ensure SIZE is the size written.  */
    4990                 :   14142900 :   switch (code)
    4991                 :            :     {
    4992                 :    9859250 :     case BOOLEAN_TYPE:
    4993                 :    9859250 :     case INTEGER_TYPE:
    4994                 :    9859250 :     case ENUMERAL_TYPE:
    4995                 :    9859250 :     case POINTER_TYPE:
    4996                 :    9859250 :     case REFERENCE_TYPE:
    4997                 :    9859250 :     case OFFSET_TYPE:
    4998                 :    9859250 :     case FIXED_POINT_TYPE:
    4999                 :    9859250 :     case NULLPTR_TYPE:
    5000                 :    9859250 :       cst = expand_expr (exp, NULL_RTX, VOIDmode, EXPAND_INITIALIZER);
    5001                 :    9859250 :       if (reverse)
    5002                 :        551 :         cst = flip_storage_order (TYPE_MODE (TREE_TYPE (exp)), cst);
    5003                 :    9859250 :       if (!assemble_integer (cst, MIN (size, thissize), align, 0))
    5004                 :          0 :         error ("initializer for integer/fixed-point value is too complicated");
    5005                 :            :       break;
    5006                 :            : 
    5007                 :     253648 :     case REAL_TYPE:
    5008                 :     253648 :       if (TREE_CODE (exp) != REAL_CST)
    5009                 :          0 :         error ("initializer for floating value is not a floating constant");
    5010                 :            :       else
    5011                 :     507296 :         assemble_real (TREE_REAL_CST (exp),
    5012                 :     253648 :                        SCALAR_FLOAT_TYPE_MODE (TREE_TYPE (exp)),
    5013                 :            :                        align, reverse);
    5014                 :            :       break;
    5015                 :            : 
    5016                 :      11568 :     case COMPLEX_TYPE:
    5017                 :      11568 :       output_constant (TREE_REALPART (exp), thissize / 2, align,
    5018                 :            :                        reverse, false);
    5019                 :      11568 :       output_constant (TREE_IMAGPART (exp), thissize / 2,
    5020                 :            :                        min_align (align, BITS_PER_UNIT * (thissize / 2)),
    5021                 :            :                        reverse, false);
    5022                 :      11568 :       break;
    5023                 :            : 
    5024                 :    1367750 :     case ARRAY_TYPE:
    5025                 :    1367750 :     case VECTOR_TYPE:
    5026                 :    1367750 :       switch (TREE_CODE (exp))
    5027                 :            :         {
    5028                 :     475867 :         case CONSTRUCTOR:
    5029                 :     475867 :           return output_constructor (exp, size, align, reverse, NULL);
    5030                 :     879876 :         case STRING_CST:
    5031                 :     879876 :           thissize = (unsigned HOST_WIDE_INT)TREE_STRING_LENGTH (exp);
    5032                 :     879876 :           if (merge_strings
    5033                 :     879876 :               && (thissize == 0
    5034                 :     206873 :                   || TREE_STRING_POINTER (exp) [thissize - 1] != '\0'))
    5035                 :      29325 :             thissize++;
    5036                 :     879876 :           gcc_checking_assert (check_string_literal (exp, size));
    5037                 :     879876 :           assemble_string (TREE_STRING_POINTER (exp), thissize);
    5038                 :     879876 :           break;
    5039                 :      12004 :         case VECTOR_CST:
    5040                 :      12004 :           {
    5041                 :      12004 :             scalar_mode inner = SCALAR_TYPE_MODE (TREE_TYPE (TREE_TYPE (exp)));
    5042                 :      12004 :             unsigned int nalign = MIN (align, GET_MODE_ALIGNMENT (inner));
    5043                 :      12004 :             int elt_size = GET_MODE_SIZE (inner);
    5044                 :      12004 :             output_constant (VECTOR_CST_ELT (exp, 0), elt_size, align,
    5045                 :            :                              reverse, false);
    5046                 :      12004 :             thissize = elt_size;
    5047                 :            :             /* Static constants must have a fixed size.  */
    5048                 :      12004 :             unsigned int nunits = VECTOR_CST_NELTS (exp).to_constant ();
    5049                 :      67292 :             for (unsigned int i = 1; i < nunits; i++)
    5050                 :            :               {
    5051                 :      55288 :                 output_constant (VECTOR_CST_ELT (exp, i), elt_size, nalign,
    5052                 :            :                                  reverse, false);
    5053                 :      55288 :                 thissize += elt_size;
    5054                 :            :               }
    5055                 :            :             break;
    5056                 :            :           }
    5057                 :          0 :         default:
    5058                 :          0 :           gcc_unreachable ();
    5059                 :            :         }
    5060                 :            :       break;
    5061                 :            : 
    5062                 :    2650700 :     case RECORD_TYPE:
    5063                 :    2650700 :     case UNION_TYPE:
    5064                 :    2650700 :       gcc_assert (TREE_CODE (exp) == CONSTRUCTOR);
    5065                 :    2650700 :       return output_constructor (exp, size, align, reverse, NULL);
    5066                 :            : 
    5067                 :            :     case ERROR_MARK:
    5068                 :            :       return 0;
    5069                 :            : 
    5070                 :          0 :     default:
    5071                 :          0 :       gcc_unreachable ();
    5072                 :            :     }
    5073                 :            : 
    5074                 :   11016300 :   if (size > thissize)
    5075                 :     535059 :     assemble_zeros (size - thissize);
    5076                 :            : 
    5077                 :            :   return size;
    5078                 :            : }
    5079                 :            : 
    5080                 :            : /* Subroutine of output_constructor, used for computing the size of
    5081                 :            :    arrays of unspecified length.  VAL must be a CONSTRUCTOR of an array
    5082                 :            :    type with an unspecified upper bound.  */
    5083                 :            : 
    5084                 :            : static unsigned HOST_WIDE_INT
    5085                 :       6098 : array_size_for_constructor (tree val)
    5086                 :            : {
    5087                 :       6098 :   tree max_index;
    5088                 :       6098 :   unsigned HOST_WIDE_INT cnt;
    5089                 :       6098 :   tree index, value, tmp;
    5090                 :       6098 :   offset_int i;
    5091                 :            : 
    5092                 :            :   /* This code used to attempt to handle string constants that are not
    5093                 :            :      arrays of single-bytes, but nothing else does, so there's no point in
    5094                 :            :      doing it here.  */
    5095                 :       6098 :   if (TREE_CODE (val) == STRING_CST)
    5096                 :       6028 :     return TREE_STRING_LENGTH (val);
    5097                 :            : 
    5098                 :            :   max_index = NULL_TREE;
    5099                 :        468 :   FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (val), cnt, index, value)
    5100                 :            :     {
    5101                 :        166 :       if (TREE_CODE (index) == RANGE_EXPR)
    5102                 :          0 :         index = TREE_OPERAND (index, 1);
    5103                 :        166 :       if (max_index == NULL_TREE || tree_int_cst_lt (max_index, index))
    5104                 :            :         max_index = index;
    5105                 :            :     }
    5106                 :            : 
    5107                 :         70 :   if (max_index == NULL_TREE)
    5108                 :            :     return 0;
    5109                 :            : 
    5110                 :            :   /* Compute the total number of array elements.  */
    5111                 :         66 :   tmp = TYPE_MIN_VALUE (TYPE_DOMAIN (TREE_TYPE (val)));
    5112                 :         66 :   i = wi::to_offset (max_index) - wi::to_offset (tmp) + 1;
    5113                 :            : 
    5114                 :            :   /* Multiply by the array element unit size to find number of bytes.  */
    5115                 :         66 :   i *= wi::to_offset (TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (val))));
    5116                 :            : 
    5117                 :         66 :   gcc_assert (wi::fits_uhwi_p (i));
    5118                 :         66 :   return i.to_uhwi ();
    5119                 :            : }
    5120                 :            : 
    5121                 :            : /* Other datastructures + helpers for output_constructor.  */
    5122                 :            : 
    5123                 :            : /* output_constructor local state to support interaction with helpers.  */
    5124                 :            : 
    5125                 :            : struct oc_local_state {
    5126                 :            : 
    5127                 :            :   /* Received arguments.  */
    5128                 :            :   tree exp;                     /* Constructor expression.  */
    5129                 :            :   tree type;                    /* Type of constructor expression.  */
    5130                 :            :   unsigned HOST_WIDE_INT size;  /* # bytes to output - pad if necessary.  */
    5131                 :            :   unsigned int align;           /* Known initial alignment.  */
    5132                 :            :   tree min_index;               /* Lower bound if specified for an array.  */
    5133                 :            : 
    5134                 :            :   /* Output processing state.  */
    5135                 :            :   HOST_WIDE_INT total_bytes;  /* # bytes output so far / current position.  */
    5136                 :            :   int byte;                   /* Part of a bitfield byte yet to be output.  */
    5137                 :            :   int last_relative_index;    /* Implicit or explicit index of the last
    5138                 :            :                                  array element output within a bitfield.  */
    5139                 :            :   bool byte_buffer_in_use;    /* Whether BYTE is in use.  */
    5140                 :            :   bool reverse;               /* Whether reverse storage order is in use.  */
    5141                 :            : 
    5142                 :            :   /* Current element.  */
    5143                 :            :   tree field;      /* Current field decl in a record.  */
    5144                 :            :   tree val;        /* Current element value.  */
    5145                 :            :   tree index;      /* Current element index.  */
    5146                 :            : 
    5147                 :            : };
    5148                 :            : 
    5149                 :            : /* Helper for output_constructor.  From the current LOCAL state, output a
    5150                 :            :    RANGE_EXPR element.  */
    5151                 :            : 
    5152                 :            : static void
    5153                 :        590 : output_constructor_array_range (oc_local_state *local)
    5154                 :            : {
    5155                 :            :   /* Perform the index calculation in modulo arithmetic but
    5156                 :            :      sign-extend the result because Ada has negative DECL_FIELD_OFFSETs
    5157                 :            :      but we are using an unsigned sizetype.  */
    5158                 :        590 :   unsigned prec = TYPE_PRECISION (sizetype);
    5159                 :        590 :   offset_int idx = wi::sext (wi::to_offset (TREE_OPERAND (local->index, 0))
    5160                 :       1180 :                              - wi::to_offset (local->min_index), prec);
    5161                 :        590 :   tree valtype = TREE_TYPE (local->val);
    5162                 :        590 :   HOST_WIDE_INT fieldpos
    5163                 :        590 :     = (idx * wi::to_offset (TYPE_SIZE_UNIT (valtype))).to_short_addr ();
    5164                 :            : 
    5165                 :            :   /* Advance to offset of this element.  */
    5166                 :        590 :   if (fieldpos > local->total_bytes)
    5167                 :            :     {
    5168                 :          8 :       assemble_zeros (fieldpos - local->total_bytes);
    5169                 :          8 :       local->total_bytes = fieldpos;
    5170                 :            :     }
    5171                 :            :   else
    5172                 :            :     /* Must not go backwards.  */
    5173                 :        582 :     gcc_assert (fieldpos == local->total_bytes);
    5174                 :            : 
    5175                 :        590 :   unsigned HOST_WIDE_INT fieldsize
    5176                 :        590 :     = int_size_in_bytes (TREE_TYPE (local->type));
    5177                 :            : 
    5178                 :        590 :   HOST_WIDE_INT lo_index
    5179                 :        590 :     = tree_to_shwi (TREE_OPERAND (local->index, 0));
    5180                 :        590 :   HOST_WIDE_INT hi_index
    5181                 :        590 :     = tree_to_shwi (TREE_OPERAND (local->index, 1));
    5182                 :        590 :   HOST_WIDE_INT index;
    5183                 :            : 
    5184                 :        590 :   unsigned int align2
    5185                 :        590 :     = min_align (local->align, fieldsize * BITS_PER_UNIT);
    5186                 :            : 
    5187                 :       9917 :   for (index = lo_index; index <= hi_index; index++)
    5188                 :            :     {
    5189                 :            :       /* Output the element's initial value.  */
    5190                 :       9327 :       if (local->val == NULL_TREE)
    5191                 :          0 :         assemble_zeros (fieldsize);
    5192                 :            :       else
    5193                 :       9327 :         fieldsize = output_constant (local->val, fieldsize, align2,
    5194                 :       9327 :                                      local->reverse, false);
    5195                 :            : 
    5196                 :            :       /* Count its size.  */
    5197                 :       9327 :       local->total_bytes += fieldsize;
    5198                 :            :     }
    5199                 :        590 : }
    5200                 :            : 
    5201                 :            : /* Helper for output_constructor.  From the current LOCAL state, output a
    5202                 :            :    field element that is not true bitfield or part of an outer one.  */
    5203                 :            : 
    5204                 :            : static void
    5205                 :   11817400 : output_constructor_regular_field (oc_local_state *local)
    5206                 :            : {
    5207                 :            :   /* Field size and position.  Since this structure is static, we know the
    5208                 :            :      positions are constant.  */
    5209                 :   11817400 :   unsigned HOST_WIDE_INT fieldsize;
    5210                 :   11817400 :   HOST_WIDE_INT fieldpos;
    5211                 :            : 
    5212                 :   11817400 :   unsigned int align2;
    5213                 :            : 
    5214                 :            :   /* Output any buffered-up bit-fields preceding this element.  */
    5215                 :   11817400 :   if (local->byte_buffer_in_use)
    5216                 :            :     {
    5217                 :        125 :       assemble_integer (GEN_INT (local->byte), 1, BITS_PER_UNIT, 1);
    5218                 :        125 :       local->total_bytes++;
    5219                 :        125 :       local->byte_buffer_in_use = false;
    5220                 :            :     }
    5221                 :            : 
    5222                 :   11817400 :   if (local->index != NULL_TREE)
    5223                 :            :     {
    5224                 :            :       /* Perform the index calculation in modulo arithmetic but
    5225                 :            :          sign-extend the result because Ada has negative DECL_FIELD_OFFSETs
    5226                 :            :          but we are using an unsigned sizetype.  */
    5227                 :    3091730 :       unsigned prec = TYPE_PRECISION (sizetype);
    5228                 :    3091730 :       offset_int idx = wi::sext (wi::to_offset (local->index)
    5229                 :    6183470 :                                  - wi::to_offset (local->min_index), prec);
    5230                 :    3091730 :       fieldpos = (idx * wi::to_offset (TYPE_SIZE_UNIT (TREE_TYPE (local->val))))
    5231                 :    3091730 :         .to_short_addr ();
    5232                 :            :     }
    5233                 :    8725690 :   else if (local->field != NULL_TREE)
    5234                 :    8045430 :     fieldpos = int_byte_position (local->field);
    5235                 :            :   else
    5236                 :            :     fieldpos = 0;
    5237                 :            : 
    5238                 :            :   /* Advance to offset of this element.
    5239                 :            :      Note no alignment needed in an array, since that is guaranteed
    5240                 :            :      if each element has the proper size.  */
    5241                 :   11817400 :   if (local->field != NULL_TREE || local->index != NULL_TREE)
    5242                 :            :     {
    5243                 :   11137200 :       if (fieldpos > local->total_bytes)
    5244                 :            :         {
    5245                 :     110449 :           assemble_zeros (fieldpos - local->total_bytes);
    5246                 :     110449 :           local->total_bytes = fieldpos;
    5247                 :            :         }
    5248                 :            :       else
    5249                 :            :         /* Must not go backwards.  */
    5250                 :   11026700 :         gcc_assert (fieldpos == local->total_bytes);
    5251                 :            :     }
    5252                 :            : 
    5253                 :            :   /* Find the alignment of this element.  */
    5254                 :   11817400 :   align2 = min_align (local->align, BITS_PER_UNIT * fieldpos);
    5255                 :            : 
    5256                 :            :   /* Determine size this element should occupy.  */
    5257                 :   11817400 :   if (local->field)
    5258                 :            :     {
    5259                 :    8045430 :       fieldsize = 0;
    5260                 :            : 
    5261                 :            :       /* If this is an array with an unspecified upper bound,
    5262                 :            :          the initializer determines the size.  */
    5263                 :            :       /* ??? This ought to only checked if DECL_SIZE_UNIT is NULL,
    5264                 :            :          but we cannot do this until the deprecated support for
    5265                 :            :          initializing zero-length array members is removed.  */
    5266                 :    8045430 :       if (TREE_CODE (TREE_TYPE (local->field)) == ARRAY_TYPE
    5267                 :    8045430 :           && (!TYPE_DOMAIN (TREE_TYPE (local->field))
    5268                 :     174392 :               || !TYPE_MAX_VALUE (TYPE_DOMAIN (TREE_TYPE (local->field)))))
    5269                 :            :         {
    5270                 :       6098 :           fieldsize = array_size_for_constructor (local->val);
    5271                 :            :           /* Given a non-empty initialization, this field had better
    5272                 :            :              be last.  Given a flexible array member, the next field
    5273                 :            :              on the chain is a TYPE_DECL of the enclosing struct.  */
    5274                 :       6098 :           const_tree next = DECL_CHAIN (local->field);
    5275                 :       6098 :           gcc_assert (!fieldsize || !next || TREE_CODE (next) != FIELD_DECL);
    5276                 :       6098 :           tree size = TYPE_SIZE_UNIT (TREE_TYPE (local->val));
    5277                 :       6098 :           gcc_checking_assert (compare_tree_int (size, fieldsize) == 0);
    5278                 :            :         }
    5279                 :            :       else
    5280                 :    8039330 :         fieldsize = tree_to_uhwi (DECL_SIZE_UNIT (local->field));
    5281                 :            :     }
    5282                 :            :   else
    5283                 :    3771990 :     fieldsize = int_size_in_bytes (TREE_TYPE (local->type));
    5284                 :            : 
    5285                 :            :   /* Output the element's initial value.  */
    5286                 :   11817400 :   if (local->val == NULL_TREE)
    5287                 :          0 :     assemble_zeros (fieldsize);
    5288                 :            :   else
    5289                 :   11817400 :     fieldsize = output_constant (local->val, fieldsize, align2,
    5290                 :   11817400 :                                  local->reverse, false);
    5291                 :            : 
    5292                 :            :   /* Count its size.  */
    5293                 :   11817400 :   local->total_bytes += fieldsize;
    5294                 :   11817400 : }
    5295                 :            : 
    5296                 :            : /* Helper for output_constructor.  From the LOCAL state, output an element
    5297                 :            :    that is a true bitfield or part of an outer one.  BIT_OFFSET is the offset
    5298                 :            :    from the start of a possibly ongoing outer byte buffer.  */
    5299                 :            : 
    5300                 :            : static void
    5301                 :       3097 : output_constructor_bitfield (oc_local_state *local, unsigned int bit_offset)
    5302                 :            : {
    5303                 :            :   /* Bit size of this element.  */
    5304                 :       3097 :   HOST_WIDE_INT ebitsize
    5305                 :       3097 :     = (local->field
    5306                 :       3097 :        ? tree_to_uhwi (DECL_SIZE (local->field))
    5307                 :          0 :        : tree_to_uhwi (TYPE_SIZE (TREE_TYPE (local->type))));
    5308                 :            : 
    5309                 :            :   /* Relative index of this element if this is an array component.  */
    5310                 :       6194 :   HOST_WIDE_INT relative_index
    5311                 :            :     = (!local->field
    5312                 :       3097 :        ? (local->index
    5313                 :          0 :           ? (tree_to_shwi (local->index)
    5314                 :          0 :              - tree_to_shwi (local->min_index))
    5315                 :          0 :           : local->last_relative_index + 1)
    5316                 :            :        : 0);
    5317                 :            : 
    5318                 :            :   /* Bit position of this element from the start of the containing
    5319                 :            :      constructor.  */
    5320                 :       3097 :   HOST_WIDE_INT constructor_relative_ebitpos
    5321                 :            :       = (local->field
    5322                 :       3097 :          ? int_bit_position (local->field)
    5323                 :       3097 :          : ebitsize * relative_index);
    5324                 :            : 
    5325                 :            :   /* Bit position of this element from the start of a possibly ongoing
    5326                 :            :      outer byte buffer.  */
    5327                 :       3097 :   HOST_WIDE_INT byte_relative_ebitpos
    5328                 :       3097 :     = bit_offset + constructor_relative_ebitpos;
    5329                 :            : 
    5330                 :            :   /* From the start of a possibly ongoing outer byte buffer, offsets to
    5331                 :            :      the first bit of this element and to the first bit past the end of
    5332                 :            :      this element.  */
    5333                 :       3097 :   HOST_WIDE_INT next_offset = byte_relative_ebitpos;
    5334                 :       3097 :   HOST_WIDE_INT end_offset = byte_relative_ebitpos + ebitsize;
    5335                 :            : 
    5336                 :       3097 :   local->last_relative_index = relative_index;
    5337                 :            : 
    5338                 :       3097 :   if (local->val == NULL_TREE)
    5339                 :          0 :     local->val = integer_zero_node;
    5340                 :            : 
    5341                 :       3097 :   while (TREE_CODE (local->val) == VIEW_CONVERT_EXPR
    5342                 :       3097 :          || TREE_CODE (local->val) == NON_LVALUE_EXPR)
    5343                 :          0 :     local->val = TREE_OPERAND (local->val, 0);
    5344                 :            : 
    5345                 :       3097 :   if (TREE_CODE (local->val) != INTEGER_CST
    5346                 :          0 :       && TREE_CODE (local->val) != CONSTRUCTOR)
    5347                 :            :     {
    5348                 :          0 :       error ("invalid initial value for member %qE", DECL_NAME (local->field));
    5349                 :          0 :       return;
    5350                 :            :     }
    5351                 :            : 
    5352                 :            :   /* If this field does not start in this (or next) byte, skip some bytes.  */
    5353                 :       3097 :   if (next_offset / BITS_PER_UNIT != local->total_bytes)
    5354                 :            :     {
    5355                 :            :       /* Output remnant of any bit field in previous bytes.  */
    5356                 :        100 :       if (local->byte_buffer_in_use)
    5357                 :            :         {
    5358                 :         88 :           assemble_integer (GEN_INT (local->byte), 1, BITS_PER_UNIT, 1);
    5359                 :         88 :           local->total_bytes++;
    5360                 :         88 :           local->byte_buffer_in_use = false;
    5361                 :            :         }
    5362                 :            : 
    5363                 :            :       /* If still not at proper byte, advance to there.  */
    5364                 :        100 :       if (next_offset / BITS_PER_UNIT != local->total_bytes)
    5365                 :            :         {
    5366                 :         58 :           gcc_assert (next_offset / BITS_PER_UNIT >= local->total_bytes);
    5367                 :         58 :           assemble_zeros (next_offset / BITS_PER_UNIT - local->total_bytes);
    5368                 :         58 :           local->total_bytes = next_offset / BITS_PER_UNIT;
    5369                 :            :         }
    5370                 :            :     }
    5371                 :            : 
    5372                 :            :   /* Set up the buffer if necessary.  */
    5373                 :       3097 :   if (!local->byte_buffer_in_use)
    5374                 :            :     {
    5375                 :       1029 :       local->byte = 0;
    5376                 :       1029 :       if (ebitsize > 0)
    5377                 :       1029 :         local->byte_buffer_in_use = true;
    5378                 :            :     }
    5379                 :            : 
    5380                 :            :   /* If this is nested constructor, recurse passing the bit offset and the
    5381                 :            :      pending data, then retrieve the new pending data afterwards.  */
    5382                 :       3097 :   if (TREE_CODE (local->val) == CONSTRUCTOR)
    5383                 :            :     {
    5384                 :          0 :       oc_outer_state temp_state;
    5385                 :          0 :       temp_state.bit_offset = next_offset % BITS_PER_UNIT;
    5386                 :          0 :       temp_state.byte = local->byte;
    5387                 :          0 :       local->total_bytes
    5388                 :          0 :         += output_constructor (local->val, 0, 0, local->reverse, &temp_state);
    5389                 :          0 :       local->byte = temp_state.byte;
    5390                 :          0 :       return;
    5391                 :            :     }
    5392                 :            : 
    5393                 :            :   /* Otherwise, we must split the element into pieces that fall within
    5394                 :            :      separate bytes, and combine each byte with previous or following
    5395                 :            :      bit-fields.  */
    5396                 :       8710 :   while (next_offset < end_offset)
    5397                 :            :     {
    5398                 :       5613 :       int this_time;
    5399                 :       5613 :       int shift;
    5400                 :       5613 :       unsigned HOST_WIDE_INT value;
    5401                 :       5613 :       HOST_WIDE_INT next_byte = next_offset / BITS_PER_UNIT;
    5402                 :       5613 :       HOST_WIDE_INT next_bit = next_offset % BITS_PER_UNIT;
    5403                 :            : 
    5404                 :            :       /* Advance from byte to byte within this element when necessary.  */
    5405                 :       8129 :       while (next_byte != local->total_bytes)
    5406                 :            :         {
    5407                 :       2516 :           assemble_integer (GEN_INT (local->byte), 1, BITS_PER_UNIT, 1);
    5408                 :       2516 :           local->total_bytes++;
    5409                 :       2516 :           local->byte = 0;
    5410                 :            :         }
    5411                 :            : 
    5412                 :            :       /* Number of bits we can process at once (all part of the same byte).  */
    5413                 :       5613 :       this_time = MIN (end_offset - next_offset, BITS_PER_UNIT - next_bit);
    5414                 :       5613 :       if (local->reverse ? !BYTES_BIG_ENDIAN : BYTES_BIG_ENDIAN)
    5415                 :            :         {
    5416                 :            :           /* For big-endian data, take the most significant bits (of the
    5417                 :            :              bits that are significant) first and put them into bytes from
    5418                 :            :              the most significant end.  */
    5419                 :        642 :           shift = end_offset - next_offset - this_time;
    5420                 :            : 
    5421                 :            :           /* Don't try to take a bunch of bits that cross
    5422                 :            :              the word boundary in the INTEGER_CST.  We can
    5423                 :            :              only select bits from one element.  */
    5424                 :        642 :           if ((shift / HOST_BITS_PER_WIDE_INT)
    5425                 :        642 :               != ((shift + this_time - 1) / HOST_BITS_PER_WIDE_INT))
    5426                 :            :             {
    5427                 :          0 :               const int end = shift + this_time - 1;
    5428                 :          0 :               shift = end & -HOST_BITS_PER_WIDE_INT;
    5429                 :          0 :               this_time = end - shift + 1;
    5430                 :            :             }
    5431                 :            : 
    5432                 :            :           /* Now get the bits we want to insert.  */
    5433                 :        642 :           value = wi::extract_uhwi (wi::to_widest (local->val),
    5434                 :            :                                     shift, this_time);
    5435                 :            : 
    5436                 :            :           /* Get the result.  This works only when:
    5437                 :            :              1 <= this_time <= HOST_BITS_PER_WIDE_INT.  */
    5438                 :        642 :           local->byte |= value << (BITS_PER_UNIT - this_time - next_bit);
    5439                 :            :         }
    5440                 :            :       else
    5441                 :            :         {
    5442                 :            :           /* On little-endian machines, take the least significant bits of
    5443                 :            :              the value first and pack them starting at the least significant
    5444                 :            :              bits of the bytes.  */
    5445                 :       4971 :           shift = next_offset - byte_relative_ebitpos;
    5446                 :            : 
    5447                 :            :           /* Don't try to take a bunch of bits that cross
    5448                 :            :              the word boundary in the INTEGER_CST.  We can
    5449                 :            :              only select bits from one element.  */
    5450                 :       4971 :           if ((shift / HOST_BITS_PER_WIDE_INT)
    5451                 :       4971 :               != ((shift + this_time - 1) / HOST_BITS_PER_WIDE_INT))
    5452                 :          0 :             this_time
    5453                 :          0 :               = HOST_BITS_PER_WIDE_INT - (shift & (HOST_BITS_PER_WIDE_INT - 1));
    5454                 :            : 
    5455                 :            :           /* Now get the bits we want to insert.  */
    5456                 :       4971 :           value = wi::extract_uhwi (wi::to_widest (local->val),
    5457                 :            :                                     shift, this_time);
    5458                 :            : 
    5459                 :            :           /* Get the result.  This works only when:
    5460                 :            :              1 <= this_time <= HOST_BITS_PER_WIDE_INT.  */
    5461                 :       4971 :           local->byte |= value << next_bit;
    5462                 :            :         }
    5463                 :            : 
    5464                 :       5613 :       next_offset += this_time;
    5465                 :       5613 :       local->byte_buffer_in_use = true;
    5466                 :            :     }
    5467                 :            : }
    5468                 :            : 
    5469                 :            : /* Subroutine of output_constant, used for CONSTRUCTORs (aggregate constants).
    5470                 :            :    Generate at least SIZE bytes, padding if necessary.  OUTER designates the
    5471                 :            :    caller output state of relevance in recursive invocations.  */
    5472                 :            : 
    5473                 :            : static unsigned HOST_WIDE_INT
    5474                 :    3126570 : output_constructor (tree exp, unsigned HOST_WIDE_INT size, unsigned int align,
    5475                 :            :                     bool reverse, oc_outer_state *outer)
    5476                 :            : {
    5477                 :    3126570 :   unsigned HOST_WIDE_INT cnt;
    5478                 :    3126570 :   constructor_elt *ce;
    5479                 :    3126570 :   oc_local_state local;
    5480                 :            : 
    5481                 :            :   /* Setup our local state to communicate with helpers.  */
    5482                 :    3126570 :   local.exp = exp;
    5483                 :    3126570 :   local.type = TREE_TYPE (exp);
    5484                 :    3126570 :   local.size = size;
    5485                 :    3126570 :   local.align = align;
    5486                 :    3126570 :   if (TREE_CODE (local.type) == ARRAY_TYPE && TYPE_DOMAIN (local.type))
    5487                 :     475867 :     local.min_index = TYPE_MIN_VALUE (TYPE_DOMAIN (local.type));
    5488                 :            :   else
    5489                 :    2650700 :     local.min_index = integer_zero_node;
    5490                 :            : 
    5491                 :    3126570 :   local.total_bytes = 0;
    5492                 :    3126570 :   local.byte_buffer_in_use = outer != NULL;
    5493                 :    3126570 :   local.byte = outer ? outer->byte : 0;
    5494                 :    3126570 :   local.last_relative_index = -1;
    5495                 :            :   /* The storage order is specified for every aggregate type.  */
    5496                 :    3126570 :   if (AGGREGATE_TYPE_P (local.type))
    5497                 :    3126570 :     local.reverse = TYPE_REVERSE_STORAGE_ORDER (local.type);
    5498                 :            :   else
    5499                 :          0 :     local.reverse = reverse;
    5500                 :            : 
    5501                 :    3126570 :   gcc_assert (HOST_BITS_PER_WIDE_INT >= BITS_PER_UNIT);
    5502                 :            : 
    5503                 :            :   /* As CE goes through the elements of the constant, FIELD goes through the
    5504                 :            :      structure fields if the constant is a structure.  If the constant is a
    5505                 :            :      union, we override this by getting the field from the TREE_LIST element.
    5506                 :            :      But the constant could also be an array.  Then FIELD is zero.
    5507                 :            : 
    5508                 :            :      There is always a maximum of one element in the chain LINK for unions
    5509                 :            :      (even if the initializer in a source program incorrectly contains
    5510                 :            :      more one).  */
    5511                 :            : 
    5512                 :    3126570 :   if (TREE_CODE (local.type) == RECORD_TYPE)
    5513                 :    2650170 :     local.field = TYPE_FIELDS (local.type);
    5514                 :            :   else
    5515                 :     476395 :     local.field = NULL_TREE;
    5516                 :            : 
    5517                 :   11821100 :   for (cnt = 0;
    5518                 :   14947700 :        vec_safe_iterate (CONSTRUCTOR_ELTS (exp), cnt, &ce);
    5519                 :   11821100 :        cnt++, local.field = local.field ? DECL_CHAIN (local.field) : 0)
    5520                 :            :     {
    5521                 :   11821100 :       local.val = ce->value;
    5522                 :   11821100 :       local.index = NULL_TREE;
    5523                 :            : 
    5524                 :            :       /* The element in a union constructor specifies the proper field
    5525                 :            :          or index.  */
    5526                 :   11821100 :       if (RECORD_OR_UNION_TYPE_P (local.type) && ce->index != NULL_TREE)
    5527                 :    7806610 :         local.field = ce->index;
    5528                 :            : 
    5529                 :    4014500 :       else if (TREE_CODE (local.type) == ARRAY_TYPE)
    5530                 :    3772580 :         local.index = ce->index;
    5531                 :            : 
    5532                 :   11821100 :       if (local.field && flag_verbose_asm)
    5533                 :          0 :         fprintf (asm_out_file, "%s %s:\n",
    5534                 :            :                  ASM_COMMENT_START,
    5535                 :          0 :                  DECL_NAME (local.field)
    5536                 :          0 :                  ? IDENTIFIER_POINTER (DECL_NAME (local.field))
    5537                 :            :                  : "<anonymous>");
    5538                 :            : 
    5539                 :            :       /* Eliminate the marker that makes a cast not be an lvalue.  */
    5540                 :   11821100 :       if (local.val != NULL_TREE)
    5541                 :   11821100 :         STRIP_NOPS (local.val);
    5542                 :            : 
    5543                 :            :       /* Output the current element, using the appropriate helper ...  */
    5544                 :            : 
    5545                 :            :       /* For an array slice not part of an outer bitfield.  */
    5546                 :   11821100 :       if (!outer
    5547                 :   11821100 :           && local.index != NULL_TREE
    5548                 :    3092320 :           && TREE_CODE (local.index) == RANGE_EXPR)
    5549                 :        590 :         output_constructor_array_range (&local);
    5550                 :            : 
    5551                 :            :       /* For a field that is neither a true bitfield nor part of an outer one,
    5552                 :            :          known to be at least byte aligned and multiple-of-bytes long.  */
    5553                 :   11820500 :       else if (!outer
    5554                 :   11820500 :                && (local.field == NULL_TREE
    5555                 :    8048530 :                    || !CONSTRUCTOR_BITFIELD_P (local.field)))
    5556                 :   11817400 :         output_constructor_regular_field (&local);
    5557                 :            : 
    5558                 :            :       /* For a true bitfield or part of an outer one.  Only INTEGER_CSTs are
    5559                 :            :          supported for scalar fields, so we may need to convert first.  */
    5560                 :            :       else
    5561                 :            :         {
    5562                 :       3097 :           if (TREE_CODE (local.val) == REAL_CST)
    5563                 :          0 :             local.val
    5564                 :          0 :               = fold_unary (VIEW_CONVERT_EXPR,
    5565                 :            :                             build_nonstandard_integer_type
    5566                 :            :                             (TYPE_PRECISION (TREE_TYPE (local.val)), 0),
    5567                 :            :                             local.val);
    5568                 :       3097 :           output_constructor_bitfield (&local, outer ? outer->bit_offset : 0);
    5569                 :            :         }
    5570                 :            :     }
    5571                 :            : 
    5572                 :            :   /* If we are not at toplevel, save the pending data for our caller.
    5573                 :            :      Otherwise output the pending data and padding zeros as needed. */
    5574                 :    3126570 :   if (outer)
    5575                 :          0 :     outer->byte = local.byte;
    5576                 :            :   else
    5577                 :            :     {
    5578                 :    3126570 :       if (local.byte_buffer_in_use)
    5579                 :            :         {
    5580                 :        816 :           assemble_integer (GEN_INT (local.byte), 1, BITS_PER_UNIT, 1);
    5581                 :        816 :           local.total_bytes++;
    5582                 :            :         }
    5583                 :            : 
    5584                 :    3126570 :       if ((unsigned HOST_WIDE_INT)local.total_bytes < local.size)
    5585                 :            :         {
    5586                 :      28701 :           assemble_zeros (local.size - local.total_bytes);
    5587                 :      28701 :           local.total_bytes = local.size;
    5588                 :            :         }
    5589                 :            :     }
    5590                 :            : 
    5591                 :    3126570 :   return local.total_bytes;
    5592                 :            : }
    5593                 :            : 
    5594                 :            : /* Mark DECL as weak.  */
    5595                 :            : 
    5596                 :            : static void
    5597                 :      16617 : mark_weak (tree decl)
    5598                 :            : {
    5599                 :      16617 :   if (DECL_WEAK (decl))
    5600                 :            :     return;
    5601                 :            : 
    5602                 :      16603 :   struct symtab_node *n = symtab_node::get (decl);
    5603                 :      16603 :   if (n && n->refuse_visibility_changes)
    5604                 :          1 :     error ("%+qD declared weak after being used", decl);
    5605                 :      16603 :   DECL_WEAK (decl) = 1;
    5606                 :            : 
    5607                 :      16603 :   if (DECL_RTL_SET_P (decl)
    5608                 :          0 :       && MEM_P (DECL_RTL (decl))
    5609                 :          0 :       && XEXP (DECL_RTL (decl), 0)
    5610                 :      16603 :       && GET_CODE (XEXP (DECL_RTL (decl), 0)) == SYMBOL_REF)
    5611                 :          0 :     SYMBOL_REF_WEAK (XEXP (DECL_RTL (decl), 0)) = 1;
    5612                 :            : }
    5613                 :            : 
    5614                 :            : /* Merge weak status between NEWDECL and OLDDECL.  */
    5615                 :            : 
    5616                 :            : void
    5617                 :    3580430 : merge_weak (tree newdecl, tree olddecl)
    5618                 :            : {
    5619                 :    3580430 :   if (DECL_WEAK (newdecl) == DECL_WEAK (olddecl))
    5620                 :            :     {
    5621                 :    3579240 :       if (DECL_WEAK (newdecl) && TARGET_SUPPORTS_WEAK)
    5622                 :            :         {
    5623                 :            :           tree *pwd;
    5624                 :            :           /* We put the NEWDECL on the weak_decls list at some point
    5625                 :            :              and OLDDECL as well.  Keep just OLDDECL on the list.  */
    5626                 :        107 :           for (pwd = &weak_decls; *pwd; pwd = &TREE_CHAIN (*pwd))
    5627                 :          0 :             if (TREE_VALUE (*pwd) == newdecl)
    5628                 :            :               {
    5629                 :          0 :                 *pwd = TREE_CHAIN (*pwd);
    5630                 :          0 :                 break;
    5631                 :            :               }
    5632                 :            :         }
    5633                 :    3579240 :       return;
    5634                 :            :     }
    5635                 :            : 
    5636                 :       1192 :   if (DECL_WEAK (newdecl))
    5637                 :            :     {
    5638                 :        212 :       tree wd;
    5639                 :            : 
    5640                 :            :       /* NEWDECL is weak, but OLDDECL is not.  */
    5641                 :            : 
    5642                 :            :       /* If we already output the OLDDECL, we're in trouble; we can't
    5643                 :            :          go back and make it weak.  This should never happen in
    5644                 :            :          unit-at-a-time compilation.  */
    5645                 :        212 :       gcc_assert (!TREE_ASM_WRITTEN (olddecl));
    5646                 :            : 
    5647                 :            :       /* If we've already generated rtl referencing OLDDECL, we may
    5648                 :            :          have done so in a way that will not function properly with
    5649                 :            :          a weak symbol.  Again in unit-at-a-time this should be
    5650                 :            :          impossible.  */
    5651                 :        212 :       gcc_assert (!TREE_USED (olddecl)
    5652                 :            :                   || !TREE_SYMBOL_REFERENCED (DECL_ASSEMBLER_NAME (olddecl)));
    5653                 :            : 
    5654                 :            :       /* PR 49899: You cannot convert a static function into a weak, public function.  */
    5655                 :        212 :       if (! TREE_PUBLIC (olddecl) && TREE_PUBLIC (newdecl))
    5656                 :          1 :         error ("weak declaration of %q+D being applied to a already "
    5657                 :            :                "existing, static definition", newdecl);
    5658                 :            : 
    5659                 :        212 :       if (TARGET_SUPPORTS_WEAK)
    5660                 :            :         {
    5661                 :            :           /* We put the NEWDECL on the weak_decls list at some point.
    5662                 :            :              Replace it with the OLDDECL.  */
    5663                 :        212 :           for (wd = weak_decls; wd; wd = TREE_CHAIN (wd))
    5664                 :          0 :             if (TREE_VALUE (wd) == newdecl)
    5665                 :            :               {
    5666                 :          0 :                 TREE_VALUE (wd) = olddecl;
    5667                 :          0 :                 break;
    5668                 :            :               }
    5669                 :            :           /* We may not find the entry on the list.  If NEWDECL is a
    5670                 :            :              weak alias, then we will have already called
    5671                 :            :              globalize_decl to remove the entry; in that case, we do
    5672                 :            :              not need to do anything.  */
    5673                 :            :         }
    5674                 :            : 
    5675                 :            :       /* Make the OLDDECL weak; it's OLDDECL that we'll be keeping.  */
    5676                 :        212 :       mark_weak (olddecl);
    5677                 :            :     }
    5678                 :            :   else
    5679                 :            :     /* OLDDECL was weak, but NEWDECL was not explicitly marked as
    5680                 :            :        weak.  Just update NEWDECL to indicate that it's weak too.  */
    5681                 :        980 :     mark_weak (newdecl);
    5682                 :            : }
    5683                 :            : 
    5684                 :            : /* Declare DECL to be a weak symbol.  */
    5685                 :            : 
    5686                 :            : void
    5687                 :      15427 : declare_weak (tree decl)
    5688                 :            : {
    5689                 :      15427 :   gcc_assert (TREE_CODE (decl) != FUNCTION_DECL || !TREE_ASM_WRITTEN (decl));
    5690                 :      15427 :   if (! TREE_PUBLIC (decl))
    5691                 :            :     {
    5692                 :          2 :       error ("weak declaration of %q+D must be public", decl);
    5693                 :          2 :       return;
    5694                 :            :     }
    5695                 :      15425 :   else if (!TARGET_SUPPORTS_WEAK)
    5696                 :            :     warning (0, "weak declaration of %q+D not supported", decl);
    5697                 :            : 
    5698                 :      15425 :   mark_weak (decl);
    5699                 :      15425 :   if (!lookup_attribute ("weak", DECL_ATTRIBUTES (decl)))
    5700                 :      15411 :     DECL_ATTRIBUTES (decl)
    5701                 :      15411 :       = tree_cons (get_identifier ("weak"), NULL, DECL_ATTRIBUTES (decl));
    5702                 :            : }
    5703                 :            : 
    5704                 :            : static void
    5705                 :        449 : weak_finish_1 (tree decl)
    5706                 :            : {
    5707                 :            : #if defined (ASM_WEAKEN_DECL) || defined (ASM_WEAKEN_LABEL)
    5708                 :        449 :   const char *const name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
    5709                 :            : #endif
    5710                 :            : 
    5711                 :        449 :   if (! TREE_USED (decl))
    5712                 :            :     return;
    5713                 :            : 
    5714                 :            : #ifdef ASM_WEAKEN_DECL
    5715                 :            :   ASM_WEAKEN_DECL (asm_out_file, decl, name, NULL);
    5716                 :            : #else
    5717                 :            : #ifdef ASM_WEAKEN_LABEL
    5718                 :        449 :   ASM_WEAKEN_LABEL (asm_out_file, name);
    5719                 :            : #else
    5720                 :            : #ifdef ASM_OUTPUT_WEAK_ALIAS
    5721                 :            :   {
    5722                 :            :     static bool warn_once = 0;
    5723                 :            :     if (! warn_once)
    5724                 :            :       {
    5725                 :            :         warning (0, "only weak aliases are supported in this configuration");
    5726                 :            :         warn_once = 1;
    5727                 :            :       }
    5728                 :            :     return;
    5729                 :            :   }
    5730                 :            : #endif
    5731                 :            : #endif
    5732                 :            : #endif
    5733                 :            : }
    5734                 :            : 
    5735                 :            : /* Fiven an assembly name, find the decl it is associated with.  */
    5736                 :            : static tree
    5737                 :          0 : find_decl (tree target)
    5738                 :            : {
    5739                 :          0 :   symtab_node *node = symtab_node::get_for_asmname (target);
    5740                 :          0 :   if (node)
    5741                 :          0 :     return node->decl;
    5742                 :            :   return NULL_TREE;
    5743                 :            : }
    5744                 :            : 
    5745                 :            : /* This TREE_LIST contains weakref targets.  */
    5746                 :            : 
    5747                 :            : static GTY(()) tree weakref_targets;
    5748                 :            : 
    5749                 :            : /* Emit any pending weak declarations.  */
    5750                 :            : 
    5751                 :            : void
    5752                 :     163841 : weak_finish (void)
    5753                 :            : {
    5754                 :     163841 :   tree t;
    5755                 :            : 
    5756                 :     165724 :   for (t = weakref_targets; t; t = TREE_CHAIN (t))
    5757                 :            :     {
    5758                 :       1883 :       tree alias_decl = TREE_PURPOSE (t);
    5759                 :       1883 :       tree target = ultimate_transparent_alias_target (&TREE_VALUE (t));
    5760                 :            : 
    5761                 :       1883 :       if (! TREE_SYMBOL_REFERENCED (DECL_ASSEMBLER_NAME (alias_decl))
    5762                 :       3766 :          || TREE_SYMBOL_REFERENCED (target))
    5763                 :            :         /* Remove alias_decl from the weak list, but leave entries for
    5764                 :            :            the target alone.  */
    5765                 :            :         target = NULL_TREE;
    5766                 :            : #ifndef ASM_OUTPUT_WEAKREF
    5767                 :            :       else if (! TREE_SYMBOL_REFERENCED (target))
    5768                 :            :         {
    5769                 :            :           /* Use ASM_WEAKEN_LABEL only if ASM_WEAKEN_DECL is not
    5770                 :            :              defined, otherwise we and weak_finish_1 would use
    5771                 :            :              different macros.  */
    5772                 :            : # if defined ASM_WEAKEN_LABEL && ! defined ASM_WEAKEN_DECL
    5773                 :            :           ASM_WEAKEN_LABEL (asm_out_file, IDENTIFIER_POINTER (target));
    5774                 :            : # else
    5775                 :            :           tree decl = find_decl (target);
    5776                 :            : 
    5777                 :            :           if (! decl)
    5778                 :            :             {
    5779                 :            :               decl = build_decl (DECL_SOURCE_LOCATION (alias_decl),
    5780                 :            :                                  TREE_CODE (alias_decl), target,
    5781                 :            :                                  TREE_TYPE (alias_decl));
    5782                 :            : 
    5783                 :            :               DECL_EXTERNAL (decl) = 1;
    5784                 :            :               TREE_PUBLIC (decl) = 1;
    5785                 :            :               DECL_ARTIFICIAL (decl) = 1;
    5786                 :            :               TREE_NOTHROW (decl) = TREE_NOTHROW (alias_decl);
    5787                 :            :               TREE_USED (decl) = 1;
    5788                 :            :             }
    5789                 :            : 
    5790                 :            :           weak_finish_1 (decl);
    5791                 :            : # endif
    5792                 :            :         }
    5793                 :            : #endif
    5794                 :            : 
    5795                 :       1883 :       {
    5796                 :       1883 :         tree *p;
    5797                 :       1883 :         tree t2;
    5798                 :            : 
    5799                 :            :         /* Remove the alias and the target from the pending weak list
    5800                 :            :            so that we do not emit any .weak directives for the former,
    5801                 :            :            nor multiple .weak directives for the latter.  */
    5802                 :       1953 :         for (p = &weak_decls; (t2 = *p) ; )
    5803                 :            :           {
    5804                 :         70 :             if (TREE_VALUE (t2) == alias_decl
    5805                 :         70 :                 || target == DECL_ASSEMBLER_NAME (TREE_VALUE (t2)))
    5806                 :          0 :               *p = TREE_CHAIN (t2);
    5807                 :            :             else
    5808                 :         70 :               p = &TREE_CHAIN (t2);
    5809                 :            :           }
    5810                 :            : 
    5811                 :            :         /* Remove other weakrefs to the same target, to speed things up.  */
    5812                 :       3666 :         for (p = &TREE_CHAIN (t); (t2 = *p) ; )
    5813                 :            :           {
    5814                 :       1783 :             if (target == ultimate_transparent_alias_target (&TREE_VALUE (t2)))
    5815                 :          0 :               *p = TREE_CHAIN (t2);
    5816                 :            :             else
    5817                 :       1783 :               p = &TREE_CHAIN (t2);
    5818                 :            :           }
    5819                 :            :       }
    5820                 :            :     }
    5821                 :            : 
    5822                 :     164290 :   for (t = weak_decls; t; t = TREE_CHAIN (t))
    5823                 :            :     {
    5824                 :        449 :       tree decl = TREE_VALUE (t);
    5825                 :            : 
    5826                 :        449 :       weak_finish_1 (decl);
    5827                 :            :     }
    5828                 :     163841 : }
    5829                 :            : 
    5830                 :            : /* Emit the assembly bits to indicate that DECL is globally visible.  */
    5831                 :            : 
    5832                 :            : static void
    5833                 :    1916080 : globalize_decl (tree decl)
    5834                 :            : {
    5835                 :            : 
    5836                 :            : #if defined (ASM_WEAKEN_LABEL) || defined (ASM_WEAKEN_DECL)
    5837                 :    1916080 :   if (DECL_WEAK (decl))
    5838                 :            :     {
    5839                 :     455359 :       const char *name = XSTR (XEXP (DECL_RTL (decl), 0), 0);
    5840                 :     455359 :       tree *p, t;
    5841                 :            : 
    5842                 :            : #ifdef ASM_WEAKEN_DECL
    5843                 :            :       ASM_WEAKEN_DECL (asm_out_file, decl, name, 0);
    5844                 :            : #else
    5845                 :     455359 :       ASM_WEAKEN_LABEL (asm_out_file, name);
    5846                 :            : #endif
    5847                 :            : 
    5848                 :            :       /* Remove this function from the pending weak list so that
    5849                 :            :          we do not emit multiple .weak directives for it.  */
    5850                 :     455747 :       for (p = &weak_decls; (t = *p) ; )
    5851                 :            :         {
    5852                 :        388 :           if (DECL_ASSEMBLER_NAME (decl) == DECL_ASSEMBLER_NAME (TREE_VALUE (t)))
    5853                 :          0 :             *p = TREE_CHAIN (t);
    5854                 :            :           else
    5855                 :        388 :             p = &TREE_CHAIN (t);
    5856                 :            :         }
    5857                 :            : 
    5858                 :            :       /* Remove weakrefs to the same target from the pending weakref
    5859                 :            :          list, for the same reason.  */
    5860                 :     455638 :       for (p = &weakref_targets; (t = *p) ; )
    5861                 :            :         {
    5862                 :        558 :           if (DECL_ASSEMBLER_NAME (decl)
    5863                 :        279 :               == ultimate_transparent_alias_target (&TREE_VALUE (t)))
    5864                 :          0 :             *p = TREE_CHAIN (t);
    5865                 :            :           else
    5866                 :        279 :             p = &TREE_CHAIN (t);
    5867                 :            :         }
    5868                 :            : 
    5869                 :            :       return;
    5870                 :            :     }
    5871                 :            : #endif
    5872                 :            : 
    5873                 :    1460720 :   targetm.asm_out.globalize_decl_name (asm_out_file, decl);
    5874                 :            : }
    5875                 :            : 
    5876                 :            : vec<alias_pair, va_gc> *alias_pairs;
    5877                 :            : 
    5878                 :            : /* Output the assembler code for a define (equate) using ASM_OUTPUT_DEF
    5879                 :            :    or ASM_OUTPUT_DEF_FROM_DECLS.  The function defines the symbol whose
    5880                 :            :    tree node is DECL to have the value of the tree node TARGET.  */
    5881                 :            : 
    5882                 :            : void
    5883                 :      56402 : do_assemble_alias (tree decl, tree target)
    5884                 :            : {
    5885                 :      56402 :   tree id;
    5886                 :            : 
    5887                 :            :   /* Emulated TLS had better not get this var.  */
    5888                 :      56402 :   gcc_assert (!(!targetm.have_tls
    5889                 :            :                 && VAR_P (decl)
    5890                 :            :                 && DECL_THREAD_LOCAL_P (decl)));
    5891                 :            : 
    5892                 :      56402 :   if (TREE_ASM_WRITTEN (decl))
    5893                 :       1902 :     return;
    5894                 :            : 
    5895                 :      56402 :   id = DECL_ASSEMBLER_NAME (decl);
    5896                 :      56402 :   ultimate_transparent_alias_target (&id);
    5897                 :      56402 :   ultimate_transparent_alias_target (&target);
    5898                 :            : 
    5899                 :            :   /* We must force creation of DECL_RTL for debug info generation, even though
    5900                 :            :      we don't use it here.  */
    5901                 :      56402 :   make_decl_rtl (decl);
    5902                 :            : 
    5903                 :      56402 :   TREE_ASM_WRITTEN (decl) = 1;
    5904                 :      56402 :   TREE_ASM_WRITTEN (DECL_ASSEMBLER_NAME (decl)) = 1;
    5905                 :      56402 :   TREE_ASM_WRITTEN (id) = 1;
    5906                 :            : 
    5907                 :      56402 :   if (lookup_attribute ("weakref", DECL_ATTRIBUTES (decl)))
    5908                 :            :     {
    5909                 :       1902 :       if (!TREE_SYMBOL_REFERENCED (target))
    5910                 :       1883 :         weakref_targets = tree_cons (decl, target, weakref_targets);
    5911                 :            : 
    5912                 :            : #ifdef ASM_OUTPUT_WEAKREF
    5913                 :       1902 :       ASM_OUTPUT_WEAKREF (asm_out_file, decl,
    5914                 :            :                           IDENTIFIER_POINTER (id),
    5915                 :            :                           IDENTIFIER_POINTER (target));
    5916                 :            : #else
    5917                 :            :       if (!TARGET_SUPPORTS_WEAK)
    5918                 :            :         {
    5919                 :            :           error_at (DECL_SOURCE_LOCATION (decl),
    5920                 :            :                     "weakref is not supported in this configuration");
    5921                 :            :           return;
    5922                 :            :         }
    5923                 :            : #endif
    5924                 :       1902 :       return;
    5925                 :            :     }
    5926                 :            : 
    5927                 :            : #ifdef ASM_OUTPUT_DEF
    5928                 :      54500 :   tree orig_decl = decl;
    5929                 :            : 
    5930                 :            :   /* Make name accessible from other files, if appropriate.  */
    5931                 :            : 
    5932                 :      54500 :   if (TREE_PUBLIC (decl) || TREE_PUBLIC (orig_decl))
    5933                 :            :     {
    5934                 :      38969 :       globalize_decl (decl);
    5935                 :      38969 :       maybe_assemble_visibility (decl);
    5936                 :            :     }
    5937                 :      54500 :   if (TREE_CODE (decl) == FUNCTION_DECL
    5938                 :      54500 :       && cgraph_node::get (decl)->ifunc_resolver)
    5939                 :            :     {
    5940                 :            : #if defined (ASM_OUTPUT_TYPE_DIRECTIVE)
    5941                 :        275 :       if (targetm.has_ifunc_p ())
    5942                 :        275 :         ASM_OUTPUT_TYPE_DIRECTIVE
    5943                 :            :           (asm_out_file, IDENTIFIER_POINTER (id),
    5944                 :            :            IFUNC_ASM_TYPE);
    5945                 :            :       else
    5946                 :            : #endif
    5947                 :          0 :         error_at (DECL_SOURCE_LOCATION (decl),
    5948                 :            :                   "%qs is not supported on this target", "ifunc");
    5949                 :            :     }
    5950                 :            : 
    5951                 :            : # ifdef ASM_OUTPUT_DEF_FROM_DECLS
    5952                 :            :   ASM_OUTPUT_DEF_FROM_DECLS (asm_out_file, decl, target);
    5953                 :            : # else
    5954                 :      54500 :   ASM_OUTPUT_DEF (asm_out_file,
    5955                 :            :                   IDENTIFIER_POINTER (id),
    5956                 :            :                   IDENTIFIER_POINTER (target));
    5957                 :            : # endif
    5958                 :            : #elif defined (ASM_OUTPUT_WEAK_ALIAS) || defined (ASM_WEAKEN_DECL)
    5959                 :            :   {
    5960                 :            :     const char *name;
    5961                 :            :     tree *p, t;
    5962                 :            : 
    5963                 :            :     name = IDENTIFIER_POINTER (id);
    5964                 :            : # ifdef ASM_WEAKEN_DECL
    5965                 :            :     ASM_WEAKEN_DECL (asm_out_file, decl, name, IDENTIFIER_POINTER (target));
    5966                 :            : # else
    5967                 :            :     ASM_OUTPUT_WEAK_ALIAS (asm_out_file, name, IDENTIFIER_POINTER (target));
    5968                 :            : # endif
    5969                 :            :     /* Remove this function from the pending weak list so that
    5970                 :            :        we do not emit multiple .weak directives for it.  */
    5971                 :            :     for (p = &weak_decls; (t = *p) ; )
    5972                 :            :       if (DECL_ASSEMBLER_NAME (decl) == DECL_ASSEMBLER_NAME (TREE_VALUE (t))
    5973                 :            :           || id == DECL_ASSEMBLER_NAME (TREE_VALUE (t)))
    5974                 :            :         *p = TREE_CHAIN (t);
    5975                 :            :       else
    5976                 :            :         p = &TREE_CHAIN (t);
    5977                 :            : 
    5978                 :            :     /* Remove weakrefs to the same target from the pending weakref
    5979                 :            :        list, for the same reason.  */
    5980                 :            :     for (p = &weakref_targets; (t = *p) ; )
    5981                 :            :       {
    5982                 :            :         if (id == ultimate_transparent_alias_target (&TREE_VALUE (t)))
    5983                 :            :           *p = TREE_CHAIN (t);
    5984                 :            :         else
    5985                 :            :           p = &TREE_CHAIN (t);
    5986                 :            :       }
    5987                 :            :   }
    5988                 :            : #endif
    5989                 :            : }
    5990                 :            : 
    5991                 :            : /* Output .symver directive.  */
    5992                 :            : 
    5993                 :            : void
    5994                 :          0 : do_assemble_symver (tree decl, tree target)
    5995                 :            : {
    5996                 :          0 :   tree id = DECL_ASSEMBLER_NAME (decl);
    5997                 :          0 :   ultimate_transparent_alias_target (&id);
    5998                 :          0 :   ultimate_transparent_alias_target (&target);
    5999                 :            : #ifdef ASM_OUTPUT_SYMVER_DIRECTIVE
    6000                 :          0 :   ASM_OUTPUT_SYMVER_DIRECTIVE (asm_out_file,
    6001                 :            :                                IDENTIFIER_POINTER (target),
    6002                 :            :                                IDENTIFIER_POINTER (id));
    6003                 :            : #else
    6004                 :            :   error ("symver is only supported on ELF platforms");
    6005                 :            : #endif
    6006                 :          0 : }
    6007                 :            : 
    6008                 :            : /* Emit an assembler directive to make the symbol for DECL an alias to
    6009                 :            :    the symbol for TARGET.  */
    6010                 :            : 
    6011                 :            : void
    6012                 :     283608 : assemble_alias (tree decl, tree target)
    6013                 :            : {
    6014                 :     283608 :   tree target_decl;
    6015                 :            : 
    6016                 :     283608 :   if (lookup_attribute ("weakref", DECL_ATTRIBUTES (decl)))
    6017                 :            :     {
    6018                 :     279075 :       tree alias = DECL_ASSEMBLER_NAME (decl);
    6019                 :            : 
    6020                 :     279075 :       ultimate_transparent_alias_target (&target);
    6021                 :            : 
    6022                 :     279075 :       if (alias == target)
    6023                 :          0 :         error ("%qs symbol %q+D ultimately targets itself", "weakref", decl);
    6024                 :     279075 :       if (TREE_PUBLIC (decl))
    6025                 :          1 :         error ("%qs symbol %q+D must have static linkage", "weakref", decl);
    6026                 :            :     }
    6027                 :            :   else
    6028                 :            :     {
    6029                 :            : #if !defined (ASM_OUTPUT_DEF)
    6030                 :            : # if !defined(ASM_OUTPUT_WEAK_ALIAS) && !defined (ASM_WEAKEN_DECL)
    6031                 :            :       error_at (DECL_SOURCE_LOCATION (decl),
    6032                 :            :                 "alias definitions not supported in this configuration");
    6033                 :            :       TREE_ASM_WRITTEN (decl) = 1;
    6034                 :            :       return;
    6035                 :            : # else
    6036                 :            :       if (!DECL_WEAK (decl))
    6037                 :            :         {
    6038                 :            :           /* NB: ifunc_resolver isn't set when an error is detected.  */
    6039                 :            :           if (TREE_CODE (decl) == FUNCTION_DECL
    6040                 :            :               && lookup_attribute ("ifunc", DECL_ATTRIBUTES (decl)))
    6041                 :            :             error_at (DECL_SOURCE_LOCATION (decl),
    6042                 :            :                       "%qs is not supported in this configuration", "ifunc");
    6043                 :            :           else
    6044                 :            :             error_at (DECL_SOURCE_LOCATION (decl),
    6045                 :            :                       "only weak aliases are supported in this configuration");
    6046                 :            :           TREE_ASM_WRITTEN (decl) = 1;
    6047                 :            :           return;
    6048                 :            :         }
    6049                 :            : # endif
    6050                 :            : #endif
    6051                 :            :     }
    6052                 :     283608 :   TREE_USED (decl) = 1;
    6053                 :            : 
    6054                 :            :   /* Allow aliases to aliases.  */
    6055                 :     283608 :   if (TREE_CODE (decl) == FUNCTION_DECL)
    6056                 :     283430 :     cgraph_node::get_create (decl)->alias = true;
    6057                 :            :   else
    6058                 :        178 :     varpool_node::get_create (decl)->alias = true;
    6059                 :            : 
    6060                 :            :   /* If the target has already been emitted, we don't have to queue the
    6061                 :            :      alias.  This saves a tad of memory.  */
    6062                 :     283608 :   if (symtab->global_info_ready)
    6063                 :          0 :     target_decl = find_decl (target);
    6064                 :            :   else
    6065                 :            :     target_decl= NULL;
    6066                 :          0 :   if ((target_decl && TREE_ASM_WRITTEN (target_decl))
    6067                 :     283608 :       || symtab->state >= EXPANSION)
    6068                 :          0 :     do_assemble_alias (decl, target);
    6069                 :            :   else
    6070                 :            :     {
    6071                 :     283608 :       alias_pair p = {decl, target};
    6072                 :     283608 :       vec_safe_push (alias_pairs, p);
    6073                 :            :     }
    6074                 :     283608 : }
    6075                 :            : 
    6076                 :            : /* Record and output a table of translations from original function
    6077                 :            :    to its transaction aware clone.  Note that tm_pure functions are
    6078                 :            :    considered to be their own clone.  */
    6079                 :            : 
    6080                 :            : struct tm_clone_hasher : ggc_cache_ptr_hash<tree_map>
    6081                 :            : {
    6082                 :        187 :   static hashval_t hash (tree_map *m) { return tree_map_hash (m); }
    6083                 :        235 :   static bool equal (tree_map *a, tree_map *b) { return tree_map_eq (a, b); }
    6084                 :            : 
    6085                 :            :   static int
    6086                 :          0 :   keep_cache_entry (tree_map *&e)
    6087                 :            :   {
    6088                 :          0 :     return ggc_marked_p (e->base.from);
    6089                 :            :   }
    6090                 :            : };
    6091                 :            : 
    6092                 :            : static GTY((cache)) hash_table<tm_clone_hasher> *tm_clone_hash;
    6093                 :            : 
    6094                 :            : void
    6095                 :        569 : record_tm_clone_pair (tree o, tree n)
    6096                 :            : {
    6097                 :        569 :   struct tree_map **slot, *h;
    6098                 :            : 
    6099                 :        569 :   if (tm_clone_hash == NULL)
    6100                 :        190 :     tm_clone_hash = hash_table<tm_clone_hasher>::create_ggc (32);
    6101                 :            : 
    6102                 :        569 :   h = ggc_alloc<tree_map> ();
    6103                 :        569 :   h->hash = htab_hash_pointer (o);
    6104                 :        569 :   h->base.from = o;
    6105                 :        569 :   h->to = n;
    6106                 :            : 
    6107                 :        569 :   slot = tm_clone_hash->find_slot_with_hash (h, h->hash, INSERT);
    6108                 :        569 :   *slot = h;
    6109                 :        569 : }
    6110                 :            : 
    6111                 :            : tree
    6112                 :          8 : get_tm_clone_pair (tree o)
    6113                 :            : {
    6114                 :          8 :   if (tm_clone_hash)
    6115                 :            :     {
    6116                 :          8 :       struct tree_map *h, in;
    6117                 :            : 
    6118                 :          8 :       in.base.from = o;
    6119                 :          8 :       in.hash = htab_hash_pointer (o);
    6120                 :          8 :       h = tm_clone_hash->find_with_hash (&in, in.hash);
    6121                 :          8 :       if (h)
    6122                 :          0 :         return h->to;
    6123                 :            :     }
    6124                 :            :   return NULL_TREE;
    6125                 :            : }
    6126                 :            : 
    6127                 :            : struct tm_alias_pair
    6128                 :            : {
    6129                 :            :   unsigned int uid;
    6130                 :            :   tree from;
    6131                 :            :   tree to;
    6132                 :            : };
    6133                 :            : 
    6134                 :            : 
    6135                 :            : /* Dump the actual pairs to the .tm_clone_table section.  */
    6136                 :            : 
    6137                 :            : static void
    6138                 :        169 : dump_tm_clone_pairs (vec<tm_alias_pair> tm_alias_pairs)
    6139                 :            : {
    6140                 :        169 :   unsigned i;
    6141                 :        169 :   tm_alias_pair *p;
    6142                 :        169 :   bool switched = false;
    6143                 :            : 
    6144                 :        681 :   FOR_EACH_VEC_ELT (tm_alias_pairs, i, p)
    6145                 :            :     {
    6146                 :        512 :       tree src = p->from;
    6147                 :        512 :       tree dst = p->to;
    6148                 :        512 :       struct cgraph_node *src_n = cgraph_node::get (src);
    6149                 :        512 :       struct cgraph_node *dst_n = cgraph_node::get (dst);
    6150                 :            : 
    6151                 :            :       /* The function ipa_tm_create_version() marks the clone as needed if
    6152                 :            :          the original function was needed.  But we also mark the clone as
    6153                 :            :          needed if we ever called the clone indirectly through
    6154                 :            :          TM_GETTMCLONE.  If neither of these are true, we didn't generate
    6155                 :            :          a clone, and we didn't call it indirectly... no sense keeping it
    6156                 :            :          in the clone table.  */
    6157                 :        512 :       if (!dst_n || !dst_n->definition)
    6158                 :        158 :         continue;
    6159                 :            : 
    6160                 :            :       /* This covers the case where we have optimized the original
    6161                 :            :          function away, and only access the transactional clone.  */
    6162                 :        354 :       if (!src_n || !src_n->definition)
    6163                 :         12 :         continue;
    6164                 :            : 
    6165                 :        342 :       if (!switched)
    6166                 :            :         {
    6167                 :        139 :           switch_to_section (targetm.asm_out.tm_clone_table_section ());
    6168                 :        139 :           assemble_align (POINTER_SIZE);
    6169                 :        139 :           switched = true;
    6170                 :            :         }
    6171                 :            : 
    6172                 :        684 :       assemble_integer (XEXP (DECL_RTL (src), 0),
    6173                 :        684 :                         POINTER_SIZE_UNITS, POINTER_SIZE, 1);
    6174                 :        684 :       assemble_integer (XEXP (DECL_RTL (dst), 0),
    6175                 :        684 :                         POINTER_SIZE_UNITS, POINTER_SIZE, 1);
    6176                 :            :     }
    6177                 :        169 : }
    6178                 :            : 
    6179                 :            : /* Provide a default for the tm_clone_table section.  */
    6180                 :            : 
    6181                 :            : section *
    6182                 :        139 : default_clone_table_section (void)
    6183                 :            : {
    6184                 :        139 :   return get_named_section (NULL, ".tm_clone_table", 3);
    6185                 :            : }
    6186                 :            : 
    6187                 :            : /* Helper comparison function for qsorting by the DECL_UID stored in
    6188                 :            :    alias_pair->emitted_diags.  */
    6189                 :            : 
    6190                 :            : static int
    6191                 :       4541 : tm_alias_pair_cmp (const void *x, const void *y)
    6192                 :            : {
    6193                 :       4541 :   const tm_alias_pair *p1 = (const tm_alias_pair *) x;
    6194                 :       4541 :   const tm_alias_pair *p2 = (const tm_alias_pair *) y;
    6195                 :       4541 :   if (p1->uid < p2->uid)
    6196                 :            :     return -1;
    6197                 :       2085 :   if (p1->uid > p2->uid)
    6198                 :       2085 :     return 1;
    6199                 :            :   return 0;
    6200                 :            : }
    6201                 :            : 
    6202                 :            : void
    6203                 :     163841 : finish_tm_clone_pairs (void)
    6204                 :            : {
    6205                 :     163841 :   vec<tm_alias_pair> tm_alias_pairs = vNULL;
    6206                 :            : 
    6207                 :     163841 :   if (tm_clone_hash == NULL)
    6208                 :     163672 :     return;
    6209                 :            : 
    6210                 :            :   /* We need a determenistic order for the .tm_clone_table, otherwise
    6211                 :            :      we will get bootstrap comparison failures, so dump the hash table
    6212                 :            :      to a vector, sort it, and dump the vector.  */
    6213                 :            : 
    6214                 :            :   /* Dump the hashtable to a vector.  */
    6215                 :        169 :   tree_map *map;
    6216                 :        169 :   hash_table<tm_clone_hasher>::iterator iter;
    6217                 :       1362 :   FOR_EACH_HASH_TABLE_ELEMENT (*tm_clone_hash, map, tree_map *, iter)
    6218                 :            :     {
    6219                 :        512 :       tm_alias_pair p = {DECL_UID (map->base.from), map->base.from, map->to};
    6220                 :        512 :       tm_alias_pairs.safe_push (p);
    6221                 :            :     }
    6222                 :            :   /* Sort it.  */
    6223                 :        169 :   tm_alias_pairs.qsort (tm_alias_pair_cmp);
    6224                 :            : 
    6225                 :            :   /* Dump it.  */
    6226                 :        169 :   dump_tm_clone_pairs (tm_alias_pairs);
    6227                 :            : 
    6228                 :        169 :   tm_clone_hash->empty ();
    6229                 :        169 :   tm_clone_hash = NULL;
    6230                 :        338 :   tm_alias_pairs.release ();
    6231                 :            : }
    6232                 :            : 
    6233                 :            : 
    6234                 :            : /* Emit an assembler directive to set symbol for DECL visibility to
    6235                 :            :    the visibility type VIS, which must not be VISIBILITY_DEFAULT.  */
    6236                 :            : 
    6237                 :            : void
    6238                 :      32821 : default_assemble_visibility (tree decl ATTRIBUTE_UNUSED,
    6239                 :            :                              int vis ATTRIBUTE_UNUSED)
    6240                 :            : {
    6241                 :            : #ifdef HAVE_GAS_HIDDEN
    6242                 :      32821 :   static const char * const visibility_types[] = {
    6243                 :            :     NULL, "protected", "hidden", "internal"
    6244                 :            :   };
    6245                 :            : 
    6246                 :      32821 :   const char *name, *type;
    6247                 :      32821 :   tree id;
    6248                 :            : 
    6249                 :      32821 :   id = DECL_ASSEMBLER_NAME (decl);
    6250                 :      32821 :   ultimate_transparent_alias_target (&id);
    6251                 :      32821 :   name = IDENTIFIER_POINTER (id);
    6252                 :            : 
    6253                 :      32821 :   type = visibility_types[vis];
    6254                 :            : 
    6255                 :      32821 :   fprintf (asm_out_file, "\t.%s\t", type);
    6256                 :      32821 :   assemble_name (asm_out_file, name);
    6257                 :      32821 :   fprintf (asm_out_file, "\n");
    6258                 :            : #else
    6259                 :            :   if (!DECL_ARTIFICIAL (decl))
    6260                 :            :     warning (OPT_Wattributes, "visibility attribute not supported "
    6261                 :            :              "in this configuration; ignored");
    6262                 :            : #endif
    6263                 :      32821 : }
    6264                 :            : 
    6265                 :            : /* A helper function to call assemble_visibility when needed for a decl.  */
    6266                 :            : 
    6267                 :            : int
    6268                 :    2093100 : maybe_assemble_visibility (tree decl)
    6269                 :            : {
    6270                 :    2093100 :   enum symbol_visibility vis = DECL_VISIBILITY (decl);
    6271                 :    2093100 :   if (vis != VISIBILITY_DEFAULT)
    6272                 :            :     {
    6273                 :      31917 :       targetm.asm_out.assemble_visibility (decl, vis);
    6274                 :      31917 :       return 1;
    6275                 :            :     }
    6276                 :            :   else
    6277                 :            :     return 0;
    6278                 :            : }
    6279                 :            : 
    6280                 :            : /* Returns 1 if the target configuration supports defining public symbols
    6281                 :            :    so that one of them will be chosen at link time instead of generating a
    6282                 :            :    multiply-defined symbol error, whether through the use of weak symbols or
    6283                 :            :    a target-specific mechanism for having duplicates discarded.  */
    6284                 :            : 
    6285                 :            : int
    6286                 :      78457 : supports_one_only (void)
    6287                 :            : {
    6288                 :      78457 :   if (SUPPORTS_ONE_ONLY)
    6289                 :      78457 :     return 1;
    6290                 :            :   return TARGET_SUPPORTS_WEAK;
    6291                 :            : }
    6292                 :            : 
    6293                 :            : /* Set up DECL as a public symbol that can be defined in multiple
    6294                 :            :    translation units without generating a linker error.  */
    6295                 :            : 
    6296                 :            : void
    6297                 :   11986700 : make_decl_one_only (tree decl, tree comdat_group)
    6298                 :            : {
    6299                 :   11986700 :   struct symtab_node *symbol;
    6300                 :   11986700 :   gcc_assert (VAR_OR_FUNCTION_DECL_P (decl));
    6301                 :            : 
    6302                 :   11986700 :   TREE_PUBLIC (decl) = 1;
    6303                 :            : 
    6304                 :   11986700 :   if (VAR_P (decl))
    6305                 :    2238070 :     symbol = varpool_node::get_create (decl);
    6306                 :            :   else
    6307                 :    9748610 :     symbol = cgraph_node::get_create (decl);
    6308                 :            : 
    6309                 :   11986700 :   if (SUPPORTS_ONE_ONLY)
    6310                 :            :     {
    6311                 :            : #ifdef MAKE_DECL_ONE_ONLY
    6312                 :   11986700 :       MAKE_DECL_ONE_ONLY (decl);
    6313                 :            : #endif
    6314                 :   11986700 :       symbol->set_comdat_group (comdat_group);
    6315                 :            :     }
    6316                 :            :   else if (VAR_P (decl)
    6317                 :            :            && (DECL_INITIAL (decl) == 0
    6318                 :            :                || (!in_lto_p && DECL_INITIAL (decl) == error_mark_node)))
    6319                 :            :     DECL_COMMON (decl) = 1;
    6320                 :            :   else
    6321                 :            :     {
    6322                 :            :       gcc_assert (TARGET_SUPPORTS_WEAK);
    6323                 :            :       DECL_WEAK (decl) = 1;
    6324                 :            :     }
    6325                 :   11986700 : }
    6326                 :            : 
    6327                 :            : void
    6328                 :     198583 : init_varasm_once (void)
    6329                 :            : {
    6330                 :     198583 :   section_htab = hash_table<section_hasher>::create_ggc (31);
    6331                 :     198583 :   object_block_htab = hash_table<object_block_hasher>::create_ggc (31);
    6332                 :     198583 :   const_desc_htab = hash_table<tree_descriptor_hasher>::create_ggc (1009);
    6333                 :            : 
    6334                 :     198583 :   shared_constant_pool = create_constant_pool ();
    6335                 :            : 
    6336                 :            : #ifdef TEXT_SECTION_ASM_OP
    6337                 :     198583 :   text_section = get_unnamed_section (SECTION_CODE, output_section_asm_op,
    6338                 :            :                                       TEXT_SECTION_ASM_OP);
    6339                 :            : #endif
    6340                 :            : 
    6341                 :            : #ifdef DATA_SECTION_ASM_OP
    6342                 :     198583 :   data_section = get_unnamed_section (SECTION_WRITE, output_section_asm_op,
    6343                 :            :                                       DATA_SECTION_ASM_OP);
    6344                 :            : #endif
    6345                 :            : 
    6346                 :            : #ifdef SDATA_SECTION_ASM_OP
    6347                 :            :   sdata_section = get_unnamed_section (SECTION_WRITE, output_section_asm_op,
    6348                 :            :                                        SDATA_SECTION_ASM_OP);
    6349                 :            : #endif
    6350                 :            : 
    6351                 :            : #ifdef READONLY_DATA_SECTION_ASM_OP
    6352                 :     198583 :   readonly_data_section = get_unnamed_section (0, output_section_asm_op,
    6353                 :            :                                                READONLY_DATA_SECTION_ASM_OP);
    6354                 :            : #endif
    6355                 :            : 
    6356                 :            : #ifdef CTORS_SECTION_ASM_OP
    6357                 :            :   ctors_section = get_unnamed_section (0, output_section_asm_op,
    6358                 :            :                                        CTORS_SECTION_ASM_OP);
    6359                 :            : #endif
    6360                 :            : 
    6361                 :            : #ifdef DTORS_SECTION_ASM_OP
    6362                 :            :   dtors_section = get_unnamed_section (0, output_section_asm_op,
    6363                 :            :                                        DTORS_SECTION_ASM_OP);
    6364                 :            : #endif
    6365                 :            : 
    6366                 :            : #ifdef BSS_SECTION_ASM_OP
    6367                 :     198583 :   bss_section = get_unnamed_section (SECTION_WRITE | SECTION_BSS,
    6368                 :            :                                      output_section_asm_op,
    6369                 :            :                                      BSS_SECTION_ASM_OP);
    6370                 :            : #endif
    6371                 :            : 
    6372                 :            : #ifdef SBSS_SECTION_ASM_OP
    6373                 :            :   sbss_section = get_unnamed_section (SECTION_WRITE | SECTION_BSS,
    6374                 :            :                                       output_section_asm_op,
    6375                 :            :                                       SBSS_SECTION_ASM_OP);
    6376                 :            : #endif
    6377                 :            : 
    6378                 :     198583 :   tls_comm_section = get_noswitch_section (SECTION_WRITE | SECTION_BSS
    6379                 :            :                                            | SECTION_COMMON, emit_tls_common);
    6380                 :     198583 :   lcomm_section = get_noswitch_section (SECTION_WRITE | SECTION_BSS
    6381                 :            :                                         | SECTION_COMMON, emit_local);
    6382                 :     198583 :   comm_section = get_noswitch_section (SECTION_WRITE | SECTION_BSS
    6383                 :            :                                        | SECTION_COMMON, emit_common);
    6384                 :            : 
    6385                 :            : #if defined ASM_OUTPUT_ALIGNED_BSS
    6386                 :     198583 :   bss_noswitch_section = get_noswitch_section (SECTION_WRITE | SECTION_BSS,
    6387                 :            :                                                emit_bss);
    6388                 :            : #endif
    6389                 :            : 
    6390                 :     198583 :   targetm.asm_out.init_sections ();
    6391                 :            : 
    6392                 :     198583 :   if (readonly_data_section == NULL)
    6393                 :          0 :     readonly_data_section = text_section;
    6394                 :            : 
    6395                 :            : #ifdef ASM_OUTPUT_EXTERNAL
    6396                 :     198583 :   pending_assemble_externals_set = new hash_set<tree>;
    6397                 :            : #endif
    6398                 :     198583 : }
    6399                 :            : 
    6400                 :            : enum tls_model
    6401                 :       5303 : decl_default_tls_model (const_tree decl)
    6402                 :            : {
    6403                 :       5303 :   enum tls_model kind;
    6404                 :       5303 :   bool is_local;
    6405                 :            : 
    6406                 :       5303 :   is_local = targetm.binds_local_p (decl);
    6407                 :       5303 :   if (!flag_shlib)
    6408                 :            :     {
    6409                 :       3899 :       if (is_local)
    6410                 :            :         kind = TLS_MODEL_LOCAL_EXEC;
    6411                 :            :       else
    6412                 :       1411 :         kind = TLS_MODEL_INITIAL_EXEC;
    6413                 :            :     }
    6414                 :            : 
    6415                 :            :   /* Local dynamic is inefficient when we're not combining the
    6416                 :            :      parts of the address.  */
    6417                 :       1404 :   else if (optimize && is_local)
    6418                 :            :     kind = TLS_MODEL_LOCAL_DYNAMIC;
    6419                 :            :   else
    6420                 :       1310 :     kind = TLS_MODEL_GLOBAL_DYNAMIC;
    6421                 :       5303 :   if (kind < flag_tls_default)
    6422                 :        109 :     kind = flag_tls_default;
    6423                 :            : 
    6424                 :       5303 :   return kind;
    6425                 :            : }
    6426                 :            : 
    6427                 :            : /* Select a set of attributes for section NAME based on the properties
    6428                 :            :    of DECL and whether or not RELOC indicates that DECL's initializer
    6429                 :            :    might contain runtime relocations.
    6430                 :            : 
    6431                 :            :    We make the section read-only and executable for a function decl,
    6432                 :            :    read-only for a const data decl, and writable for a non-const data decl.  */
    6433                 :            : 
    6434                 :            : unsigned int
    6435                 :   35520400 : default_section_type_flags (tree decl, const char *name, int reloc)
    6436                 :            : {
    6437                 :   35520400 :   unsigned int flags;
    6438                 :            : 
    6439                 :   35520400 :   if (decl && TREE_CODE (decl) == FUNCTION_DECL)
    6440                 :            :     flags = SECTION_CODE;
    6441                 :    2456460 :   else if (decl)
    6442                 :            :     {
    6443                 :    2456320 :       enum section_category category
    6444                 :    2456320 :         = categorize_decl_for_section (decl, reloc);
    6445                 :   38532500 :       if (decl_readonly_section_1 (category))
    6446                 :            :         flags = 0;
    6447                 :     555788 :       else if (category == SECCAT_DATA_REL_RO
    6448                 :     555788 :                || category == SECCAT_DATA_REL_RO_LOCAL)
    6449                 :            :         flags = SECTION_WRITE | SECTION_RELRO;
    6450                 :            :       else
    6451                 :      38516 :         flags = SECTION_WRITE;
    6452                 :            :     }
    6453                 :            :   else
    6454                 :            :     {
    6455                 :        146 :       flags = SECTION_WRITE;
    6456                 :        146 :       if (strcmp (name, ".data.rel.ro") == 0
    6457                 :        140 :           || strcmp (name, ".data.rel.ro.local") == 0)
    6458                 :          7 :         flags |= SECTION_RELRO;
    6459                 :            :     }
    6460                 :            : 
    6461                 :   35520400 :   if (decl && DECL_P (decl) && DECL_COMDAT_GROUP (decl))
    6462                 :   17867200 :     flags |= SECTION_LINKONCE;
    6463                 :            : 
    6464                 :   35520400 :   if (strcmp (name, ".vtable_map_vars") == 0)
    6465                 :         10 :     flags |= SECTION_LINKONCE;
    6466                 :            : 
    6467                 :   35520500 :   if (decl && VAR_P (decl) && DECL_THREAD_LOCAL_P (decl))
    6468                 :       3039 :     flags |= SECTION_TLS | SECTION_WRITE;
    6469                 :            : 
    6470                 :   35520400 :   if (strcmp (name, ".bss") == 0
    6471                 :   35520400 :       || strncmp (name, ".bss.", 5) == 0
    6472                 :   35505100 :       || strncmp (name, ".gnu.linkonce.b.", 16) == 0
    6473                 :   35505100 :       || strcmp (name, ".persistent.bss") == 0
    6474                 :   35505100 :       || strcmp (name, ".sbss") == 0
    6475                 :   35505100 :       || strncmp (name, ".sbss.", 6) == 0
    6476                 :   35505100 :       || strncmp (name, ".gnu.linkonce.sb.", 17) == 0)
    6477                 :      15390 :     flags |= SECTION_BSS;
    6478                 :            : 
    6479                 :   35520400 :   if (strcmp (name, ".tdata") == 0
    6480                 :   35520100 :       || strncmp (name, ".tdata.", 7) == 0
    6481                 :   35520100 :       || strncmp (name, ".gnu.linkonce.td.", 17) == 0)
    6482                 :        318 :     flags |= SECTION_TLS;
    6483                 :            : 
    6484                 :   35520400 :   if (strcmp (name, ".tbss") == 0
    6485                 :   35517800 :       || strncmp (name, ".tbss.", 6) == 0
    6486                 :   35517700 :       || strncmp (name, ".gnu.linkonce.tb.", 17) == 0)
    6487                 :       2715 :     flags |= SECTION_TLS | SECTION_BSS;
    6488                 :            : 
    6489                 :   35520400 :   if (strcmp (name, ".noinit") == 0)
    6490                 :          0 :     flags |= SECTION_WRITE | SECTION_BSS | SECTION_NOTYPE;
    6491                 :            : 
    6492                 :            :   /* Various sections have special ELF types that the assembler will
    6493                 :            :      assign by default based on the name.  They are neither SHT_PROGBITS
    6494                 :            :      nor SHT_NOBITS, so when changing sections we don't want to print a
    6495                 :            :      section type (@progbits or @nobits).  Rather than duplicating the
    6496                 :            :      assembler's knowledge of what those special name patterns are, just
    6497                 :            :      let the assembler choose the type if we don't know a specific
    6498                 :            :      reason to set it to something other than the default.  SHT_PROGBITS
    6499                 :            :      is the default for sections whose name is not specially known to
    6500                 :            :      the assembler, so it does no harm to leave the choice to the
    6501                 :            :      assembler when @progbits is the best thing we know to use.  If
    6502                 :            :      someone is silly enough to emit code or TLS variables to one of
    6503                 :            :      these sections, then don't handle them specially.
    6504                 :            : 
    6505                 :            :      default_elf_asm_named_section (below) handles the BSS, TLS, ENTSIZE, and
    6506                 :            :      LINKONCE cases when NOTYPE is not set, so leave those to its logic.  */
    6507                 :   35520400 :   if (!(flags & (SECTION_CODE | SECTION_BSS | SECTION_TLS | SECTION_ENTSIZE))
    6508                 :   35520400 :       && !(HAVE_COMDAT_GROUP && (flags & SECTION_LINKONCE)))
    6509                 :    1929480 :     flags |= SECTION_NOTYPE;
    6510                 :            : 
    6511                 :   35520400 :   return flags;
    6512                 :            : }
    6513                 :            : 
    6514                 :            : /* Return true if the target supports some form of global BSS,
    6515                 :            :    either through bss_noswitch_section, or by selecting a BSS
    6516                 :            :    section in TARGET_ASM_SELECT_SECTION.  */
    6517                 :            : 
    6518                 :            : bool
    6519                 :          0 : have_global_bss_p (void)
    6520                 :            : {
    6521                 :          0 :   return bss_noswitch_section || targetm.have_switchable_bss_sections;
    6522                 :            : }
    6523                 :            : 
    6524                 :            : /* Output assembly to switch to section NAME with attribute FLAGS.
    6525                 :            :    Four variants for common object file formats.  */
    6526                 :            : 
    6527                 :            : void
    6528                 :          0 : default_no_named_section (const char *name ATTRIBUTE_UNUSED,
    6529                 :            :                           unsigned int flags ATTRIBUTE_UNUSED,
    6530                 :            :                           tree decl ATTRIBUTE_UNUSED)
    6531                 :            : {
    6532                 :            :   /* Some object formats don't support named sections at all.  The
    6533                 :            :      front-end should already have flagged this as an error.  */
    6534                 :          0 :   gcc_unreachable ();
    6535                 :            : }
    6536                 :            : 
    6537                 :            : #ifndef TLS_SECTION_ASM_FLAG
    6538                 :            : #define TLS_SECTION_ASM_FLAG 'T'
    6539                 :            : #endif
    6540                 :            : 
    6541                 :            : void
    6542                 :    2651580 : default_elf_asm_named_section (const char *name, unsigned int flags,
    6543                 :            :                                tree decl)
    6544                 :            : {
    6545                 :    2651580 :   char flagchars[11], *f = flagchars;
    6546                 :    2651580 :   unsigned int numeric_value = 0;
    6547                 :            : 
    6548                 :            :   /* If we have already declared this section, we can use an
    6549                 :            :      abbreviated form to switch back to it -- unless this section is
    6550                 :            :      part of a COMDAT groups, in which case GAS requires the full
    6551                 :            :      declaration every time.  */
    6552                 :    2651580 :   if (!(HAVE_COMDAT_GROUP && (flags & SECTION_LINKONCE))
    6553                 :    2651580 :       && (flags & SECTION_DECLARED))
    6554                 :            :     {
    6555                 :     255589 :       fprintf (asm_out_file, "\t.section\t%s\n", name);
    6556                 :     255589 :       return;
    6557                 :            :     }
    6558                 :            : 
    6559                 :            :   /* If we have a machine specific flag, then use the numeric value to pass
    6560                 :            :      this on to GAS.  */
    6561                 :    2396000 :   if (targetm.asm_out.elf_flags_numeric (flags, &numeric_value))
    6562                 :          0 :       snprintf (f, sizeof (flagchars), "0x%08x", numeric_value);
    6563                 :            :   else
    6564                 :            :     {
    6565                 :    2396000 :       if (!(flags & SECTION_DEBUG))
    6566                 :    1670630 :         *f++ = 'a';
    6567                 :            : #if HAVE_GAS_SECTION_EXCLUDE
    6568                 :    2396000 :       if (flags & SECTION_EXCLUDE)
    6569                 :     310601 :         *f++ = 'e';
    6570                 :            : #endif
    6571                 :    2396000 :       if (flags & SECTION_WRITE)
    6572                 :     298840 :         *f++ = 'w';
    6573                 :    2396000 :       if (flags & SECTION_CODE)
    6574                 :     276804 :         *f++ = 'x';
    6575                 :    2396000 :       if (flags & SECTION_SMALL)
    6576                 :          0 :         *f++ = 's';
    6577                 :    2396000 :       if (flags & SECTION_MERGE)
    6578                 :     119100 :         *f++ = 'M';
    6579                 :    2396000 :       if (flags & SECTION_STRINGS)
    6580                 :      93253 :         *f++ = 'S';
    6581                 :    2396000 :       if (flags & SECTION_TLS)
    6582                 :        819 :         *f++ = TLS_SECTION_ASM_FLAG;
    6583                 :    2396000 :       if (HAVE_COMDAT_GROUP && (flags & SECTION_LINKONCE))
    6584                 :     462735 :         *f++ = 'G';
    6585                 :            : #ifdef MACH_DEP_SECTION_ASM_FLAG
    6586                 :            :       if (flags & SECTION_MACH_DEP)
    6587                 :            :         *f++ = MACH_DEP_SECTION_ASM_FLAG;
    6588                 :            : #endif
    6589                 :    2396000 :       *f = '\0';
    6590                 :            :     }
    6591                 :            : 
    6592                 :    2396000 :   fprintf (asm_out_file, "\t.section\t%s,\"%s\"", name, flagchars);
    6593                 :            : 
    6594                 :            :   /* default_section_type_flags (above) knows which flags need special
    6595                 :            :      handling here, and sets NOTYPE when none of these apply so that the
    6596                 :            :      assembler's logic for default types can apply to user-chosen
    6597                 :            :      section names.  */
    6598                 :    2396000 :   if (!(flags & SECTION_NOTYPE))
    6599                 :            :     {
    6600                 :    1415180 :       const char *type;
    6601                 :    1415180 :       const char *format;
    6602                 :            : 
    6603                 :    1415180 :       if (flags & SECTION_BSS)
    6604                 :            :         type = "nobits";
    6605                 :            :       else
    6606                 :    1400290 :         type = "progbits";
    6607                 :            : 
    6608                 :    1415180 :       format = ",@%s";
    6609                 :            :       /* On platforms that use "@" as the assembly comment character,
    6610                 :            :          use "%" instead.  */
    6611                 :    1415180 :       if (strcmp (ASM_COMMENT_START, "@") == 0)
    6612                 :            :         format = ",%%%s";
    6613                 :    1415180 :       fprintf (asm_out_file, format, type);
    6614                 :            : 
    6615                 :    1415180 :       if (flags & SECTION_ENTSIZE)
    6616                 :     119100 :         fprintf (asm_out_file, ",%d", flags & SECTION_ENTSIZE);
    6617                 :    1415180 :       if (HAVE_COMDAT_GROUP && (flags & SECTION_LINKONCE))
    6618                 :            :         {
    6619                 :     462735 :           if (TREE_CODE (decl) == IDENTIFIER_NODE)
    6620                 :       1485 :             fprintf (asm_out_file, ",%s,comdat", IDENTIFIER_POINTER (decl));
    6621                 :            :           else
    6622                 :     922500 :             fprintf (asm_out_file, ",%s,comdat",
    6623                 :     461250 :                      IDENTIFIER_POINTER (DECL_COMDAT_GROUP (decl)));
    6624                 :            :         }
    6625                 :            :     }
    6626                 :            : 
    6627                 :    2396000 :   putc ('\n', asm_out_file);
    6628                 :            : }
    6629                 :            : 
    6630                 :            : void
    6631                 :          0 : default_coff_asm_named_section (const char *name, unsigned int flags,
    6632                 :            :                                 tree decl ATTRIBUTE_UNUSED)
    6633                 :            : {
    6634                 :          0 :   char flagchars[8], *f = flagchars;
    6635                 :            : 
    6636                 :          0 :   if (flags & SECTION_WRITE)
    6637                 :          0 :     *f++ = 'w';
    6638                 :          0 :   if (flags & SECTION_CODE)
    6639                 :          0 :     *f++ = 'x';
    6640                 :          0 :   *f = '\0';
    6641                 :            : 
    6642                 :          0 :   fprintf (asm_out_file, "\t.section\t%s,\"%s\"\n", name, flagchars);
    6643                 :          0 : }
    6644                 :            : 
    6645                 :            : void
    6646                 :          0 : default_pe_asm_named_section (const char *name, unsigned int flags,
    6647                 :            :                               tree decl)
    6648                 :            : {
    6649                 :          0 :   default_coff_asm_named_section (name, flags, decl);
    6650                 :            : 
    6651                 :          0 :   if (flags & SECTION_LINKONCE)
    6652                 :            :     {
    6653                 :            :       /* Functions may have been compiled at various levels of
    6654                 :            :          optimization so we can't use `same_size' here.
    6655                 :            :          Instead, have the linker pick one.  */
    6656                 :          0 :       fprintf (asm_out_file, "\t.linkonce %s\n",
    6657                 :          0 :                (flags & SECTION_CODE ? "discard" : "same_size"));
    6658                 :            :     }
    6659                 :          0 : }
    6660                 :            : 
    6661                 :            : /* The lame default section selector.  */
    6662                 :            : 
    6663                 :            : section *
    6664                 :          0 : default_select_section (tree decl, int reloc,
    6665                 :            :                         unsigned HOST_WIDE_INT align ATTRIBUTE_UNUSED)
    6666                 :            : {
    6667                 :          0 :   if (DECL_P (decl))
    6668                 :            :     {
    6669                 :          0 :       if (decl_readonly_section (decl, reloc))
    6670                 :          0 :         return readonly_data_section;
    6671                 :            :     }
    6672                 :          0 :   else if (TREE_CODE (decl) == CONSTRUCTOR)
    6673                 :            :     {
    6674                 :          0 :       if (! ((flag_pic && reloc)
    6675                 :          0 :              || !TREE_READONLY (decl)
    6676                 :          0 :              || TREE_SIDE_EFFECTS (decl)
    6677                 :          0 :              || !TREE_CONSTANT (decl)))
    6678                 :          0 :         return readonly_data_section;
    6679                 :            :     }
    6680                 :          0 :   else if (TREE_CODE (decl) == STRING_CST)
    6681                 :          0 :     return readonly_data_section;
    6682                 :          0 :   else if (! (flag_pic && reloc))
    6683                 :          0 :     return readonly_data_section;
    6684                 :            : 
    6685                 :          0 :   return data_section;
    6686                 :            : }
    6687                 :            : 
    6688                 :            : enum section_category
    6689                 :    5034190 : categorize_decl_for_section (const_tree decl, int reloc)
    6690                 :            : {
    6691                 :    5034190 :   enum section_category ret;
    6692                 :            : 
    6693                 :    5034190 :   if (TREE_CODE (decl) == FUNCTION_DECL)
    6694                 :            :     return SECCAT_TEXT;
    6695                 :    4852100 :   else if (TREE_CODE (decl) == STRING_CST)
    6696                 :            :     {
    6697                 :     814648 :       if ((flag_sanitize & SANITIZE_ADDRESS)
    6698                 :     814648 :           && asan_protect_global (CONST_CAST_TREE (decl)))
    6699                 :            :       /* or !flag_merge_constants */
    6700                 :            :         return SECCAT_RODATA;
    6701                 :            :       else
    6702                 :     813472 :         return SECCAT_RODATA_MERGE_STR;
    6703                 :            :     }
    6704                 :    4037460 :   else if (VAR_P (decl))
    6705                 :            :     {
    6706                 :    4013580 :       tree d = CONST_CAST_TREE (decl);
    6707                 :    4013580 :       if (bss_initializer_p (decl))
    6708                 :            :         ret = SECCAT_BSS;
    6709                 :    3976500 :       else if (! TREE_READONLY (decl)
    6710                 :    3810670 :                || TREE_SIDE_EFFECTS (decl)
    6711                 :    7786810 :                || (DECL_INITIAL (decl)
    6712                 :    3808820 :                    && ! TREE_CONSTANT (DECL_INITIAL (decl))))
    6713                 :            :         {
    6714                 :            :           /* Here the reloc_rw_mask is not testing whether the section should
    6715                 :            :              be read-only or not, but whether the dynamic link will have to
    6716                 :            :              do something.  If so, we wish to segregate the data in order to
    6717                 :            :              minimize cache misses inside the dynamic linker.  */
    6718                 :     167557 :           if (reloc & targetm.asm_out.reloc_rw_mask ())
    6719                 :       5201 :             ret = reloc == 1 ? SECCAT_DATA_REL_LOCAL : SECCAT_DATA_REL;
    6720                 :            :           else
    6721                 :            :             ret = SECCAT_DATA;
    6722                 :            :         }
    6723                 :    3808950 :       else if (reloc & targetm.asm_out.reloc_rw_mask ())
    6724                 :     801127 :         ret = reloc == 1 ? SECCAT_DATA_REL_RO_LOCAL : SECCAT_DATA_REL_RO;
    6725                 :     320606 :       else if (reloc || flag_merge_constants < 2
    6726                 :    3007890 :                || ((flag_sanitize & SANITIZE_ADDRESS)
    6727                 :            :                    /* PR 81697: for architectures that use section anchors we
    6728                 :            :                       need to ignore DECL_RTL_SET_P (decl) for string constants
    6729                 :            :                       inside this asan_protect_global call because otherwise
    6730                 :            :                       we'll wrongly put them into SECCAT_RODATA_MERGE_CONST
    6731                 :            :                       section, set DECL_RTL (decl) later on and add DECL to
    6732                 :            :                       protected globals via successive asan_protect_global
    6733                 :            :                       calls.  In this scenario we'll end up with wrong
    6734                 :            :                       alignment of these strings at runtime and possible ASan
    6735                 :            :                       false positives.  */
    6736                 :         64 :                    && asan_protect_global (d, use_object_blocks_p ()
    6737                 :         64 :                                               && use_blocks_for_decl_p (d))))
    6738                 :            :         /* C and C++ don't allow different variables to share the same
    6739                 :            :            location.  -fmerge-all-constants allows even that (at the
    6740                 :            :            expense of not conforming).  */
    6741                 :            :         ret = SECCAT_RODATA;
    6742                 :         15 :       else if (DECL_INITIAL (decl)
    6743                 :         15 :                && TREE_CODE (DECL_INITIAL (decl)) == STRING_CST)
    6744                 :            :         ret = SECCAT_RODATA_MERGE_STR_INIT;
    6745                 :            :       else
    6746                 :            :         ret = SECCAT_RODATA_MERGE_CONST;
    6747                 :            :     }
    6748                 :      23876 :   else if (TREE_CODE (decl) == CONSTRUCTOR)
    6749                 :            :     {
    6750                 :       1299 :       if ((reloc & targetm.asm_out.reloc_rw_mask ())
    6751                 :       1237 :           || TREE_SIDE_EFFECTS (decl)
    6752                 :       2536 :           || ! TREE_CONSTANT (decl))
    6753                 :            :         ret = SECCAT_DATA;
    6754                 :            :       else
    6755                 :            :         ret = SECCAT_RODATA;
    6756                 :            :     }
    6757                 :            :   else
    6758                 :            :     ret = SECCAT_RODATA;
    6759                 :            : 
    6760                 :            :   /* There are no read-only thread-local sections.  */
    6761                 :    4037770 :   if (VAR_P (decl) && DECL_THREAD_LOCAL_P (decl))
    6762                 :            :     {
    6763                 :            :       /* Note that this would be *just* SECCAT_BSS, except that there's
    6764                 :            :          no concept of a read-only thread-local-data section.  */
    6765                 :       6072 :       if (ret == SECCAT_BSS
    6766                 :        644 :           || DECL_INITIAL (decl) == NULL
    6767                 :       6708 :           || (flag_zero_initialized_in_bss
    6768                 :        636 :               && initializer_zerop (DECL_INITIAL (decl))))
    6769                 :            :         ret = SECCAT_TBSS;
    6770                 :            :       else
    6771                 :            :         ret = SECCAT_TDATA;
    6772                 :            :     }
    6773                 :            : 
    6774                 :            :   /* If the target uses small data sections, select it.  */
    6775                 :    4031380 :   else if (targetm.in_small_data_p (decl))
    6776                 :            :     {
    6777                 :          0 :       if (ret == SECCAT_BSS)
    6778                 :            :         ret = SECCAT_SBSS;
    6779                 :          0 :       else if (targetm.have_srodata_section && ret == SECCAT_RODATA)
    6780                 :            :         ret = SECCAT_SRODATA;
    6781                 :            :       else
    6782                 :          0 :         ret = SECCAT_SDATA;
    6783                 :            :     }
    6784                 :            : 
    6785                 :            :   return ret;
    6786                 :            : }
    6787                 :            : 
    6788                 :            : static bool
    6789                 :    2474300 : decl_readonly_section_1 (enum section_category category)
    6790                 :            : {
    6791                 :    2456320 :   switch (category)
    6792                 :            :     {
    6793                 :            :     case SECCAT_RODATA:
    6794                 :            :     case SECCAT_RODATA_MERGE_STR:
    6795                 :            :     case SECCAT_RODATA_MERGE_STR_INIT:
    6796                 :            :     case SECCAT_RODATA_MERGE_CONST:
    6797                 :            :     case SECCAT_SRODATA:
    6798                 :            :       return true;
    6799                 :     557836 :     default:
    6800                 :     557836 :       return false;
    6801                 :            :     }
    6802                 :            : }
    6803                 :            : 
    6804                 :            : bool
    6805                 :      17980 : decl_readonly_section (const_tree decl, int reloc)
    6806                 :            : {
    6807                 :      17980 :   return decl_readonly_section_1 (categorize_decl_for_section (decl, reloc));
    6808                 :            : }
    6809                 :            : 
    6810                 :            : /* Select a section based on the above categorization.  */
    6811                 :            : 
    6812                 :            : section *
    6813                 :    1051040 : default_elf_select_section (tree decl, int reloc,
    6814                 :            :                             unsigned HOST_WIDE_INT align)
    6815                 :            : {
    6816                 :    1051040 :   const char *sname;
    6817                 :            : 
    6818                 :    1051040 :   switch (categorize_decl_for_section (decl, reloc))
    6819                 :            :     {
    6820                 :          0 :     case SECCAT_TEXT:
    6821                 :            :       /* We're not supposed to be called on FUNCTION_DECLs.  */
    6822                 :          0 :       gcc_unreachable ();
    6823                 :     113799 :     case SECCAT_RODATA:
    6824                 :     113799 :       return readonly_data_section;
    6825                 :     797619 :     case SECCAT_RODATA_MERGE_STR:
    6826                 :     797619 :       return mergeable_string_section (decl, align, 0);
    6827                 :         14 :     case SECCAT_RODATA_MERGE_STR_INIT:
    6828                 :         14 :       return mergeable_string_section (DECL_INITIAL (decl), align, 0);
    6829                 :          1 :     case SECCAT_RODATA_MERGE_CONST:
    6830                 :          1 :       return mergeable_constant_section (DECL_MODE (decl), align, 0);
    6831                 :            :     case SECCAT_SRODATA:
    6832                 :            :       sname = ".sdata2";
    6833                 :            :       break;
    6834                 :     135516 :     case SECCAT_DATA:
    6835                 :     135516 :       return data_section;
    6836                 :         72 :     case SECCAT_DATA_REL:
    6837                 :         72 :       sname = ".data.rel";
    6838                 :         72 :       break;
    6839                 :        848 :     case SECCAT_DATA_REL_LOCAL:
    6840                 :        848 :       sname = ".data.rel.local";
    6841                 :        848 :       break;
    6842                 :         83 :     case SECCAT_DATA_REL_RO:
    6843                 :         83 :       sname = ".data.rel.ro";
    6844                 :         83 :       break;
    6845                 :         95 :     case SECCAT_DATA_REL_RO_LOCAL:
    6846                 :         95 :       sname = ".data.rel.ro.local";
    6847                 :         95 :       break;
    6848                 :          0 :     case SECCAT_SDATA:
    6849                 :          0 :       sname = ".sdata";
    6850                 :          0 :       break;
    6851                 :        311 :     case SECCAT_TDATA:
    6852                 :        311 :       sname = ".tdata";
    6853                 :        311 :       break;
    6854                 :          0 :     case SECCAT_BSS:
    6855                 :          0 :       if (DECL_P (decl)
    6856                 :          0 :           && lookup_attribute ("noinit", DECL_ATTRIBUTES (decl)) != NULL_TREE)
    6857                 :            :         {
    6858                 :            :           sname = ".noinit";
    6859                 :            :           break;
    6860                 :            :         }
    6861                 :            : 
    6862                 :          0 :       if (bss_section)
    6863                 :            :         return bss_section;
    6864                 :            :       sname = ".bss";
    6865                 :            :       break;
    6866                 :          0 :     case SECCAT_SBSS:
    6867                 :          0 :       sname = ".sbss";
    6868                 :          0 :       break;
    6869                 :       2679 :     case SECCAT_TBSS:
    6870                 :       2679 :       sname = ".tbss";
    6871                 :       2679 :       break;
    6872                 :          0 :     default:
    6873                 :          0 :       gcc_unreachable ();
    6874                 :            :     }
    6875                 :            : 
    6876                 :       4088 :   return get_named_section (decl, sname, reloc);
    6877                 :            : }
    6878                 :            : 
    6879                 :            : /* Construct a unique section name based on the decl name and the
    6880                 :            :    categorization performed above.  */
    6881                 :            : 
    6882                 :            : void
    6883                 :    1508850 : default_unique_section (tree decl, int reloc)
    6884                 :            : {
    6885                 :            :   /* We only need to use .gnu.linkonce if we don't have COMDAT groups.  */
    6886                 :    1508850 :   bool one_only = DECL_ONE_ONLY (decl) && !HAVE_COMDAT_GROUP;
    6887                 :    1508850 :   const char *prefix, *name, *linkonce;
    6888                 :    1508850 :   char *string;
    6889                 :    1508850 :   tree id;
    6890                 :            : 
    6891                 :    1508850 :   switch (categorize_decl_for_section (decl, reloc))
    6892                 :            :     {
    6893                 :            :     case SECCAT_TEXT:
    6894                 :            :       prefix = one_only ? ".t" : ".text";
    6895                 :            :       break;
    6896                 :    1018360 :     case SECCAT_RODATA:
    6897                 :    1018360 :     case SECCAT_RODATA_MERGE_STR:
    6898                 :    1018360 :     case SECCAT_RODATA_MERGE_STR_INIT:
    6899                 :    1018360 :     case SECCAT_RODATA_MERGE_CONST:
    6900                 :    1018360 :       prefix = one_only ? ".r" : ".rodata";
    6901                 :    1018360 :       break;
    6902                 :          0 :     case SECCAT_SRODATA:
    6903                 :          0 :       prefix = one_only ? ".s2" : ".sdata2";
    6904                 :          0 :       break;
    6905                 :       8539 :     case SECCAT_DATA:
    6906                 :       8539 :       prefix = one_only ? ".d" : ".data";
    6907                 :       8539 :       break;
    6908                 :        995 :     case SECCAT_DATA_REL:
    6909                 :        995 :       prefix = one_only ? ".d.rel" : ".data.rel";
    6910                 :        995 :       break;
    6911                 :        682 :     case SECCAT_DATA_REL_LOCAL:
    6912                 :        682 :       prefix = one_only ? ".d.rel.local" : ".data.rel.local";
    6913                 :        682 :       break;
    6914                 :     131733 :     case SECCAT_DATA_REL_RO:
    6915                 :     131733 :       prefix = one_only ? ".d.rel.ro" : ".data.rel.ro";
    6916                 :     131733 :       break;
    6917                 :     151944 :     case SECCAT_DATA_REL_RO_LOCAL:
    6918                 :     151944 :       prefix = one_only ? ".d.rel.ro.local" : ".data.rel.ro.local";
    6919                 :     151944 :       break;
    6920                 :          0 :     case SECCAT_SDATA:
    6921                 :          0 :       prefix = one_only ? ".s" : ".sdata";
    6922                 :          0 :       break;
    6923                 :      14475 :     case SECCAT_BSS:
    6924                 :      14475 :       prefix = one_only ? ".b" : ".bss";
    6925                 :      14475 :       break;
    6926                 :          0 :     case SECCAT_SBSS:
    6927                 :          0 :       prefix = one_only ? ".sb" : ".sbss";
    6928                 :          0 :       break;
    6929                 :          7 :     case SECCAT_TDATA:
    6930                 :          7 :       prefix = one_only ? ".td" : ".tdata";
    6931                 :          7 :       break;
    6932                 :         36 :     case SECCAT_TBSS:
    6933                 :         36 :       prefix = one_only ? ".tb" : ".tbss";
    6934                 :         36 :       break;
    6935                 :          0 :     default:
    6936                 :          0 :       gcc_unreachable ();
    6937                 :            :     }
    6938                 :            : 
    6939                 :    1508850 :   id = DECL_ASSEMBLER_NAME (decl);
    6940                 :    1508850 :   ultimate_transparent_alias_target (&id);
    6941                 :    1508850 :   name = IDENTIFIER_POINTER (id);
    6942                 :    1508850 :   name = targetm.strip_name_encoding (name);
    6943                 :            : 
    6944                 :            :   /* If we're using one_only, then there needs to be a .gnu.linkonce
    6945                 :            :      prefix to the section name.  */
    6946                 :    1508850 :   linkonce = one_only ? ".gnu.linkonce" : "";
    6947                 :            : 
    6948                 :    1508850 :   string = ACONCAT ((linkonce, prefix, ".", name, NULL));
    6949                 :            : 
    6950                 :    1508850 :   set_decl_section_name (decl, string);
    6951                 :    1508850 : }
    6952                 :            : 
    6953                 :            : /* Subroutine of compute_reloc_for_rtx for leaf rtxes.  */
    6954                 :            : 
    6955                 :            : static int
    6956                 :       1243 : compute_reloc_for_rtx_1 (const_rtx x)
    6957                 :            : {
    6958                 :       1243 :   switch (GET_CODE (x))
    6959                 :            :     {
    6960                 :        856 :     case SYMBOL_REF:
    6961                 :        856 :       return SYMBOL_REF_LOCAL_P (x) ? 1 : 2;
    6962                 :            :     case LABEL_REF:
    6963                 :            :       return 1;
    6964                 :        384 :     default:
    6965                 :        384 :       return 0;
    6966                 :            :     }
    6967                 :            : }
    6968                 :            : 
    6969                 :            : /* Like compute_reloc_for_constant, except for an RTX.  The return value
    6970                 :            :    is a mask for which bit 1 indicates a global relocation, and bit 0
    6971                 :            :    indicates a local relocation.  */
    6972                 :            : 
    6973                 :            : static int
    6974                 :     133129 : compute_reloc_for_rtx (const_rtx x)
    6975                 :            : {
    6976                 :     133129 :   switch (GET_CODE (x))
    6977                 :            :     {
    6978                 :        731 :     case SYMBOL_REF:
    6979                 :        731 :     case LABEL_REF:
    6980                 :        731 :       return compute_reloc_for_rtx_1 (x);
    6981                 :            : 
    6982                 :        128 :     case CONST:
    6983                 :        128 :       {
    6984                 :        128 :         int reloc = 0;
    6985                 :        256 :         subrtx_iterator::array_type array;
    6986                 :        640 :         FOR_EACH_SUBRTX (iter, array, x, ALL)
    6987                 :        512 :           reloc |= compute_reloc_for_rtx_1 (*iter);
    6988                 :        128 :         return reloc;
    6989                 :            :       }
    6990                 :            : 
    6991                 :            :     default:
    6992                 :            :       return 0;
    6993                 :            :     }
    6994                 :            : }
    6995                 :            : 
    6996                 :            : section *
    6997                 :          0 : default_select_rtx_section (machine_mode mode ATTRIBUTE_UNUSED,
    6998                 :            :                             rtx x,
    6999                 :            :                             unsigned HOST_WIDE_INT align ATTRIBUTE_UNUSED)
    7000                 :            : {
    7001                 :          0 :   if (compute_reloc_for_rtx (x) & targetm.asm_out.reloc_rw_mask ())
    7002                 :          0 :     return data_section;
    7003                 :            :   else
    7004                 :          0 :     return readonly_data_section;
    7005                 :            : }
    7006                 :            : 
    7007                 :            : section *
    7008                 :     133129 : default_elf_select_rtx_section (machine_mode mode, rtx x,
    7009                 :            :                                 unsigned HOST_WIDE_INT align)
    7010                 :            : {
    7011                 :     133129 :   int reloc = compute_reloc_for_rtx (x);
    7012                 :            : 
    7013                 :            :   /* ??? Handle small data here somehow.  */
    7014                 :            : 
    7015                 :     133129 :   if (reloc & targetm.asm_out.reloc_rw_mask ())
    7016                 :            :     {
    7017                 :          7 :       if (reloc == 1)
    7018                 :          1 :         return get_named_section (NULL, ".data.rel.ro.local", 1);
    7019                 :            :       else
    7020                 :          6 :         return get_named_section (NULL, ".data.rel.ro", 3);
    7021                 :            :     }
    7022                 :            : 
    7023                 :     133122 :   return mergeable_constant_section (mode, align, 0);
    7024                 :            : }
    7025                 :            : 
    7026                 :            : /* Set the generally applicable flags on the SYMBOL_REF for EXP.  */
    7027                 :            : 
    7028                 :            : void
    7029                 :    7325780 : default_encode_section_info (tree decl, rtx rtl, int first ATTRIBUTE_UNUSED)
    7030                 :            : {
    7031                 :    7325780 :   rtx symbol;
    7032                 :    7325780 :   int flags;
    7033                 :            : 
    7034                 :            :   /* Careful not to prod global register variables.  */
    7035                 :    7325780 :   if (!MEM_P (rtl))
    7036                 :            :     return;
    7037                 :    7325780 :   symbol = XEXP (rtl, 0);
    7038                 :    7325780 :   if (GET_CODE (symbol) != SYMBOL_REF)
    7039                 :            :     return;
    7040                 :            : 
    7041                 :    7325780 :   flags = SYMBOL_REF_FLAGS (symbol) & SYMBOL_FLAG_HAS_BLOCK_INFO;
    7042                 :    7325780 :   if (TREE_CODE (decl) == FUNCTION_DECL)
    7043                 :    3901720 :     flags |= SYMBOL_FLAG_FUNCTION;
    7044                 :    7325780 :   if (targetm.binds_local_p (decl))
    7045                 :    4090810 :     flags |= SYMBOL_FLAG_LOCAL;
    7046                 :    7538350 :   if (VAR_P (decl) && DECL_THREAD_LOCAL_P (decl))
    7047                 :       3593 :     flags |= DECL_TLS_MODEL (decl) << SYMBOL_FLAG_TLS_SHIFT;
    7048                 :    7322190 :   else if (targetm.in_small_data_p (decl))
    7049                 :          0 :     flags |= SYMBOL_FLAG_SMALL;
    7050                 :            :   /* ??? Why is DECL_EXTERNAL ever set for non-PUBLIC names?  Without
    7051                 :            :      being PUBLIC, the thing *must* be defined in this translation unit.
    7052                 :            :      Prevent this buglet from being propagated into rtl code as well.  */
    7053                 :   13825700 :   if (DECL_P (decl) && DECL_EXTERNAL (decl) && TREE_PUBLIC (decl))
    7054                 :    3112780 :     flags |= SYMBOL_FLAG_EXTERNAL;
    7055                 :            : 
    7056                 :    7325780 :   SYMBOL_REF_FLAGS (symbol) = flags;
    7057                 :            : }
    7058                 :            : 
    7059                 :            : /* By default, we do nothing for encode_section_info, so we need not
    7060                 :            :    do anything but discard the '*' marker.  */
    7061                 :            : 
    7062                 :            : const char *
    7063                 :  201008000 : default_strip_name_encoding (const char *str)
    7064                 :            : {
    7065                 :  201008000 :   return str + (*str == '*');
    7066                 :            : }
    7067                 :            : 
    7068                 :            : #ifdef ASM_OUTPUT_DEF
    7069                 :            : /* The default implementation of TARGET_ASM_OUTPUT_ANCHOR.  Define the
    7070                 :            :    anchor relative to ".", the current section position.  */
    7071                 :            : 
    7072                 :            : void
    7073                 :          0 : default_asm_output_anchor (rtx symbol)
    7074                 :            : {
    7075                 :          0 :   char buffer[100];
    7076                 :            : 
    7077                 :          0 :   sprintf (buffer, "*. + " HOST_WIDE_INT_PRINT_DEC,
    7078                 :            :            SYMBOL_REF_BLOCK_OFFSET (symbol));
    7079                 :          0 :   ASM_OUTPUT_DEF (asm_out_file, XSTR (symbol, 0), buffer);
    7080                 :          0 : }
    7081                 :            : #endif
    7082                 :            : 
    7083                 :            : /* The default implementation of TARGET_USE_ANCHORS_FOR_SYMBOL_P.  */
    7084                 :            : 
    7085                 :            : bool
    7086                 :          0 : default_use_anchors_for_symbol_p (const_rtx symbol)
    7087                 :            : {
    7088                 :          0 :   tree decl;
    7089                 :          0 :   section *sect = SYMBOL_REF_BLOCK (symbol)->sect;
    7090                 :            : 
    7091                 :            :   /* This function should only be called with non-zero SYMBOL_REF_BLOCK,
    7092                 :            :      furthermore get_block_for_section should not create object blocks
    7093                 :            :      for mergeable sections.  */
    7094                 :          0 :   gcc_checking_assert (sect && !(sect->common.flags & SECTION_MERGE));
    7095                 :            : 
    7096                 :            :   /* Don't use anchors for small data sections.  The small data register
    7097                 :            :      acts as an anchor for such sections.  */
    7098                 :          0 :   if (sect->common.flags & SECTION_SMALL)
    7099                 :            :     return false;
    7100                 :            : 
    7101                 :          0 :   decl = SYMBOL_REF_DECL (symbol);
    7102                 :          0 :   if (decl && DECL_P (decl))
    7103                 :            :     {
    7104                 :            :       /* Don't use section anchors for decls that might be defined or
    7105                 :            :          usurped by other modules.  */
    7106                 :          0 :       if (TREE_PUBLIC (decl) && !decl_binds_to_current_def_p (decl))
    7107                 :            :         return false;
    7108                 :            : 
    7109                 :            :       /* Don't use section anchors for decls that will be placed in a
    7110                 :            :          small data section.  */
    7111                 :            :       /* ??? Ideally, this check would be redundant with the SECTION_SMALL
    7112                 :            :          one above.  The problem is that we only use SECTION_SMALL for
    7113                 :            :          sections that should be marked as small in the section directive.  */
    7114                 :          0 :       if (targetm.in_small_data_p (decl))
    7115                 :            :         return false;
    7116                 :            : 
    7117                 :            :       /* Don't use section anchors for decls that won't fit inside a single
    7118                 :            :          anchor range to reduce the amount of instructions required to refer
    7119                 :            :          to the entire declaration.  */
    7120                 :          0 :       if (DECL_SIZE_UNIT (decl) == NULL_TREE
    7121                 :          0 :           || !tree_fits_uhwi_p (DECL_SIZE_UNIT (decl))
    7122                 :          0 :           || (tree_to_uhwi (DECL_SIZE_UNIT (decl))
    7123                 :          0 :               >= (unsigned HOST_WIDE_INT) targetm.max_anchor_offset))
    7124                 :          0 :         return false;
    7125                 :            : 
    7126                 :            :     }
    7127                 :            :   return true;
    7128                 :            : }
    7129                 :            : 
    7130                 :            : /* Return true when RESOLUTION indicate that symbol will be bound to the
    7131                 :            :    definition provided by current .o file.  */
    7132                 :            : 
    7133                 :            : static bool
    7134                 :  201649000 : resolution_to_local_definition_p (enum ld_plugin_symbol_resolution resolution)
    7135                 :            : {
    7136                 :  201649000 :   return (resolution == LDPR_PREVAILING_DEF
    7137                 :  201649000 :           || resolution == LDPR_PREVAILING_DEF_IRONLY_EXP
    7138                 :  201470000 :           || resolution == LDPR_PREVAILING_DEF_IRONLY);
    7139                 :            : }
    7140                 :            : 
    7141                 :            : /* Return true when RESOLUTION indicate that symbol will be bound locally
    7142                 :            :    within current executable or DSO.  */
    7143                 :            : 
    7144                 :            : static bool
    7145                 :  201277000 : resolution_local_p (enum ld_plugin_symbol_resolution resolution)
    7146                 :            : {
    7147                 :  201277000 :   return (resolution == LDPR_PREVAILING_DEF
    7148                 :  201277000 :           || resolution == LDPR_PREVAILING_DEF_IRONLY
    7149                 :  201277000 :           || resolution == LDPR_PREVAILING_DEF_IRONLY_EXP
    7150                 :            :           || resolution == LDPR_PREEMPTED_REG
    7151                 :  201277000 :           || resolution == LDPR_PREEMPTED_IR
    7152                 :            :           || resolution == LDPR_RESOLVED_IR
    7153                 :  201277000 :           || resolution == LDPR_RESOLVED_EXEC);
    7154                 :            : }
    7155                 :            : 
    7156                 :            : /* COMMON_LOCAL_P is true means that the linker can guarantee that an
    7157                 :            :    uninitialized common symbol in the executable will still be defined
    7158                 :            :    (through COPY relocation) in the executable.  */
    7159                 :            : 
    7160                 :            : bool
    7161                 :  435364000 : default_binds_local_p_3 (const_tree exp, bool shlib, bool weak_dominate,
    7162                 :            :                          bool extern_protected_data, bool common_local_p)
    7163                 :            : {
    7164                 :            :   /* A non-decl is an entry in the constant pool.  */
    7165                 :  435364000 :   if (!DECL_P (exp))
    7166                 :            :     return true;
    7167                 :            : 
    7168                 :            :   /* Weakrefs may not bind locally, even though the weakref itself is always
    7169                 :            :      static and therefore local.  Similarly, the resolver for ifunc functions
    7170                 :            :      might resolve to a non-local function.
    7171                 :            :      FIXME: We can resolve the weakref case more curefuly by looking at the
    7172                 :            :      weakref alias.  */
    7173                 :  432669000 :   if (lookup_attribute ("weakref", DECL_ATTRIBUTES (exp))
    7174                 :  432669000 :       || (TREE_CODE (exp) == FUNCTION_DECL
    7175                 :  169898000 :           && cgraph_node::get (exp)
    7176                 :  161268000 :           && cgraph_node::get (exp)->ifunc_resolver))
    7177                 :            :     return false;
    7178                 :            : 
    7179                 :            :   /* Static variables are always local.  */
    7180                 :  432527000 :   if (! TREE_PUBLIC (exp))
    7181                 :            :     return true;
    7182                 :            : 
    7183                 :            :   /* With resolution file in hand, take look into resolutions.
    7184                 :            :      We can't just return true for resolved_locally symbols,
    7185                 :            :      because dynamic linking might overwrite symbols
    7186                 :            :      in shared libraries.  */
    7187                 :  333497000 :   bool resolved_locally = false;
    7188                 :            : 
    7189                 :  333497000 :   bool uninited_common = (DECL_COMMON (exp)
    7190                 :    1352220 :                           && (DECL_INITIAL (exp) == NULL
    7191                 :     201839 :                               || (!in_lto_p
    7192                 :  333699000 :                                   && DECL_INITIAL (exp) == error_mark_node)));
    7193                 :            : 
    7194                 :            :   /* A non-external variable is defined locally only if it isn't
    7195                 :            :      uninitialized COMMON variable or common_local_p is true.  */
    7196                 :  333497000 :   bool defined_locally = (!DECL_EXTERNAL (exp)
    7197                 :  333497000 :                           && (!uninited_common || common_local_p));
    7198                 :  333497000 :   if (symtab_node *node = symtab_node::get (exp))
    7199                 :            :     {
    7200                 :  324819000 :       if (node->in_other_partition)
    7201                 :       1392 :         defined_locally = true;
    7202                 :  324819000 :       if (node->can_be_discarded_p ())
    7203                 :            :         ;
    7204                 :  201468000 :       else if (resolution_to_local_definition_p (node->resolution))
    7205                 :            :         defined_locally = resolved_locally = true;
    7206                 :  201277000 :       else if (resolution_local_p (node->resolution))
    7207                 :            :         resolved_locally = true;
    7208                 :            :     }
    7209                 :  333497000 :   if (defined_locally && weak_dominate && !shlib)
    7210                 :  145874000 :     resolved_locally = true;
    7211                 :            : 
    7212                 :            :   /* Undefined weak symbols are never defined locally.  */
    7213                 :  333497000 :   if (DECL_WEAK (exp) && !defined_locally)
    7214                 :            :     return false;
    7215                 :            : 
    7216                 :            :   /* A symbol is local if the user has said explicitly that it will be,
    7217                 :            :      or if we have a definition for the symbol.  We cannot infer visibility
    7218                 :            :      for undefined symbols.  */
    7219                 :  333471000 :   if (DECL_VISIBILITY (exp) != VISIBILITY_DEFAULT
    7220                 :    5192740 :       && (TREE_CODE (exp) == FUNCTION_DECL
    7221                 :     340244 :           || !extern_protected_data
    7222                 :     340244 :           || DECL_VISIBILITY (exp) != VISIBILITY_PROTECTED)
    7223                 :  338664000 :       && (DECL_VISIBILITY_SPECIFIED (exp) || defined_locally))
    7224                 :            :     return true;
    7225                 :            : 
    7226                 :            :   /* If PIC, then assume that any global name can be overridden by
    7227                 :            :      symbols resolved from other modules.  */
    7228                 :  331382000 :   if (shlib)
    7229                 :            :     return false;
    7230                 :            : 
    7231                 :            :   /* Variables defined outside this object might not be local.  */
    7232                 :  241335000 :   if (DECL_EXTERNAL (exp) && !resolved_locally)
    7233                 :            :     return false;
    7234                 :            : 
    7235                 :            :   /* Non-dominant weak symbols are not defined locally.  */
    7236                 :  145595000 :   if (DECL_WEAK (exp) && !resolved_locally)
    7237                 :            :     return false;
    7238                 :            : 
    7239                 :            :   /* Uninitialized COMMON variable may be unified with symbols
    7240                 :            :      resolved from other modules.  */
    7241                 :  145595000 :   if (uninited_common && !resolved_locally)
    7242                 :          0 :     return false;
    7243                 :            : 
    7244                 :            :   /* Otherwise we're left with initialized (or non-common) global data
    7245                 :            :      which is of necessity defined locally.  */
    7246                 :            :   return true;
    7247                 :            : }
    7248                 :            : 
    7249                 :            : /* Assume ELF-ish defaults, since that's pretty much the most liberal
    7250                 :            :    wrt cross-module name binding.  */
    7251                 :            : 
    7252                 :            : bool
    7253                 :          0 : default_binds_local_p (const_tree exp)
    7254                 :            : {
    7255                 :          0 :   return default_binds_local_p_3 (exp, flag_shlib != 0, true, false, false);
    7256                 :            : }
    7257                 :            : 
    7258                 :            : /* Similar to default_binds_local_p, but common symbol may be local and
    7259                 :            :    extern protected data is non-local.  */
    7260                 :            : 
    7261                 :            : bool
    7262                 :          0 : default_binds_local_p_2 (const_tree exp)
    7263                 :            : {
    7264                 :          0 :   return default_binds_local_p_3 (exp, flag_shlib != 0, true, true,
    7265                 :          0 :                                   !flag_pic);
    7266                 :            : }
    7267                 :            : 
    7268                 :            : bool
    7269                 :          0 : default_binds_local_p_1 (const_tree exp, int shlib)
    7270                 :            : {
    7271                 :          0 :   return default_binds_local_p_3 (exp, shlib != 0, false, false, false);
    7272                 :            : }
    7273                 :            : 
    7274                 :            : /* Return true when references to DECL must bind to current definition in
    7275                 :            :    final executable.
    7276                 :            : 
    7277                 :            :    The condition is usually equivalent to whether the function binds to the
    7278                 :            :    current module (shared library or executable), that is to binds_local_p.
    7279                 :            :    We use this fact to avoid need for another target hook and implement
    7280                 :            :    the logic using binds_local_p and just special cases where
    7281                 :            :    decl_binds_to_current_def_p is stronger than binds_local_p.  In particular
    7282                 :            :    the weak definitions (that can be overwritten at linktime by other
    7283                 :            :    definition from different object file) and when resolution info is available
    7284                 :            :    we simply use the knowledge passed to us by linker plugin.  */
    7285                 :            : bool
    7286                 :  417670000 : decl_binds_to_current_def_p (const_tree decl)
    7287                 :            : {
    7288                 :  417670000 :   gcc_assert (DECL_P (decl));
    7289                 :  417670000 :   if (!targetm.binds_local_p (decl))
    7290                 :            :     return false;
    7291                 :  238797000 :   if (!TREE_PUBLIC (decl))
    7292                 :            :     return true;
    7293                 :            : 
    7294                 :            :   /* When resolution is available, just use it.  */
    7295                 :  143679000 :   if (symtab_node *node = symtab_node::get (decl))
    7296                 :            :     {
    7297                 :  143536000 :       if (node->resolution != LDPR_UNKNOWN
    7298                 :  143536000 :           && !node->can_be_discarded_p ())
    7299                 :     181478 :         return resolution_to_local_definition_p (node->resolution);
    7300                 :            :     }
    7301                 :            : 
    7302                 :            :   /* Otherwise we have to assume the worst for DECL_WEAK (hidden weaks
    7303                 :            :      binds locally but still can be overwritten), DECL_COMMON (can be merged
    7304                 :            :      with a non-common definition somewhere in the same module) or
    7305                 :            :      DECL_EXTERNAL.
    7306                 :            :      This rely on fact that binds_local_p behave as decl_replaceable_p
    7307                 :            :      for all other declaration types.  */
    7308                 :  143497000 :   if (DECL_WEAK (decl))
    7309                 :            :     return false;
    7310                 :  129042000 :   if (DECL_COMMON (decl)
    7311                 :    1147220 :       && (DECL_INITIAL (decl) == NULL
    7312                 :  129042000 :           || (!in_lto_p && DECL_INITIAL (decl) == error_mark_node)))
    7313                 :            :     return false;
    7314                 :  127894000 :   if (DECL_EXTERNAL (decl))
    7315                 :    1262190 :     return false;
    7316                 :            :   return true;
    7317                 :            : }
    7318                 :            : 
    7319                 :            : /* A replaceable function or variable is one which may be replaced
    7320                 :            :    at link-time with an entirely different definition, provided that the
    7321                 :            :    replacement has the same type.  For example, functions declared
    7322                 :            :    with __attribute__((weak)) on most systems are replaceable.
    7323                 :            : 
    7324                 :            :    COMDAT functions are not replaceable, since all definitions of the
    7325                 :            :    function must be equivalent.  It is important that COMDAT functions
    7326                 :            :    not be treated as replaceable so that use of C++ template
    7327                 :            :    instantiations is not penalized.  */
    7328                 :            : 
    7329                 :            : bool
    7330                 :  120712000 : decl_replaceable_p (tree decl)
    7331                 :            : {
    7332                 :  120712000 :   gcc_assert (DECL_P (decl));
    7333                 :  241280000 :   if (!TREE_PUBLIC (decl) || DECL_COMDAT (decl))
    7334                 :            :     return false;
    7335                 :  108050000 :   if (!flag_semantic_interposition
    7336                 :  108050000 :       && !DECL_WEAK (decl))
    7337                 :            :     return false;
    7338                 :  108050000 :   return !decl_binds_to_current_def_p (decl);
    7339                 :            : }
    7340                 :            : 
    7341                 :            : /* Default function to output code that will globalize a label.  A
    7342                 :            :    target must define GLOBAL_ASM_OP or provide its own function to
    7343                 :            :    globalize a label.  */
    7344                 :            : #ifdef GLOBAL_ASM_OP
    7345                 :            : void
    7346                 :    1483780 : default_globalize_label (FILE * stream, const char *name)
    7347                 :            : {
    7348                 :    1483780 :   fputs (GLOBAL_ASM_OP, stream);
    7349                 :    1483780 :   assemble_name (stream, name);
    7350                 :    1483780 :   putc ('\n', stream);
    7351                 :    1483780 : }
    7352                 :            : #endif /* GLOBAL_ASM_OP */
    7353                 :            : 
    7354                 :            : /* Default function to output code that will globalize a declaration.  */
    7355                 :            : void
    7356                 :    1460720 : default_globalize_decl_name (FILE * stream, tree decl)
    7357                 :            : {
    7358                 :    1460720 :   const char *name = XSTR (XEXP (DECL_RTL (decl), 0), 0);
    7359                 :    1460720 :   targetm.asm_out.globalize_label (stream, name);
    7360                 :    1460720 : }
    7361                 :            : 
    7362                 :            : /* Default function to output a label for unwind information.  The
    7363                 :            :    default is to do nothing.  A target that needs nonlocal labels for
    7364                 :            :    unwind information must provide its own function to do this.  */
    7365                 :            : void
    7366                 :        100 : default_emit_unwind_label (FILE * stream ATTRIBUTE_UNUSED,
    7367                 :            :                            tree decl ATTRIBUTE_UNUSED,
    7368                 :            :                            int for_eh ATTRIBUTE_UNUSED,
    7369                 :            :                            int empty ATTRIBUTE_UNUSED)
    7370                 :            : {
    7371                 :        100 : }
    7372                 :            : 
    7373                 :            : /* Default function to output a label to divide up the exception table.
    7374                 :            :    The default is to do nothing.  A target that needs/wants to divide
    7375                 :            :    up the table must provide it's own function to do this.  */
    7376                 :            : void
    7377                 :      53303 : default_emit_except_table_label (FILE * stream ATTRIBUTE_UNUSED)
    7378                 :            : {
    7379                 :      53303 : }
    7380                 :            : 
    7381                 :            : /* This is how to output an internal numbered label where PREFIX is
    7382                 :            :    the class of label and LABELNO is the number within the class.  */
    7383                 :            : 
    7384                 :            : void
    7385                 :       4778 : default_generate_internal_label (char *buf, const char *prefix,
    7386                 :            :                                  unsigned long labelno)
    7387                 :            : {
    7388                 :       4778 :   ASM_GENERATE_INTERNAL_LABEL (buf, prefix, labelno);
    7389                 :       4778 : }
    7390                 :            : 
    7391                 :            : /* This is how to output an internal numbered label where PREFIX is
    7392                 :            :    the class of label and LABELNO is the number within the class.  */
    7393                 :            : 
    7394                 :            : void
    7395                 :   42803300 : default_internal_label (FILE *stream, const char *prefix,
    7396                 :            :                         unsigned long labelno)
    7397                 :            : {
    7398                 :   42803300 :   char *const buf = (char *) alloca (40 + strlen (prefix));
    7399                 :   42803300 :   ASM_GENERATE_INTERNAL_LABEL (buf, prefix, labelno);
    7400                 :   42803300 :   ASM_OUTPUT_INTERNAL_LABEL (stream, buf);
    7401                 :   42803300 : }
    7402                 :            : 
    7403                 :            : 
    7404                 :            : /* The default implementation of ASM_DECLARE_CONSTANT_NAME.  */
    7405                 :            : 
    7406                 :            : void
    7407                 :     822674 : default_asm_declare_constant_name (FILE *file, const char *name,
    7408                 :            :                                    const_tree exp ATTRIBUTE_UNUSED,
    7409                 :            :                                    HOST_WIDE_INT size ATTRIBUTE_UNUSED)
    7410                 :            : {
    7411                 :     822674 :   assemble_label (file, name);
    7412                 :     822674 : }
    7413                 :            : 
    7414                 :            : /* This is the default behavior at the beginning of a file.  It's
    7415                 :            :    controlled by two other target-hook toggles.  */
    7416                 :            : void
    7417                 :     193477 : default_file_start (void)
    7418                 :            : {
    7419                 :     193477 :   if (targetm.asm_file_start_app_off
    7420                 :          0 :       && !(flag_verbose_asm || flag_debug_asm || flag_dump_rtl_in_asm))
    7421                 :          0 :     fputs (ASM_APP_OFF, asm_out_file);
    7422                 :            : 
    7423                 :     193477 :   if (targetm.asm_file_start_file_directive)
    7424                 :            :     {
    7425                 :            :       /* LTO produced units have no meaningful main_input_filename.  */
    7426                 :     193477 :       if (in_lto_p)
    7427                 :       8965 :         output_file_directive (asm_out_file, "<artificial>");
    7428                 :            :       else
    7429                 :     184512 :         output_file_directive (asm_out_file, main_input_filename);
    7430                 :            :     }
    7431                 :     193477 : }
    7432                 :            : 
    7433                 :            : /* This is a generic routine suitable for use as TARGET_ASM_FILE_END
    7434                 :            :    which emits a special section directive used to indicate whether or
    7435                 :            :    not this object file needs an executable stack.  This is primarily
    7436                 :            :    a GNU extension to ELF but could be used on other targets.  */
    7437                 :            : 
    7438                 :            : int trampolines_created;
    7439                 :            : 
    7440                 :            : void
    7441                 :     172140 : file_end_indicate_exec_stack (void)
    7442                 :            : {
    7443                 :     172140 :   unsigned int flags = SECTION_DEBUG;
    7444                 :     172140 :   if (trampolines_created)
    7445                 :        266 :     flags |= SECTION_CODE;
    7446                 :            : 
    7447                 :     172140 :   switch_to_section (get_section (".note.GNU-stack", flags, NULL));
    7448                 :     172140 : }
    7449                 :            : 
    7450                 :            : /* Emit a special section directive to indicate that this object file
    7451                 :            :    was compiled with -fsplit-stack.  This is used to let the linker
    7452                 :            :    detect calls between split-stack code and non-split-stack code, so
    7453                 :            :    that it can modify the split-stack code to allocate a sufficiently
    7454                 :            :    large stack.  We emit another special section if there are any
    7455                 :            :    functions in this file which have the no_split_stack attribute, to
    7456                 :            :    prevent the linker from warning about being unable to convert the
    7457                 :            :    functions if they call non-split-stack code.  */
    7458                 :            : 
    7459                 :            : void
    7460                 :       3578 : file_end_indicate_split_stack (void)
    7461                 :            : {
    7462                 :       3578 :   if (flag_split_stack)
    7463                 :            :     {
    7464                 :       3578 :       switch_to_section (get_section (".note.GNU-split-stack", SECTION_DEBUG,
    7465                 :            :                                       NULL));
    7466                 :       3578 :       if (saw_no_split_stack)
    7467                 :        321 :         switch_to_section (get_section (".note.GNU-no-split-stack",
    7468                 :            :                                         SECTION_DEBUG, NULL));
    7469                 :            :     }
    7470                 :       3578 : }
    7471                 :            : 
    7472                 :            : /* Output DIRECTIVE (a C string) followed by a newline.  This is used as
    7473                 :            :    a get_unnamed_section callback.  */
    7474                 :            : 
    7475                 :            : void
    7476                 :    1238480 : output_section_asm_op (const void *directive)
    7477                 :            : {
    7478                 :    1238480 :   fprintf (asm_out_file, "%s\n", (const char *) directive);
    7479                 :    1238480 : }
    7480                 :            : 
    7481                 :            : /* Emit assembly code to switch to section NEW_SECTION.  Do nothing if
    7482                 :            :    the current section is NEW_SECTION.  */
    7483                 :            : 
    7484                 :            : void
    7485                 :   58140800 : switch_to_section (section *new_section)
    7486                 :            : {
    7487                 :   58140800 :   if (in_section == new_section)
    7488                 :            :     return;
    7489                 :            : 
    7490                 :    3888580 :   if (new_section->common.flags & SECTION_FORGET)
    7491                 :          0 :     in_section = NULL;
    7492                 :            :   else
    7493                 :    3888580 :     in_section = new_section;
    7494                 :            : 
    7495                 :    3888580 :   switch (SECTION_STYLE (new_section))
    7496                 :            :     {
    7497                 :    2650100 :     case SECTION_NAMED:
    7498                 :    2650100 :       targetm.asm_out.named_section (new_section->named.name,
    7499                 :            :                                      new_section->named.common.flags,
    7500                 :            :                                      new_section->named.decl);
    7501                 :    2650100 :       break;
    7502                 :            : 
    7503                 :    1238480 :     case SECTION_UNNAMED:
    7504                 :    1238480 :       new_section->unnamed.callback (new_section->unnamed.data);
    7505                 :    1238480 :       break;
    7506                 :            : 
    7507                 :          0 :     case SECTION_NOSWITCH:
    7508                 :          0 :       gcc_unreachable ();
    7509                 :    3888580 :       break;
    7510                 :            :     }
    7511                 :            : 
    7512                 :    3888580 :   new_section->common.flags |= SECTION_DECLARED;
    7513                 :            : }
    7514                 :            : 
    7515                 :            : /* If block symbol SYMBOL has not yet been assigned an offset, place
    7516                 :            :    it at the end of its block.  */
    7517                 :            : 
    7518                 :            : void
    7519                 :          0 : place_block_symbol (rtx symbol)
    7520                 :            : {
    7521                 :          0 :   unsigned HOST_WIDE_INT size, mask, offset;
    7522                 :          0 :   class constant_descriptor_rtx *desc;
    7523                 :          0 :   unsigned int alignment;
    7524                 :          0 :   struct object_block *block;
    7525                 :          0 :   tree decl;
    7526                 :            : 
    7527                 :          0 :   gcc_assert (SYMBOL_REF_BLOCK (symbol));
    7528                 :          0 :   if (SYMBOL_REF_BLOCK_OFFSET (symbol) >= 0)
    7529                 :            :     return;
    7530                 :            : 
    7531                 :            :   /* Work out the symbol's size and alignment.  */
    7532                 :          0 :   if (CONSTANT_POOL_ADDRESS_P (symbol))
    7533                 :            :     {
    7534                 :          0 :       desc = SYMBOL_REF_CONSTANT (symbol);
    7535                 :          0 :       alignment = desc->align;
    7536                 :          0 :       size = GET_MODE_SIZE (desc->mode);
    7537                 :            :     }
    7538                 :          0 :   else if (TREE_CONSTANT_POOL_ADDRESS_P (symbol))
    7539                 :            :     {
    7540                 :          0 :       decl = SYMBOL_REF_DECL (symbol);
    7541                 :          0 :       gcc_checking_assert (DECL_IN_CONSTANT_POOL (decl));
    7542                 :          0 :       alignment = DECL_ALIGN (decl);
    7543                 :          0 :       size = get_constant_size (DECL_INITIAL (decl));
    7544                 :          0 :       if ((flag_sanitize & SANITIZE_ADDRESS)
    7545                 :          0 :           && TREE_CODE (DECL_INITIAL (decl)) == STRING_CST
    7546                 :          0 :           && asan_protect_global (DECL_INITIAL (decl)))
    7547                 :            :         {
    7548                 :          0 :           size += asan_red_zone_size (size);
    7549                 :          0 :           alignment = MAX (alignment,
    7550                 :            :                            ASAN_RED_ZONE_SIZE * BITS_PER_UNIT);
    7551                 :            :         }
    7552                 :            :     }
    7553                 :            :   else
    7554                 :            :     {
    7555                 :          0 :       struct symtab_node *snode;
    7556                 :          0 :       decl = SYMBOL_REF_DECL (symbol);
    7557                 :            : 
    7558                 :          0 :       snode = symtab_node::get (decl);
    7559                 :          0 :       if (snode->alias)
    7560                 :            :         {
    7561                 :          0 :           rtx target = DECL_RTL (snode->ultimate_alias_target ()->decl);
    7562                 :            : 
    7563                 :          0 :           gcc_assert (MEM_P (target)
    7564                 :            :                       && GET_CODE (XEXP (target, 0)) == SYMBOL_REF
    7565                 :            :                       && SYMBOL_REF_HAS_BLOCK_INFO_P (XEXP (target, 0)));
    7566                 :          0 :           target = XEXP (target, 0);
    7567                 :          0 :           place_block_symbol (target);
    7568                 :          0 :           SYMBOL_REF_BLOCK_OFFSET (symbol) = SYMBOL_REF_BLOCK_OFFSET (target);
    7569                 :          0 :           return;
    7570                 :            :         }
    7571                 :          0 :       alignment = get_variable_align (decl);
    7572                 :          0 :       size = tree_to_uhwi (DECL_SIZE_UNIT (decl));
    7573                 :          0 :       if ((flag_sanitize & SANITIZE_ADDRESS)
    7574                 :          0 :           && asan_protect_global (decl))
    7575                 :            :         {
    7576                 :          0 :           size += asan_red_zone_size (size);
    7577                 :          0 :           alignment = MAX (alignment,
    7578                 :            :                            ASAN_RED_ZONE_SIZE * BITS_PER_UNIT);
    7579                 :            :         }
    7580                 :            :     }
    7581                 :            : 
    7582                 :            :   /* Calculate the object's offset from the start of the block.  */
    7583                 :          0 :   block = SYMBOL_REF_BLOCK (symbol);
    7584                 :          0 :   mask = alignment / BITS_PER_UNIT - 1;
    7585                 :          0 :   offset = (block->size + mask) & ~mask;
    7586                 :          0 :   SYMBOL_REF_BLOCK_OFFSET (symbol) = offset;
    7587                 :            : 
    7588                 :            :   /* Record the block's new alignment and size.  */
    7589                 :          0 :   block->alignment = MAX (block->alignment, alignment);
    7590                 :          0 :   block->size = offset + size;
    7591                 :            : 
    7592                 :          0 :   vec_safe_push (block->objects, symbol);
    7593                 :            : }
    7594                 :            : 
    7595                 :            : /* Return the anchor that should be used to address byte offset OFFSET
    7596                 :            :    from the first object in BLOCK.  MODEL is the TLS model used
    7597                 :            :    to access it.  */
    7598                 :            : 
    7599                 :            : rtx
    7600                 :          0 : get_section_anchor (struct object_block *block, HOST_WIDE_INT offset,
    7601                 :            :                     enum tls_model model)
    7602                 :            : {
    7603                 :          0 :   char label[100];
    7604                 :          0 :   unsigned int begin, middle, end;
    7605                 :          0 :   unsigned HOST_WIDE_INT min_offset, max_offset, range, bias, delta;
    7606                 :          0 :   rtx anchor;
    7607                 :            : 
    7608                 :            :   /* Work out the anchor's offset.  Use an offset of 0 for the first
    7609                 :            :      anchor so that we don't pessimize the case where we take the address
    7610                 :            :      of a variable at the beginning of the block.  This is particularly
    7611                 :            :      useful when a block has only one variable assigned to it.
    7612                 :            : 
    7613                 :            :      We try to place anchors RANGE bytes apart, so there can then be
    7614                 :            :      anchors at +/-RANGE, +/-2 * RANGE, and so on, up to the limits of
    7615                 :            :      a ptr_mode offset.  With some target settings, the lowest such
    7616                 :            :      anchor might be out of range for the lowest ptr_mode offset;
    7617                 :            :      likewise the highest anchor for the highest offset.  Use anchors
    7618                 :            :      at the extreme ends of the ptr_mode range in such cases.
    7619                 :            : 
    7620                 :            :      All arithmetic uses unsigned integers in order to avoid
    7621                 :            :      signed overflow.  */
    7622                 :          0 :   max_offset = (unsigned HOST_WIDE_INT) targetm.max_anchor_offset;
    7623                 :          0 :   min_offset = (unsigned HOST_WIDE_INT) targetm.min_anchor_offset;
    7624                 :          0 :   range = max_offset - min_offset + 1;
    7625                 :          0 :   if (range == 0)
    7626                 :            :     offset = 0;
    7627                 :            :   else
    7628                 :            :     {
    7629                 :          0 :       bias = HOST_WIDE_INT_1U << (GET_MODE_BITSIZE (ptr_mode) - 1);
    7630                 :          0 :       if (offset < 0)
    7631                 :            :         {
    7632                 :          0 :           delta = -(unsigned HOST_WIDE_INT) offset + max_offset;
    7633                 :          0 :           delta -= delta % range;
    7634                 :          0 :           if (delta > bias)
    7635                 :            :             delta = bias;
    7636                 :          0 :           offset = (HOST_WIDE_INT) (-delta);
    7637                 :            :         }
    7638                 :            :       else
    7639                 :            :         {
    7640                 :          0 :           delta = (unsigned HOST_WIDE_INT) offset - min_offset;
    7641                 :          0 :           delta -= delta % range;
    7642                 :          0 :           if (delta > bias - 1)
    7643                 :            :             delta = bias - 1;
    7644                 :          0 :           offset = (HOST_WIDE_INT) delta;
    7645                 :            :         }
    7646                 :            :     }
    7647                 :            : 
    7648                 :            :   /* Do a binary search to see if there's already an anchor we can use.
    7649                 :            :      Set BEGIN to the new anchor's index if not.  */
    7650                 :          0 :   begin = 0;
    7651                 :          0 :   end = vec_safe_length (block->anchors);
    7652                 :          0 :   while (begin != end)
    7653                 :            :     {
    7654                 :          0 :       middle = (end + begin) / 2;
    7655                 :          0 :       anchor = (*block->anchors)[middle];
    7656                 :          0 :       if (SYMBOL_REF_BLOCK_OFFSET (anchor) > offset)
    7657                 :            :         end = middle;
    7658                 :          0 :       else if (SYMBOL_REF_BLOCK_OFFSET (anchor) < offset)
    7659                 :          0 :         begin = middle + 1;
    7660                 :          0 :       else if (SYMBOL_REF_TLS_MODEL (anchor) > model)
    7661                 :            :         end = middle;
    7662                 :          0 :       else if (SYMBOL_REF_TLS_MODEL (anchor) < model)
    7663                 :          0 :         begin = middle + 1;
    7664                 :            :       else
    7665                 :          0 :         return anchor;
    7666                 :            :     }
    7667                 :            : 
    7668                 :            :   /* Create a new anchor with a unique label.  */
    7669                 :          0 :   ASM_GENERATE_INTERNAL_LABEL (label, "LANCHOR", anchor_labelno++);
    7670                 :          0 :   anchor = create_block_symbol (ggc_strdup (label), block, offset);
    7671                 :          0 :   SYMBOL_REF_FLAGS (anchor) |= SYMBOL_FLAG_LOCAL | SYMBOL_FLAG_ANCHOR;
    7672                 :          0 :   SYMBOL_REF_FLAGS (anchor) |= model << SYMBOL_FLAG_TLS_SHIFT;
    7673                 :            : 
    7674                 :            :   /* Insert it at index BEGIN.  */
    7675                 :          0 :   vec_safe_insert (block->anchors, begin, anchor);
    7676                 :          0 :   return anchor;
    7677                 :            : }
    7678                 :            : 
    7679                 :            : /* Output the objects in BLOCK.  */
    7680                 :            : 
    7681                 :            : static void
    7682                 :          0 : output_object_block (struct object_block *block)
    7683                 :            : {
    7684                 :          0 :   class constant_descriptor_rtx *desc;
    7685                 :          0 :   unsigned int i;
    7686                 :          0 :   HOST_WIDE_INT offset;
    7687                 :          0 :   tree decl;
    7688                 :          0 :   rtx symbol;
    7689                 :            : 
    7690                 :          0 :   if (!block->objects)
    7691                 :          0 :     return;
    7692                 :            : 
    7693                 :            :   /* Switch to the section and make sure that the first byte is
    7694                 :            :      suitably aligned.  */
    7695                 :            :   /* Special case VTV comdat sections similar to assemble_variable.  */
    7696                 :          0 :   if (SECTION_STYLE (block->sect) == SECTION_NAMED
    7697                 :          0 :       && block->sect->named.name
    7698                 :          0 :       && (strcmp (block->sect->named.name, ".vtable_map_vars") == 0))
    7699                 :          0 :     handle_vtv_comdat_section (block->sect, block->sect->named.decl);
    7700                 :            :   else
    7701                 :          0 :     switch_to_section (block->sect);
    7702                 :            : 
    7703                 :          0 :   gcc_checking_assert (!(block->sect->common.flags & SECTION_MERGE));
    7704                 :          0 :   assemble_align (block->alignment);
    7705                 :            : 
    7706                 :            :   /* Define the values of all anchors relative to the current section
    7707                 :            :      position.  */
    7708                 :          0 :   FOR_EACH_VEC_SAFE_ELT (block->anchors, i, symbol)
    7709                 :          0 :     targetm.asm_out.output_anchor (symbol);
    7710                 :            : 
    7711                 :            :   /* Output the objects themselves.  */
    7712                 :            :   offset = 0;
    7713                 :          0 :   FOR_EACH_VEC_ELT (*block->objects, i, symbol)
    7714                 :            :     {
    7715                 :            :       /* Move to the object's offset, padding with zeros if necessary.  */
    7716                 :          0 :       assemble_zeros (SYMBOL_REF_BLOCK_OFFSET (symbol) - offset);
    7717                 :          0 :       offset = SYMBOL_REF_BLOCK_OFFSET (symbol);
    7718                 :          0 :       if (CONSTANT_POOL_ADDRESS_P (symbol))
    7719                 :            :         {
    7720                 :          0 :           desc = SYMBOL_REF_CONSTANT (symbol);
    7721                 :            :           /* Pass 1 for align as we have already laid out everything in the block.
    7722                 :            :              So aligning shouldn't be necessary.  */
    7723                 :          0 :           output_constant_pool_1 (desc, 1);
    7724                 :          0 :           offset += GET_MODE_SIZE (desc->mode);
    7725                 :            :         }
    7726                 :          0 :       else if (TREE_CONSTANT_POOL_ADDRESS_P (symbol))
    7727                 :            :         {
    7728                 :          0 :           HOST_WIDE_INT size;
    7729                 :          0 :           decl = SYMBOL_REF_DECL (symbol);
    7730                 :          0 :           assemble_constant_contents (DECL_INITIAL (decl), XSTR (symbol, 0),
    7731                 :          0 :                                       DECL_ALIGN (decl), false);
    7732                 :            : 
    7733                 :          0 :           size = get_constant_size (DECL_INITIAL (decl));
    7734                 :          0 :           offset += size;
    7735                 :          0 :           if ((flag_sanitize & SANITIZE_ADDRESS)
    7736                 :          0 :               && TREE_CODE (DECL_INITIAL (decl)) == STRING_CST
    7737                 :          0 :               && asan_protect_global (DECL_INITIAL (decl)))
    7738                 :            :             {
    7739                 :          0 :               size = asan_red_zone_size (size);
    7740                 :          0 :               assemble_zeros (size);
    7741                 :          0 :               offset += size;
    7742                 :            :             }
    7743                 :            :         }
    7744                 :            :       else
    7745                 :            :         {
    7746                 :          0 :           HOST_WIDE_INT size;
    7747                 :          0 :           decl = SYMBOL_REF_DECL (symbol);
    7748                 :          0 :           assemble_variable_contents (decl, XSTR (symbol, 0), false, false);
    7749                 :          0 :           size = tree_to_uhwi (DECL_SIZE_UNIT (decl));
    7750                 :          0 :           offset += size;
    7751                 :          0 :           if ((flag_sanitize & SANITIZE_ADDRESS)
    7752                 :          0 :               && asan_protect_global (decl))
    7753                 :            :             {
    7754                 :          0 :               size = asan_red_zone_size (size);
    7755                 :          0 :               assemble_zeros (size);
    7756                 :          0 :               offset += size;
    7757                 :            :             }
    7758                 :            :         }
    7759                 :            :     }
    7760                 :            : }
    7761                 :            : 
    7762                 :            : /* A callback for qsort to compare object_blocks.  */
    7763                 :            : 
    7764                 :            : static int
    7765                 :          0 : output_object_block_compare (const void *x, const void *y)
    7766                 :            : {
    7767                 :          0 :   object_block *p1 = *(object_block * const*)x;
    7768                 :          0 :   object_block *p2 = *(object_block * const*)y;
    7769                 :            : 
    7770                 :          0 :   if (p1->sect->common.flags & SECTION_NAMED
    7771                 :          0 :       && !(p2->sect->common.flags & SECTION_NAMED))
    7772                 :            :     return 1;
    7773                 :            : 
    7774                 :          0 :   if (!(p1->sect->common.flags & SECTION_NAMED)
    7775                 :          0 :       && p2->sect->common.flags & SECTION_NAMED)
    7776                 :            :     return -1;
    7777                 :            : 
    7778                 :          0 :   if (p1->sect->common.flags & SECTION_NAMED
    7779                 :          0 :       && p2->sect->common.flags & SECTION_NAMED)
    7780                 :          0 :     return strcmp (p1->sect->named.name, p2->sect->named.name);
    7781                 :            : 
    7782                 :          0 :   unsigned f1 = p1->sect->common.flags;
    7783                 :          0 :   unsigned f2 = p2->sect->common.flags;
    7784                 :          0 :   if (f1 == f2)
    7785                 :            :     return 0;
    7786                 :          0 :   return f1 < f2 ? -1 : 1;
    7787                 :            : }
    7788                 :            : 
    7789                 :            : /* Output the definitions of all object_blocks.  */
    7790                 :            : 
    7791                 :            : void
    7792                 :     163841 : output_object_blocks (void)
    7793                 :            : {
    7794                 :     163841 :   vec<object_block *, va_heap> v;
    7795                 :     163841 :   v.create (object_block_htab->elements ());
    7796                 :     163841 :   object_block *obj;
    7797                 :     163841 :   hash_table<object_block_hasher>::iterator hi;
    7798                 :            : 
    7799                 :     327682 :   FOR_EACH_HASH_TABLE_ELEMENT (*object_block_htab, obj, object_block *, hi)
    7800                 :          0 :     v.quick_push (obj);
    7801                 :            : 
    7802                 :            :   /* Sort them in order to output them in a deterministic manner,
    7803                 :            :      otherwise we may get .rodata sections in different orders with
    7804                 :            :      and without -g.  */
    7805                 :     163841 :   v.qsort (output_object_block_compare);
    7806                 :            :   unsigned i;
    7807                 :     163841 :   FOR_EACH_VEC_ELT (v, i, obj)
    7808                 :          0 :     output_object_block (obj);
    7809                 :            : 
    7810                 :     163841 :   v.release ();
    7811                 :     163841 : }
    7812                 :            : 
    7813                 :            : /* This function provides a possible implementation of the
    7814                 :            :    TARGET_ASM_RECORD_GCC_SWITCHES target hook for ELF targets.  When triggered
    7815                 :            :    by -frecord-gcc-switches it creates a new mergeable, string section in the
    7816                 :            :    assembler output file called TARGET_ASM_RECORD_GCC_SWITCHES_SECTION which
    7817                 :            :    contains the switches in ASCII format.
    7818                 :            : 
    7819                 :            :    FIXME: This code does not correctly handle double quote characters
    7820                 :            :    that appear inside strings, (it strips them rather than preserving them).
    7821                 :            :    FIXME: ASM_OUTPUT_ASCII, as defined in config/elfos.h will not emit NUL
    7822                 :            :    characters - instead it treats them as sub-string separators.  Since
    7823                 :            :    we want to emit NUL strings terminators into the object file we have to use
    7824                 :            :    ASM_OUTPUT_SKIP.  */
    7825                 :            : 
    7826                 :            : int
    7827                 :          0 : elf_record_gcc_switches (print_switch_type type, const char * name)
    7828                 :            : {
    7829                 :          0 :   switch (type)
    7830                 :            :     {
    7831                 :          0 :     case SWITCH_TYPE_PASSED:
    7832                 :          0 :       ASM_OUTPUT_ASCII (asm_out_file, name, strlen (name));
    7833                 :          0 :       ASM_OUTPUT_SKIP (asm_out_file, HOST_WIDE_INT_1U);
    7834                 :          0 :       break;
    7835                 :            : 
    7836                 :          0 :     case SWITCH_TYPE_DESCRIPTIVE:
    7837                 :          0 :       if (name == NULL)
    7838                 :            :         {
    7839                 :            :           /* Distinguish between invocations where name is NULL.  */
    7840                 :          0 :           static bool started = false;
    7841                 :            : 
    7842                 :          0 :           if (!started)
    7843                 :            :             {
    7844                 :          0 :               section * sec;
    7845                 :            : 
    7846                 :          0 :               sec = get_section (targetm.asm_out.record_gcc_switches_section,
    7847                 :            :                                  SECTION_DEBUG
    7848                 :            :                                  | SECTION_MERGE
    7849                 :            :                                  | SECTION_STRINGS
    7850                 :            :                                  | (SECTION_ENTSIZE & 1),
    7851                 :            :                                  NULL);
    7852                 :          0 :               switch_to_section (sec);
    7853                 :          0 :               started = true;
    7854                 :            :             }
    7855                 :            :         }
    7856                 :            : 
    7857                 :            :     default:
    7858                 :            :       break;
    7859                 :            :     }
    7860                 :            : 
    7861                 :            :   /* The return value is currently ignored by the caller, but must be 0.
    7862                 :            :      For -fverbose-asm the return value would be the number of characters
    7863                 :            :      emitted into the assembler file.  */
    7864                 :          0 :   return 0;
    7865                 :            : }
    7866                 :            : 
    7867                 :            : /* Emit text to declare externally defined symbols. It is needed to
    7868                 :            :    properly support non-default visibility.  */
    7869                 :            : void
    7870                 :    1476470 : default_elf_asm_output_external (FILE *file ATTRIBUTE_UNUSED,
    7871                 :            :                                  tree decl,
    7872                 :            :                                  const char *name ATTRIBUTE_UNUSED)
    7873                 :            : {
    7874                 :            :   /* We output the name if and only if TREE_SYMBOL_REFERENCED is
    7875                 :            :      set in order to avoid putting out names that are never really
    7876                 :            :      used.  Always output visibility specified in the source.  */
    7877                 :    1476470 :   if (TREE_SYMBOL_REFERENCED (DECL_ASSEMBLER_NAME (decl))
    7878                 :    2944070 :       && (DECL_VISIBILITY_SPECIFIED (decl)
    7879                 :    2944070 :           || targetm.binds_local_p (decl)))
    7880                 :     175821 :     maybe_assemble_visibility (decl);
    7881                 :    1476470 : }
    7882                 :            : 
    7883                 :            : /* The default hook for TARGET_ASM_OUTPUT_SOURCE_FILENAME.  */
    7884                 :            : 
    7885                 :            : void
    7886                 :     193477 : default_asm_output_source_filename (FILE *file, const char *name)
    7887                 :            : {
    7888                 :            : #ifdef ASM_OUTPUT_SOURCE_FILENAME
    7889                 :            :   ASM_OUTPUT_SOURCE_FILENAME (file, name);
    7890                 :            : #else
    7891                 :     193477 :   fprintf (file, "\t.file\t");
    7892                 :     193477 :   output_quoted_string (file, name);
    7893                 :     193477 :   putc ('\n', file);
    7894                 :            : #endif
    7895                 :     193477 : }
    7896                 :            : 
    7897                 :            : /* Output a file name in the form wanted by System V.  */
    7898                 :            : 
    7899                 :            : void
    7900                 :     193477 : output_file_directive (FILE *asm_file, const char *input_nam