LCOV - code coverage report
Current view: top level - gcc/lto - lto-object.c (source / functions) Hit Total Coverage
Test: gcc.info Lines: 117 158 74.1 %
Date: 2020-03-28 11:57:23 Functions: 8 10 80.0 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 0 0 -

           Branch data     Line data    Source code
       1                 :            : /* LTO routines to use object files.
       2                 :            :    Copyright (C) 2010-2020 Free Software Foundation, Inc.
       3                 :            :    Written by Ian Lance Taylor, Google.
       4                 :            : 
       5                 :            : This file is part of GCC.
       6                 :            : 
       7                 :            : GCC is free software; you can redistribute it and/or modify it under
       8                 :            : the terms of the GNU General Public License as published by the Free
       9                 :            : Software Foundation; either version 3, or (at your option) any later
      10                 :            : version.
      11                 :            : 
      12                 :            : GCC is distributed in the hope that it will be useful, but WITHOUT ANY
      13                 :            : WARRANTY; without even the implied warranty of MERCHANTABILITY or
      14                 :            : FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
      15                 :            : for more details.
      16                 :            : 
      17                 :            : You should have received a copy of the GNU General Public License
      18                 :            : along with GCC; see the file COPYING3.  If not see
      19                 :            : <http://www.gnu.org/licenses/>.  */
      20                 :            : 
      21                 :            : #include "config.h"
      22                 :            : #include "system.h"
      23                 :            : #include "coretypes.h"
      24                 :            : #include "tm.h"
      25                 :            : #include "diagnostic-core.h"
      26                 :            : #include "lto.h"
      27                 :            : #include "lto-section-names.h"
      28                 :            : #include "simple-object.h"
      29                 :            : 
      30                 :            : /* An LTO file wrapped around an simple_object.  */
      31                 :            : 
      32                 :            : struct lto_simple_object
      33                 :            : {
      34                 :            :   /* The base information.  */
      35                 :            :   lto_file base;
      36                 :            : 
      37                 :            :   /* The system file descriptor.  */
      38                 :            :   int fd;
      39                 :            : 
      40                 :            :   /* The simple_object if we are reading the file.  */
      41                 :            :   simple_object_read *sobj_r;
      42                 :            : 
      43                 :            :   /* The simple_object if we are writing the file.  */
      44                 :            :   simple_object_write *sobj_w;
      45                 :            : 
      46                 :            :   /* The currently active section.  */
      47                 :            :   simple_object_write_section *section;
      48                 :            : };
      49                 :            : 
      50                 :            : /* Saved simple_object attributes.  FIXME: Once set, this is never
      51                 :            :    cleared.  */
      52                 :            : 
      53                 :            : static simple_object_attributes *saved_attributes;
      54                 :            : 
      55                 :            : /* Initialize FILE, an LTO file object for FILENAME.  */
      56                 :            : 
      57                 :            : static void
      58                 :      20313 : lto_file_init (lto_file *file, const char *filename, off_t offset)
      59                 :            : {
      60                 :      20313 :   file->filename = filename;
      61                 :      20313 :   file->offset = offset;
      62                 :          0 : }
      63                 :            : 
      64                 :            : /* Open the file FILENAME.  It WRITABLE is true, the file is opened
      65                 :            :    for write and, if necessary, created.  Otherwise, the file is
      66                 :            :    opened for reading.  Returns the opened file.  */
      67                 :            : 
      68                 :            : lto_file *
      69                 :      20313 : lto_obj_file_open (const char *filename, bool writable)
      70                 :            : {
      71                 :      20313 :   const char *offset_p;
      72                 :      20313 :   long loffset;
      73                 :      20313 :   int consumed;
      74                 :      20313 :   char *fname;
      75                 :      20313 :   off_t offset;
      76                 :      20313 :   struct lto_simple_object *lo;
      77                 :      20313 :   const char *errmsg;
      78                 :      20313 :   int err;
      79                 :            : 
      80                 :      20313 :   offset_p = strrchr (filename, '@');
      81                 :      20313 :   if (offset_p != NULL
      82                 :      20313 :       && offset_p != filename
      83                 :          0 :       && sscanf (offset_p, "@%li%n", &loffset, &consumed) >= 1
      84                 :      20313 :       && strlen (offset_p) == (unsigned int) consumed)
      85                 :            :     {
      86                 :          0 :       fname = XNEWVEC (char, offset_p - filename + 1);
      87                 :          0 :       memcpy (fname, filename, offset_p - filename);
      88                 :          0 :       fname[offset_p - filename] = '\0';
      89                 :          0 :       offset = (off_t) loffset;
      90                 :            :     }
      91                 :            :   else
      92                 :            :     {
      93                 :      20313 :       fname = xstrdup (filename);
      94                 :      20313 :       offset = 0;
      95                 :            :     }
      96                 :            : 
      97                 :      20313 :   lo = XCNEW (struct lto_simple_object);
      98                 :      20313 :   lto_file_init ((lto_file *) lo, fname, offset);
      99                 :            : 
     100                 :      35259 :   lo->fd = open (fname,
     101                 :            :                  (writable
     102                 :            :                   ? O_WRONLY | O_CREAT | O_BINARY
     103                 :            :                   : O_RDONLY | O_BINARY),
     104                 :            :                  0666);
     105                 :      20313 :   if (lo->fd == -1)
     106                 :            :     {
     107                 :          0 :       error ("open %s failed: %s", fname, xstrerror (errno));
     108                 :          0 :       goto fail;
     109                 :            :     }
     110                 :            : 
     111                 :      20313 :   if (!writable)
     112                 :            :     {
     113                 :      14946 :       simple_object_attributes *attrs;
     114                 :            : 
     115                 :      14946 :       lo->sobj_r = simple_object_start_read (lo->fd, offset, LTO_SEGMENT_NAME,
     116                 :            :                                              &errmsg, &err);
     117                 :      14946 :       if (lo->sobj_r == NULL)
     118                 :          0 :         goto fail_errmsg;
     119                 :            : 
     120                 :      14946 :       attrs = simple_object_fetch_attributes (lo->sobj_r, &errmsg, &err);
     121                 :      14946 :       if (attrs == NULL)
     122                 :          0 :         goto fail_errmsg;
     123                 :            : 
     124                 :      14946 :       if (saved_attributes == NULL)
     125                 :      14009 :         saved_attributes = attrs;
     126                 :            :       else
     127                 :            :         {
     128                 :        937 :           errmsg = simple_object_attributes_merge (saved_attributes, attrs,
     129                 :            :                                                    &err);
     130                 :        937 :           if (errmsg != NULL)
     131                 :            :             {
     132                 :          0 :               free (attrs);
     133                 :          0 :               goto fail_errmsg;
     134                 :            :             }
     135                 :            :         }
     136                 :            :     }
     137                 :            :   else
     138                 :            :     {
     139                 :       5367 :       gcc_assert (saved_attributes != NULL);
     140                 :       5367 :       lo->sobj_w = simple_object_start_write (saved_attributes,
     141                 :            :                                               LTO_SEGMENT_NAME,
     142                 :            :                                               &errmsg, &err);
     143                 :       5367 :       if (lo->sobj_w == NULL)
     144                 :          0 :         goto fail_errmsg;
     145                 :            :     }
     146                 :            : 
     147                 :      20313 :   return &lo->base;
     148                 :            : 
     149                 :          0 :  fail_errmsg:
     150                 :          0 :   if (err == 0)
     151                 :          0 :     error ("%s: %s", fname, errmsg);
     152                 :            :   else
     153                 :          0 :     error ("%s: %s: %s", fname, errmsg, xstrerror (err));
     154                 :            :                                          
     155                 :          0 :  fail:
     156                 :          0 :   if (lo->fd != -1)
     157                 :          0 :     lto_obj_file_close ((lto_file *) lo);
     158                 :          0 :   free (lo);
     159                 :          0 :   return NULL;
     160                 :            : }
     161                 :            : 
     162                 :            : 
     163                 :            : /* Close FILE.  If FILE was opened for writing, it is written out
     164                 :            :    now.  */
     165                 :            : 
     166                 :            : void
     167                 :      20313 : lto_obj_file_close (lto_file *file)
     168                 :            : {
     169                 :      20313 :   struct lto_simple_object *lo = (struct lto_simple_object *) file;
     170                 :            : 
     171                 :      20313 :   if (lo->sobj_r != NULL)
     172                 :      14946 :     simple_object_release_read (lo->sobj_r);
     173                 :       5367 :   else if (lo->sobj_w != NULL)
     174                 :            :     {
     175                 :       5367 :       const char *errmsg;
     176                 :       5367 :       int err;
     177                 :            : 
     178                 :       5367 :       gcc_assert (lo->base.offset == 0);
     179                 :            : 
     180                 :       5367 :       errmsg = simple_object_write_to_file (lo->sobj_w, lo->fd, &err);
     181                 :       5367 :       if (errmsg != NULL)
     182                 :            :         {
     183                 :          0 :           if (err == 0)
     184                 :          0 :             fatal_error (input_location, "%s", errmsg);
     185                 :            :           else
     186                 :          0 :             fatal_error (input_location, "%s: %s", errmsg, xstrerror (err));
     187                 :            :         }
     188                 :            : 
     189                 :       5367 :       simple_object_release_write (lo->sobj_w);
     190                 :            :     }
     191                 :            : 
     192                 :      20313 :   if (lo->fd != -1)
     193                 :            :     {
     194                 :      20313 :       if (close (lo->fd) < 0)
     195                 :          0 :         fatal_error (input_location, "close: %s", xstrerror (errno));
     196                 :            :     }
     197                 :      20313 : }
     198                 :            : 
     199                 :            : /* This is passed to lto_obj_add_section.  */
     200                 :            : 
     201                 :            : struct lto_obj_add_section_data
     202                 :            : {
     203                 :            :   /* The hash table of sections.  */
     204                 :            :   htab_t section_hash_table;
     205                 :            :   /* The offset of this file.  */
     206                 :            :   off_t base_offset;
     207                 :            :   /* List in linker order */
     208                 :            :   struct lto_section_list *list;
     209                 :            : };
     210                 :            : 
     211                 :            : /* This is called for each section in the file.  */
     212                 :            : 
     213                 :            : static int
     214                 :     400262 : lto_obj_add_section (void *data, const char *name, off_t offset,
     215                 :            :                      off_t length)
     216                 :            : {
     217                 :     400262 :   struct lto_obj_add_section_data *loasd =
     218                 :            :     (struct lto_obj_add_section_data *) data;
     219                 :     400262 :   htab_t section_hash_table = (htab_t) loasd->section_hash_table;
     220                 :     400262 :   char *new_name;
     221                 :     400262 :   struct lto_section_slot s_slot;
     222                 :     400262 :   void **slot;
     223                 :     400262 :   struct lto_section_list *list = loasd->list;
     224                 :            : 
     225                 :     400262 :   if (strncmp (name, section_name_prefix, strlen (section_name_prefix)))
     226                 :            :     return 1;
     227                 :            : 
     228                 :     280786 :   new_name = xstrdup (name);
     229                 :     280786 :   s_slot.name = new_name;
     230                 :     280786 :   slot = htab_find_slot (section_hash_table, &s_slot, INSERT);
     231                 :     280786 :   if (*slot == NULL)
     232                 :            :     {
     233                 :     280786 :       struct lto_section_slot *new_slot = XCNEW (struct lto_section_slot);
     234                 :            : 
     235                 :     280786 :       new_slot->name = new_name;
     236                 :     280786 :       new_slot->start = loasd->base_offset + offset;
     237                 :     280786 :       new_slot->len = length;
     238                 :     280786 :       *slot = new_slot;
     239                 :            : 
     240                 :     280786 :       if (list != NULL)
     241                 :            :         {
     242                 :     280786 :           if (!list->first)
     243                 :      14946 :             list->first = new_slot;
     244                 :     280786 :           if (list->last)
     245                 :     265840 :             list->last->next = new_slot;
     246                 :     280786 :           list->last = new_slot;
     247                 :            :         }
     248                 :            :     }
     249                 :            :   else
     250                 :            :     {
     251                 :          0 :       error ("two or more sections for %s", new_name);
     252                 :          0 :       return 0;
     253                 :            :     }
     254                 :            : 
     255                 :            :   return 1;
     256                 :            : }
     257                 :            : 
     258                 :            : /* Build a hash table whose key is the section name and whose data is
     259                 :            :    the start and size of each section in the .o file.  */
     260                 :            : 
     261                 :            : htab_t
     262                 :      14946 : lto_obj_build_section_table (lto_file *lto_file, struct lto_section_list *list)
     263                 :            : {
     264                 :      14946 :   struct lto_simple_object *lo = (struct lto_simple_object *) lto_file;
     265                 :      14946 :   htab_t section_hash_table;
     266                 :      14946 :   struct lto_obj_add_section_data loasd;
     267                 :      14946 :   const char *errmsg;
     268                 :      14946 :   int err;
     269                 :            : 
     270                 :      14946 :   section_hash_table = lto_obj_create_section_hash_table ();
     271                 :            : 
     272                 :      14946 :   gcc_assert (lo->sobj_r != NULL && lo->sobj_w == NULL);
     273                 :      14946 :   loasd.section_hash_table = section_hash_table;
     274                 :      14946 :   loasd.base_offset = lo->base.offset;
     275                 :      14946 :   loasd.list = list;
     276                 :      14946 :   errmsg = simple_object_find_sections (lo->sobj_r, lto_obj_add_section,
     277                 :            :                                         &loasd, &err);
     278                 :      14946 :   if (errmsg != NULL)
     279                 :            :     {
     280                 :          0 :       if (err == 0)
     281                 :          0 :         error ("%s", errmsg);
     282                 :            :       else
     283                 :          0 :         error ("%s: %s", errmsg, xstrerror (err));
     284                 :          0 :       htab_delete (section_hash_table);
     285                 :          0 :       return NULL;
     286                 :            :     }
     287                 :            : 
     288                 :            :   return section_hash_table;
     289                 :            : }
     290                 :            : 
     291                 :            : /* The current output file.  */
     292                 :            : 
     293                 :            : static lto_file *current_out_file;
     294                 :            : 
     295                 :            : /* Set the current output file.  Return the old one.  */
     296                 :            : 
     297                 :            : lto_file *
     298                 :      10734 : lto_set_current_out_file (lto_file *file)
     299                 :            : {
     300                 :      10734 :   lto_file *old_file;
     301                 :            : 
     302                 :      10734 :   old_file = current_out_file;
     303                 :      10734 :   current_out_file = file;
     304                 :      10734 :   return old_file;
     305                 :            : }
     306                 :            : 
     307                 :            : /* Return the current output file.  */
     308                 :            : 
     309                 :            : lto_file *
     310                 :          0 : lto_get_current_out_file (void)
     311                 :            : {
     312                 :          0 :   return current_out_file;
     313                 :            : }
     314                 :            : 
     315                 :            : /* Begin writing a new section named NAME in the current output
     316                 :            :    file.  */
     317                 :            : 
     318                 :            : void
     319                 :      76472 : lto_obj_begin_section (const char *name)
     320                 :            : {
     321                 :      76472 :   struct lto_simple_object *lo;
     322                 :      76472 :   int align;
     323                 :      76472 :   const char *errmsg;
     324                 :      76472 :   int err;
     325                 :            : 
     326                 :      76472 :   lo = (struct lto_simple_object *) current_out_file;
     327                 :      76472 :   gcc_assert (lo != NULL
     328                 :            :               && lo->sobj_r == NULL
     329                 :            :               && lo->sobj_w != NULL
     330                 :            :               && lo->section == NULL);
     331                 :            : 
     332                 :      76472 :   align = ceil_log2 (POINTER_SIZE_UNITS);
     333                 :      76472 :   lo->section = simple_object_write_create_section (lo->sobj_w, name, align,
     334                 :            :                                                     &errmsg, &err);
     335                 :      76472 :   if (lo->section == NULL)
     336                 :            :     {
     337                 :          0 :       if (err == 0)
     338                 :          0 :         fatal_error (input_location, "%s", errmsg);
     339                 :            :       else
     340                 :          0 :         fatal_error (input_location, "%s: %s", errmsg, xstrerror (errno));
     341                 :            :     }
     342                 :      76472 : }
     343                 :            : 
     344                 :            : /* Add data to a section.  BLOCK is a pointer to memory containing
     345                 :            :    DATA.  */
     346                 :            : 
     347                 :            : void
     348                 :     456181 : lto_obj_append_data (const void *data, size_t len, void *)
     349                 :            : {
     350                 :     456181 :   struct lto_simple_object *lo;
     351                 :     456181 :   const char *errmsg;
     352                 :     456181 :   int err;
     353                 :            : 
     354                 :     456181 :   lo = (struct lto_simple_object *) current_out_file;
     355                 :     456181 :   gcc_assert (lo != NULL && lo->section != NULL);
     356                 :            : 
     357                 :     456181 :   errmsg = simple_object_write_add_data (lo->sobj_w, lo->section, data, len,
     358                 :            :                                          1, &err);
     359                 :     456181 :   if (errmsg != NULL)
     360                 :            :     {
     361                 :          0 :       if (err == 0)
     362                 :          0 :         fatal_error (input_location, "%s", errmsg);
     363                 :            :       else
     364                 :          0 :         fatal_error (input_location, "%s: %s", errmsg, xstrerror (errno));
     365                 :            :     }
     366                 :     456181 : }
     367                 :            : 
     368                 :            : /* Stop writing to the current output section.  */
     369                 :            : 
     370                 :            : void
     371                 :      76472 : lto_obj_end_section (void)
     372                 :            : {
     373                 :      76472 :   struct lto_simple_object *lo;
     374                 :            : 
     375                 :      76472 :   lo = (struct lto_simple_object *) current_out_file;
     376                 :      76472 :   gcc_assert (lo != NULL && lo->section != NULL);
     377                 :      76472 :   lo->section = NULL;
     378                 :      76472 : }

Generated by: LCOV version 1.0

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