LCOV - code coverage report
Current view: top level - gcc/jit - jit-recording.c (source / functions) Hit Total Coverage
Test: gcc.info Lines: 2291 2482 92.3 %
Date: 2021-11-27 14:51:55 Functions: 342 362 94.5 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 0 0 -

           Branch data     Line data    Source code
       1                 :            : /* Internals of libgccjit: classes for recording calls made to the JIT API.
       2                 :            :    Copyright (C) 2013-2021 Free Software Foundation, Inc.
       3                 :            :    Contributed by David Malcolm <dmalcolm@redhat.com>.
       4                 :            : 
       5                 :            : This file is part of GCC.
       6                 :            : 
       7                 :            : GCC is free software; you can redistribute it and/or modify it
       8                 :            : under the terms of the GNU General Public License as published by
       9                 :            : the Free Software Foundation; either version 3, or (at your option)
      10                 :            : any later version.
      11                 :            : 
      12                 :            : GCC is distributed in the hope that it will be useful, but
      13                 :            : WITHOUT ANY WARRANTY; without even the implied warranty of
      14                 :            : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      15                 :            : General Public License 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 "pretty-print.h"
      26                 :            : #include "toplev.h"
      27                 :            : 
      28                 :            : #include <pthread.h>
      29                 :            : 
      30                 :            : #include "jit-builtins.h"
      31                 :            : #include "jit-recording.h"
      32                 :            : #include "jit-playback.h"
      33                 :            : 
      34                 :            : namespace gcc {
      35                 :            : namespace jit {
      36                 :            : 
      37                 :            : // class dump
      38                 :            : 
      39                 :        857 : dump::dump (recording::context &ctxt,
      40                 :            :             const char *filename,
      41                 :        857 :             bool update_locations)
      42                 :        857 : : m_ctxt (ctxt),
      43                 :        857 :   m_filename (filename),
      44                 :        857 :   m_update_locations (update_locations),
      45                 :        857 :   m_line (0),
      46                 :        857 :   m_column (0)
      47                 :            : {
      48                 :        857 :   m_file = fopen (filename, "w");
      49                 :        857 :   if (!m_file)
      50                 :          0 :     ctxt.add_error (NULL,
      51                 :            :                     "error opening dump file %s for writing: %s",
      52                 :            :                     filename,
      53                 :          0 :                     xstrerror (errno));
      54                 :        857 : }
      55                 :            : 
      56                 :        857 : dump::~dump ()
      57                 :            : {
      58                 :        857 :   if (m_file)
      59                 :            :     {
      60                 :        857 :       int err = fclose (m_file);
      61                 :        857 :       if (err)
      62                 :          0 :         m_ctxt.add_error (NULL,
      63                 :            :                           "error closing dump file %s: %s",
      64                 :            :                           m_filename,
      65                 :          0 :                           xstrerror (errno));
      66                 :            :     }
      67                 :        857 : }
      68                 :            : 
      69                 :            : /* Write the given message to the dump, using printf-formatting
      70                 :            :    conventions, updating the line/column within the dump.
      71                 :            : 
      72                 :            :    Emit an error on the context if a failure occurs.  */
      73                 :            : 
      74                 :            : void
      75                 :     142870 : dump::write (const char *fmt, ...)
      76                 :            : {
      77                 :     142870 :   int len;
      78                 :     142870 :   va_list ap;
      79                 :     142870 :   char *buf;
      80                 :            : 
      81                 :            :   /* If there was an error opening the file, we've already reported it.
      82                 :            :      Don't attempt further work.  */
      83                 :     142870 :   if (!m_file)
      84                 :          0 :     return;
      85                 :            : 
      86                 :     142870 :   va_start (ap, fmt);
      87                 :     142870 :   len = vasprintf (&buf, fmt, ap);
      88                 :     142870 :   va_end (ap);
      89                 :            : 
      90                 :     142870 :   if (buf == NULL || len < 0)
      91                 :            :     {
      92                 :          0 :       m_ctxt.add_error (NULL, "malloc failure writing to dumpfile %s",
      93                 :            :                         m_filename);
      94                 :          0 :       return;
      95                 :            :     }
      96                 :            : 
      97                 :     142870 :   if (fwrite (buf, strlen (buf), 1, m_file) != 1)
      98                 :          0 :     m_ctxt.add_error (NULL, "error writing to dump file %s",
      99                 :            :                       m_filename);
     100                 :            : 
     101                 :            :   /* Flush after each line, to ease debugging crashes.  */
     102                 :     142870 :   fflush (m_file);
     103                 :            : 
     104                 :            :   /* Update line/column: */
     105                 :   21496566 :   for (const char *ptr = buf; *ptr; ptr++)
     106                 :            :     {
     107                 :   21353696 :       if ('\n' == *ptr)
     108                 :            :         {
     109                 :     338083 :           m_line++;
     110                 :     338083 :           m_column = 0;
     111                 :            :         }
     112                 :            :       else
     113                 :   21015613 :         m_column++;
     114                 :            :     }
     115                 :            : 
     116                 :     142870 :   free (buf);
     117                 :            : }
     118                 :            : 
     119                 :            : /* Construct a gcc::jit::recording::location instance for the current
     120                 :            :    location within the dump.  */
     121                 :            : 
     122                 :            : recording::location *
     123                 :        186 : dump::make_location () const
     124                 :            : {
     125                 :        186 :   return m_ctxt.new_location (m_filename, m_line, m_column,
     126                 :            :                               /* We need to flag such locations as *not*
     127                 :            :                                  created by the user, so that
     128                 :            :                                  reproducer::get_identifier can cope with
     129                 :            :                                  them appearing *after* the memento that
     130                 :            :                                  refers to them.  */
     131                 :        186 :                               false);
     132                 :            : }
     133                 :            : 
     134                 :            : /* A collection of allocations, all of which can be released together, to
     135                 :            :    avoid needing to track and release them individually.  */
     136                 :            : 
     137                 :        843 : class allocator
     138                 :            : {
     139                 :            :  public:
     140                 :            :   ~allocator ();
     141                 :            : 
     142                 :            :   char *
     143                 :            :   xstrdup_printf (const char *, ...)
     144                 :            :     ATTRIBUTE_RETURNS_NONNULL
     145                 :            :     GNU_PRINTF(2, 3);
     146                 :            : 
     147                 :            :   char *
     148                 :            :   xstrdup_printf_va (const char *, va_list ap)
     149                 :            :     ATTRIBUTE_RETURNS_NONNULL
     150                 :            :     GNU_PRINTF(2, 0);
     151                 :            : 
     152                 :            :  private:
     153                 :            :   auto_vec <void *> m_buffers;
     154                 :            : };
     155                 :            : 
     156                 :            : /* allocator's destructor.  Call "free" on all of the allocations.  */
     157                 :            : 
     158                 :        843 : allocator::~allocator ()
     159                 :            : {
     160                 :        843 :   unsigned i;
     161                 :        843 :   void *buffer;
     162                 :     143384 :   FOR_EACH_VEC_ELT (m_buffers, i, buffer)
     163                 :     142541 :     free (buffer);
     164                 :        843 : }
     165                 :            : 
     166                 :            : /* Formatted printing, allocating to a buffer (or exiting the process if
     167                 :            :    the allocation fails).
     168                 :            : 
     169                 :            :    The buffer exists until the allocator is cleaned up, and is freed at
     170                 :            :    that point, so the caller doesn't need to track the result.  */
     171                 :            : 
     172                 :            : char *
     173                 :     133744 : allocator::xstrdup_printf (const char *fmt, ...)
     174                 :            : {
     175                 :     133744 :   char *result;
     176                 :     133744 :   va_list ap;
     177                 :     133744 :   va_start (ap, fmt);
     178                 :     133744 :   result = xstrdup_printf_va (fmt, ap);
     179                 :     133744 :   va_end (ap);
     180                 :     133744 :   return result;
     181                 :            : }
     182                 :            : 
     183                 :            : /* Formatted printing, allocating to a buffer (or exiting the process if
     184                 :            :    the allocation fails).
     185                 :            : 
     186                 :            :    The buffer exists until the allocator is cleaned up, and is freed at
     187                 :            :    that point, so the caller doesn't need to track the result.  */
     188                 :            : 
     189                 :            : char *
     190                 :     142541 : allocator::xstrdup_printf_va (const char *fmt, va_list ap)
     191                 :            : {
     192                 :     142541 :   char *result = xvasprintf (fmt, ap);
     193                 :     142541 :   m_buffers.safe_push (result);
     194                 :     142541 :   return result;
     195                 :            : }
     196                 :            : 
     197                 :            : /* gcc::jit::reproducer is a subclass of gcc::jit::dump, used for
     198                 :            :    implementing gcc_jit_context_dump_reproducer_to_file.  */
     199                 :            : 
     200                 :            : class reproducer : public dump
     201                 :            : {
     202                 :            :  public:
     203                 :            :   reproducer (recording::context &ctxt,
     204                 :            :               const char *filename);
     205                 :            : 
     206                 :            :   void
     207                 :            :   write_params (const vec <recording::context *> &contexts);
     208                 :            : 
     209                 :            :   void
     210                 :            :   write_args (const vec <recording::context *> &contexts);
     211                 :            : 
     212                 :            :   const char *
     213                 :            :   make_identifier (recording::memento *m, const char *prefix);
     214                 :            : 
     215                 :            :   const char *
     216                 :            :   make_tmp_identifier (const char *prefix, recording::memento *m);
     217                 :            : 
     218                 :            :   const char *
     219                 :            :   get_identifier (recording::context *ctxt);
     220                 :            : 
     221                 :            :   const char *
     222                 :            :   get_identifier (recording::memento *m);
     223                 :            : 
     224                 :            :   const char *
     225                 :            :   get_identifier_as_rvalue (recording::rvalue *m);
     226                 :            : 
     227                 :            :   const char *
     228                 :            :   get_identifier_as_lvalue (recording::lvalue *m);
     229                 :            : 
     230                 :            :   const char *
     231                 :            :   get_identifier_as_type (recording::type *m);
     232                 :            : 
     233                 :            :   char *
     234                 :            :   xstrdup_printf (const char *, ...)
     235                 :            :     ATTRIBUTE_RETURNS_NONNULL
     236                 :            :     GNU_PRINTF(2, 3);
     237                 :            : 
     238                 :            :  private:
     239                 :            :   const char * ensure_identifier_is_unique (const char *candidate, void *ptr);
     240                 :            : 
     241                 :            :  private:
     242                 :            :   hash_map<recording::memento *, const char *> m_map_memento_to_identifier;
     243                 :            : 
     244                 :            :   struct hash_traits : public string_hash
     245                 :            :   {
     246                 :            :     static void remove (const char *) {}
     247                 :            :   };
     248                 :            :   hash_set<const char *, false, hash_traits> m_set_identifiers;
     249                 :            :   allocator m_allocator;
     250                 :            : };
     251                 :            : 
     252                 :            : /* gcc::jit::reproducer's constructor.  */
     253                 :            : 
     254                 :        843 : reproducer::reproducer (recording::context &ctxt,
     255                 :        843 :                         const char *filename) :
     256                 :            :   dump (ctxt, filename, 0),
     257                 :        843 :   m_map_memento_to_identifier (),
     258                 :        843 :   m_set_identifiers (),
     259                 :        843 :   m_allocator ()
     260                 :            : {
     261                 :        843 : }
     262                 :            : 
     263                 :            : /* Write out a list of contexts as a set of parameters within a
     264                 :            :    C function declaration.  */
     265                 :            : 
     266                 :            : void
     267                 :       3372 : reproducer::write_params (const vec <recording::context *> &contexts)
     268                 :            : {
     269                 :       3372 :   unsigned i;
     270                 :       3372 :   recording::context *ctxt;
     271                 :       6808 :   FOR_EACH_VEC_ELT (contexts, i, ctxt)
     272                 :            :     {
     273                 :       3436 :       write ("gcc_jit_context *%s",
     274                 :            :              get_identifier (ctxt));
     275                 :       6872 :       if (i < contexts.length () - 1)
     276                 :         64 :         write (",\n"
     277                 :            :                "             ");
     278                 :            :     }
     279                 :       3372 : }
     280                 :            : 
     281                 :            : /* Write out a list of contexts as a set of arguments within a call
     282                 :            :    to a C function.  */
     283                 :            : 
     284                 :            : void
     285                 :       1686 : reproducer::write_args (const vec <recording::context *> &contexts)
     286                 :            : {
     287                 :       1686 :   unsigned i;
     288                 :       1686 :   recording::context *ctxt;
     289                 :       3404 :   FOR_EACH_VEC_ELT (contexts, i, ctxt)
     290                 :            :     {
     291                 :       1718 :       write ("%s",
     292                 :            :              get_identifier (ctxt));
     293                 :       3436 :       if (i < contexts.length () - 1)
     294                 :         32 :         write (",\n"
     295                 :            :                "               ");
     296                 :            :     }
     297                 :       1686 : }
     298                 :            : 
     299                 :            : /* Ensure that STR is a valid C identifier by overwriting
     300                 :            :    any invalid chars in-place with underscores.
     301                 :            : 
     302                 :            :    This doesn't special-case the first character.  */
     303                 :            : 
     304                 :            : static void
     305                 :      52616 : convert_to_identifier (char *str)
     306                 :            : {
     307                 :     882848 :   for (char *p = str; *p; p++)
     308                 :     830232 :     if (!ISALNUM (*p))
     309                 :     155220 :       *p = '_';
     310                 :      52616 : }
     311                 :            : 
     312                 :            : /* Given CANDIDATE, a possible C identifier for use in a reproducer,
     313                 :            :    ensure that it is unique within the generated source file by
     314                 :            :    appending PTR to it if necessary.  Return the resulting string.
     315                 :            : 
     316                 :            :    The reproducer will eventually clean up the buffer in its dtor.  */
     317                 :            : 
     318                 :            : const char *
     319                 :      52821 : reproducer::ensure_identifier_is_unique (const char *candidate, void *ptr)
     320                 :            : {
     321                 :      52821 :   if (m_set_identifiers.contains (candidate))
     322                 :      14620 :     candidate = m_allocator.xstrdup_printf ("%s_%p", candidate, ptr);
     323                 :      52821 :   gcc_assert (!m_set_identifiers.contains (candidate));
     324                 :      52821 :   m_set_identifiers.add (candidate);
     325                 :      52821 :   return candidate;
     326                 :            : }
     327                 :            : 
     328                 :            : /* Generate a C identifier for the given memento, associating the generated
     329                 :            :    buffer with the memento (for future calls to get_identifier et al).
     330                 :            : 
     331                 :            :    The reproducer will eventually clean up the buffer in its dtor.  */
     332                 :            : const char *
     333                 :      52821 : reproducer::make_identifier (recording::memento *m, const char *prefix)
     334                 :            : {
     335                 :      52821 :   const char *result;
     336                 :      52821 :   if (strlen (m->get_debug_string ()) < 100)
     337                 :            :     {
     338                 :      52616 :       char *buf = m_allocator.xstrdup_printf ("%s_%s",
     339                 :            :                                               prefix,
     340                 :            :                                               m->get_debug_string ());
     341                 :      52616 :       convert_to_identifier (buf);
     342                 :      52616 :       result = buf;
     343                 :            :     }
     344                 :            :   else
     345                 :        205 :     result = m_allocator.xstrdup_printf ("%s_%p",
     346                 :            :                                          prefix, (void *) m);
     347                 :      52821 :   result = ensure_identifier_is_unique (result, m);
     348                 :      52821 :   m_map_memento_to_identifier.put (m, result);
     349                 :      52821 :   return result;
     350                 :            : }
     351                 :            : 
     352                 :            : /* Generate a C identifier for a temporary variable.
     353                 :            :    The reproducer will eventually clean up the buffer in its dtor.  */
     354                 :            : 
     355                 :            : const char *
     356                 :       3238 : reproducer::make_tmp_identifier (const char *prefix, recording::memento *m)
     357                 :            : {
     358                 :       3238 :   return m_allocator.xstrdup_printf ("%s_%s",
     359                 :       3238 :                                      prefix, get_identifier (m));
     360                 :            : }
     361                 :            : 
     362                 :            : /* Generate a C identifier for the given context.
     363                 :            :    The reproducer will eventually clean up the buffer in its dtor.  */
     364                 :            : 
     365                 :            : const char *
     366                 :      63065 : reproducer::get_identifier (recording::context *ctxt)
     367                 :            : {
     368                 :      63065 :   return m_allocator.xstrdup_printf ("ctxt_%p",
     369                 :      63065 :                                      (void *)ctxt);
     370                 :            : }
     371                 :            : 
     372                 :            : /* Locate the C identifier for the given memento, which is assumed to
     373                 :            :    have already been created via make_identifier.  */
     374                 :            : 
     375                 :            : const char *
     376                 :     102850 : reproducer::get_identifier (recording::memento *m)
     377                 :            : {
     378                 :     102850 :   if (!m)
     379                 :            :     return "NULL";
     380                 :            : 
     381                 :            :   /* gcc_jit_context_dump_to_file (, , 1) generates and writes locations,
     382                 :            :      and hence these locations appear in the context's memento list
     383                 :            :      out-of-order: they appear in the context's memento list *after*
     384                 :            :      the memento that refers to them.  For this case, it's simplest to
     385                 :            :      pretend that they're NULL when writing out the code to recreate the
     386                 :            :      memento that uses them.  */
     387                 :      77983 :   if (recording::location *loc = m->dyn_cast_location ())
     388                 :       7952 :     if (!loc->created_by_user ())
     389                 :            :       return "NULL";
     390                 :            : 
     391                 :      77775 :   const char **slot = m_map_memento_to_identifier.get (m);
     392                 :      77775 :   if (!slot)
     393                 :            :     {
     394                 :          0 :       get_context ().add_error (NULL,
     395                 :            :                                 "unable to find identifier for %p: %s",
     396                 :            :                                 (void *)m,
     397                 :            :                                 m->get_debug_string ());
     398                 :          0 :       gcc_unreachable ();
     399                 :            :     }
     400                 :      77775 :   return *slot;
     401                 :            : }
     402                 :            : 
     403                 :            : /* Locate the C identifier for the given rvalue, wrapping it within
     404                 :            :    a gcc_*_as_rvalue upcast if necessary.  */
     405                 :            : 
     406                 :            : const char *
     407                 :      12900 : reproducer::get_identifier_as_rvalue (recording::rvalue *m)
     408                 :            : {
     409                 :      12900 :   return m->access_as_rvalue (*this);
     410                 :            : }
     411                 :            : 
     412                 :            : /* Locate the C identifier for the given lvalue, wrapping it within
     413                 :            :    a gcc_*_as_lvalue upcast if necessary.  */
     414                 :            : 
     415                 :            : const char *
     416                 :       2184 : reproducer::get_identifier_as_lvalue (recording::lvalue *m)
     417                 :            : {
     418                 :       2184 :   return m->access_as_lvalue (*this);
     419                 :            : }
     420                 :            : 
     421                 :            : /* Locate the C identifier for the given type, wrapping it within
     422                 :            :    a gcc_*_as_type upcast if necessary.  */
     423                 :            : 
     424                 :            : const char *
     425                 :      26076 : reproducer::get_identifier_as_type (recording::type *m)
     426                 :            : {
     427                 :      26076 :   return m->access_as_type (*this);
     428                 :            : }
     429                 :            : 
     430                 :            : /* Formatted printing, allocating to a buffer (or exiting the process if
     431                 :            :    the allocation fails).
     432                 :            : 
     433                 :            :    The buffer exists until the allocator is cleaned up, and is freed at
     434                 :            :    that point, so the caller doesn't need to track the result.
     435                 :            : 
     436                 :            :    Note that we can't use ggc_printf since we're not within the compiler
     437                 :            :    proper (when within gcc_jit_context_dump_reproducer_to_file).  */
     438                 :            : 
     439                 :            : char *
     440                 :       8797 : reproducer::xstrdup_printf (const char *fmt, ...)
     441                 :            : {
     442                 :       8797 :   char *result;
     443                 :       8797 :   va_list ap;
     444                 :       8797 :   va_start (ap, fmt);
     445                 :       8797 :   result = m_allocator.xstrdup_printf_va (fmt, ap);
     446                 :       8797 :   va_end (ap);
     447                 :       8797 :   return result;
     448                 :            : }
     449                 :            : 
     450                 :            : /* A helper class for implementing make_debug_string, for building
     451                 :            :    a temporary string from a vec of rvalues.  */
     452                 :            : 
     453                 :            : class comma_separated_string
     454                 :            : {
     455                 :            :  public:
     456                 :            :   comma_separated_string (const auto_vec<recording::rvalue *> &rvalues,
     457                 :            :                           enum recording::precedence prec);
     458                 :            :   ~comma_separated_string ();
     459                 :            : 
     460                 :        591 :   const char *as_char_ptr () const { return m_buf; }
     461                 :            : 
     462                 :            :  private:
     463                 :            :   char *m_buf;
     464                 :            : };
     465                 :            : 
     466                 :            : /* comma_separated_string's ctor
     467                 :            :    Build m_buf.  */
     468                 :            : 
     469                 :        591 : comma_separated_string::comma_separated_string
     470                 :            :   (const auto_vec<recording::rvalue *> &rvalues,
     471                 :        591 :    enum recording::precedence prec)
     472                 :        591 : : m_buf (NULL)
     473                 :            : {
     474                 :            :   /* Calculate length of said buffer.  */
     475                 :        591 :   size_t sz = 1; /* nil terminator */
     476                 :       3244 :   for (unsigned i = 0; i< rvalues.length (); i++)
     477                 :            :     {
     478                 :       1051 :       sz += strlen (rvalues[i]->get_debug_string_parens (prec));
     479                 :       1051 :       sz += 2; /* ", " separator */
     480                 :            :     }
     481                 :            : 
     482                 :            :   /* Now allocate and populate the buffer.  */
     483                 :        591 :   m_buf = new char[sz];
     484                 :        591 :   size_t len = 0;
     485                 :            : 
     486                 :       3244 :   for (unsigned i = 0; i< rvalues.length (); i++)
     487                 :            :     {
     488                 :       1051 :       strcpy (m_buf + len, rvalues[i]->get_debug_string_parens (prec));
     489                 :       1051 :       len += strlen (rvalues[i]->get_debug_string_parens (prec));
     490                 :       2102 :       if (i + 1 < rvalues.length ())
     491                 :            :         {
     492                 :        500 :           strcpy (m_buf + len, ", ");
     493                 :        500 :           len += 2;
     494                 :            :         }
     495                 :            :     }
     496                 :        591 :   m_buf[len] = '\0';
     497                 :        591 : }
     498                 :            : 
     499                 :            : /* comma_separated_string's dtor.  */
     500                 :            : 
     501                 :        591 : comma_separated_string::~comma_separated_string ()
     502                 :            : {
     503                 :        591 :   delete[] m_buf;
     504                 :        591 : }
     505                 :            : 
     506                 :            : /**********************************************************************
     507                 :            :  Recording.
     508                 :            :  **********************************************************************/
     509                 :            : 
     510                 :            : /* Get the playback::location for the given recording::location,
     511                 :            :    handling a NULL input with a NULL output.  */
     512                 :            : 
     513                 :            : playback::location *
     514                 :      30520 : recording::playback_location (replayer *r, recording::location *loc)
     515                 :            : {
     516                 :      30520 :   if (loc)
     517                 :       1418 :     return loc->playback_location (r);
     518                 :            :   else
     519                 :            :     return NULL;
     520                 :            : }
     521                 :            : 
     522                 :            : /* Get a const char * for the given recording::string
     523                 :            :    handling a NULL input with a NULL output.  */
     524                 :            : 
     525                 :            : const char *
     526                 :       8159 : recording::playback_string (recording::string *str)
     527                 :            : {
     528                 :       8159 :   if (str)
     529                 :       7397 :     return str->c_str ();
     530                 :            :   else
     531                 :            :     return NULL;
     532                 :            : }
     533                 :            : 
     534                 :            : /* Get the playback::block for the given recording::block,
     535                 :            :    handling a NULL input with a NULL output.  */
     536                 :            : 
     537                 :            : playback::block *
     538                 :      11539 : recording::playback_block (recording::block *b)
     539                 :            : {
     540                 :      11539 :   if (b)
     541                 :      11539 :     return b->playback_block ();
     542                 :            :   else
     543                 :            :     return NULL;
     544                 :            : }
     545                 :            : 
     546                 :            : /* Methods of cc::jit::recording::context.  */
     547                 :            : 
     548                 :            : /* The constructor for gcc::jit::recording::context, used by
     549                 :            :    gcc_jit_context_acquire and gcc_jit_context_new_child_context.  */
     550                 :            : 
     551                 :       1470 : recording::context::context (context *parent_ctxt)
     552                 :            :   : log_user (NULL),
     553                 :       1470 :     m_parent_ctxt (parent_ctxt),
     554                 :       1470 :     m_toplevel_ctxt (m_parent_ctxt ? m_parent_ctxt->m_toplevel_ctxt : this),
     555                 :       1470 :     m_timer (NULL),
     556                 :       1470 :     m_error_count (0),
     557                 :       1470 :     m_first_error_str (NULL),
     558                 :       1470 :     m_owns_first_error_str (false),
     559                 :       1470 :     m_last_error_str (NULL),
     560                 :       1470 :     m_owns_last_error_str (false),
     561                 :       1470 :     m_mementos (),
     562                 :       1470 :     m_compound_types (),
     563                 :       1470 :     m_globals (),
     564                 :       1470 :     m_functions (),
     565                 :       1470 :     m_FILE_type (NULL),
     566                 :       2940 :     m_builtins_manager(NULL)
     567                 :            : {
     568                 :       1470 :   if (parent_ctxt)
     569                 :            :     {
     570                 :            :       /* Inherit options from parent.  */
     571                 :         12 :       for (unsigned i = 0;
     572                 :         24 :            i < sizeof (m_str_options) / sizeof (m_str_options[0]);
     573                 :            :            i++)
     574                 :            :         {
     575                 :         12 :           const char *parent_opt = parent_ctxt->m_str_options[i];
     576                 :         12 :           m_str_options[i] = parent_opt ? xstrdup (parent_opt) : NULL;
     577                 :            :         }
     578                 :         12 :       memcpy (m_int_options,
     579                 :            :               parent_ctxt->m_int_options,
     580                 :            :               sizeof (m_int_options));
     581                 :         12 :       memcpy (m_bool_options,
     582                 :            :               parent_ctxt->m_bool_options,
     583                 :            :               sizeof (m_bool_options));
     584                 :         12 :       memcpy (m_inner_bool_options,
     585                 :            :               parent_ctxt->m_inner_bool_options,
     586                 :            :               sizeof (m_inner_bool_options));
     587                 :         12 :       set_logger (parent_ctxt->get_logger ());
     588                 :            :     }
     589                 :            :   else
     590                 :            :     {
     591                 :       1458 :       memset (m_str_options, 0, sizeof (m_str_options));
     592                 :       1458 :       memset (m_int_options, 0, sizeof (m_int_options));
     593                 :       1458 :       memset (m_bool_options, 0, sizeof (m_bool_options));
     594                 :       1458 :       memset (m_inner_bool_options, 0, sizeof (m_inner_bool_options));
     595                 :            :     }
     596                 :            : 
     597                 :       1470 :   memset (m_basic_types, 0, sizeof (m_basic_types));
     598                 :       1470 : }
     599                 :            : 
     600                 :            : /* The destructor for gcc::jit::recording::context, implicitly used by
     601                 :            :    gcc_jit_context_release.  */
     602                 :            : 
     603                 :       1468 : recording::context::~context ()
     604                 :            : {
     605                 :       1468 :   JIT_LOG_SCOPE (get_logger ());
     606                 :       1468 :   int i;
     607                 :       1468 :   memento *m;
     608                 :     197747 :   FOR_EACH_VEC_ELT (m_mementos, i, m)
     609                 :            :     {
     610                 :     194811 :       delete m;
     611                 :            :     }
     612                 :            : 
     613                 :       2936 :   for (i = 0; i < GCC_JIT_NUM_STR_OPTIONS; ++i)
     614                 :       1468 :     free (m_str_options[i]);
     615                 :            : 
     616                 :            :   char *optname;
     617                 :       1498 :   FOR_EACH_VEC_ELT (m_command_line_options, i, optname)
     618                 :         30 :     free (optname);
     619                 :       1478 :   FOR_EACH_VEC_ELT (m_driver_options, i, optname)
     620                 :         10 :     free (optname);
     621                 :            : 
     622                 :       1468 :   if (m_builtins_manager)
     623                 :        976 :     delete m_builtins_manager;
     624                 :            : 
     625                 :       1468 :   if (m_owns_first_error_str)
     626                 :        515 :     free (m_first_error_str);
     627                 :            : 
     628                 :       1468 :   if (m_owns_last_error_str)
     629                 :        515 :     if (m_last_error_str != m_first_error_str)
     630                 :        330 :       free (m_last_error_str);
     631                 :       1468 : }
     632                 :            : 
     633                 :            : /* Add the given mememto to the list of those tracked by this
     634                 :            :    gcc::jit::recording::context, so that e.g. it can be deleted
     635                 :            :    when this context is released.  */
     636                 :            : 
     637                 :            : void
     638                 :     195196 : recording::context::record (memento *m)
     639                 :            : {
     640                 :     195196 :   gcc_assert (m);
     641                 :            : 
     642                 :     195196 :   m_mementos.safe_push (m);
     643                 :     195195 : }
     644                 :            : 
     645                 :            : /* Replay this context (and any parents) into the given replayer.  */
     646                 :            : 
     647                 :            : void
     648                 :        998 : recording::context::replay_into (replayer *r)
     649                 :            : {
     650                 :        998 :   JIT_LOG_SCOPE (get_logger ());
     651                 :        998 :   int i;
     652                 :        998 :   memento *m;
     653                 :            : 
     654                 :            :   /* If we have a parent context, we must replay it.  This will
     655                 :            :      recursively walk backwards up the historical tree, then replay things
     656                 :            :      forwards "in historical order", starting with the ultimate parent
     657                 :            :      context, until we reach the "this" context.
     658                 :            : 
     659                 :            :      Note that we fully replay the parent, then fully replay the child,
     660                 :            :      which means that inter-context references can only exist from child
     661                 :            :      to parent, not the other way around.
     662                 :            : 
     663                 :            :      All of this replaying is suboptimal - it would be better to do the
     664                 :            :      work for the parent context *once*, rather than replaying the parent
     665                 :            :      every time we replay each child.  However, fixing this requires deep
     666                 :            :      surgery to lifetime-management: we'd need every context family tree
     667                 :            :      to have its own GC heap, and to initialize the GCC code to use that
     668                 :            :      heap (with a mutex on such a heap).  */
     669                 :        998 :   if (m_parent_ctxt)
     670                 :         20 :     m_parent_ctxt->replay_into (r);
     671                 :            : 
     672                 :        998 :   if (r->errors_occurred ())
     673                 :            :     return;
     674                 :            : 
     675                 :            :   /* Replay this context's saved operations into r.  */
     676                 :      86960 :   FOR_EACH_VEC_ELT (m_mementos, i, m)
     677                 :            :     {
     678                 :            :       /* Disabled low-level debugging, here if we need it: print what
     679                 :            :          we're replaying.
     680                 :            :          Note that the calls to get_debug_string might lead to more
     681                 :            :          mementos being created for the strings.
     682                 :            :          This can also be used to exercise the debug_string
     683                 :            :          machinery.  */
     684                 :      85972 :       if (0)
     685                 :            :         printf ("context %p replaying (%p): %s\n",
     686                 :            :                 (void *)this, (void *)m, m->get_debug_string ());
     687                 :            : 
     688                 :      85972 :       m->replay_into (r);
     689                 :            : 
     690                 :      85972 :       if (r->errors_occurred ())
     691                 :            :         return;
     692                 :            :     }
     693                 :        998 : }
     694                 :            : 
     695                 :            : /* During a playback, we associate objects from the recording with
     696                 :            :    their counterparts during this playback.
     697                 :            : 
     698                 :            :    For simplicity, we store this within the recording objects.
     699                 :            : 
     700                 :            :    The following method cleans away these associations, to ensure that
     701                 :            :    we never have out-of-date associations lingering on subsequent
     702                 :            :    playbacks (the objects pointed to are GC-managed, but the
     703                 :            :    recording objects don't own refs to them).  */
     704                 :            : 
     705                 :            : void
     706                 :        998 : recording::context::disassociate_from_playback ()
     707                 :            : {
     708                 :        998 :   JIT_LOG_SCOPE (get_logger ());
     709                 :        998 :   int i;
     710                 :        998 :   memento *m;
     711                 :            : 
     712                 :        998 :   if (m_parent_ctxt)
     713                 :         20 :     m_parent_ctxt->disassociate_from_playback ();
     714                 :            : 
     715                 :      87125 :   FOR_EACH_VEC_ELT (m_mementos, i, m)
     716                 :            :     {
     717                 :      86127 :       m->set_playback_obj (NULL);
     718                 :            :     }
     719                 :        998 : }
     720                 :            : 
     721                 :            : /* Create a recording::string instance and add it to this context's list
     722                 :            :    of mementos.
     723                 :            : 
     724                 :            :    This creates a fresh copy of the given 0-terminated buffer.  */
     725                 :            : 
     726                 :            : recording::string *
     727                 :     113906 : recording::context::new_string (const char *text, bool escaped)
     728                 :            : {
     729                 :     113906 :   if (!text)
     730                 :            :     return NULL;
     731                 :            : 
     732                 :     112559 :   recording::string *result = new string (this, text, escaped);
     733                 :     112560 :   record (result);
     734                 :     112560 :   return result;
     735                 :            : }
     736                 :            : 
     737                 :            : /* Create a recording::location instance and add it to this context's
     738                 :            :    list of mementos.
     739                 :            : 
     740                 :            :    Implements the post-error-checking part of
     741                 :            :    gcc_jit_context_new_location.  */
     742                 :            : 
     743                 :            : recording::location *
     744                 :      11538 : recording::context::new_location (const char *filename,
     745                 :            :                                   int line,
     746                 :            :                                   int column,
     747                 :            :                                   bool created_by_user)
     748                 :            : {
     749                 :      11538 :   recording::location *result =
     750                 :            :     new recording::location (this,
     751                 :      11538 :                              new_string (filename),
     752                 :            :                              line, column,
     753                 :      11538 :                              created_by_user);
     754                 :      11538 :   record (result);
     755                 :      11538 :   return result;
     756                 :            : }
     757                 :            : 
     758                 :            : /* If we haven't seen this enum value yet, create a recording::type
     759                 :            :    instance and add it to this context's list of mementos.
     760                 :            : 
     761                 :            :    If we have seen it before, reuse our cached value, so that repeated
     762                 :            :    calls on the context give the same object.
     763                 :            : 
     764                 :            :    If we have a parent context, the cache is within the ultimate
     765                 :            :    ancestor context.
     766                 :            : 
     767                 :            :    Implements the post-error-checking part of
     768                 :            :    gcc_jit_context_get_type.  */
     769                 :            : 
     770                 :            : recording::type *
     771                 :      25942 : recording::context::get_type (enum gcc_jit_types kind)
     772                 :            : {
     773                 :      25942 :   if (!m_basic_types[kind])
     774                 :            :     {
     775                 :       7515 :       if (m_parent_ctxt)
     776                 :         24 :         m_basic_types[kind] = m_parent_ctxt->get_type (kind);
     777                 :            :       else
     778                 :            :         {
     779                 :       7491 :           recording::type *result = new memento_of_get_type (this, kind);
     780                 :       7490 :           record (result);
     781                 :       7491 :           m_basic_types[kind] = result;
     782                 :            :         }
     783                 :            :     }
     784                 :            : 
     785                 :      25942 :   return m_basic_types[kind];
     786                 :            : }
     787                 :            : 
     788                 :            : /* Get a recording::type instance for the given size and signedness.
     789                 :            :    This is implemented in terms of recording::context::get_type
     790                 :            :    above.
     791                 :            : 
     792                 :            :    Implements the post-error-checking part of
     793                 :            :    gcc_jit_context_get_int_type.  */
     794                 :            : 
     795                 :            : recording::type *
     796                 :        106 : recording::context::get_int_type (int num_bytes, int is_signed)
     797                 :            : {
     798                 :            :   /* We can't use a switch here since some of the values are macros affected
     799                 :            :      by options; e.g. i386.h has
     800                 :            :        #define LONG_TYPE_SIZE (TARGET_X32 ? 32 : BITS_PER_WORD)
     801                 :            :      Compare with tree.c's make_or_reuse_type.  Note that the _SIZE macros
     802                 :            :      are in bits, rather than bytes.
     803                 :            :   */
     804                 :        106 :   const int num_bits = num_bytes * 8;
     805                 :        106 :   if (num_bits == INT_TYPE_SIZE)
     806                 :         46 :     return get_type (is_signed
     807                 :            :                      ? GCC_JIT_TYPE_INT
     808                 :         36 :                      : GCC_JIT_TYPE_UNSIGNED_INT);
     809                 :         70 :   if (num_bits == CHAR_TYPE_SIZE)
     810                 :         45 :     return get_type (is_signed
     811                 :            :                      ? GCC_JIT_TYPE_SIGNED_CHAR
     812                 :         30 :                      : GCC_JIT_TYPE_UNSIGNED_CHAR);
     813                 :         40 :   if (num_bits == SHORT_TYPE_SIZE)
     814                 :          0 :     return get_type (is_signed
     815                 :            :                      ? GCC_JIT_TYPE_SHORT
     816                 :          0 :                      : GCC_JIT_TYPE_UNSIGNED_SHORT);
     817                 :         42 :   if (num_bits == LONG_TYPE_SIZE)
     818                 :         61 :     return get_type (is_signed
     819                 :            :                      ? GCC_JIT_TYPE_LONG
     820                 :         38 :                      : GCC_JIT_TYPE_UNSIGNED_LONG);
     821                 :          2 :   if (num_bits == LONG_LONG_TYPE_SIZE)
     822                 :          4 :     return get_type (is_signed
     823                 :            :                      ? GCC_JIT_TYPE_LONG_LONG
     824                 :          2 :                      : GCC_JIT_TYPE_UNSIGNED_LONG_LONG);
     825                 :            : 
     826                 :            :   /* Some other size, not corresponding to the C int types.  */
     827                 :            :   /* To be written: support arbitrary other sizes, sharing by
     828                 :            :      memoizing at the recording::context level?  */
     829                 :          0 :   gcc_unreachable ();
     830                 :            : }
     831                 :            : 
     832                 :            : /* Create a recording::type instance and add it to this context's list
     833                 :            :    of mementos.
     834                 :            : 
     835                 :            :    Implements the post-error-checking part of
     836                 :            :    gcc_jit_context_new_array_type.  */
     837                 :            : 
     838                 :            : recording::type *
     839                 :         95 : recording::context::new_array_type (recording::location *loc,
     840                 :            :                                     recording::type *element_type,
     841                 :            :                                     int num_elements)
     842                 :            : {
     843                 :         95 :   if (struct_ *s = element_type->dyn_cast_struct ())
     844                 :          0 :     if (!s->get_fields ())
     845                 :            :       {
     846                 :          0 :         add_error (NULL,
     847                 :            :                    "cannot create an array of type %s"
     848                 :            :                    " until the fields have been set",
     849                 :            :                    s->get_name ()->c_str ());
     850                 :          0 :         return NULL;
     851                 :            :       }
     852                 :         95 :   recording::type *result =
     853                 :         95 :     new recording::array_type (this, loc, element_type, num_elements);
     854                 :         95 :   record (result);
     855                 :         95 :   return result;
     856                 :            : }
     857                 :            : 
     858                 :            : /* Create a recording::field instance and add it to this context's list
     859                 :            :    of mementos.
     860                 :            : 
     861                 :            :    Implements the post-error-checking part of
     862                 :            :    gcc_jit_context_new_field.  */
     863                 :            : 
     864                 :            : recording::field *
     865                 :       5505 : recording::context::new_field (recording::location *loc,
     866                 :            :                                recording::type *type,
     867                 :            :                                const char *name)
     868                 :            : {
     869                 :       5505 :   recording::field *result =
     870                 :       5505 :     new recording::field (this, loc, type, new_string (name));
     871                 :       5505 :   record (result);
     872                 :       5505 :   return result;
     873                 :            : }
     874                 :            : 
     875                 :            : /* Create a recording::bitfield instance and add it to this context's list
     876                 :            :    of mementos.
     877                 :            : 
     878                 :            :    Implements the post-error-checking part of
     879                 :            :    gcc_jit_context_new_bitfield.  */
     880                 :            : 
     881                 :            : recording::field *
     882                 :        110 : recording::context::new_bitfield (recording::location *loc,
     883                 :            :                                   recording::type *type,
     884                 :            :                                   int width,
     885                 :            :                                   const char *name)
     886                 :            : {
     887                 :        110 :   recording::field *result =
     888                 :        110 :     new recording::bitfield (this, loc, type, width, new_string (name));
     889                 :        110 :   record (result);
     890                 :        110 :   return result;
     891                 :            : }
     892                 :            : 
     893                 :            : /* Create a recording::struct_ instance and add it to this context's
     894                 :            :    list of mementos and list of compound types.
     895                 :            : 
     896                 :            :    Implements the post-error-checking part of
     897                 :            :    gcc_jit_context_new_struct_type.  */
     898                 :            : 
     899                 :            : recording::struct_ *
     900                 :       1175 : recording::context::new_struct_type (recording::location *loc,
     901                 :            :                                      const char *name)
     902                 :            : {
     903                 :       1175 :   recording::struct_ *result = new struct_ (this, loc, new_string (name));
     904                 :       1175 :   record (result);
     905                 :       1175 :   m_compound_types.safe_push (result);
     906                 :       1175 :   return result;
     907                 :            : }
     908                 :            : 
     909                 :            : /* Create a recording::union_ instance and add it to this context's
     910                 :            :    list of mementos and list of compound types.
     911                 :            : 
     912                 :            :    Implements the first post-error-checking part of
     913                 :            :    gcc_jit_context_new_union_type.  */
     914                 :            : 
     915                 :            : recording::union_ *
     916                 :         35 : recording::context::new_union_type (recording::location *loc,
     917                 :            :                                     const char *name)
     918                 :            : {
     919                 :         35 :   recording::union_ *result = new union_ (this, loc, new_string (name));
     920                 :         35 :   record (result);
     921                 :         35 :   m_compound_types.safe_push (result);
     922                 :         35 :   return result;
     923                 :            : }
     924                 :            : 
     925                 :            : /* Create a recording::function_type instance and add it to this context's
     926                 :            :    list of mementos.
     927                 :            : 
     928                 :            :    Used by new_function_ptr_type and by builtins_manager::make_fn_type.  */
     929                 :            : 
     930                 :            : recording::function_type *
     931                 :       1213 : recording::context::new_function_type (recording::type *return_type,
     932                 :            :                                        int num_params,
     933                 :            :                                        recording::type **param_types,
     934                 :            :                                        int is_variadic)
     935                 :            : {
     936                 :       1213 :   recording::function_type *fn_type
     937                 :            :     = new function_type (this,
     938                 :            :                          return_type,
     939                 :            :                          num_params,
     940                 :            :                          param_types,
     941                 :       1213 :                          is_variadic);
     942                 :       1213 :   record (fn_type);
     943                 :       1213 :   return fn_type;
     944                 :            : }
     945                 :            : 
     946                 :            : /* Create a recording::type instance and add it to this context's list
     947                 :            :    of mementos.
     948                 :            : 
     949                 :            :    Implements the post-error-checking part of
     950                 :            :    gcc_jit_context_new_function_ptr_type.  */
     951                 :            : 
     952                 :            : recording::type *
     953                 :         70 : recording::context::new_function_ptr_type (recording::location *, /* unused loc */
     954                 :            :                                            recording::type *return_type,
     955                 :            :                                            int num_params,
     956                 :            :                                            recording::type **param_types,
     957                 :            :                                            int is_variadic)
     958                 :            : {
     959                 :         70 :   recording::function_type *fn_type
     960                 :         70 :     = new_function_type (return_type,
     961                 :            :                          num_params,
     962                 :            :                          param_types,
     963                 :            :                          is_variadic);
     964                 :            : 
     965                 :            :   /* Return a pointer-type to the function type.  */
     966                 :         70 :   return fn_type->get_pointer ();
     967                 :            : }
     968                 :            : 
     969                 :            : /* Create a recording::param instance and add it to this context's list
     970                 :            :    of mementos.
     971                 :            : 
     972                 :            :    Implements the post-error-checking part of
     973                 :            :    gcc_jit_context_new_param.  */
     974                 :            : 
     975                 :            : recording::param *
     976                 :       8721 : recording::context::new_param (recording::location *loc,
     977                 :            :                                recording::type *type,
     978                 :            :                                const char *name)
     979                 :            : {
     980                 :       8721 :   recording::param *result = new recording::param (this, loc, type, new_string (name));
     981                 :       8721 :   record (result);
     982                 :       8721 :   return result;
     983                 :            : }
     984                 :            : 
     985                 :            : /* Create a recording::function instance and add it to this context's list
     986                 :            :    of mementos and list of functions.
     987                 :            : 
     988                 :            :    Implements the post-error-checking part of
     989                 :            :    gcc_jit_context_new_function.  */
     990                 :            : 
     991                 :            : recording::function *
     992                 :       3577 : recording::context::new_function (recording::location *loc,
     993                 :            :                                   enum gcc_jit_function_kind kind,
     994                 :            :                                   recording::type *return_type,
     995                 :            :                                   const char *name,
     996                 :            :                                   int num_params,
     997                 :            :                                   recording::param **params,
     998                 :            :                                   int is_variadic,
     999                 :            :                                   enum built_in_function builtin_id)
    1000                 :            : {
    1001                 :       3577 :   recording::function *result =
    1002                 :            :     new recording::function (this,
    1003                 :            :                              loc, kind, return_type,
    1004                 :       3577 :                              new_string (name),
    1005                 :            :                              num_params, params, is_variadic,
    1006                 :       3576 :                              builtin_id);
    1007                 :       3577 :   record (result);
    1008                 :       3577 :   m_functions.safe_push (result);
    1009                 :            : 
    1010                 :       3577 :   return result;
    1011                 :            : }
    1012                 :            : 
    1013                 :            : /* Locate the builtins_manager (if any) for this family of contexts,
    1014                 :            :    creating it if it doesn't exist already.
    1015                 :            : 
    1016                 :            :    All of the recording contexts in a family share one builtins_manager:
    1017                 :            :    if we have a child context, follow the parent links to get the
    1018                 :            :    ultimate ancestor context, and look for it/store it there.  */
    1019                 :            : 
    1020                 :            : builtins_manager *
    1021                 :       2351 : recording::context::get_builtins_manager ()
    1022                 :            : {
    1023                 :       2391 :   if (m_parent_ctxt)
    1024                 :            :     return m_parent_ctxt->get_builtins_manager ();
    1025                 :            : 
    1026                 :       2351 :   if (!m_builtins_manager)
    1027                 :        978 :     m_builtins_manager = new builtins_manager (this);
    1028                 :            : 
    1029                 :       2351 :   return m_builtins_manager;
    1030                 :            : }
    1031                 :            : 
    1032                 :            : /* Get a recording::function instance, which is lazily-created and added
    1033                 :            :    to the context's lists of mementos.
    1034                 :            : 
    1035                 :            :    Implements the post-error-checking part of
    1036                 :            :    gcc_jit_context_get_builtin_function.  */
    1037                 :            : 
    1038                 :            : recording::function *
    1039                 :        225 : recording::context::get_builtin_function (const char *name)
    1040                 :            : {
    1041                 :        225 :   builtins_manager *bm = get_builtins_manager ();
    1042                 :        225 :   return bm->get_builtin_function (name);
    1043                 :            : }
    1044                 :            : 
    1045                 :            : /* Create a recording::global instance and add it to this context's list
    1046                 :            :    of mementos.
    1047                 :            : 
    1048                 :            :    Implements the post-error-checking part of
    1049                 :            :    gcc_jit_context_new_global.  */
    1050                 :            : 
    1051                 :            : recording::lvalue *
    1052                 :       1522 : recording::context::new_global (recording::location *loc,
    1053                 :            :                                 enum gcc_jit_global_kind kind,
    1054                 :            :                                 recording::type *type,
    1055                 :            :                                 const char *name)
    1056                 :            : {
    1057                 :       1522 :   recording::global *result =
    1058                 :       1522 :     new recording::global (this, loc, kind, type, new_string (name));
    1059                 :       1522 :   record (result);
    1060                 :       1522 :   m_globals.safe_push (result);
    1061                 :            : 
    1062                 :       1522 :   return result;
    1063                 :            : }
    1064                 :            : 
    1065                 :            : /* Create a recording::memento_of_new_string_literal instance and add it
    1066                 :            :    to this context's list of mementos.
    1067                 :            : 
    1068                 :            :    Implements the post-error-checking part of
    1069                 :            :    gcc_jit_context_new_string_literal.  */
    1070                 :            : 
    1071                 :            : recording::rvalue *
    1072                 :       1858 : recording::context::new_string_literal (const char *value)
    1073                 :            : {
    1074                 :       1858 :   recording::rvalue *result =
    1075                 :       1858 :     new memento_of_new_string_literal (this, NULL, new_string (value));
    1076                 :       1858 :   record (result);
    1077                 :       1858 :   return result;
    1078                 :            : }
    1079                 :            : 
    1080                 :            : /* Create a recording::memento_of_new_rvalue_from_vector instance and add it
    1081                 :            :    to this context's list of mementos.
    1082                 :            : 
    1083                 :            :    Implements the post-error-checking part of
    1084                 :            :    gcc_jit_context_new_rvalue_from_vector.  */
    1085                 :            : 
    1086                 :            : recording::rvalue *
    1087                 :         75 : recording::context::new_rvalue_from_vector (location *loc,
    1088                 :            :                                             vector_type *type,
    1089                 :            :                                             rvalue **elements)
    1090                 :            : {
    1091                 :         75 :   recording::rvalue *result
    1092                 :         75 :     = new memento_of_new_rvalue_from_vector (this, loc, type, elements);
    1093                 :         75 :   record (result);
    1094                 :         75 :   return result;
    1095                 :            : }
    1096                 :            : 
    1097                 :            : /* Create a recording::unary_op instance and add it to this context's
    1098                 :            :    list of mementos.
    1099                 :            : 
    1100                 :            :    Implements the post-error-checking part of
    1101                 :            :    gcc_jit_context_new_unary_op.  */
    1102                 :            : 
    1103                 :            : recording::rvalue *
    1104                 :         93 : recording::context::new_unary_op (recording::location *loc,
    1105                 :            :                                   enum gcc_jit_unary_op op,
    1106                 :            :                                   recording::type *result_type,
    1107                 :            :                                   recording::rvalue *a)
    1108                 :            : {
    1109                 :         93 :   recording::rvalue *result =
    1110                 :         93 :     new unary_op (this, loc, op, result_type, a);
    1111                 :         93 :   record (result);
    1112                 :         93 :   return result;
    1113                 :            : }
    1114                 :            : 
    1115                 :            : /* Create a recording::binary_op instance and add it to this context's
    1116                 :            :    list of mementos.
    1117                 :            : 
    1118                 :            :    Implements the post-error-checking part of
    1119                 :            :    gcc_jit_context_new_binary_op.  */
    1120                 :            : 
    1121                 :            : recording::rvalue *
    1122                 :       3073 : recording::context::new_binary_op (recording::location *loc,
    1123                 :            :                                    enum gcc_jit_binary_op op,
    1124                 :            :                                    recording::type *result_type,
    1125                 :            :                                    recording::rvalue *a,
    1126                 :            :                                    recording::rvalue *b)
    1127                 :            : {
    1128                 :       3073 :   recording::rvalue *result =
    1129                 :       3073 :     new binary_op (this, loc, op, result_type, a, b);
    1130                 :       3073 :   record (result);
    1131                 :       3073 :   return result;
    1132                 :            : }
    1133                 :            : 
    1134                 :            : /* Create a recording::comparison instance and add it to this context's
    1135                 :            :    list of mementos.
    1136                 :            : 
    1137                 :            :    Implements the post-error-checking part of
    1138                 :            :    gcc_jit_context_new_comparison.  */
    1139                 :            : 
    1140                 :            : recording::rvalue *
    1141                 :       1244 : recording::context::new_comparison (recording::location *loc,
    1142                 :            :                                     enum gcc_jit_comparison op,
    1143                 :            :                                     recording::rvalue *a,
    1144                 :            :                                     recording::rvalue *b)
    1145                 :            : {
    1146                 :       1244 :   recording::rvalue *result = new comparison (this, loc, op, a, b);
    1147                 :       1244 :   record (result);
    1148                 :       1244 :   return result;
    1149                 :            : }
    1150                 :            : 
    1151                 :            : /* Create a recording::cast instance and add it to this context's list
    1152                 :            :    of mementos.
    1153                 :            : 
    1154                 :            :    Implements the post-error-checking part of
    1155                 :            :    gcc_jit_context_new_cast.  */
    1156                 :            : 
    1157                 :            : recording::rvalue *
    1158                 :        309 : recording::context::new_cast (recording::location *loc,
    1159                 :            :                               recording::rvalue *expr,
    1160                 :            :                               recording::type *type_)
    1161                 :            : {
    1162                 :        309 :   recording::rvalue *result = new cast (this, loc, expr, type_);
    1163                 :        309 :   record (result);
    1164                 :        309 :   return result;
    1165                 :            : }
    1166                 :            : 
    1167                 :            : /* Create a recording::call instance and add it to this context's list
    1168                 :            :    of mementos.
    1169                 :            : 
    1170                 :            :    Implements the post-error-checking part of
    1171                 :            :    gcc_jit_context_new_call.  */
    1172                 :            : 
    1173                 :            : recording::rvalue *
    1174                 :        700 : recording::context::new_call (recording::location *loc,
    1175                 :            :                               function *func,
    1176                 :            :                               int numargs , recording::rvalue **args)
    1177                 :            : {
    1178                 :        700 :   recording::rvalue *result = new call (this, loc, func, numargs, args);
    1179                 :        700 :   record (result);
    1180                 :        700 :   return result;
    1181                 :            : }
    1182                 :            : 
    1183                 :            : /* Create a recording::call_through_ptr instance and add it to this
    1184                 :            :    context's list of mementos.
    1185                 :            : 
    1186                 :            :    Implements the post-error-checking part of
    1187                 :            :    gcc_jit_context_new_call_through_ptr.  */
    1188                 :            : 
    1189                 :            : recording::rvalue *
    1190                 :         15 : recording::context::new_call_through_ptr (recording::location *loc,
    1191                 :            :                                           recording::rvalue *fn_ptr,
    1192                 :            :                                           int numargs,
    1193                 :            :                                           recording::rvalue **args)
    1194                 :            :   {
    1195                 :         15 :   recording::rvalue *result = new call_through_ptr (this, loc, fn_ptr, numargs, args);
    1196                 :         15 :   record (result);
    1197                 :         15 :   return result;
    1198                 :            : }
    1199                 :            : 
    1200                 :            : /* Create a recording::array_access instance and add it to this context's list
    1201                 :            :    of mementos.
    1202                 :            : 
    1203                 :            :    Implements the post-error-checking part of
    1204                 :            :    gcc_jit_context_new_array_access.  */
    1205                 :            : 
    1206                 :            : recording::lvalue *
    1207                 :        399 : recording::context::new_array_access (recording::location *loc,
    1208                 :            :                                       recording::rvalue *ptr,
    1209                 :            :                                       recording::rvalue *index)
    1210                 :            : {
    1211                 :        399 :   recording::lvalue *result = new array_access (this, loc, ptr, index);
    1212                 :        399 :   record (result);
    1213                 :        399 :   return result;
    1214                 :            : }
    1215                 :            : 
    1216                 :            : /* Create a recording::case_ instance and add it to this context's list
    1217                 :            :    of mementos.
    1218                 :            : 
    1219                 :            :    Implements the post-error-checking part of
    1220                 :            :    gcc_jit_context_new_case.  */
    1221                 :            : 
    1222                 :            : recording::case_ *
    1223                 :         95 : recording::context::new_case (recording::rvalue *min_value,
    1224                 :            :                               recording::rvalue *max_value,
    1225                 :            :                               recording::block *block)
    1226                 :            : {
    1227                 :         95 :   recording::case_ *result = new case_ (this, min_value, max_value, block);
    1228                 :         95 :   record (result);
    1229                 :         95 :   return result;
    1230                 :            : }
    1231                 :            : 
    1232                 :            : /* Set the given string option for this context, or add an error if
    1233                 :            :    it's not recognized.
    1234                 :            : 
    1235                 :            :    Implements the post-error-checking part of
    1236                 :            :    gcc_jit_context_set_str_option.  */
    1237                 :            : 
    1238                 :            : void
    1239                 :       1447 : recording::context::set_str_option (enum gcc_jit_str_option opt,
    1240                 :            :                                     const char *value)
    1241                 :            : {
    1242                 :       1447 :   if (opt < 0 || opt >= GCC_JIT_NUM_STR_OPTIONS)
    1243                 :            :     {
    1244                 :          0 :       add_error (NULL,
    1245                 :            :                  "unrecognized (enum gcc_jit_str_option) value: %i", opt);
    1246                 :          0 :       return;
    1247                 :            :     }
    1248                 :       1447 :   free (m_str_options[opt]);
    1249                 :       1447 :   m_str_options[opt] = value ? xstrdup (value) : NULL;
    1250                 :       1447 :   log_str_option (opt);
    1251                 :            : }
    1252                 :            : 
    1253                 :            : /* Set the given integer option for this context, or add an error if
    1254                 :            :    it's not recognized.
    1255                 :            : 
    1256                 :            :    Implements the post-error-checking part of
    1257                 :            :    gcc_jit_context_set_int_option.  */
    1258                 :            : 
    1259                 :            : void
    1260                 :       1452 : recording::context::set_int_option (enum gcc_jit_int_option opt,
    1261                 :            :                                     int value)
    1262                 :            : {
    1263                 :       1452 :   if (opt < 0 || opt >= GCC_JIT_NUM_INT_OPTIONS)
    1264                 :            :     {
    1265                 :          0 :       add_error (NULL,
    1266                 :            :                  "unrecognized (enum gcc_jit_int_option) value: %i", opt);
    1267                 :          0 :       return;
    1268                 :            :     }
    1269                 :       1452 :   m_int_options[opt] = value;
    1270                 :       1452 :   log_int_option (opt);
    1271                 :            : }
    1272                 :            : 
    1273                 :            : /* Set the given boolean option for this context, or add an error if
    1274                 :            :    it's not recognized.
    1275                 :            : 
    1276                 :            :    Implements the post-error-checking part of
    1277                 :            :    gcc_jit_context_set_bool_option.  */
    1278                 :            : 
    1279                 :            : void
    1280                 :       6045 : recording::context::set_bool_option (enum gcc_jit_bool_option opt,
    1281                 :            :                                      int value)
    1282                 :            : {
    1283                 :       6045 :   if (opt < 0 || opt >= GCC_JIT_NUM_BOOL_OPTIONS)
    1284                 :            :     {
    1285                 :          0 :       add_error (NULL,
    1286                 :            :                  "unrecognized (enum gcc_jit_bool_option) value: %i", opt);
    1287                 :          0 :       return;
    1288                 :            :     }
    1289                 :       6045 :   m_bool_options[opt] = value ? true : false;
    1290                 :       6045 :   log_bool_option (opt);
    1291                 :            : }
    1292                 :            : 
    1293                 :            : void
    1294                 :         10 : recording::context::set_inner_bool_option (enum inner_bool_option inner_opt,
    1295                 :            :                                            int value)
    1296                 :            : {
    1297                 :         10 :   gcc_assert (inner_opt >= 0 && inner_opt < NUM_INNER_BOOL_OPTIONS);
    1298                 :         10 :   m_inner_bool_options[inner_opt] = value ? true : false;
    1299                 :         10 :   log_inner_bool_option (inner_opt);
    1300                 :         10 : }
    1301                 :            : 
    1302                 :            : 
    1303                 :            : /* Add the given optname to this context's list of extra options.
    1304                 :            : 
    1305                 :            :    Implements the post-error-checking part of
    1306                 :            :    gcc_jit_context_add_command_line_option.  */
    1307                 :            : 
    1308                 :            : void
    1309                 :         30 : recording::context::add_command_line_option (const char *optname)
    1310                 :            : {
    1311                 :         30 :   m_command_line_options.safe_push (xstrdup (optname));
    1312                 :         30 : }
    1313                 :            : 
    1314                 :            : /* Add any user-provided extra options, starting with any from
    1315                 :            :    parent contexts.
    1316                 :            :    Called by playback::context::make_fake_args.  */
    1317                 :            : 
    1318                 :            : void
    1319                 :       1003 : recording::context::append_command_line_options (vec <char *> *argvec)
    1320                 :            : {
    1321                 :       1003 :   if (m_parent_ctxt)
    1322                 :         20 :     m_parent_ctxt->append_command_line_options (argvec);
    1323                 :            : 
    1324                 :            :   int i;
    1325                 :            :   char *optname;
    1326                 :       1033 :   FOR_EACH_VEC_ELT (m_command_line_options, i, optname)
    1327                 :         30 :     argvec->safe_push (xstrdup (optname));
    1328                 :       1003 : }
    1329                 :            : 
    1330                 :            : /* Add the given optname to this context's list of extra driver options.  */
    1331                 :            : 
    1332                 :            : void
    1333                 :         10 : recording::context::add_driver_option (const char *optname)
    1334                 :            : {
    1335                 :         10 :   m_driver_options.safe_push (xstrdup (optname));
    1336                 :         10 : }
    1337                 :            : 
    1338                 :            : /* Add any user-provided driver options, starting with any from
    1339                 :            :    parent contexts.
    1340                 :            :    Called by playback::context::invoke_driver.  */
    1341                 :            : 
    1342                 :            : void
    1343                 :        973 : recording::context::append_driver_options (auto_string_vec *argvec)
    1344                 :            : {
    1345                 :        973 :   if (m_parent_ctxt)
    1346                 :         20 :     m_parent_ctxt->append_driver_options (argvec);
    1347                 :            : 
    1348                 :            :   int i;
    1349                 :            :   char *optname;
    1350                 :            : 
    1351                 :        983 :   FOR_EACH_VEC_ELT (m_driver_options, i, optname)
    1352                 :         10 :     argvec->safe_push (xstrdup (optname));
    1353                 :        973 : }
    1354                 :            : 
    1355                 :            : /* Add the given dumpname/out_ptr pair to this context's list of requested
    1356                 :            :    dumps.
    1357                 :            : 
    1358                 :            :    Implements the post-error-checking part of
    1359                 :            :    gcc_jit_context_enable_dump.  */
    1360                 :            : 
    1361                 :            : void
    1362                 :         50 : recording::context::enable_dump (const char *dumpname,
    1363                 :            :                                  char **out_ptr)
    1364                 :            : {
    1365                 :         50 :   requested_dump d;
    1366                 :         50 :   gcc_assert (dumpname);
    1367                 :         50 :   gcc_assert (out_ptr);
    1368                 :            : 
    1369                 :         50 :   d.m_dumpname = dumpname;
    1370                 :         50 :   d.m_out_ptr = out_ptr;
    1371                 :         50 :   *out_ptr = NULL;
    1372                 :         50 :   m_requested_dumps.safe_push (d);
    1373                 :         50 : }
    1374                 :            : 
    1375                 :            : /* Validate this context, and if it passes, compile it to memory
    1376                 :            :    (within a mutex).
    1377                 :            : 
    1378                 :            :    Implements the post-error-checking part of
    1379                 :            :    gcc_jit_context_compile.  */
    1380                 :            : 
    1381                 :            : result *
    1382                 :       1442 : recording::context::compile ()
    1383                 :            : {
    1384                 :       1442 :   JIT_LOG_SCOPE (get_logger ());
    1385                 :            : 
    1386                 :       1442 :   log_all_options ();
    1387                 :            : 
    1388                 :       1442 :   validate ();
    1389                 :            : 
    1390                 :       1442 :   if (errors_occurred ())
    1391                 :            :     return NULL;
    1392                 :            : 
    1393                 :            :   /* Set up a compile_to_memory playback context.  */
    1394                 :        957 :   ::gcc::jit::playback::compile_to_memory replayer (this);
    1395                 :            : 
    1396                 :            :   /* Use it.  */
    1397                 :        957 :   replayer.compile ();
    1398                 :            : 
    1399                 :            :   /* Get the jit::result (or NULL) from the
    1400                 :            :      compile_to_memory playback context.  */
    1401                 :        957 :   return replayer.get_result_obj ();
    1402                 :       1442 : }
    1403                 :            : 
    1404                 :            : /* Validate this context, and if it passes, compile it to a file
    1405                 :            :    (within a mutex).
    1406                 :            : 
    1407                 :            :    Implements the post-error-checking part of
    1408                 :            :    gcc_jit_context_compile_to_file.  */
    1409                 :            : 
    1410                 :            : void
    1411                 :         26 : recording::context::compile_to_file (enum gcc_jit_output_kind output_kind,
    1412                 :            :                                      const char *output_path)
    1413                 :            : {
    1414                 :         26 :   JIT_LOG_SCOPE (get_logger ());
    1415                 :            : 
    1416                 :         26 :   log_all_options ();
    1417                 :            : 
    1418                 :         26 :   validate ();
    1419                 :            : 
    1420                 :         26 :   if (errors_occurred ())
    1421                 :          0 :     return;
    1422                 :            : 
    1423                 :            :   /* Set up a compile_to_file playback context.  */
    1424                 :         26 :   ::gcc::jit::playback::compile_to_file replayer (this,
    1425                 :            :                                                   output_kind,
    1426                 :         26 :                                                   output_path);
    1427                 :            : 
    1428                 :            :   /* Use it.  */
    1429                 :         26 :   replayer.compile ();
    1430                 :         26 : }
    1431                 :            : 
    1432                 :            : /* Format the given error using printf's conventions, print
    1433                 :            :    it to stderr, and add it to the context.  */
    1434                 :            : 
    1435                 :            : void
    1436                 :        510 : recording::context::add_error (location *loc, const char *fmt, ...)
    1437                 :            : {
    1438                 :        510 :   va_list ap;
    1439                 :        510 :   va_start (ap, fmt);
    1440                 :        510 :   add_error_va (loc, fmt, ap);
    1441                 :        510 :   va_end (ap);
    1442                 :        510 : }
    1443                 :            : 
    1444                 :            : /* Format the given error using printf's conventions, print
    1445                 :            :    it to stderr, and add it to the context.  */
    1446                 :            : 
    1447                 :            : void
    1448                 :       5733 : recording::context::add_error_va (location *loc, const char *fmt, va_list ap)
    1449                 :            : {
    1450                 :       5733 :   int len;
    1451                 :       5733 :   char *malloced_msg;
    1452                 :       5733 :   const char *errmsg;
    1453                 :       5733 :   bool has_ownership;
    1454                 :            : 
    1455                 :       5733 :   JIT_LOG_SCOPE (get_logger ());
    1456                 :            : 
    1457                 :       5733 :   len = vasprintf (&malloced_msg, fmt, ap);
    1458                 :       5733 :   if (malloced_msg == NULL || len < 0)
    1459                 :            :     {
    1460                 :            :       errmsg = "out of memory generating error message";
    1461                 :            :       has_ownership = false;
    1462                 :            :     }
    1463                 :            :   else
    1464                 :            :     {
    1465                 :       5733 :       errmsg = malloced_msg;
    1466                 :       5733 :       has_ownership = true;
    1467                 :            :     }
    1468                 :       5733 :   if (get_logger ())
    1469                 :       5733 :     get_logger ()->log ("error %i: %s", m_error_count, errmsg);
    1470                 :            : 
    1471                 :       5733 :   const char *ctxt_progname =
    1472                 :       5733 :     get_str_option (GCC_JIT_STR_OPTION_PROGNAME);
    1473                 :       5733 :   if (!ctxt_progname)
    1474                 :          5 :     ctxt_progname = "libgccjit.so";
    1475                 :            : 
    1476                 :       5733 :   if (loc)
    1477                 :       2007 :     fprintf (stderr, "%s: %s: error: %s\n",
    1478                 :            :              ctxt_progname,
    1479                 :            :              loc->get_debug_string (),
    1480                 :            :              errmsg);
    1481                 :            :   else
    1482                 :       3726 :     fprintf (stderr, "%s: error: %s\n",
    1483                 :            :              ctxt_progname,
    1484                 :            :              errmsg);
    1485                 :            : 
    1486                 :       5733 :   if (!m_error_count)
    1487                 :            :     {
    1488                 :        515 :       m_first_error_str = const_cast <char *> (errmsg);
    1489                 :        515 :       m_owns_first_error_str = has_ownership;
    1490                 :            :     }
    1491                 :            : 
    1492                 :       5733 :   if (m_owns_last_error_str)
    1493                 :       5218 :     if (m_last_error_str != m_first_error_str)
    1494                 :       4888 :       free (m_last_error_str);
    1495                 :       5733 :   m_last_error_str = const_cast <char *> (errmsg);
    1496                 :       5733 :   m_owns_last_error_str = has_ownership;
    1497                 :            : 
    1498                 :       5733 :   m_error_count++;
    1499                 :       5733 : }
    1500                 :            : 
    1501                 :            : /* Get the message for the first error that occurred on this context, or
    1502                 :            :    NULL if no errors have occurred on it.
    1503                 :            : 
    1504                 :            :    Implements the post-error-checking part of
    1505                 :            :    gcc_jit_context_get_first_error.  */
    1506                 :            : 
    1507                 :            : const char *
    1508                 :        355 : recording::context::get_first_error () const
    1509                 :            : {
    1510                 :        355 :   return m_first_error_str;
    1511                 :            : }
    1512                 :            : 
    1513                 :            : /* Get the message for the last error that occurred on this context, or
    1514                 :            :    NULL if no errors have occurred on it.
    1515                 :            : 
    1516                 :            :    Implements the post-error-checking part of
    1517                 :            :    gcc_jit_context_get_last_error.  */
    1518                 :            : 
    1519                 :            : const char *
    1520                 :         10 : recording::context::get_last_error () const
    1521                 :            : {
    1522                 :         10 :   return m_last_error_str;
    1523                 :            : }
    1524                 :            : 
    1525                 :            : /* Lazily generate and record a recording::type representing an opaque
    1526                 :            :    struct named "FILE".
    1527                 :            : 
    1528                 :            :    For use if client code tries to dereference the result of
    1529                 :            :    get_type (GCC_JIT_TYPE_FILE_PTR).  */
    1530                 :            : 
    1531                 :            : recording::type *
    1532                 :         19 : recording::context::get_opaque_FILE_type ()
    1533                 :            : {
    1534                 :         19 :   if (!m_FILE_type)
    1535                 :         19 :     m_FILE_type = new_struct_type (NULL, "FILE");
    1536                 :         19 :   return m_FILE_type;
    1537                 :            : }
    1538                 :            : 
    1539                 :            : /* Dump a C-like representation of the given context to the given path.
    1540                 :            :    If UPDATE_LOCATIONS is true, update the locations within the
    1541                 :            :    context's mementos to point to the dumpfile.
    1542                 :            : 
    1543                 :            :    Implements the post-error-checking part of
    1544                 :            :    gcc_jit_context_dump_to_file.  */
    1545                 :            : 
    1546                 :            : void
    1547                 :         14 : recording::context::dump_to_file (const char *path, bool update_locations)
    1548                 :            : {
    1549                 :         14 :   int i;
    1550                 :         14 :   dump d (*this, path, update_locations);
    1551                 :            : 
    1552                 :            :   /* Forward declaration of structs and unions.  */
    1553                 :         14 :   compound_type *st;
    1554                 :         30 :   FOR_EACH_VEC_ELT (m_compound_types, i, st)
    1555                 :            :     {
    1556                 :          2 :       d.write ("%s;\n\n", st->get_debug_string ());
    1557                 :            :     }
    1558                 :            : 
    1559                 :            :   /* Content of structs, where set.  */
    1560                 :         16 :   FOR_EACH_VEC_ELT (m_compound_types, i, st)
    1561                 :          2 :     if (st->get_fields ())
    1562                 :            :       {
    1563                 :          2 :         st->get_fields ()->write_to_dump (d);
    1564                 :          2 :         d.write ("\n");
    1565                 :            :       }
    1566                 :            : 
    1567                 :            :   /* Globals.  */
    1568                 :            :   global *g;
    1569                 :         14 :   FOR_EACH_VEC_ELT (m_globals, i, g)
    1570                 :            :     {
    1571                 :          0 :       g->write_to_dump (d);
    1572                 :            :     }
    1573                 :         14 :   if (!m_globals.is_empty ())
    1574                 :          0 :     d.write ("\n");
    1575                 :            : 
    1576                 :            :   function *fn;
    1577                 :         28 :   FOR_EACH_VEC_ELT (m_functions, i, fn)
    1578                 :            :     {
    1579                 :         14 :       fn->write_to_dump (d);
    1580                 :            :     }
    1581                 :            : 
    1582                 :            :   top_level_asm *tla;
    1583                 :         14 :   FOR_EACH_VEC_ELT (m_top_level_asms, i, tla)
    1584                 :          0 :     tla->write_to_dump (d);
    1585                 :         14 : }
    1586                 :            : 
    1587                 :            : static const char * const
    1588                 :            :  str_option_reproducer_strings[GCC_JIT_NUM_STR_OPTIONS] = {
    1589                 :            :   "GCC_JIT_STR_OPTION_PROGNAME"
    1590                 :            : };
    1591                 :            : 
    1592                 :            : static const char * const
    1593                 :            :  int_option_reproducer_strings[GCC_JIT_NUM_INT_OPTIONS] = {
    1594                 :            :   "GCC_JIT_INT_OPTION_OPTIMIZATION_LEVEL"
    1595                 :            : };
    1596                 :            : 
    1597                 :            : static const char * const
    1598                 :            :  bool_option_reproducer_strings[GCC_JIT_NUM_BOOL_OPTIONS] = {
    1599                 :            :   "GCC_JIT_BOOL_OPTION_DEBUGINFO",
    1600                 :            :   "GCC_JIT_BOOL_OPTION_DUMP_INITIAL_TREE",
    1601                 :            :   "GCC_JIT_BOOL_OPTION_DUMP_INITIAL_GIMPLE",
    1602                 :            :   "GCC_JIT_BOOL_OPTION_DUMP_GENERATED_CODE",
    1603                 :            :   "GCC_JIT_BOOL_OPTION_DUMP_SUMMARY",
    1604                 :            :   "GCC_JIT_BOOL_OPTION_DUMP_EVERYTHING",
    1605                 :            :   "GCC_JIT_BOOL_OPTION_SELFCHECK_GC",
    1606                 :            :   "GCC_JIT_BOOL_OPTION_KEEP_INTERMEDIATES"
    1607                 :            : };
    1608                 :            : 
    1609                 :            : static const char * const
    1610                 :            :  inner_bool_option_reproducer_strings[NUM_INNER_BOOL_OPTIONS] = {
    1611                 :            :   "gcc_jit_context_set_bool_allow_unreachable_blocks",
    1612                 :            :   "gcc_jit_context_set_bool_use_external_driver"
    1613                 :            : };
    1614                 :            : 
    1615                 :            : /* Write the current value of all options to the log file (if any).  */
    1616                 :            : 
    1617                 :            : void
    1618                 :       1468 : recording::context::log_all_options () const
    1619                 :            : {
    1620                 :       1468 :   int opt_idx;
    1621                 :            : 
    1622                 :       1468 :   if (!get_logger ())
    1623                 :            :     return;
    1624                 :            : 
    1625                 :       1694 :   for (opt_idx = 0; opt_idx < GCC_JIT_NUM_STR_OPTIONS; opt_idx++)
    1626                 :        847 :     log_str_option ((enum gcc_jit_str_option)opt_idx);
    1627                 :            : 
    1628                 :       1694 :   for (opt_idx = 0; opt_idx < GCC_JIT_NUM_INT_OPTIONS; opt_idx++)
    1629                 :        847 :     log_int_option ((enum gcc_jit_int_option)opt_idx);
    1630                 :            : 
    1631                 :       7623 :   for (opt_idx = 0; opt_idx < GCC_JIT_NUM_BOOL_OPTIONS; opt_idx++)
    1632                 :       6776 :     log_bool_option ((enum gcc_jit_bool_option)opt_idx);
    1633                 :       2541 :   for (opt_idx = 0; opt_idx < NUM_INNER_BOOL_OPTIONS; opt_idx++)
    1634                 :       1694 :     log_inner_bool_option ((enum inner_bool_option)opt_idx);
    1635                 :            : }
    1636                 :            : 
    1637                 :            : /* Write the current value of the given string option to the
    1638                 :            :    log file (if any).  */
    1639                 :            : 
    1640                 :            : void
    1641                 :       2294 : recording::context::log_str_option (enum gcc_jit_str_option opt) const
    1642                 :            : {
    1643                 :       2294 :   gcc_assert (opt < GCC_JIT_NUM_STR_OPTIONS);
    1644                 :       2294 :   if (get_logger ())
    1645                 :            :     {
    1646                 :       1684 :       if (m_str_options[opt])
    1647                 :       1669 :         log ("%s: \"%s\"",
    1648                 :            :              str_option_reproducer_strings[opt],
    1649                 :            :              m_str_options[opt]);
    1650                 :            :       else
    1651                 :         15 :         log ("%s: NULL",
    1652                 :            :              str_option_reproducer_strings[opt]);
    1653                 :            :     }
    1654                 :       2294 : }
    1655                 :            : 
    1656                 :            : /* Write the current value of the given int option to the
    1657                 :            :    log file (if any).  */
    1658                 :            : 
    1659                 :            : void
    1660                 :       2299 : recording::context::log_int_option (enum gcc_jit_int_option opt) const
    1661                 :            : {
    1662                 :       2299 :   gcc_assert (opt < GCC_JIT_NUM_INT_OPTIONS);
    1663                 :       2299 :   if (get_logger ())
    1664                 :       1684 :     log ("%s: %i",
    1665                 :            :          int_option_reproducer_strings[opt],
    1666                 :       1684 :          m_int_options[opt]);
    1667                 :       2299 : }
    1668                 :            : 
    1669                 :            : /* Write the current value of the given bool option to the
    1670                 :            :    log file (if any).  */
    1671                 :            : 
    1672                 :            : void
    1673                 :      12821 : recording::context::log_bool_option (enum gcc_jit_bool_option opt) const
    1674                 :            : {
    1675                 :      12821 :   gcc_assert (opt < GCC_JIT_NUM_BOOL_OPTIONS);
    1676                 :      12821 :   if (get_logger ())
    1677                 :      21882 :     log ("%s: %s",
    1678                 :      10941 :          bool_option_reproducer_strings[opt],
    1679                 :      10941 :          m_bool_options[opt] ? "true" : "false");
    1680                 :      12821 : }
    1681                 :            : 
    1682                 :            : /* Write the current value of the given "inner" bool option to the
    1683                 :            :    log file (if any).  */
    1684                 :            : 
    1685                 :            : void
    1686                 :       1704 : recording::context::log_inner_bool_option (enum inner_bool_option opt) const
    1687                 :            : {
    1688                 :       1704 :   gcc_assert (opt < NUM_INNER_BOOL_OPTIONS);
    1689                 :       1704 :   if (get_logger ())
    1690                 :       3408 :     log ("%s: %s",
    1691                 :       1704 :          inner_bool_option_reproducer_strings[opt],
    1692                 :       1704 :          m_inner_bool_options[opt] ? "true" : "false");
    1693                 :       1704 : }
    1694                 :            : 
    1695                 :            : /* Write C source code to PATH that attempts to replay the API
    1696                 :            :    calls made to this context (and its parents), for use in
    1697                 :            :    minimizing test cases for libgccjit.
    1698                 :            : 
    1699                 :            :    Implements the post-error-checking part of
    1700                 :            :    gcc_jit_context_dump_reproducer_to_file.  */
    1701                 :            : 
    1702                 :            : void
    1703                 :        843 : recording::context::dump_reproducer_to_file (const char *path)
    1704                 :            : {
    1705                 :        843 :   JIT_LOG_SCOPE (get_logger ());
    1706                 :        843 :   reproducer r (*this, path);
    1707                 :            : 
    1708                 :            :   /* Generate the "ancestry" of this context, as a list.  */
    1709                 :        843 :   auto_vec <context *> ascending_contexts;
    1710                 :       1702 :   for (context *ctxt = this; ctxt; ctxt = ctxt->m_parent_ctxt)
    1711                 :        859 :     ascending_contexts.safe_push (ctxt);
    1712                 :            : 
    1713                 :            :   /* Reverse the list, giving a list of contexts from
    1714                 :            :      top-most parent context down through to youngest child context.
    1715                 :            :      We will use this list as the parameters of the functions in
    1716                 :            :      our generated file.  */
    1717                 :        843 :   unsigned num_ctxts = ascending_contexts.length ();
    1718                 :        843 :   auto_vec <context *> contexts (num_ctxts);
    1719                 :       1702 :   for (unsigned i = 0; i < num_ctxts; i++)
    1720                 :        859 :     contexts.safe_push (ascending_contexts[num_ctxts - (i + 1)]);
    1721                 :            : 
    1722                 :            :   /* contexts[0] should be the top-level context.  */
    1723                 :        843 :   gcc_assert (contexts[0]);
    1724                 :        843 :   gcc_assert (contexts[0]->m_toplevel_ctxt == contexts[0]);
    1725                 :            : 
    1726                 :            :   /* The final element in contexts should be "this".  */
    1727                 :       1686 :   gcc_assert (contexts[contexts.length () - 1] == this);
    1728                 :        843 :   gcc_assert (contexts[contexts.length () - 1]->m_toplevel_ctxt
    1729                 :            :               == contexts[0]);
    1730                 :            : 
    1731                 :        843 :   r.write ("/* This code was autogenerated by"
    1732                 :            :            " gcc_jit_context_dump_reproducer_to_file.\n\n");
    1733                 :        843 :   print_version (r.get_file (), "  ", false);
    1734                 :        843 :   r.write ("*/\n");
    1735                 :        843 :   r.write ("#include <libgccjit.h>\n\n");
    1736                 :        843 :   r.write ("#pragma GCC diagnostic ignored \"-Wunused-variable\"\n\n");
    1737                 :        843 :   r.write ("static void\nset_options (");
    1738                 :        843 :   r.write_params (contexts);
    1739                 :        843 :   r.write (");\n\n");
    1740                 :        843 :   r.write ("static void\ncreate_code (");
    1741                 :        843 :   r.write_params (contexts);
    1742                 :        843 :   r.write (");\n\n");
    1743                 :        843 :   r.write ("int\nmain (int argc, const char **argv)\n");
    1744                 :        843 :   r.write ("{\n");
    1745                 :       1702 :   for (unsigned i = 0; i < num_ctxts; i++)
    1746                 :        859 :     r.write ("  gcc_jit_context *%s;\n",
    1747                 :        859 :              r.get_identifier (contexts[i]));
    1748                 :        843 :   r.write ("  gcc_jit_result *result;\n"
    1749                 :            :            "\n");
    1750                 :            : 
    1751                 :            :   /* Create the contexts.
    1752                 :            :      The top-level context is acquired from a clean slate, the others as
    1753                 :            :      children of the prior context.  */
    1754                 :        843 :   r.write ("  %s = gcc_jit_context_acquire ();\n",
    1755                 :        843 :            r.get_identifier (contexts[0]));
    1756                 :        859 :   for (unsigned i = 1; i < num_ctxts; i++)
    1757                 :         32 :     r.write ("  %s = gcc_jit_context_new_child_context (%s);\n",
    1758                 :         16 :              r.get_identifier (contexts[i]),
    1759                 :         16 :              r.get_identifier (contexts[i - 1]));
    1760                 :        843 :   r.write ("  set_options (");
    1761                 :        843 :   r.write_args (contexts);
    1762                 :        843 :   r.write (");\n");
    1763                 :        843 :   r.write ("  create_code (");
    1764                 :        843 :   r.write_args (contexts);
    1765                 :        843 :   r.write (");\n");
    1766                 :            : 
    1767                 :        843 :   r.write ("  result = gcc_jit_context_compile (%s);\n",
    1768                 :            :            r.get_identifier (this));
    1769                 :            : 
    1770                 :       1702 :   for (unsigned i = num_ctxts; i > 0; i--)
    1771                 :        859 :     r.write ("  gcc_jit_context_release (%s);\n",
    1772                 :        859 :              r.get_identifier (contexts[i - 1]));
    1773                 :            : 
    1774                 :        843 :   r.write ("  gcc_jit_result_release (result);\n"
    1775                 :            :            "  return 0;\n"
    1776                 :            :            "}\n\n");
    1777                 :            : 
    1778                 :            :   /* Define (char *) variables for use in calls to
    1779                 :            :      gcc_jit_context_enable_dump.  */
    1780                 :       1702 :   for (unsigned ctxt_idx = 0; ctxt_idx < num_ctxts; ctxt_idx++)
    1781                 :            :     {
    1782                 :        879 :       if (m_requested_dumps.length ())
    1783                 :            :         {
    1784                 :         20 :           r.write ("/* Requested dumps for %s.  */\n",
    1785                 :         20 :                    r.get_identifier (contexts[ctxt_idx]));
    1786                 :        110 :           for (unsigned i = 0; i < m_requested_dumps.length (); i++)
    1787                 :         35 :             r.write ("static char *dump_%p;\n",
    1788                 :         35 :                      (void *)&m_requested_dumps[i]);
    1789                 :         20 :           r.write ("\n");
    1790                 :            :         }
    1791                 :            :     }
    1792                 :            : 
    1793                 :            :   /* Write out values of options.  */
    1794                 :        843 :   r.write ("static void\nset_options (");
    1795                 :        843 :   r.write_params (contexts);
    1796                 :        843 :   r.write (")\n{\n");
    1797                 :       1702 :   for (unsigned ctxt_idx = 0; ctxt_idx < num_ctxts; ctxt_idx++)
    1798                 :            :     {
    1799                 :        859 :       if (ctxt_idx > 0)
    1800                 :         16 :         r.write ("\n");
    1801                 :            : 
    1802                 :        859 :       r.write ("  /* Set options for %s.  */\n",
    1803                 :        859 :                r.get_identifier (contexts[ctxt_idx]));
    1804                 :            : 
    1805                 :        859 :       r.write ("  /* String options.  */\n");
    1806                 :       1718 :       for (int opt_idx = 0; opt_idx < GCC_JIT_NUM_STR_OPTIONS; opt_idx++)
    1807                 :            :         {
    1808                 :        859 :           r.write ("  gcc_jit_context_set_str_option (%s,\n"
    1809                 :            :                    "                                  %s,\n",
    1810                 :        859 :                    r.get_identifier (contexts[ctxt_idx]),
    1811                 :            :                    str_option_reproducer_strings[opt_idx]);
    1812                 :        859 :           if (m_str_options[opt_idx])
    1813                 :        849 :             r.write ("                                  \"%s\");\n",
    1814                 :            :                      m_str_options[opt_idx]);
    1815                 :            :           else
    1816                 :         10 :             r.write ("                                  NULL);\n");
    1817                 :            :         }
    1818                 :        859 :       r.write ("  /* Int options.  */\n");
    1819                 :       1718 :       for (int opt_idx = 0; opt_idx < GCC_JIT_NUM_INT_OPTIONS; opt_idx++)
    1820                 :        859 :         r.write ("  gcc_jit_context_set_int_option (%s,\n"
    1821                 :            :                  "                                  %s,\n"
    1822                 :            :                  "                                  %i);\n",
    1823                 :        859 :                  r.get_identifier (contexts[ctxt_idx]),
    1824                 :            :                  int_option_reproducer_strings[opt_idx],
    1825                 :            :                  m_int_options[opt_idx]);
    1826                 :        859 :       r.write ("  /* Boolean options.  */\n");
    1827                 :       7731 :       for (int opt_idx = 0; opt_idx < GCC_JIT_NUM_BOOL_OPTIONS; opt_idx++)
    1828                 :       6872 :         r.write ("  gcc_jit_context_set_bool_option (%s,\n"
    1829                 :            :                  "                                  %s,\n"
    1830                 :            :                  "                                  %i);\n",
    1831                 :       6872 :                  r.get_identifier (contexts[ctxt_idx]),
    1832                 :       6872 :                  bool_option_reproducer_strings[opt_idx],
    1833                 :       6872 :                  m_bool_options[opt_idx]);
    1834                 :       2577 :       for (int opt_idx = 0; opt_idx < NUM_INNER_BOOL_OPTIONS; opt_idx++)
    1835                 :       1718 :         r.write ("  %s (%s, %i);\n",
    1836                 :       1718 :                  inner_bool_option_reproducer_strings[opt_idx],
    1837                 :       1718 :                  r.get_identifier (contexts[ctxt_idx]),
    1838                 :       1718 :                  m_inner_bool_options[opt_idx]);
    1839                 :            : 
    1840                 :        859 :       if (!m_command_line_options.is_empty ())
    1841                 :            :         {
    1842                 :         10 :           int i;
    1843                 :         10 :           char *optname;
    1844                 :         10 :           r.write ("  /* User-provided command-line options.  */\n");
    1845                 :         50 :           FOR_EACH_VEC_ELT (m_command_line_options, i, optname)
    1846                 :         30 :             r.write ("  gcc_jit_context_add_command_line_option (%s, \"%s\");\n",
    1847                 :         30 :                      r.get_identifier (contexts[ctxt_idx]),
    1848                 :            :                      optname);
    1849                 :            :         }
    1850                 :            : 
    1851                 :        859 :       if (!m_driver_options.is_empty ())
    1852                 :            :         {
    1853                 :          5 :           int i;
    1854                 :          5 :           char *optname;
    1855                 :          5 :           r.write ("  /* User-provided driver options.  */\n");
    1856                 :         20 :           FOR_EACH_VEC_ELT (m_driver_options, i, optname)
    1857                 :         10 :             r.write ("  gcc_jit_context_add_driver_option (%s, \"%s\");\n",
    1858                 :         10 :                      r.get_identifier (contexts[ctxt_idx]),
    1859                 :            :                      optname);
    1860                 :            :         }
    1861                 :            : 
    1862                 :        879 :       if (m_requested_dumps.length ())
    1863                 :            :         {
    1864                 :         20 :           r.write ("  /* Requested dumps.  */\n");
    1865                 :            :           /* Dumpfiles that were requested via gcc_jit_context_enable_dump.  */
    1866                 :        110 :           for (unsigned i = 0; i < m_requested_dumps.length (); i++)
    1867                 :            :             {
    1868                 :         35 :               r.write ("  gcc_jit_context_enable_dump (%s,\n"
    1869                 :            :                        "                               \"%s\",\n"
    1870                 :            :                        "                               &dump_%p);\n",
    1871                 :         35 :                        r.get_identifier (contexts[ctxt_idx]),
    1872                 :            :                        m_requested_dumps[i].m_dumpname,
    1873                 :         35 :                        (void *)&m_requested_dumps[i]);
    1874                 :            :             }
    1875                 :            :         }
    1876                 :            :     }
    1877                 :        843 :   r.write ("}\n\n");
    1878                 :            : 
    1879                 :        843 :   r.write ("static void\ncreate_code (");
    1880                 :        843 :   r.write_params (contexts);
    1881                 :        843 :   r.write (")\n"
    1882                 :            :            "{\n");
    1883                 :       1702 :   for (unsigned ctxt_idx = 0; ctxt_idx < num_ctxts; ctxt_idx++)
    1884                 :            :     {
    1885                 :        859 :       memento *m;
    1886                 :        859 :       int i;
    1887                 :        859 :       if (ctxt_idx > 0)
    1888                 :         16 :         r.write ("\n\n");
    1889                 :            : 
    1890                 :        859 :       r.write ("  /* Replay of API calls for %s.  */\n",
    1891                 :        859 :                r.get_identifier (contexts[ctxt_idx]));
    1892                 :     166118 :       FOR_EACH_VEC_ELT (contexts[ctxt_idx]->m_mementos, i, m)
    1893                 :     163606 :         m->write_reproducer (r);
    1894                 :            :     }
    1895                 :        843 :   r.write ("}\n");
    1896                 :        843 : }
    1897                 :            : 
    1898                 :            : /* Copy the requested dumps within this context and all ancestors into
    1899                 :            :    OUT. */
    1900                 :            : 
    1901                 :            : void
    1902                 :       1003 : recording::context::get_all_requested_dumps (vec <recording::requested_dump> *out)
    1903                 :            : {
    1904                 :       1003 :   if (m_parent_ctxt)
    1905                 :         20 :     m_parent_ctxt->get_all_requested_dumps (out);
    1906                 :            : 
    1907                 :       1033 :   out->reserve (m_requested_dumps.length ());
    1908                 :       1003 :   out->splice (m_requested_dumps);
    1909                 :       1003 : }
    1910                 :            : 
    1911                 :            : /* Create a recording::top_level_asm instance and add it to this
    1912                 :            :    context's list of mementos and to m_top_level_asms.
    1913                 :            : 
    1914                 :            :    Implements the post-error-checking part of
    1915                 :            :    gcc_jit_context_add_top_level_asm.  */
    1916                 :            : 
    1917                 :            : void
    1918                 :         10 : recording::context::add_top_level_asm (recording::location *loc,
    1919                 :            :                                        const char *asm_stmts)
    1920                 :            : {
    1921                 :         10 :   recording::top_level_asm *asm_obj
    1922                 :         10 :     = new recording::top_level_asm (this, loc, new_string (asm_stmts));
    1923                 :         10 :   record (asm_obj);
    1924                 :         10 :   m_top_level_asms.safe_push (asm_obj);
    1925                 :         10 : }
    1926                 :            : 
    1927                 :            : /* This is a pre-compilation check for the context (and any parents).
    1928                 :            : 
    1929                 :            :    Detect errors within the context, adding errors if any are found.  */
    1930                 :            : 
    1931                 :            : void
    1932                 :       1488 : recording::context::validate ()
    1933                 :            : {
    1934                 :       1488 :   JIT_LOG_SCOPE (get_logger ());
    1935                 :            : 
    1936                 :       1488 :   if (m_parent_ctxt)
    1937                 :         20 :     m_parent_ctxt->validate ();
    1938                 :            : 
    1939                 :            :   int i;
    1940                 :            :   function *fn;
    1941                 :       5083 :   FOR_EACH_VEC_ELT (m_functions, i, fn)
    1942                 :       3595 :     fn->validate ();
    1943                 :       1488 : }
    1944                 :            : 
    1945                 :            : /* The implementation of class gcc::jit::recording::memento.  */
    1946                 :            : 
    1947                 :            : /* Get a (const char *) debug description of the given memento, by
    1948                 :            :    calling the pure-virtual make_debug_string hook, caching the
    1949                 :            :    result.
    1950                 :            : 
    1951                 :            :    It is intended that this should only be called in debugging and
    1952                 :            :    error-handling paths, so this doesn't need to be particularly
    1953                 :            :    optimized.  */
    1954                 :            : 
    1955                 :            : const char *
    1956                 :     174244 : recording::memento::get_debug_string ()
    1957                 :            : {
    1958                 :     174244 :   if (!m_debug_string)
    1959                 :      89517 :     m_debug_string = make_debug_string ();
    1960                 :     174244 :   return m_debug_string->c_str ();
    1961                 :            : }
    1962                 :            : 
    1963                 :            : /* Default implementation of recording::memento::write_to_dump, writing
    1964                 :            :    an indented form of the memento's debug string to the dump.  */
    1965                 :            : 
    1966                 :            : void
    1967                 :        156 : recording::memento::write_to_dump (dump &d)
    1968                 :            : {
    1969                 :        156 :   d.write("  %s\n", get_debug_string ());
    1970                 :        156 : }
    1971                 :            : 
    1972                 :            : /* The implementation of class gcc::jit::recording::string.  */
    1973                 :            : 
    1974                 :            : /* Constructor for gcc::jit::recording::string::string, allocating a
    1975                 :            :    copy of the given text using new char[].  */
    1976                 :            : 
    1977                 :     112561 : recording::string::string (context *ctxt, const char *text, bool escaped)
    1978                 :            : : memento (ctxt),
    1979                 :     112561 :   m_escaped (escaped)
    1980                 :            : {
    1981                 :     112561 :   m_len = strlen (text);
    1982                 :     112561 :   m_buffer = new char[m_len + 1];
    1983                 :     112561 :   strcpy (m_buffer, text);
    1984                 :     112561 : }
    1985                 :            : 
    1986                 :            : /* Destructor for gcc::jit::recording::string::string.  */
    1987                 :            : 
    1988                 :     224946 : recording::string::~string ()
    1989                 :            : {
    1990                 :     112473 :   delete[] m_buffer;
    1991                 :     224946 : }
    1992                 :            : 
    1993                 :            : /* Function for making gcc::jit::recording::string instances on a
    1994                 :            :    context via printf-style formatting.
    1995                 :            : 
    1996                 :            :    It is intended that this should only be called in debugging and
    1997                 :            :    error-handling paths, so this doesn't need to be particularly
    1998                 :            :    optimized, hence the double-copy of the string is acceptable.  */
    1999                 :            : 
    2000                 :            : recording::string *
    2001                 :      27515 : recording::string::from_printf (context *ctxt, const char *fmt, ...)
    2002                 :            : {
    2003                 :      27515 :   int len;
    2004                 :      27515 :   va_list ap;
    2005                 :      27515 :   char *buf;
    2006                 :      27515 :   recording::string *result;
    2007                 :            : 
    2008                 :      27515 :   va_start (ap, fmt);
    2009                 :      27515 :   len = vasprintf (&buf, fmt, ap);
    2010                 :      27515 :   va_end (ap);
    2011                 :            : 
    2012                 :      27515 :   if (buf == NULL || len < 0)
    2013                 :            :     {
    2014                 :          0 :       ctxt->add_error (NULL, "malloc failure");
    2015                 :          0 :       return NULL;
    2016                 :            :     }
    2017                 :            : 
    2018                 :      27515 :   result = ctxt->new_string (buf);
    2019                 :      27515 :   free (buf);
    2020                 :      27515 :   return result;
    2021                 :            : }
    2022                 :            : 
    2023                 :            : /* Implementation of recording::memento::make_debug_string for strings,
    2024                 :            :    wrapping the given string in quotes and escaping as necessary.  */
    2025                 :            : 
    2026                 :            : recording::string *
    2027                 :      35786 : recording::string::make_debug_string ()
    2028                 :            : {
    2029                 :            :   /* Avoid infinite recursion into strings when logging all mementos:
    2030                 :            :      don't re-escape strings:  */
    2031                 :      35786 :   if (m_escaped)
    2032                 :            :     return this;
    2033                 :            : 
    2034                 :            :   /* Wrap in quotes and do escaping etc */
    2035                 :            : 
    2036                 :      35786 :   size_t sz = (1 /* opening quote */
    2037                 :      35786 :                + (m_len * 2) /* each char might get escaped */
    2038                 :      35786 :                + 1 /* closing quote */
    2039                 :            :                + 1); /* nil termintator */
    2040                 :      35786 :   char *tmp = new char[sz];
    2041                 :      35786 :   size_t len = 0;
    2042                 :            : 
    2043                 :            : #define APPEND(CH)  do { gcc_assert (len < sz); tmp[len++] = (CH); } while (0)
    2044                 :      35786 :   APPEND('"'); /* opening quote */
    2045                 :    2926621 :   for (size_t i = 0; i < m_len ; i++)
    2046                 :            :     {
    2047                 :    2890835 :       char ch = m_buffer[i];
    2048                 :    2890835 :       switch (ch)
    2049                 :            :         {
    2050                 :    2890435 :         default:
    2051                 :    2890435 :           APPEND(ch);
    2052                 :    2890435 :           break;
    2053                 :        165 :         case '\t':
    2054                 :        165 :           APPEND('\\');
    2055                 :        165 :           APPEND('t');
    2056                 :        165 :           break;
    2057                 :        220 :         case '\n':
    2058                 :        220 :           APPEND('\\');
    2059                 :        220 :           APPEND('n');
    2060                 :        220 :           break;
    2061                 :         15 :         case '\\':
    2062                 :         15 :         case '"':
    2063                 :         15 :           APPEND('\\');
    2064                 :         15 :           APPEND(ch);
    2065                 :         15 :           break;
    2066                 :            :         }
    2067                 :            :     }
    2068                 :      35786 :   APPEND('"'); /* closing quote */
    2069                 :            : #undef APPEND
    2070                 :      35786 :   tmp[len] = '\0'; /* nil termintator */
    2071                 :            : 
    2072                 :      35786 :   string *result = m_ctxt->new_string (tmp, true);
    2073                 :            : 
    2074                 :      35786 :   delete[] tmp;
    2075                 :      35786 :   return result;
    2076                 :            : }
    2077                 :            : 
    2078                 :            : /* Implementation of recording::memento::write_reproducer for strings. */
    2079                 :            : 
    2080                 :            : void
    2081                 :     104027 : recording::string::write_reproducer (reproducer &)
    2082                 :            : {
    2083                 :            :   /* Empty.  */
    2084                 :     104027 : }
    2085                 :            : 
    2086                 :            : /* The implementation of class gcc::jit::recording::location.  */
    2087                 :            : 
    2088                 :            : /* Implementation of recording::memento::replay_into for locations.
    2089                 :            : 
    2090                 :            :    Create a new playback::location and store it into the
    2091                 :            :    recording::location's m_playback_obj field.  */
    2092                 :            : 
    2093                 :            : void
    2094                 :        965 : recording::location::replay_into (replayer *r)
    2095                 :            : {
    2096                 :       1930 :   m_playback_obj = r->new_location (this,
    2097                 :        965 :                                     m_filename->c_str (),
    2098                 :            :                                     m_line,
    2099                 :            :                                     m_column);
    2100                 :        965 : }
    2101                 :            : 
    2102                 :            : /* Implementation of recording::memento::make_debug_string for locations,
    2103                 :            :    turning them into the usual form:
    2104                 :            :      FILENAME:LINE:COLUMN
    2105                 :            :    like we do when emitting diagnostics.  */
    2106                 :            : 
    2107                 :            : recording::string *
    2108                 :      11184 : recording::location::make_debug_string ()
    2109                 :            : {
    2110                 :      11184 :   return string::from_printf (m_ctxt,
    2111                 :            :                               "%s:%i:%i",
    2112                 :      11184 :                               m_filename->c_str (), m_line, m_column);
    2113                 :            : }
    2114                 :            : 
    2115                 :            : /* Implementation of recording::memento::write_reproducer for locations. */
    2116                 :            : 
    2117                 :            : void
    2118                 :      11201 : recording::location::write_reproducer (reproducer &r)
    2119                 :            : {
    2120                 :      11201 :   const char *id = r.make_identifier (this, "loc");
    2121                 :      11201 :   r.write ("  gcc_jit_location *%s =\n"
    2122                 :            :            "    gcc_jit_context_new_location (%s, /* gcc_jit_context *ctxt */\n"
    2123                 :            :            "    %s, /* const char *filename */\n"
    2124                 :            :            "    %i, /* int line */\n"
    2125                 :            :            "    %i);/* int column */\n",
    2126                 :            :            id,
    2127                 :            :            r.get_identifier (get_context ()),
    2128                 :      11201 :            m_filename->get_debug_string (),
    2129                 :            :            m_line, m_column);
    2130                 :      11201 : }
    2131                 :            : 
    2132                 :            : /* The implementation of class gcc::jit::recording::type.  */
    2133                 :            : 
    2134                 :            : /* Given a type T, get the type T*.
    2135                 :            : 
    2136                 :            :    If this doesn't already exist, generate a new memento_of_get_pointer
    2137                 :            :    instance and add it to this type's context's list of mementos.
    2138                 :            : 
    2139                 :            :    Otherwise, use the cached type.
    2140                 :            : 
    2141                 :            :    Implements the post-error-checking part of
    2142                 :            :    gcc_jit_type_get_pointer.  */
    2143                 :            : 
    2144                 :            : recording::type *
    2145                 :       1717 : recording::type::get_pointer ()
    2146                 :            : {
    2147                 :       1717 :   if (!m_pointer_to_this_type)
    2148                 :            :     {
    2149                 :       1330 :       m_pointer_to_this_type = new memento_of_get_pointer (this);
    2150                 :       1330 :       m_ctxt->record (m_pointer_to_this_type);
    2151                 :            :     }
    2152                 :       1717 :   return m_pointer_to_this_type;
    2153                 :            : }
    2154                 :            : 
    2155                 :            : /* Given a type T, get the type const T.
    2156                 :            : 
    2157                 :            :    Implements the post-error-checking part of
    2158                 :            :    gcc_jit_type_get_const.  */
    2159                 :            : 
    2160                 :            : recording::type *
    2161                 :        721 : recording::type::get_const ()
    2162                 :            : {
    2163                 :        721 :   recording::type *result = new memento_of_get_const (this);
    2164                 :        721 :   m_ctxt->record (result);
    2165                 :        721 :   return result;
    2166                 :            : }
    2167                 :            : 
    2168                 :            : /* Given a type T, get the type volatile T.
    2169                 :            : 
    2170                 :            :    Implements the post-error-checking part of
    2171                 :            :    gcc_jit_type_get_volatile.  */
    2172                 :            : 
    2173                 :            : recording::type *
    2174                 :         45 : recording::type::get_volatile ()
    2175                 :            : {
    2176                 :         45 :   recording::type *result = new memento_of_get_volatile (this);
    2177                 :         45 :   m_ctxt->record (result);
    2178                 :         45 :   return result;
    2179                 :            : }
    2180                 :            : 
    2181                 :            : /* Given a type, get an aligned version of the type.
    2182                 :            : 
    2183                 :            :    Implements the post-error-checking part of
    2184                 :            :    gcc_jit_type_get_aligned.  */
    2185                 :            : 
    2186                 :            : recording::type *
    2187                 :        155 : recording::type::get_aligned (size_t alignment_in_bytes)
    2188                 :            : {
    2189                 :        155 :   recording::type *result
    2190                 :        155 :     = new memento_of_get_aligned (this, alignment_in_bytes);
    2191                 :        155 :   m_ctxt->record (result);
    2192                 :        155 :   return result;
    2193                 :            : }
    2194                 :            : 
    2195                 :            : /* Given a type, get a vector version of the type.
    2196                 :            : 
    2197                 :            :    Implements the post-error-checking part of
    2198                 :            :    gcc_jit_type_get_vector.  */
    2199                 :            : 
    2200                 :            : recording::type *
    2201                 :         60 : recording::type::get_vector (size_t num_units)
    2202                 :            : {
    2203                 :         60 :   recording::type *result
    2204                 :         60 :     = new vector_type (this, num_units);
    2205                 :         60 :   m_ctxt->record (result);
    2206                 :         60 :   return result;
    2207                 :            : }
    2208                 :            : 
    2209                 :            : const char *
    2210                 :      24023 : recording::type::access_as_type (reproducer &r)
    2211                 :            : {
    2212                 :      24023 :   return r.get_identifier (this);
    2213                 :            : }
    2214                 :            : 
    2215                 :            : /* Override of default implementation of
    2216                 :            :    recording::type::get_size.
    2217                 :            : 
    2218                 :            :    Return the size in bytes.  This is in use for global
    2219                 :            :    initialization.  */
    2220                 :            : 
    2221                 :            : size_t
    2222                 :         60 : recording::memento_of_get_type::get_size ()
    2223                 :            : {
    2224                 :         60 :   int size;
    2225                 :         60 :   switch (m_kind)
    2226                 :            :     {
    2227                 :            :     case GCC_JIT_TYPE_VOID:
    2228                 :            :       return 0;
    2229                 :         40 :     case GCC_JIT_TYPE_BOOL:
    2230                 :         40 :     case GCC_JIT_TYPE_CHAR:
    2231                 :         40 :     case GCC_JIT_TYPE_SIGNED_CHAR:
    2232                 :         40 :     case GCC_JIT_TYPE_UNSIGNED_CHAR:
    2233                 :         40 :       return 1;
    2234                 :            :     case GCC_JIT_TYPE_SHORT:
    2235                 :            :     case GCC_JIT_TYPE_UNSIGNED_SHORT:
    2236                 :            :       size = SHORT_TYPE_SIZE;
    2237                 :            :       break;
    2238                 :         20 :     case GCC_JIT_TYPE_INT:
    2239                 :         20 :     case GCC_JIT_TYPE_UNSIGNED_INT:
    2240                 :         20 :       size = INT_TYPE_SIZE;
    2241                 :         20 :       break;
    2242                 :          0 :     case GCC_JIT_TYPE_LONG:
    2243                 :          0 :     case GCC_JIT_TYPE_UNSIGNED_LONG:
    2244                 :          0 :       size = LONG_TYPE_SIZE;
    2245                 :            :       break;
    2246                 :          0 :     case GCC_JIT_TYPE_LONG_LONG:
    2247                 :          0 :     case GCC_JIT_TYPE_UNSIGNED_LONG_LONG:
    2248                 :          0 :       size = LONG_LONG_TYPE_SIZE;
    2249                 :          0 :       break;
    2250                 :          0 :     case GCC_JIT_TYPE_FLOAT:
    2251                 :          0 :       size = FLOAT_TYPE_SIZE;
    2252                 :          0 :       break;
    2253                 :          0 :     case GCC_JIT_TYPE_DOUBLE:
    2254                 :          0 :       size = DOUBLE_TYPE_SIZE;
    2255                 :          0 :       break;
    2256                 :          0 :     case GCC_JIT_TYPE_LONG_DOUBLE:
    2257                 :          0 :       size = LONG_DOUBLE_TYPE_SIZE;
    2258                 :            :       break;
    2259                 :          0 :     default:
    2260                 :            :       /* As this function is called by
    2261                 :            :          'gcc_jit_global_set_initializer' and
    2262                 :            :          'recording::global::write_reproducer' possible types are only
    2263                 :            :          integrals and are covered by the previous cases.  */
    2264                 :          0 :       gcc_unreachable ();
    2265                 :            :     }
    2266                 :            : 
    2267                 :         20 :   return size / BITS_PER_UNIT;
    2268                 :            : }
    2269                 :            : 
    2270                 :            : /* Implementation of pure virtual hook recording::type::dereference for
    2271                 :            :    recording::memento_of_get_type.  */
    2272                 :            : 
    2273                 :            : recording::type *
    2274                 :        454 : recording::memento_of_get_type::dereference ()
    2275                 :            : {
    2276                 :        454 :   switch (m_kind)
    2277                 :            :     {
    2278                 :          0 :     default: gcc_unreachable ();
    2279                 :            : 
    2280                 :            :     case GCC_JIT_TYPE_VOID:
    2281                 :            :       return NULL;
    2282                 :            : 
    2283                 :        148 :     case GCC_JIT_TYPE_VOID_PTR:
    2284                 :        148 :       return m_ctxt->get_type (GCC_JIT_TYPE_VOID);
    2285                 :            : 
    2286                 :            :     case GCC_JIT_TYPE_BOOL:
    2287                 :            :     case GCC_JIT_TYPE_CHAR:
    2288                 :            :     case GCC_JIT_TYPE_SIGNED_CHAR:
    2289                 :            :     case GCC_JIT_TYPE_UNSIGNED_CHAR:
    2290                 :            :     case GCC_JIT_TYPE_SHORT:
    2291                 :            :     case GCC_JIT_TYPE_UNSIGNED_SHORT:
    2292                 :            :     case GCC_JIT_TYPE_INT:
    2293                 :            :     case GCC_JIT_TYPE_UNSIGNED_INT:
    2294                 :            :     case GCC_JIT_TYPE_LONG:
    2295                 :            :     case GCC_JIT_TYPE_UNSIGNED_LONG:
    2296                 :            :     case GCC_JIT_TYPE_LONG_LONG:
    2297                 :            :     case GCC_JIT_TYPE_UNSIGNED_LONG_LONG:
    2298                 :            :     case GCC_JIT_TYPE_FLOAT:
    2299                 :            :     case GCC_JIT_TYPE_DOUBLE:
    2300                 :            :     case GCC_JIT_TYPE_LONG_DOUBLE:
    2301                 :            :     case GCC_JIT_TYPE_COMPLEX_FLOAT:
    2302                 :            :     case GCC_JIT_TYPE_COMPLEX_DOUBLE:
    2303                 :            :     case GCC_JIT_TYPE_COMPLEX_LONG_DOUBLE:
    2304                 :            :       /* Not a pointer: */
    2305                 :            :       return NULL;
    2306                 :            : 
    2307                 :        132 :     case GCC_JIT_TYPE_CONST_CHAR_PTR:
    2308                 :        132 :       return m_ctxt->get_type (GCC_JIT_TYPE_CHAR)->get_const ();
    2309                 :            : 
    2310                 :            :     case GCC_JIT_TYPE_SIZE_T:
    2311                 :            :       /* Not a pointer: */
    2312                 :            :       return NULL;
    2313                 :            : 
    2314                 :         19 :     case GCC_JIT_TYPE_FILE_PTR:
    2315                 :            :       /* Give the client code back an opaque "struct FILE".  */
    2316                 :         19 :       return m_ctxt->get_opaque_FILE_type ();
    2317                 :            :     }
    2318                 :            : }
    2319                 :            : 
    2320                 :            : /* Implementation of pure virtual hook recording::type::is_int for
    2321                 :            :    recording::memento_of_get_type.  */
    2322                 :            : 
    2323                 :            : bool
    2324                 :      10503 : recording::memento_of_get_type::is_int () const
    2325                 :            : {
    2326                 :      10503 :   switch (m_kind)
    2327                 :            :     {
    2328                 :          0 :     default: gcc_unreachable ();
    2329                 :            : 
    2330                 :            :     case GCC_JIT_TYPE_VOID:
    2331                 :            :       return false;
    2332                 :            : 
    2333                 :            :     case GCC_JIT_TYPE_VOID_PTR:
    2334                 :            :       return false;
    2335                 :            : 
    2336                 :            :     case GCC_JIT_TYPE_BOOL:
    2337                 :            :       return false;
    2338                 :            : 
    2339                 :       8544 :     case GCC_JIT_TYPE_CHAR:
    2340                 :       8544 :     case GCC_JIT_TYPE_SIGNED_CHAR:
    2341                 :       8544 :     case GCC_JIT_TYPE_UNSIGNED_CHAR:
    2342                 :       8544 :     case GCC_JIT_TYPE_SHORT:
    2343                 :       8544 :     case GCC_JIT_TYPE_UNSIGNED_SHORT:
    2344                 :       8544 :     case GCC_JIT_TYPE_INT:
    2345                 :       8544 :     case GCC_JIT_TYPE_UNSIGNED_INT:
    2346                 :       8544 :     case GCC_JIT_TYPE_LONG:
    2347                 :       8544 :     case GCC_JIT_TYPE_UNSIGNED_LONG:
    2348                 :       8544 :     case GCC_JIT_TYPE_LONG_LONG:
    2349                 :       8544 :     case GCC_JIT_TYPE_UNSIGNED_LONG_LONG:
    2350                 :       8544 :       return true;
    2351                 :            : 
    2352                 :            :     case GCC_JIT_TYPE_FLOAT:
    2353                 :            :     case GCC_JIT_TYPE_DOUBLE:
    2354                 :            :     case GCC_JIT_TYPE_LONG_DOUBLE:
    2355                 :            :       return false;
    2356                 :            : 
    2357                 :            :     case GCC_JIT_TYPE_CONST_CHAR_PTR:
    2358                 :            :       return false;
    2359                 :            : 
    2360                 :        197 :     case GCC_JIT_TYPE_SIZE_T:
    2361                 :        197 :       return true;
    2362                 :            : 
    2363                 :            :     case GCC_JIT_TYPE_FILE_PTR:
    2364                 :            :       return false;
    2365                 :            : 
    2366                 :            :     case GCC_JIT_TYPE_COMPLEX_FLOAT:
    2367                 :            :     case GCC_JIT_TYPE_COMPLEX_DOUBLE:
    2368                 :            :     case GCC_JIT_TYPE_COMPLEX_LONG_DOUBLE:
    2369                 :            :       return false;
    2370                 :            :     }
    2371                 :            : }
    2372                 :            : 
    2373                 :            : /* Implementation of pure virtual hook recording::type::is_float for
    2374                 :            :    recording::memento_of_get_type.  */
    2375                 :            : 
    2376                 :            : bool
    2377                 :       1972 : recording::memento_of_get_type::is_float () const
    2378                 :            : {
    2379                 :       1972 :   switch (m_kind)
    2380                 :            :     {
    2381                 :          0 :     default: gcc_unreachable ();
    2382                 :            : 
    2383                 :            :     case GCC_JIT_TYPE_VOID:
    2384                 :            :       return false;
    2385                 :            : 
    2386                 :            :     case GCC_JIT_TYPE_VOID_PTR:
    2387                 :            :       return false;
    2388                 :            : 
    2389                 :            :     case GCC_JIT_TYPE_BOOL:
    2390                 :            :       return false;
    2391                 :            : 
    2392                 :            :     case GCC_JIT_TYPE_CHAR:
    2393                 :            :     case GCC_JIT_TYPE_SIGNED_CHAR:
    2394                 :            :     case GCC_JIT_TYPE_UNSIGNED_CHAR:
    2395                 :            :     case GCC_JIT_TYPE_SHORT:
    2396                 :            :     case GCC_JIT_TYPE_UNSIGNED_SHORT:
    2397                 :            :     case GCC_JIT_TYPE_INT:
    2398                 :            :     case GCC_JIT_TYPE_UNSIGNED_INT:
    2399                 :            :     case GCC_JIT_TYPE_LONG:
    2400                 :            :     case GCC_JIT_TYPE_UNSIGNED_LONG:
    2401                 :            :     case GCC_JIT_TYPE_LONG_LONG:
    2402                 :            :     case GCC_JIT_TYPE_UNSIGNED_LONG_LONG:
    2403                 :            :       return false;
    2404                 :            : 
    2405                 :       1106 :     case GCC_JIT_TYPE_FLOAT:
    2406                 :       1106 :     case GCC_JIT_TYPE_DOUBLE:
    2407                 :       1106 :     case GCC_JIT_TYPE_LONG_DOUBLE:
    2408                 :       1106 :       return true;
    2409                 :            : 
    2410                 :            :     case GCC_JIT_TYPE_CONST_CHAR_PTR:
    2411                 :            :       return false;
    2412                 :            : 
    2413                 :            :     case GCC_JIT_TYPE_SIZE_T:
    2414                 :            :       return false;
    2415                 :            : 
    2416                 :            :     case GCC_JIT_TYPE_FILE_PTR:
    2417                 :            :       return false;
    2418                 :            : 
    2419                 :          0 :     case GCC_JIT_TYPE_COMPLEX_FLOAT:
    2420                 :          0 :     case GCC_JIT_TYPE_COMPLEX_DOUBLE:
    2421                 :          0 :     case GCC_JIT_TYPE_COMPLEX_LONG_DOUBLE:
    2422                 :          0 :       return true;
    2423                 :            :     }
    2424                 :            : }
    2425                 :            : 
    2426                 :            : /* Implementation of pure virtual hook recording::type::is_bool for
    2427                 :            :    recording::memento_of_get_type.  */
    2428                 :            : 
    2429                 :            : bool
    2430                 :        930 : recording::memento_of_get_type::is_bool () const
    2431                 :            : {
    2432                 :        930 :   switch (m_kind)
    2433                 :            :     {
    2434                 :          0 :     default: gcc_unreachable ();
    2435                 :            : 
    2436                 :            :     case GCC_JIT_TYPE_VOID:
    2437                 :            :       return false;
    2438                 :            : 
    2439                 :            :     case GCC_JIT_TYPE_VOID_PTR:
    2440                 :            :       return false;
    2441                 :            : 
    2442                 :        283 :     case GCC_JIT_TYPE_BOOL:
    2443                 :        283 :       return true;
    2444                 :            : 
    2445                 :            :     case GCC_JIT_TYPE_CHAR:
    2446                 :            :     case GCC_JIT_TYPE_SIGNED_CHAR:
    2447                 :            :     case GCC_JIT_TYPE_UNSIGNED_CHAR:
    2448                 :            :     case GCC_JIT_TYPE_SHORT:
    2449                 :            :     case GCC_JIT_TYPE_UNSIGNED_SHORT:
    2450                 :            :     case GCC_JIT_TYPE_INT:
    2451                 :            :     case GCC_JIT_TYPE_UNSIGNED_INT:
    2452                 :            :     case GCC_JIT_TYPE_LONG:
    2453                 :            :     case GCC_JIT_TYPE_UNSIGNED_LONG:
    2454                 :            :     case GCC_JIT_TYPE_LONG_LONG:
    2455                 :            :     case GCC_JIT_TYPE_UNSIGNED_LONG_LONG:
    2456                 :            :       return false;
    2457                 :            : 
    2458                 :            :     case GCC_JIT_TYPE_FLOAT:
    2459                 :            :     case GCC_JIT_TYPE_DOUBLE:
    2460                 :            :     case GCC_JIT_TYPE_LONG_DOUBLE:
    2461                 :            :       return false;
    2462                 :            : 
    2463                 :            :     case GCC_JIT_TYPE_CONST_CHAR_PTR:
    2464                 :            :       return false;
    2465                 :            : 
    2466                 :            :     case GCC_JIT_TYPE_SIZE_T:
    2467                 :            :       return false;
    2468                 :            : 
    2469                 :            :     case GCC_JIT_TYPE_FILE_PTR:
    2470                 :            :       return false;
    2471                 :            : 
    2472                 :            :     case GCC_JIT_TYPE_COMPLEX_FLOAT:
    2473                 :            :     case GCC_JIT_TYPE_COMPLEX_DOUBLE:
    2474                 :            :     case GCC_JIT_TYPE_COMPLEX_LONG_DOUBLE:
    2475                 :            :       return false;
    2476                 :            :     }
    2477                 :            : }
    2478                 :            : 
    2479                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    2480                 :            :    for recording::memento_of_get_type.  */
    2481                 :            : 
    2482                 :            : void
    2483                 :       3284 : recording::memento_of_get_type::replay_into (replayer *r)
    2484                 :            : {
    2485                 :       3284 :   set_playback_obj (r->get_type (m_kind));
    2486                 :       3284 : }
    2487                 :            : 
    2488                 :            : /* The implementation of class gcc::jit::recording::memento_of_get_type.  */
    2489                 :            : 
    2490                 :            : /* Descriptive strings for each of enum gcc_jit_types.  */
    2491                 :            : 
    2492                 :            : static const char * const get_type_strings[] = {
    2493                 :            :   "void",    /* GCC_JIT_TYPE_VOID */
    2494                 :            :   "void *",  /* GCC_JIT_TYPE_VOID_PTR */
    2495                 :            : 
    2496                 :            :   "bool",  /* GCC_JIT_TYPE_BOOL */
    2497                 :            : 
    2498                 :            :   "char",           /* GCC_JIT_TYPE_CHAR */
    2499                 :            :   "signed char",    /* GCC_JIT_TYPE_SIGNED_CHAR */
    2500                 :            :   "unsigned char",  /* GCC_JIT_TYPE_UNSIGNED_CHAR */
    2501                 :            : 
    2502                 :            :   "short",           /* GCC_JIT_TYPE_SHORT */
    2503                 :            :   "unsigned short",  /* GCC_JIT_TYPE_UNSIGNED_SHORT */
    2504                 :            : 
    2505                 :            :   "int",           /* GCC_JIT_TYPE_INT */
    2506                 :            :   "unsigned int",  /* GCC_JIT_TYPE_UNSIGNED_INT */
    2507                 :            : 
    2508                 :            :   "long",           /* GCC_JIT_TYPE_LONG  */
    2509                 :            :   "unsigned long",  /* GCC_JIT_TYPE_UNSIGNED_LONG, */
    2510                 :            : 
    2511                 :            :   "long long",           /* GCC_JIT_TYPE_LONG_LONG */
    2512                 :            :   "unsigned long long",  /* GCC_JIT_TYPE_UNSIGNED_LONG_LONG */
    2513                 :            : 
    2514                 :            :   "float",        /* GCC_JIT_TYPE_FLOAT */
    2515                 :            :   "double",       /* GCC_JIT_TYPE_DOUBLE */
    2516                 :            :   "long double",  /* GCC_JIT_TYPE_LONG_DOUBLE */
    2517                 :            : 
    2518                 :            :   "const char *",  /* GCC_JIT_TYPE_CONST_CHAR_PTR */
    2519                 :            : 
    2520                 :            :   "size_t",  /* GCC_JIT_TYPE_SIZE_T */
    2521                 :            : 
    2522                 :            :   "FILE *",  /* GCC_JIT_TYPE_FILE_PTR */
    2523                 :            : 
    2524                 :            :   "complex float", /* GCC_JIT_TYPE_COMPLEX_FLOAT */
    2525                 :            :   "complex double", /* GCC_JIT_TYPE_COMPLEX_DOUBLE */
    2526                 :            :   "complex long double"  /* GCC_JIT_TYPE_COMPLEX_LONG_DOUBLE */
    2527                 :            : 
    2528                 :            : };
    2529                 :            : 
    2530                 :            : /* Implementation of recording::memento::make_debug_string for
    2531                 :            :    results of get_type, using a simple table of type names.  */
    2532                 :            : 
    2533                 :            : recording::string *
    2534                 :       5243 : recording::memento_of_get_type::make_debug_string ()
    2535                 :            : {
    2536                 :       5243 :   return m_ctxt->new_string (get_type_strings[m_kind]);
    2537                 :            : }
    2538                 :            : 
    2539                 :            : static const char * const get_type_enum_strings[] = {
    2540                 :            :   "GCC_JIT_TYPE_VOID",
    2541                 :            :   "GCC_JIT_TYPE_VOID_PTR",
    2542                 :            :   "GCC_JIT_TYPE_BOOL",
    2543                 :            :   "GCC_JIT_TYPE_CHAR",
    2544                 :            :   "GCC_JIT_TYPE_SIGNED_CHAR",
    2545                 :            :   "GCC_JIT_TYPE_UNSIGNED_CHAR",
    2546                 :            :   "GCC_JIT_TYPE_SHORT",
    2547                 :            :   "GCC_JIT_TYPE_UNSIGNED_SHORT",
    2548                 :            :   "GCC_JIT_TYPE_INT",
    2549                 :            :   "GCC_JIT_TYPE_UNSIGNED_INT",
    2550                 :            :   "GCC_JIT_TYPE_LONG",
    2551                 :            :   "GCC_JIT_TYPE_UNSIGNED_LONG",
    2552                 :            :   "GCC_JIT_TYPE_LONG_LONG",
    2553                 :            :   "GCC_JIT_TYPE_UNSIGNED_LONG_LONG",
    2554                 :            :   "GCC_JIT_TYPE_FLOAT",
    2555                 :            :   "GCC_JIT_TYPE_DOUBLE",
    2556                 :            :   "GCC_JIT_TYPE_LONG_DOUBLE",
    2557                 :            :   "GCC_JIT_TYPE_CONST_CHAR_PTR",
    2558                 :            :   "GCC_JIT_TYPE_SIZE_T",
    2559                 :            :   "GCC_JIT_TYPE_FILE_PTR",
    2560                 :            :   "GCC_JIT_TYPE_COMPLEX_FLOAT",
    2561                 :            :   "GCC_JIT_TYPE_COMPLEX_DOUBLE",
    2562                 :            :   "GCC_JIT_TYPE_COMPLEX_LONG_DOUBLE"
    2563                 :            : };
    2564                 :            : 
    2565                 :            : void
    2566                 :       5207 : recording::memento_of_get_type::write_reproducer (reproducer &r)
    2567                 :            : {
    2568                 :       5207 :   const char *id = r.make_identifier (this, "type");
    2569                 :       5207 :   r.write ("  gcc_jit_type *%s = gcc_jit_context_get_type (%s, %s);\n",
    2570                 :            :            id,
    2571                 :            :            r.get_identifier (get_context ()),
    2572                 :       5207 :            get_type_enum_strings[m_kind]);
    2573                 :       5207 : }
    2574                 :            : 
    2575                 :            : /* The implementation of class gcc::jit::recording::memento_of_get_pointer.  */
    2576                 :            : 
    2577                 :            : /* Override of default implementation of
    2578                 :            :    recording::type::get_size for get_pointer.  */
    2579                 :            : 
    2580                 :            : size_t
    2581                 :          0 : recording::memento_of_get_pointer::get_size ()
    2582                 :            : {
    2583                 :          0 :   return POINTER_SIZE / BITS_PER_UNIT;
    2584                 :            : }
    2585                 :            : 
    2586                 :            : /* Override of default implementation of
    2587                 :            :    recording::type::accepts_writes_from for get_pointer.
    2588                 :            : 
    2589                 :            :    Require a pointer type, and allowing writes to
    2590                 :            :    (const T *) from a (T*), but not the other way around.  */
    2591                 :            : 
    2592                 :            : bool
    2593                 :        474 : recording::memento_of_get_pointer::accepts_writes_from (type *rtype)
    2594                 :            : {
    2595                 :            :   /* Must be a pointer type: */
    2596                 :        474 :   type *rtype_points_to = rtype->is_pointer ();
    2597                 :        474 :   if (!rtype_points_to)
    2598                 :            :     return false;
    2599                 :            : 
    2600                 :            :   /* It's OK to assign to a (const T *) from a (T *).  */
    2601                 :        403 :   return m_other_type->unqualified ()
    2602                 :        403 :     ->accepts_writes_from (rtype_points_to);
    2603                 :            : }
    2604                 :            : 
    2605                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    2606                 :            :    for recording::memento_of_get_pointer.  */
    2607                 :            : 
    2608                 :            : void
    2609                 :       1031 : recording::memento_of_get_pointer::replay_into (replayer *)
    2610                 :            : {
    2611                 :       1031 :   set_playback_obj (m_other_type->playback_type ()->get_pointer ());
    2612                 :       1031 : }
    2613                 :            : 
    2614                 :            : /* Implementation of recording::memento::make_debug_string for
    2615                 :            :    results of get_pointer, adding " *" to the underlying type,
    2616                 :            :    with special-casing to handle function pointer types.  */
    2617                 :            : 
    2618                 :            : recording::string *
    2619                 :       1068 : recording::memento_of_get_pointer::make_debug_string ()
    2620                 :            : {
    2621                 :            :   /* Special-case function pointer types, to put the "*" in parens between
    2622                 :            :      the return type and the params (for one level of dereferencing, at
    2623                 :            :      least).  */
    2624                 :       1068 :   if (function_type *fn_type = m_other_type->dyn_cast_function_type ())
    2625                 :         60 :     return fn_type->make_debug_string_with_ptr ();
    2626                 :            : 
    2627                 :       1008 :   return string::from_printf (m_ctxt,
    2628                 :       2016 :                               "%s *", m_other_type->get_debug_string ());
    2629                 :            : }
    2630                 :            : 
    2631                 :            : /* Implementation of recording::memento::write_reproducer for get_pointer.  */
    2632                 :            : 
    2633                 :            : void
    2634                 :       1065 : recording::memento_of_get_pointer::write_reproducer (reproducer &r)
    2635                 :            : {
    2636                 :            :   /* We need to special-case function pointer types; see the notes in
    2637                 :            :      recording::function_type::write_deferred_reproducer.  */
    2638                 :       1065 :   if (function_type *fn_type = m_other_type->dyn_cast_function_type ())
    2639                 :            :     {
    2640                 :         55 :       fn_type->write_deferred_reproducer (r, this);
    2641                 :         55 :       return;
    2642                 :            :     }
    2643                 :            : 
    2644                 :       1010 :   const char *id = r.make_identifier (this, "type");
    2645                 :       1010 :   r.write ("  gcc_jit_type *%s =\n"
    2646                 :            :            "    gcc_jit_type_get_pointer (%s);\n",
    2647                 :            :            id,
    2648                 :            :            r.get_identifier_as_type (m_other_type));
    2649                 :            : }
    2650                 :            : 
    2651                 :            : /* The implementation of class gcc::jit::recording::memento_of_get_const.  */
    2652                 :            : 
    2653                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    2654                 :            :    for recording::memento_of_get_const.  */
    2655                 :            : 
    2656                 :            : void
    2657                 :        405 : recording::memento_of_get_const::replay_into (replayer *)
    2658                 :            : {
    2659                 :        405 :   set_playback_obj (m_other_type->playback_type ()->get_const ());
    2660                 :        405 : }
    2661                 :            : 
    2662                 :            : /* Implementation of recording::memento::make_debug_string for
    2663                 :            :    results of get_const, prepending "const ".  */
    2664                 :            : 
    2665                 :            : recording::string *
    2666                 :        626 : recording::memento_of_get_const::make_debug_string ()
    2667                 :            : {
    2668                 :        626 :   return string::from_printf (m_ctxt,
    2669                 :        626 :                               "const %s", m_other_type->get_debug_string ());
    2670                 :            : }
    2671                 :            : 
    2672                 :            : /* Implementation of recording::memento::write_reproducer for const types. */
    2673                 :            : 
    2674                 :            : void
    2675                 :        626 : recording::memento_of_get_const::write_reproducer (reproducer &r)
    2676                 :            : {
    2677                 :        626 :   const char *id = r.make_identifier (this, "type");
    2678                 :        626 :   r.write ("  gcc_jit_type *%s =\n"
    2679                 :            :            "    gcc_jit_type_get_const (%s);\n",
    2680                 :            :            id,
    2681                 :            :            r.get_identifier_as_type (m_other_type));
    2682                 :        626 : }
    2683                 :            : 
    2684                 :            : /* The implementation of class gcc::jit::recording::memento_of_get_volatile.  */
    2685                 :            : 
    2686                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    2687                 :            :    for recording::memento_of_get_volatile.  */
    2688                 :            : 
    2689                 :            : void
    2690                 :         30 : recording::memento_of_get_volatile::replay_into (replayer *)
    2691                 :            : {
    2692                 :         30 :   set_playback_obj (m_other_type->playback_type ()->get_volatile ());
    2693                 :         30 : }
    2694                 :            : 
    2695                 :            : /* Implementation of recording::memento::make_debug_string for
    2696                 :            :    results of get_volatile, prepending "volatile ".  */
    2697                 :            : 
    2698                 :            : recording::string *
    2699                 :         20 : recording::memento_of_get_volatile::make_debug_string ()
    2700                 :            : {
    2701                 :         20 :   return string::from_printf (m_ctxt,
    2702                 :         20 :                               "volatile %s", m_other_type->get_debug_string ());
    2703                 :            : }
    2704                 :            : 
    2705                 :            : /* Implementation of recording::memento::write_reproducer for volatile
    2706                 :            :    types. */
    2707                 :            : 
    2708                 :            : void
    2709                 :         20 : recording::memento_of_get_volatile::write_reproducer (reproducer &r)
    2710                 :            : {
    2711                 :         20 :   const char *id = r.make_identifier (this, "type");
    2712                 :         20 :   r.write ("  gcc_jit_type *%s =\n"
    2713                 :            :            "    gcc_jit_type_get_volatile (%s);\n",
    2714                 :            :            id,
    2715                 :            :            r.get_identifier_as_type (m_other_type));
    2716                 :         20 : }
    2717                 :            : 
    2718                 :            : /* The implementation of class gcc::jit::recording::memento_of_get_aligned.  */
    2719                 :            : 
    2720                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    2721                 :            :    for recording::memento_of_get_aligned.  */
    2722                 :            : 
    2723                 :            : void
    2724                 :        140 : recording::memento_of_get_aligned::replay_into (replayer *)
    2725                 :            : {
    2726                 :        140 :   set_playback_obj
    2727                 :        140 :     (m_other_type->playback_type ()->get_aligned (m_alignment_in_bytes));
    2728                 :        140 : }
    2729                 :            : 
    2730                 :            : /* Implementation of recording::memento::make_debug_string for
    2731                 :            :    results of get_aligned.  */
    2732                 :            : 
    2733                 :            : recording::string *
    2734                 :        105 : recording::memento_of_get_aligned::make_debug_string ()
    2735                 :            : {
    2736                 :        105 :   return string::from_printf (m_ctxt,
    2737                 :            :                               "%s  __attribute__((aligned(%zi)))",
    2738                 :        105 :                               m_other_type->get_debug_string (),
    2739                 :        105 :                               m_alignment_in_bytes);
    2740                 :            : }
    2741                 :            : 
    2742                 :            : /* Implementation of recording::memento::write_reproducer for aligned
    2743                 :            :    types. */
    2744                 :            : 
    2745                 :            : void
    2746                 :        105 : recording::memento_of_get_aligned::write_reproducer (reproducer &r)
    2747                 :            : {
    2748                 :        105 :   const char *id = r.make_identifier (this, "type");
    2749                 :        105 :   r.write ("  gcc_jit_type *%s =\n"
    2750                 :            :            "    gcc_jit_type_get_aligned (%s, %zi);\n",
    2751                 :            :            id,
    2752                 :            :            r.get_identifier_as_type (m_other_type),
    2753                 :            :            m_alignment_in_bytes);
    2754                 :        105 : }
    2755                 :            : 
    2756                 :            : /* The implementation of class gcc::jit::recording::vector_type.  */
    2757                 :            : 
    2758                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    2759                 :            :    for recording::vector_type.  */
    2760                 :            : 
    2761                 :            : void
    2762                 :         45 : recording::vector_type::replay_into (replayer *)
    2763                 :            : {
    2764                 :         45 :   set_playback_obj
    2765                 :         45 :     (m_other_type->playback_type ()->get_vector (m_num_units));
    2766                 :         45 : }
    2767                 :            : 
    2768                 :            : /* Implementation of recording::memento::make_debug_string for
    2769                 :            :    results of get_vector.  */
    2770                 :            : 
    2771                 :            : recording::string *
    2772                 :         40 : recording::vector_type::make_debug_string ()
    2773                 :            : {
    2774                 :         40 :   return string::from_printf
    2775                 :         40 :     (m_ctxt,
    2776                 :            :      "%s  __attribute__((vector_size(sizeof (%s) * %zi)))",
    2777                 :         40 :      m_other_type->get_debug_string (),
    2778                 :         40 :      m_other_type->get_debug_string (),
    2779                 :         40 :      m_num_units);
    2780                 :            : }
    2781                 :            : 
    2782                 :            : /* Implementation of recording::memento::write_reproducer for vector types. */
    2783                 :            : 
    2784                 :            : void
    2785                 :         40 : recording::vector_type::write_reproducer (reproducer &r)
    2786                 :            : {
    2787                 :         40 :   const char *id = r.make_identifier (this, "type");
    2788                 :         40 :   r.write ("  gcc_jit_type *%s =\n"
    2789                 :            :            "    gcc_jit_type_get_vector (%s, %zi);\n",
    2790                 :            :            id,
    2791                 :            :            r.get_identifier_as_type (m_other_type),
    2792                 :            :            m_num_units);
    2793                 :         40 : }
    2794                 :            : 
    2795                 :            : /* The implementation of class gcc::jit::recording::array_type */
    2796                 :            : 
    2797                 :            : /* Implementation of pure virtual hook recording::type::dereference for
    2798                 :            :    recording::array_type.  */
    2799                 :            : 
    2800                 :            : recording::type *
    2801                 :        598 : recording::array_type::dereference ()
    2802                 :            : {
    2803                 :        598 :   return m_element_type;
    2804                 :            : }
    2805                 :            : 
    2806                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    2807                 :            :    for recording::array_type.  */
    2808                 :            : 
    2809                 :            : void
    2810                 :         75 : recording::array_type::replay_into (replayer *r)
    2811                 :            : {
    2812                 :         75 :   set_playback_obj (r->new_array_type (playback_location (r, m_loc),
    2813                 :         75 :                                        m_element_type->playback_type (),
    2814                 :            :                                        m_num_elements));
    2815                 :         75 : }
    2816                 :            : 
    2817                 :            : /* Implementation of recording::memento::make_debug_string for
    2818                 :            :    results of new_array_type.  */
    2819                 :            : 
    2820                 :            : recording::string *
    2821                 :         60 : recording::array_type::make_debug_string ()
    2822                 :            : {
    2823                 :         60 :   return string::from_printf (m_ctxt,
    2824                 :            :                               "%s[%d]",
    2825                 :         60 :                               m_element_type->get_debug_string (),
    2826                 :         60 :                               m_num_elements);
    2827                 :            : }
    2828                 :            : 
    2829                 :            : /* Implementation of recording::memento::write_reproducer for array
    2830                 :            :    types. */
    2831                 :            : 
    2832                 :            : void
    2833                 :         60 : recording::array_type::write_reproducer (reproducer &r)
    2834                 :            : {
    2835                 :         60 :   const char *id = r.make_identifier (this, "array_type");
    2836                 :        120 :   r.write ("  gcc_jit_type *%s =\n"
    2837                 :            :            "    gcc_jit_context_new_array_type (%s,\n"
    2838                 :            :            "                                    %s, /* gcc_jit_location *loc */\n"
    2839                 :            :            "                                    %s, /* gcc_jit_type *element_type */\n"
    2840                 :            :            "                                    %i); /* int num_elements */\n",
    2841                 :            :            id,
    2842                 :            :            r.get_identifier (get_context ()),
    2843                 :         60 :            r.get_identifier (m_loc),
    2844                 :            :            r.get_identifier_as_type (m_element_type),
    2845                 :            :            m_num_elements);
    2846                 :         60 : }
    2847                 :            : 
    2848                 :            : /* The implementation of class gcc::jit::recording::function_type */
    2849                 :            : 
    2850                 :            : /* Constructor for gcc::jit::recording::function_type.  */
    2851                 :            : 
    2852                 :       1213 : recording::function_type::function_type (context *ctxt,
    2853                 :            :                                          type *return_type,
    2854                 :            :                                          int num_params,
    2855                 :            :                                          type **param_types,
    2856                 :       1213 :                                          int is_variadic)
    2857                 :            : : type (ctxt),
    2858                 :       1213 :   m_return_type (return_type),
    2859                 :       1213 :   m_param_types (),
    2860                 :       1213 :   m_is_variadic (is_variadic)
    2861                 :            : {
    2862                 :       1693 :   for (int i = 0; i< num_params; i++)
    2863                 :        480 :     m_param_types.safe_push (param_types[i]);
    2864                 :       1213 : }
    2865                 :            : 
    2866                 :            : /* Implementation of pure virtual hook recording::type::dereference for
    2867                 :            :    recording::function_type.  */
    2868                 :            : 
    2869                 :            : recording::type *
    2870                 :          0 : recording::function_type::dereference ()
    2871                 :            : {
    2872                 :          0 :   return NULL;
    2873                 :            : }
    2874                 :            : 
    2875                 :            : /* Implementation of virtual hook recording::type::is_same_type_as for
    2876                 :            :    recording::function_type.
    2877                 :            : 
    2878                 :            :    We override this to avoid requiring identity of function pointer types,
    2879                 :            :    so that if client code has obtained the same signature in
    2880                 :            :    different ways (e.g. via gcc_jit_context_new_function_ptr_type
    2881                 :            :    vs gcc_jit_function_get_address), the different function_type
    2882                 :            :    instances are treated as compatible.
    2883                 :            : 
    2884                 :            :    We can't use type::accepts_writes_from for this as we need a stronger
    2885                 :            :    notion of "sameness": if we have a fn_ptr type that has args that are
    2886                 :            :    themselves fn_ptr types, then those args still need to match exactly.
    2887                 :            : 
    2888                 :            :    Alternatively, we could consolidate attempts to create identical
    2889                 :            :    function_type instances so that pointer equality works, but that runs
    2890                 :            :    into issues about the lifetimes of the cache (w.r.t. nested contexts).  */
    2891                 :            : 
    2892                 :            : bool
    2893                 :         40 : recording::function_type::is_same_type_as (type *other)
    2894                 :            : {
    2895                 :         40 :   gcc_assert (other);
    2896                 :            : 
    2897                 :         40 :   function_type *other_fn_type = other->dyn_cast_function_type ();
    2898                 :         40 :   if (!other_fn_type)
    2899                 :            :     return false;
    2900                 :            : 
    2901                 :            :   /* Everything must match.  */
    2902                 :            : 
    2903                 :         40 :   if (!m_return_type->is_same_type_as (other_fn_type->m_return_type))
    2904                 :            :     return false;
    2905                 :            : 
    2906                 :        120 :   if (m_param_types.length () != other_fn_type->m_param_types.length ())
    2907                 :            :     return false;
    2908                 :            : 
    2909                 :            :   unsigned i;
    2910                 :            :   type *param_type;
    2911                 :         90 :   FOR_EACH_VEC_ELT (m_param_types, i, param_type)
    2912                 :         55 :     if (!param_type->is_same_type_as (other_fn_type->m_param_types[i]))
    2913                 :            :       return false;
    2914                 :            : 
    2915                 :         35 :   if (m_is_variadic != other_fn_type->m_is_variadic)
    2916                 :          0 :     return false;
    2917                 :            : 
    2918                 :            :   /* Passed all tests.  */
    2919                 :            :   return true;
    2920                 :            : }
    2921                 :            : 
    2922                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    2923                 :            :    for recording::function_type.  */
    2924                 :            : 
    2925                 :            : void
    2926                 :       1143 : recording::function_type::replay_into (replayer *r)
    2927                 :            : {
    2928                 :            :   /* Convert m_param_types to a vec of playback type.  */
    2929                 :       1143 :   auto_vec <playback::type *> param_types;
    2930                 :       1143 :   int i;
    2931                 :       1143 :   recording::type *type;
    2932                 :       1143 :   param_types.create (m_param_types.length ());
    2933                 :       2646 :   FOR_EACH_VEC_ELT (m_param_types, i, type)
    2934                 :        360 :     param_types.safe_push (type->playback_type ());
    2935                 :            : 
    2936                 :       1143 :   set_playback_obj (r->new_function_type (m_return_type->playback_type (),
    2937                 :            :                                           &param_types,
    2938                 :            :                                           m_is_variadic));
    2939                 :       1143 : }
    2940                 :            : 
    2941                 :            : /* Special-casing for make_debug_string for get_pointer results for
    2942                 :            :    handling (one level) of pointers to functions.  */
    2943                 :            : 
    2944                 :            : recording::string *
    2945                 :         60 : recording::function_type::make_debug_string_with_ptr ()
    2946                 :            : {
    2947                 :         60 :   return make_debug_string_with ("(*) ");
    2948                 :            : }
    2949                 :            : 
    2950                 :            : /* Implementation of recording::memento::make_debug_string for
    2951                 :            :    results of new_function_type.  */
    2952                 :            : 
    2953                 :            : recording::string *
    2954                 :         55 : recording::function_type::make_debug_string ()
    2955                 :            : {
    2956                 :         55 :   return make_debug_string_with ("");
    2957                 :            : }
    2958                 :            : 
    2959                 :            : /* Build a debug string representation of the form:
    2960                 :            : 
    2961                 :            :      RESULT_TYPE INSERT (PARAM_TYPES)
    2962                 :            : 
    2963                 :            :    for use when handling 0 and 1 level of indirection to this
    2964                 :            :    function type.  */
    2965                 :            : 
    2966                 :            : recording::string *
    2967                 :        115 : recording::function_type::make_debug_string_with (const char *insert)
    2968                 :            : {
    2969                 :            :   /* First, build a buffer for the arguments.  */
    2970                 :            :   /* Calculate length of said buffer.  */
    2971                 :        115 :   size_t sz = 1; /* nil terminator */
    2972                 :        610 :   for (unsigned i = 0; i< m_param_types.length (); i++)
    2973                 :            :     {
    2974                 :        195 :       sz += strlen (m_param_types[i]->get_debug_string ());
    2975                 :        195 :       sz += 2; /* ", " separator */
    2976                 :            :     }
    2977                 :        115 :   if (m_is_variadic)
    2978                 :          0 :     sz += 5; /* ", ..." separator and ellipsis */
    2979                 :            : 
    2980                 :            :   /* Now allocate and populate the buffer.  */
    2981                 :        115 :   char *argbuf = new char[sz];
    2982                 :        115 :   size_t len = 0;
    2983                 :            : 
    2984                 :        610 :   for (unsigned i = 0; i< m_param_types.length (); i++)
    2985                 :            :     {
    2986                 :        195 :       strcpy (argbuf + len, m_param_types[i]->get_debug_string ());
    2987                 :        195 :       len += strlen (m_param_types[i]->get_debug_string ());
    2988                 :        390 :       if (i + 1 < m_param_types.length ())
    2989                 :            :         {
    2990                 :         90 :           strcpy (argbuf + len, ", ");
    2991                 :         90 :           len += 2;
    2992                 :            :         }
    2993                 :            :     }
    2994                 :        115 :   if (m_is_variadic)
    2995                 :            :     {
    2996                 :          0 :       if (m_param_types.length ())
    2997                 :            :         {
    2998                 :          0 :           strcpy (argbuf + len, ", ");
    2999                 :          0 :           len += 2;
    3000                 :            :         }
    3001                 :          0 :       strcpy (argbuf + len, "...");
    3002                 :          0 :       len += 3;
    3003                 :            :     }
    3004                 :        115 :   argbuf[len] = '\0';
    3005                 :            : 
    3006                 :            :   /* ...and use it to get the string for the call as a whole.  */
    3007                 :        115 :   string *result = string::from_printf (m_ctxt,
    3008                 :            :                                         "%s %s(%s)",
    3009                 :        115 :                                         m_return_type->get_debug_string (),
    3010                 :            :                                         insert,
    3011                 :            :                                         argbuf);
    3012                 :            : 
    3013                 :        115 :   delete[] argbuf;
    3014                 :            : 
    3015                 :        115 :   return result;
    3016                 :            : }
    3017                 :            : 
    3018                 :            : /* Implementation of recording::memento::write_reproducer for function
    3019                 :            :    types.  */
    3020                 :            : 
    3021                 :            : void
    3022                 :        153 : recording::function_type::write_reproducer (reproducer &)
    3023                 :            : {
    3024                 :            :   /* see notes below.  */
    3025                 :        153 : }
    3026                 :            : 
    3027                 :            : /* There's a get_pointer within context::new_function_ptr_type:
    3028                 :            :    the type received by client code isn't the memento for the
    3029                 :            :    function_type, but instead the result of get_pointer on it.
    3030                 :            : 
    3031                 :            :    Hence we can't directly write a reproducer that gives function_type.
    3032                 :            :    Instead we special-case things within get_pointer, detecting this
    3033                 :            :    case, calling the following function.  */
    3034                 :            : 
    3035                 :            : void
    3036                 :         55 : recording::function_type::write_deferred_reproducer (reproducer &r,
    3037                 :            :                                                      memento *ptr_type)
    3038                 :            : {
    3039                 :         55 :   gcc_assert (ptr_type);
    3040                 :         55 :   r.make_identifier (this, "function_type");
    3041                 :         55 :   const char *ptr_id = r.make_identifier (ptr_type, "ptr_to");
    3042                 :         55 :   const char *param_types_id = r.make_tmp_identifier ("params_for", this);
    3043                 :         55 :   r.write ("  gcc_jit_type *%s[%i] = {\n",
    3044                 :            :            param_types_id,
    3045                 :            :            m_param_types.length ());
    3046                 :         55 :   int i;
    3047                 :         55 :   type *param_type;
    3048                 :        200 :   FOR_EACH_VEC_ELT (m_param_types, i, param_type)
    3049                 :         90 :     r.write ("    %s,\n", r.get_identifier_as_type (param_type));
    3050                 :         55 :   r.write ("  };\n");
    3051                 :        105 :   r.write ("  gcc_jit_type *%s =\n"
    3052                 :            :            "    gcc_jit_context_new_function_ptr_type (%s, /* gcc_jit_context *ctxt */\n"
    3053                 :            :            "                                           %s, /* gcc_jit_location *loc */\n"
    3054                 :            :            "                                           %s, /* gcc_jit_type *return_type */\n"
    3055                 :            :            "                                           %i, /* int num_params */\n"
    3056                 :            :            "                                           %s, /* gcc_jit_type **param_types */\n"
    3057                 :            :            "                                           %i); /* int is_variadic */\n",
    3058                 :            :            ptr_id,
    3059                 :            :            r.get_identifier (get_context ()),
    3060                 :            :            "NULL", /* location is not stored */
    3061                 :            :            r.get_identifier_as_type (m_return_type),
    3062                 :            :            m_param_types.length (),
    3063                 :            :            param_types_id,
    3064                 :            :            m_is_variadic);
    3065                 :         55 : }
    3066                 :            : 
    3067                 :            : /* The implementation of class gcc::jit::recording::field.  */
    3068                 :            : 
    3069                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    3070                 :            :    for recording::field.  */
    3071                 :            : 
    3072                 :            : void
    3073                 :       1113 : recording::field::replay_into (replayer *r)
    3074                 :            : {
    3075                 :       1113 :   set_playback_obj (r->new_field (playback_location (r, m_loc),
    3076                 :       1113 :                                   m_type->playback_type (),
    3077                 :            :                                   playback_string (m_name)));
    3078                 :       1113 : }
    3079                 :            : 
    3080                 :            : /* Override the default implementation of
    3081                 :            :    recording::memento::write_to_dump.  Dump each field
    3082                 :            :    by dumping a line of the form:
    3083                 :            :       TYPE NAME;
    3084                 :            :    so that we can build up a struct/union field by field.  */
    3085                 :            : 
    3086                 :            : void
    3087                 :          8 : recording::field::write_to_dump (dump &d)
    3088                 :            : {
    3089                 :          8 :   d.write ("  %s %s;\n",
    3090                 :          8 :            m_type->get_debug_string (),
    3091                 :          8 :            m_name->c_str ());
    3092                 :          8 : }
    3093                 :            : 
    3094                 :            : /* Implementation of recording::memento::make_debug_string for
    3095                 :            :    results of new_field.  */
    3096                 :            : 
    3097                 :            : recording::string *
    3098                 :       5185 : recording::field::make_debug_string ()
    3099                 :            : {
    3100                 :       5185 :   return m_name;
    3101                 :            : }
    3102                 :            : 
    3103                 :            : /* Implementation of recording::memento::write_reproducer for fields.  */
    3104                 :            : 
    3105                 :            : void
    3106                 :       5184 : recording::field::write_reproducer (reproducer &r)
    3107                 :            : {
    3108                 :       5184 :   const char *id = r.make_identifier (this, "field");
    3109                 :      10368 :   r.write("  gcc_jit_field *%s =\n"
    3110                 :            :           "    gcc_jit_context_new_field (%s,\n"
    3111                 :            :           "                               %s, /* gcc_jit_location *loc */\n"
    3112                 :            :           "                               %s, /* gcc_jit_type *type, */\n"
    3113                 :            :           "                               %s); /* const char *name */\n",
    3114                 :            :           id,
    3115                 :            :           r.get_identifier (get_context ()),
    3116                 :       5184 :           r.get_identifier (m_loc),
    3117                 :            :           r.get_identifier_as_type (m_type),
    3118                 :       5184 :           m_name->get_debug_string ());
    3119                 :       5184 : }
    3120                 :            : 
    3121                 :            : /* The implementation of class gcc::jit::recording::bitfield.  */
    3122                 :            : 
    3123                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    3124                 :            :    for recording::bitfield.  */
    3125                 :            : 
    3126                 :            : void
    3127                 :         95 : recording::bitfield::replay_into (replayer *r)
    3128                 :            : {
    3129                 :        190 :   set_playback_obj (r->new_bitfield (playback_location (r, m_loc),
    3130                 :         95 :                                      m_type->playback_type (),
    3131                 :            :                                      m_width,
    3132                 :            :                                      playback_string (m_name)));
    3133                 :         95 : }
    3134                 :            : 
    3135                 :            : /* Override the default implementation of
    3136                 :            :    recording::memento::write_to_dump.  Dump each bit field
    3137                 :            :    by dumping a line of the form:
    3138                 :            :       TYPE NAME:WIDTH;
    3139                 :            :    so that we can build up a struct/union field by field.  */
    3140                 :            : 
    3141                 :            : void
    3142                 :          0 : recording::bitfield::write_to_dump (dump &d)
    3143                 :            : {
    3144                 :          0 :   d.write ("  %s %s:%d;\n",
    3145                 :          0 :            m_type->get_debug_string (),
    3146                 :          0 :            m_name->c_str (),
    3147                 :            :            m_width);
    3148                 :          0 : }
    3149                 :            : 
    3150                 :            : /* Implementation of recording::memento::make_debug_string for
    3151                 :            :    results of new_bitfield.  */
    3152                 :            : 
    3153                 :            : recording::string *
    3154                 :         85 : recording::bitfield::make_debug_string ()
    3155                 :            : {
    3156                 :         85 :   return string::from_printf (m_ctxt,
    3157                 :            :                               "%s:%d",
    3158                 :         85 :                               m_name->c_str (), m_width);
    3159                 :            : }
    3160                 :            : 
    3161                 :            : /* Implementation of recording::memento::write_reproducer for bitfields.  */
    3162                 :            : 
    3163                 :            : void
    3164                 :         85 : recording::bitfield::write_reproducer (reproducer &r)
    3165                 :            : {
    3166                 :         85 :   const char *id = r.make_identifier (this, "bitfield");
    3167                 :        170 :   r.write ("  gcc_jit_field *%s =\n"
    3168                 :            :            "    gcc_jit_context_new_bitfield (%s,\n"
    3169                 :            :            "                               %s, /* gcc_jit_location *loc */\n"
    3170                 :            :            "                               %s, /* gcc_jit_type *type, */\n"
    3171                 :            :            "                               %d, /* int width, */\n"
    3172                 :            :            "                               %s); /* const char *name */\n",
    3173                 :            :            id,
    3174                 :            :            r.get_identifier (get_context ()),
    3175                 :         85 :            r.get_identifier (m_loc),
    3176                 :            :            r.get_identifier_as_type (m_type),
    3177                 :            :            m_width,
    3178                 :         85 :            m_name->get_debug_string ());
    3179                 :         85 : }
    3180                 :            : 
    3181                 :            : /* The implementation of class gcc::jit::recording::compound_type */
    3182                 :            : 
    3183                 :            : /* The constructor for gcc::jit::recording::compound_type.  */
    3184                 :            : 
    3185                 :       1210 : recording::compound_type::compound_type (context *ctxt,
    3186                 :            :                                          location *loc,
    3187                 :       1210 :                                          string *name)
    3188                 :            : : type (ctxt),
    3189                 :       1210 :   m_loc (loc),
    3190                 :       1210 :   m_name (name),
    3191                 :       1210 :   m_fields (NULL)
    3192                 :            : {
    3193                 :       1210 : }
    3194                 :            : 
    3195                 :            : /* Set the fields of a compound type.
    3196                 :            : 
    3197                 :            :    Implements the post-error-checking part of
    3198                 :            :    gcc_jit_struct_set_fields, and is also used by
    3199                 :            :    gcc_jit_context_new_union_type.  */
    3200                 :            : 
    3201                 :            : void
    3202                 :       1161 : recording::compound_type::set_fields (location *loc,
    3203                 :            :                                       int num_fields,
    3204                 :            :                                       field **field_array)
    3205                 :            : {
    3206                 :       1161 :   m_loc = loc;
    3207                 :       1161 :   gcc_assert (m_fields == NULL);
    3208                 :            : 
    3209                 :       1161 :   m_fields = new fields (this, num_fields, field_array);
    3210                 :       1161 :   m_ctxt->record (m_fields);
    3211                 :       1161 : }
    3212                 :            : 
    3213                 :            : /* Implementation of pure virtual hook recording::type::dereference for
    3214                 :            :    recording::compound_type.  */
    3215                 :            : 
    3216                 :            : recording::type *
    3217                 :          0 : recording::compound_type::dereference ()
    3218                 :            : {
    3219                 :          0 :   return NULL; /* not a pointer */
    3220                 :            : }
    3221                 :            : 
    3222                 :            : /* The implementation of class gcc::jit::recording::struct_.  */
    3223                 :            : 
    3224                 :            : /* The constructor for gcc::jit::recording::struct_.  */
    3225                 :            : 
    3226                 :       1175 : recording::struct_::struct_ (context *ctxt,
    3227                 :            :                              location *loc,
    3228                 :       1175 :                              string *name)
    3229                 :       1175 : : compound_type (ctxt, loc, name)
    3230                 :            : {
    3231                 :       1175 : }
    3232                 :            : 
    3233                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    3234                 :            :    for recording::struct_.  */
    3235                 :            : 
    3236                 :            : void
    3237                 :        367 : recording::struct_::replay_into (replayer *r)
    3238                 :            : {
    3239                 :        734 :   set_playback_obj (
    3240                 :        367 :     r->new_compound_type (playback_location (r, get_loc ()),
    3241                 :            :                           get_name ()->c_str (),
    3242                 :            :                           true /* is_struct */));
    3243                 :        367 : }
    3244                 :            : 
    3245                 :            : const char *
    3246                 :       2053 : recording::struct_::access_as_type (reproducer &r)
    3247                 :            : {
    3248                 :       2053 :   return r.xstrdup_printf ("gcc_jit_struct_as_type (%s)",
    3249                 :       2053 :                            r.get_identifier (this));
    3250                 :            : }
    3251                 :            : 
    3252                 :            : /* Implementation of recording::memento::make_debug_string for
    3253                 :            :    structs.  */
    3254                 :            : 
    3255                 :            : recording::string *
    3256                 :       1065 : recording::struct_::make_debug_string ()
    3257                 :            : {
    3258                 :       1065 :   return string::from_printf (m_ctxt,
    3259                 :       1065 :                               "struct %s", get_name ()->c_str ());
    3260                 :            : }
    3261                 :            : 
    3262                 :            : void
    3263                 :       1066 : recording::struct_::write_reproducer (reproducer &r)
    3264                 :            : {
    3265                 :       1066 :   const char *id = r.make_identifier (this, "struct");
    3266                 :       1066 :   r.write ("  gcc_jit_struct *%s =\n"
    3267                 :            :            "    gcc_jit_context_new_opaque_struct (%s,\n"
    3268                 :            :            "                                       %s, /* gcc_jit_location *loc */\n"
    3269                 :            :            "                                       %s); /* const char *name */\n",
    3270                 :            :            id,
    3271                 :            :            r.get_identifier (get_context ()),
    3272                 :       1066 :            r.get_identifier (get_loc ()),
    3273                 :       1066 :            get_name ()->get_debug_string ());
    3274                 :       1066 : }
    3275                 :            : 
    3276                 :            : /* The implementation of class gcc::jit::recording::union_.  */
    3277                 :            : 
    3278                 :            : /* The constructor for gcc::jit::recording::union_.  */
    3279                 :            : 
    3280                 :         35 : recording::union_::union_ (context *ctxt,
    3281                 :            :                            location *loc,
    3282                 :         35 :                            string *name)
    3283                 :         35 : : compound_type (ctxt, loc, name)
    3284                 :            : {
    3285                 :         35 : }
    3286                 :            : 
    3287                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    3288                 :            :    for recording::union_.  */
    3289                 :            : 
    3290                 :            : void
    3291                 :         30 : recording::union_::replay_into (replayer *r)
    3292                 :            : {
    3293                 :         60 :   set_playback_obj (
    3294                 :         30 :     r->new_compound_type (playback_location (r, get_loc ()),
    3295                 :            :                           get_name ()->c_str (),
    3296                 :            :                           false /* is_struct */));
    3297                 :         30 : }
    3298                 :            : 
    3299                 :            : /* Implementation of recording::memento::make_debug_string for
    3300                 :            :    unions.  */
    3301                 :            : 
    3302                 :            : recording::string *
    3303                 :         25 : recording::union_::make_debug_string ()
    3304                 :            : {
    3305                 :         25 :   return string::from_printf (m_ctxt,
    3306                 :         25 :                               "union %s", get_name ()->c_str ());
    3307                 :            : }
    3308                 :            : 
    3309                 :            : /* Implementation of recording::memento::write_reproducer for unions.  */
    3310                 :            : 
    3311                 :            : void
    3312                 :         25 : recording::union_::write_reproducer (reproducer &r)
    3313                 :            : {
    3314                 :         25 :   const char *id = r.make_identifier (this, "union");
    3315                 :            : 
    3316                 :         25 :   const char *fields_id = r.make_tmp_identifier ("fields_for", this);
    3317                 :         25 :   r.write ("  gcc_jit_field *%s[%i] = {\n",
    3318                 :            :            fields_id,
    3319                 :            :            get_fields ()->length ());
    3320                 :        170 :   for (int i = 0; i < get_fields ()->length (); i++)
    3321                 :         60 :     r.write ("    %s,\n", r.get_identifier (get_fields ()->get_field (i)));
    3322                 :         25 :   r.write ("  };\n");
    3323                 :            : 
    3324                 :         50 :   r.write ("  gcc_jit_type *%s =\n"
    3325                 :            :            "    gcc_jit_context_new_union_type (%s,\n"
    3326                 :            :            "                                    %s, /* gcc_jit_location *loc */\n"
    3327                 :            :            "                                    %s, /* const char *name */\n"
    3328                 :            :            "                                    %i, /* int num_fields */\n"
    3329                 :            :            "                                    %s); /* gcc_jit_field **fields */\n",
    3330                 :            :            id,
    3331                 :            :            r.get_identifier (get_context ()),
    3332                 :         25 :            r.get_identifier (get_loc ()),
    3333                 :         25 :            get_name ()->get_debug_string (),
    3334                 :            :            get_fields ()->length (),
    3335                 :            :            fields_id);
    3336                 :         25 : }
    3337                 :            : 
    3338                 :            : /* The implementation of class gcc::jit::recording::fields.  */
    3339                 :            : 
    3340                 :            : /* The constructor for gcc::jit::recording::fields.  */
    3341                 :            : 
    3342                 :       1161 : recording::fields::fields (compound_type *struct_or_union,
    3343                 :            :                            int num_fields,
    3344                 :       1161 :                            field **fields)
    3345                 :            : : memento (struct_or_union->m_ctxt),
    3346                 :       1161 :   m_struct_or_union (struct_or_union),
    3347                 :       1161 :   m_fields ()
    3348                 :            : {
    3349                 :       5485 :   for (int i = 0; i < num_fields; i++)
    3350                 :            :     {
    3351                 :       4324 :       gcc_assert (fields[i]->get_container () == NULL);
    3352                 :       4324 :       fields[i]->set_container (m_struct_or_union);
    3353                 :       4324 :       m_fields.safe_push (fields[i]);
    3354                 :            :     }
    3355                 :       1161 : }
    3356                 :            : 
    3357                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    3358                 :            :    for recording::fields.  */
    3359                 :            : 
    3360                 :            : void
    3361                 :        367 : recording::fields::replay_into (replayer *)
    3362                 :            : {
    3363                 :        367 :   auto_vec<playback::field *> playback_fields;
    3364                 :        367 :   playback_fields.create (m_fields.length ());
    3365                 :       3130 :   for (unsigned i = 0; i < m_fields.length (); i++)
    3366                 :       1198 :     playback_fields.safe_push (m_fields[i]->playback_field ());
    3367                 :        367 :   m_struct_or_union->playback_compound_type ()->set_fields (&playback_fields);
    3368                 :        367 : }
    3369                 :            : 
    3370                 :            : /* Override the default implementation of
    3371                 :            :    recording::memento::write_to_dump by writing a union/struct
    3372                 :            :    declaration of this form:
    3373                 :            : 
    3374                 :            :       struct/union NAME {
    3375                 :            :         TYPE_1 NAME_1;
    3376                 :            :         TYPE_2 NAME_2;
    3377                 :            :         ....
    3378                 :            :         TYPE_N NAME_N;
    3379                 :            :       };
    3380                 :            : 
    3381                 :            :     to the dump.  */
    3382                 :            : 
    3383                 :            : void
    3384                 :          2 : recording::fields::write_to_dump (dump &d)
    3385                 :            : {
    3386                 :          2 :   int i;
    3387                 :          2 :   field *f;
    3388                 :            : 
    3389                 :          2 :   d.write ("%s\n{\n", m_struct_or_union->get_debug_string ());
    3390                 :         12 :   FOR_EACH_VEC_ELT (m_fields, i, f)
    3391                 :          8 :     f->write_to_dump (d);
    3392                 :          2 :   d.write ("};\n");
    3393                 :          2 : }
    3394                 :            : 
    3395                 :            : /* Implementation of recording::memento::write_reproducer for the fields
    3396                 :            :    subclass.  */
    3397                 :            : 
    3398                 :            : void
    3399                 :       1052 : recording::fields::write_reproducer (reproducer &r)
    3400                 :            : {
    3401                 :       1052 :   if (m_struct_or_union)
    3402                 :       1052 :     if (m_struct_or_union->dyn_cast_struct () == NULL)
    3403                 :            :       /* We have a union; the fields have already been written by
    3404                 :            :          union::write_reproducer.  */
    3405                 :       1052 :       return;
    3406                 :            : 
    3407                 :       1027 :   const char *fields_id = r.make_identifier (this, "fields");
    3408                 :       1027 :   r.write ("  gcc_jit_field *%s[%i] = {\n",
    3409                 :            :            fields_id,
    3410                 :            :            m_fields.length ());
    3411                 :       1027 :   int i;
    3412                 :       1027 :   field *field;
    3413                 :       5972 :   FOR_EACH_VEC_ELT (m_fields, i, field)
    3414                 :       3918 :     r.write ("    %s,\n", r.get_identifier (field));
    3415                 :       1027 :   r.write ("  };\n");
    3416                 :            : 
    3417                 :       2961 :   r.write ("  gcc_jit_struct_set_fields (%s, /* gcc_jit_struct *struct_type */\n"
    3418                 :            :            "                             %s, /* gcc_jit_location *loc */\n"
    3419                 :            :            "                             %i, /* int num_fields */\n"
    3420                 :            :            "                             %s); /* gcc_jit_field **fields */\n",
    3421                 :       1027 :            r.get_identifier (m_struct_or_union),
    3422                 :            :            r.get_identifier ((memento *)NULL),
    3423                 :            :            m_fields.length (),
    3424                 :            :            fields_id);
    3425                 :            : }
    3426                 :            : 
    3427                 :            : /* Implementation of recording::memento::make_debug_string for
    3428                 :            :    field tables.  */
    3429                 :            : 
    3430                 :            : recording::string *
    3431                 :       1021 : recording::fields::make_debug_string ()
    3432                 :            : {
    3433                 :       1021 :   return string::from_printf (m_ctxt,
    3434                 :       1021 :                               "fields");
    3435                 :            : }
    3436                 :            : 
    3437                 :            : /* The implementation of class gcc::jit::recording::rvalue.  */
    3438                 :            : 
    3439                 :            : /* Create a recording::access_field_rvalue instance and add it to
    3440                 :            :    the rvalue's context's list of mementos.
    3441                 :            : 
    3442                 :            :    Implements the post-error-checking part of
    3443                 :            :    gcc_jit_rvalue_access_field.  */
    3444                 :            : 
    3445                 :            : recording::rvalue *
    3446                 :        119 : recording::rvalue::access_field (recording::location *loc,
    3447                 :            :                                  field *field)
    3448                 :            : {
    3449                 :        119 :   recording::rvalue *result =
    3450                 :        119 :     new access_field_rvalue (m_ctxt, loc, this, field);
    3451                 :        119 :   m_ctxt->record (result);
    3452                 :        119 :   return result;
    3453                 :            : }
    3454                 :            : 
    3455                 :            : /* Create a recording::dereference_field_rvalue instance and add it to
    3456                 :            :    the rvalue's context's list of mementos.
    3457                 :            : 
    3458                 :            :    Implements the post-error-checking part of
    3459                 :            :    gcc_jit_rvalue_dereference_field.  */
    3460                 :            : 
    3461                 :            : recording::lvalue *
    3462                 :       1261 : recording::rvalue::dereference_field (recording::location *loc,
    3463                 :            :                                       field *field)
    3464                 :            : {
    3465                 :       1261 :   recording::lvalue *result =
    3466                 :       1261 :     new dereference_field_rvalue (m_ctxt, loc, this, field);
    3467                 :       1261 :   m_ctxt->record (result);
    3468                 :       1261 :   return result;
    3469                 :            : }
    3470                 :            : 
    3471                 :            : /* Create a recording::dereference_rvalue instance and add it to the
    3472                 :            :    rvalue's context's list of mementos.
    3473                 :            : 
    3474                 :            :    Implements the post-error-checking part of
    3475                 :            :    gcc_jit_rvalue_dereference.  */
    3476                 :            : 
    3477                 :            : recording::lvalue *
    3478                 :        599 : recording::rvalue::dereference (recording::location *loc)
    3479                 :            : {
    3480                 :        599 :   recording::lvalue *result =
    3481                 :        599 :     new dereference_rvalue (m_ctxt, loc, this);
    3482                 :        599 :   m_ctxt->record (result);
    3483                 :        599 :   return result;
    3484                 :            : }
    3485                 :            : 
    3486                 :            : /* An rvalue visitor, for validating that every rvalue within an expression
    3487                 :            :    trees within "STMT" has the correct scope (e.g. no access to locals
    3488                 :            :    of a different function).  */
    3489                 :            : 
    3490                 :      14209 : class rvalue_usage_validator : public recording::rvalue_visitor
    3491                 :            : {
    3492                 :            :  public:
    3493                 :            :   rvalue_usage_validator (const char *api_funcname,
    3494                 :            :                           recording::context *ctxt,
    3495                 :            :                           recording::statement *stmt);
    3496                 :            : 
    3497                 :            :   void
    3498                 :            :   visit (recording::rvalue *rvalue) FINAL OVERRIDE;
    3499                 :            : 
    3500                 :            :  private:
    3501                 :            :   const char *m_api_funcname;
    3502                 :            :   recording::context *m_ctxt;
    3503                 :            :   recording::statement *m_stmt;
    3504                 :            : };
    3505                 :            : 
    3506                 :            : /* The trivial constructor for rvalue_usage_validator.  */
    3507                 :            : 
    3508                 :      14210 : rvalue_usage_validator::rvalue_usage_validator (const char *api_funcname,
    3509                 :            :                                                 recording::context *ctxt,
    3510                 :      14210 :                                                 recording::statement *stmt)
    3511                 :      14210 :   : m_api_funcname (api_funcname),
    3512                 :      14210 :     m_ctxt (ctxt),
    3513                 :      14210 :     m_stmt (stmt)
    3514                 :            : {
    3515                 :      14210 : }
    3516                 :            : 
    3517                 :            : /* Verify that the given rvalue is in the correct scope.  */
    3518                 :            : 
    3519                 :            : void
    3520                 :      23312 : rvalue_usage_validator::visit (recording::rvalue *rvalue)
    3521                 :            : {
    3522                 :      23312 :   gcc_assert (m_stmt->get_block ());
    3523                 :      23312 :   recording::function *stmt_scope = m_stmt->get_block ()->get_function ();
    3524                 :            : 
    3525                 :            :   /* Most rvalues don't have a scope (only locals and params).  */
    3526                 :      23312 :   if (rvalue->get_scope ())
    3527                 :            :     {
    3528                 :      10277 :       if (rvalue->get_scope () != stmt_scope)
    3529                 :         10 :         m_ctxt->add_error
    3530                 :         10 :           (rvalue->get_loc (),
    3531                 :            :            "%s:"
    3532                 :            :            " rvalue %s (type: %s)"
    3533                 :            :            " has scope limited to function %s"
    3534                 :            :            " but was used within function %s"
    3535                 :            :            " (in statement: %s)",
    3536                 :            :            m_api_funcname,
    3537                 :            :            rvalue->get_debug_string (),
    3538                 :         10 :            rvalue->get_type ()->get_debug_string (),
    3539                 :         10 :            rvalue->get_scope ()->get_debug_string (),
    3540                 :            :            stmt_scope->get_debug_string (),
    3541                 :            :            m_stmt->get_debug_string ());
    3542                 :            :     }
    3543                 :            :   else
    3544                 :            :     {
    3545                 :      13035 :       if (rvalue->dyn_cast_param ())
    3546                 :          5 :         m_ctxt->add_error
    3547                 :          5 :           (rvalue->get_loc (),
    3548                 :            :            "%s:"
    3549                 :            :            " param %s (type: %s)"
    3550                 :            :            " was used within function %s"
    3551                 :            :            " (in statement: %s)"
    3552                 :            :            " but is not associated with any function",
    3553                 :            :            m_api_funcname,
    3554                 :            :            rvalue->get_debug_string (),
    3555                 :          5 :            rvalue->get_type ()->get_debug_string (),
    3556                 :            :            stmt_scope->get_debug_string (),
    3557                 :          5 :            m_stmt->get_debug_string ());
    3558                 :            :     }
    3559                 :      23312 : }
    3560                 :            : 
    3561                 :            : /* Verify that it's valid to use this rvalue (and all expressions
    3562                 :            :    in the tree below it) within the given statement.
    3563                 :            : 
    3564                 :            :    For example, we must reject attempts to use a local from one
    3565                 :            :    function within a different function here, or we'll get
    3566                 :            :    an ICE deep inside toplev::main.  */
    3567                 :            : 
    3568                 :            : void
    3569                 :      14210 : recording::rvalue::verify_valid_within_stmt (const char *api_funcname, statement *s)
    3570                 :            : {
    3571                 :      14210 :   rvalue_usage_validator v (api_funcname,
    3572                 :            :                             s->get_context (),
    3573                 :      14210 :                             s);
    3574                 :            : 
    3575                 :            :   /* Verify that it's OK to use this rvalue within s.  */
    3576                 :      14210 :   v.visit (this);
    3577                 :            : 
    3578                 :            :   /* Traverse the expression tree below "this", verifying all rvalues
    3579                 :            :      within it.  */
    3580                 :      14209 :   visit_children (&v);
    3581                 :      14209 : }
    3582                 :            : 
    3583                 :            : /* Set the scope of this rvalue to be the given function.  This can only
    3584                 :            :    be done once on a given rvalue.  */
    3585                 :            : 
    3586                 :            : void
    3587                 :      10870 : recording::rvalue::set_scope (function *scope)
    3588                 :            : {
    3589                 :      10870 :   gcc_assert (scope);
    3590                 :      10870 :   gcc_assert (m_scope == NULL);
    3591                 :      10870 :   m_scope = scope;
    3592                 :      10870 : }
    3593                 :            : 
    3594                 :            : 
    3595                 :            : /* Implementation of recording::rvalue::access_as_rvalue for rvalues
    3596                 :            :    themselves.
    3597                 :            :    Instances of rvalue don't need an upcast call.  */
    3598                 :            : 
    3599                 :            : const char *
    3600                 :       6204 : recording::rvalue::access_as_rvalue (reproducer &r)
    3601                 :            : {
    3602                 :       6204 :   return r.get_identifier (this);
    3603                 :            : }
    3604                 :            : 
    3605                 :            : /* Return a debug string for the given rvalue, wrapping it in parentheses
    3606                 :            :    if needed to mimic C's precedence rules, i.e. if OUTER_PREC is of
    3607                 :            :    stronger precedence that this rvalue's precedence.
    3608                 :            : 
    3609                 :            :    For example, given:
    3610                 :            : 
    3611                 :            :            MULT
    3612                 :            :           /    \
    3613                 :            :        PLUS     MINUS
    3614                 :            :       /    \   /     \
    3615                 :            :      A      B C       D
    3616                 :            : 
    3617                 :            :    we want to emit:
    3618                 :            : 
    3619                 :            :      (A + B) * (C - D)
    3620                 :            : 
    3621                 :            :    since MULT has strong precedence than PLUS and MINUS, whereas for:
    3622                 :            : 
    3623                 :            :            PLUS
    3624                 :            :           /    \
    3625                 :            :        MULT     DIVIDE
    3626                 :            :       /    \   /      \
    3627                 :            :      A      B C        D
    3628                 :            : 
    3629                 :            :    we can simply emit:
    3630                 :            : 
    3631                 :            :      A * B + C / D
    3632                 :            : 
    3633                 :            :    since PLUS has weaker precedence than MULT and DIVIDE.  */
    3634                 :            : 
    3635                 :            : const char *
    3636                 :      10049 : recording::rvalue::get_debug_string_parens (enum precedence outer_prec)
    3637                 :            : {
    3638                 :      10049 :   enum precedence this_prec = get_precedence ();
    3639                 :            : 
    3640                 :            :   /* If this_prec has stronger precedence than outer_prec, we don't
    3641                 :            :      need to wrap this in parens within the outer debug string.
    3642                 :            :      Stronger precedences occur earlier than weaker within the enum,
    3643                 :            :      so this is a less than test.  Equal precedences don't need
    3644                 :            :      parentheses.  */
    3645                 :      10049 :   if (this_prec <= outer_prec)
    3646                 :       8899 :     return get_debug_string();
    3647                 :            : 
    3648                 :            :   /* Otherwise, we need parentheses.  */
    3649                 :            : 
    3650                 :            :   /* Lazily-build and cache m_parenthesized_string.  */
    3651                 :       1150 :   if (!m_parenthesized_string)
    3652                 :            :     {
    3653                 :        544 :       const char *debug_string = get_debug_string ();
    3654                 :        544 :       m_parenthesized_string = string::from_printf (get_context (),
    3655                 :            :                                                     "(%s)",
    3656                 :            :                                                     debug_string);
    3657                 :            :     }
    3658                 :       1150 :   gcc_assert (m_parenthesized_string);
    3659                 :       1150 :   return m_parenthesized_string->c_str ();
    3660                 :            : }
    3661                 :            : 
    3662                 :            : 
    3663                 :            : /* The implementation of class gcc::jit::recording::lvalue.  */
    3664                 :            : 
    3665                 :            : /* Create a recording::new_access_field_of_lvalue instance and add it to
    3666                 :            :    the lvalue's context's list of mementos.
    3667                 :            : 
    3668                 :            :    Implements the post-error-checking part of
    3669                 :            :    gcc_jit_lvalue_access_field.  */
    3670                 :            : 
    3671                 :            : recording::lvalue *
    3672                 :        199 : recording::lvalue::access_field (recording::location *loc,
    3673                 :            :                                  field *field)
    3674                 :            : {
    3675                 :        199 :   recording::lvalue *result =
    3676                 :        199 :     new access_field_of_lvalue (m_ctxt, loc, this, field);
    3677                 :        199 :   m_ctxt->record (result);
    3678                 :        199 :   return result;
    3679                 :            : }
    3680                 :            : 
    3681                 :            : /* Implementation of recording::rvalue::access_as_rvalue for lvalues.
    3682                 :            :    Instances of lvalue need to be wrapped in a gcc_jit_lvalue_as_rvalue
    3683                 :            :    upcast call.  */
    3684                 :            : 
    3685                 :            : const char *
    3686                 :       2986 : recording::lvalue::access_as_rvalue (reproducer &r)
    3687                 :            : {
    3688                 :       2986 :   return r.xstrdup_printf ("gcc_jit_lvalue_as_rvalue (%s)",
    3689                 :       2986 :                            r.get_identifier (this));
    3690                 :            : }
    3691                 :            : 
    3692                 :            : /* Implementation of recording::lvalue::access_as_lvalue for lvalues.
    3693                 :            :    Instances of lvalue don't need to be upcast.  */
    3694                 :            : 
    3695                 :            : const char *
    3696                 :       2136 : recording::lvalue::access_as_lvalue (reproducer &r)
    3697                 :            : {
    3698                 :       2136 :   return r.get_identifier (this);
    3699                 :            : }
    3700                 :            : 
    3701                 :            : /* Create a recording::get_address_of_lvalue instance and add it to
    3702                 :            :    the lvalue's context's list of mementos.
    3703                 :            : 
    3704                 :            :    Implements the post-error-checking part of
    3705                 :            :    gcc_jit_lvalue_get_address.  */
    3706                 :            : 
    3707                 :            : recording::rvalue *
    3708                 :        248 : recording::lvalue::get_address (recording::location *loc)
    3709                 :            : {
    3710                 :        248 :   recording::rvalue *result =
    3711                 :        248 :     new get_address_of_lvalue (m_ctxt, loc, this);
    3712                 :        248 :   m_ctxt->record (result);
    3713                 :        248 :   return result;
    3714                 :            : }
    3715                 :            : 
    3716                 :            : /* The implementation of class gcc::jit::recording::param.  */
    3717                 :            : 
    3718                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    3719                 :            :    for recording::param.  */
    3720                 :            : 
    3721                 :            : void
    3722                 :       4264 : recording::param::replay_into (replayer *r)
    3723                 :            : {
    3724                 :       4264 :   set_playback_obj (r->new_param (playback_location (r, m_loc),
    3725                 :       4264 :                                   m_type->playback_type (),
    3726                 :       4264 :                                   m_name->c_str ()));
    3727                 :       4264 : }
    3728                 :            : 
    3729                 :            : /* Implementation of recording::rvalue::access_as_rvalue for params.
    3730                 :            :    Instances of param need to be wrapped in a gcc_jit_param_as_rvalue
    3731                 :            :    upcast call.  */
    3732                 :            : 
    3733                 :            : const char *
    3734                 :       3710 : recording::param::access_as_rvalue (reproducer &r)
    3735                 :            : {
    3736                 :       3710 :   return r.xstrdup_printf ("gcc_jit_param_as_rvalue (%s)",
    3737                 :       3710 :                            r.get_identifier (this));
    3738                 :            : }
    3739                 :            : 
    3740                 :            : /* Implementation of recording::lvalue::access_as_lvalue for params.
    3741                 :            :    Instances of param need to be wrapped in a gcc_jit_param_as_lvalue
    3742                 :            :    upcast call.  */
    3743                 :            : 
    3744                 :            : const char *
    3745                 :         48 : recording::param::access_as_lvalue (reproducer &r)
    3746                 :            : {
    3747                 :         48 :   return r.xstrdup_printf ("gcc_jit_param_as_lvalue (%s)",
    3748                 :         48 :                            r.get_identifier (this));
    3749                 :            : }
    3750                 :            : 
    3751                 :            : /* Implementation of recording::memento::write_reproducer for params. */
    3752                 :            : 
    3753                 :            : void
    3754                 :       7281 : recording::param::write_reproducer (reproducer &r)
    3755                 :            : {
    3756                 :       7281 :   const char *id = r.make_identifier (this, "param");
    3757                 :      14562 :   r.write ("  gcc_jit_param *%s =\n"
    3758                 :            :            "    gcc_jit_context_new_param (%s,\n"
    3759                 :            :            "                               %s, /* gcc_jit_location *loc */\n"
    3760                 :            :            "                               %s, /*gcc_jit_type *type */\n"
    3761                 :            :            "                               %s); /* const char *name */\n",
    3762                 :            :            id,
    3763                 :            :     r.get_identifier (get_context ()),
    3764                 :       7281 :            r.get_identifier (m_loc),
    3765                 :            :            r.get_identifier_as_type (m_type),
    3766                 :       7281 :            m_name->get_debug_string ());
    3767                 :       7281 : }
    3768                 :            : 
    3769                 :            : /* The implementation of class gcc::jit::recording::function.  */
    3770                 :            : 
    3771                 :            : /* gcc::jit::recording::function's constructor.  */
    3772                 :            : 
    3773                 :       4755 : recording::function::function (context *ctxt,
    3774                 :            :                                recording::location *loc,
    3775                 :            :                                enum gcc_jit_function_kind kind,
    3776                 :            :                                type *return_type,
    3777                 :            :                                recording::string *name,
    3778                 :            :                                int num_params,
    3779                 :            :                                recording::param **params,
    3780                 :            :                                int is_variadic,
    3781                 :       4755 :                                enum built_in_function builtin_id)
    3782                 :            : : memento (ctxt),
    3783                 :       4755 :   m_loc (loc),
    3784                 :       4755 :   m_kind (kind),
    3785                 :       4755 :   m_return_type (return_type),
    3786                 :       4755 :   m_name (name),
    3787                 :       4755 :   m_params (),
    3788                 :       4755 :   m_is_variadic (is_variadic),
    3789                 :       4755 :   m_builtin_id (builtin_id),
    3790                 :       4755 :   m_locals (),
    3791                 :       4755 :   m_blocks (),
    3792                 :       4755 :   m_fn_ptr_type (NULL)
    3793                 :            : {
    3794                 :      11858 :   for (int i = 0; i< num_params; i++)
    3795                 :            :     {
    3796                 :       7103 :       param *param = params[i];
    3797                 :       7103 :       gcc_assert (param);
    3798                 :            : 
    3799                 :            :       /* Associate each param with this function.
    3800                 :            : 
    3801                 :            :          Verify that the param doesn't already have a function.  */
    3802                 :       7103 :       if (param->get_scope ())
    3803                 :            :         {
    3804                 :            :           /* We've already rejected attempts to reuse a param between
    3805                 :            :              different functions (within gcc_jit_context_new_function), so
    3806                 :            :              if the param *does* already have a function, it must be being
    3807                 :            :              reused within the params array for this function.  We must
    3808                 :            :              produce an error for this reuse (blocking the compile), since
    3809                 :            :              otherwise we'd have an ICE later on.  */
    3810                 :          5 :           gcc_assert (this == param->get_scope ());
    3811                 :          5 :           ctxt->add_error
    3812                 :          5 :             (loc,
    3813                 :            :              "gcc_jit_context_new_function:"
    3814                 :            :              " parameter %s (type: %s)"
    3815                 :            :              " is used more than once when creating function %s",
    3816                 :            :              param->get_debug_string (),
    3817                 :          5 :              param->get_type ()->get_debug_string (),
    3818                 :            :              name->c_str ());
    3819                 :            :         }
    3820                 :            :       else
    3821                 :            :         {
    3822                 :            :           /* The normal, non-error case: associate this function with the
    3823                 :            :              param.  */
    3824                 :       7098 :           param->set_scope (this);
    3825                 :            :         }
    3826                 :            : 
    3827                 :       7103 :       m_params.safe_push (param);
    3828                 :            :     }
    3829                 :       4755 : }
    3830                 :            : 
    3831                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    3832                 :            :    for recording::function.  */
    3833                 :            : 
    3834                 :            : void
    3835                 :       3910 : recording::function::replay_into (replayer *r)
    3836                 :            : {
    3837                 :            :   /* Convert m_params to a vec of playback param.  */
    3838                 :       3910 :   auto_vec <playback::param *> params;
    3839                 :       3910 :   int i;
    3840                 :       3910 :   recording::param *param;
    3841                 :       3910 :   params.create (m_params.length ());
    3842                 :      12084 :   FOR_EACH_VEC_ELT (m_params, i, param)
    3843                 :       4264 :     params.safe_push (param->playback_param ());
    3844                 :            : 
    3845                 :       3910 :   set_playback_obj (r->new_function (playback_location (r, m_loc),
    3846                 :            :                                      m_kind,
    3847                 :       3910 :                                      m_return_type->playback_type (),
    3848                 :       3910 :                                      m_name->c_str (),
    3849                 :            :                                      &params,
    3850                 :            :                                      m_is_variadic,
    3851                 :            :                                      m_builtin_id));
    3852                 :       3910 : }
    3853                 :            : 
    3854                 :            : /* Create a recording::local instance and add it to
    3855                 :            :    the functions's context's list of mementos, and to the function's
    3856                 :            :    list of locals.
    3857                 :            : 
    3858                 :            :    Implements the post-error-checking part of
    3859                 :            :    gcc_jit_function_new_local.  */
    3860                 :            : 
    3861                 :            : recording::lvalue *
    3862                 :       3772 : recording::function::new_local (recording::location *loc,
    3863                 :            :                                 type *type,
    3864                 :            :                                 const char *name)
    3865                 :            : {
    3866                 :       3772 :   local *result = new local (this, loc, type, new_string (name));
    3867                 :       3772 :   m_ctxt->record (result);
    3868                 :       3772 :   m_locals.safe_push (result);
    3869                 :       3772 :   return result;
    3870                 :            : }
    3871                 :            : 
    3872                 :            : /* Create a recording::block instance and add it to
    3873                 :            :    the functions's context's list of mementos, and to the function's
    3874                 :            :    list of blocks.
    3875                 :            : 
    3876                 :            :    Implements the post-error-checking part of
    3877                 :            :    gcc_jit_function_new_block.  */
    3878                 :            : 
    3879                 :            : recording::block*
    3880                 :       5573 : recording::function::new_block (const char *name)
    3881                 :            : {
    3882                 :       5573 :   gcc_assert (m_kind != GCC_JIT_FUNCTION_IMPORTED);
    3883                 :            : 
    3884                 :       5573 :   recording::block *result =
    3885                 :       8000 :     new recording::block (this, m_blocks.length (), new_string (name));
    3886                 :       5573 :   m_ctxt->record (result);
    3887                 :       5573 :   m_blocks.safe_push (result);
    3888                 :       5573 :   return result;
    3889                 :            : }
    3890                 :            : 
    3891                 :            : /* Override the default implementation of
    3892                 :            :    recording::memento::write_to_dump by dumping a C-like
    3893                 :            :    representation of the function; either like a prototype
    3894                 :            :    for GCC_JIT_FUNCTION_IMPORTED, or like a full definition for
    3895                 :            :    all other kinds of function.  */
    3896                 :            : 
    3897                 :            : void
    3898                 :         14 : recording::function::write_to_dump (dump &d)
    3899                 :            : {
    3900                 :         14 :   switch (m_kind)
    3901                 :            :     {
    3902                 :          0 :     default: gcc_unreachable ();
    3903                 :         14 :     case GCC_JIT_FUNCTION_EXPORTED:
    3904                 :         14 :     case GCC_JIT_FUNCTION_IMPORTED:
    3905                 :         14 :       d.write ("extern ");
    3906                 :         14 :       break;
    3907                 :          0 :     case GCC_JIT_FUNCTION_INTERNAL:
    3908                 :          0 :       d.write ("static ");
    3909                 :          0 :       break;
    3910                 :          0 :     case GCC_JIT_FUNCTION_ALWAYS_INLINE:
    3911                 :          0 :       d.write ("static inline ");
    3912                 :          0 :       break;
    3913                 :            :      }
    3914                 :         14 :   d.write ("%s\n", m_return_type->get_debug_string ());
    3915                 :            : 
    3916                 :         14 :   if (d.update_locations ())
    3917                 :         14 :     m_loc = d.make_location ();
    3918                 :            : 
    3919                 :         14 :   d.write ("%s (", get_debug_string ());
    3920                 :            : 
    3921                 :         14 :   int i;
    3922                 :         14 :   recording::param *param;
    3923                 :         74 :   FOR_EACH_VEC_ELT (m_params, i, param)
    3924                 :            :     {
    3925                 :         46 :       if (i > 0)
    3926                 :         32 :         d.write (", ");
    3927                 :         46 :       d.write ("%s %s",
    3928                 :         46 :                param->get_type ()->get_debug_string (),
    3929                 :            :                param->get_debug_string ());
    3930                 :            :     }
    3931                 :         14 :   d.write (")");
    3932                 :         14 :   if (m_kind == GCC_JIT_FUNCTION_IMPORTED)
    3933                 :            :     {
    3934                 :          2 :       d.write ("; /* (imported) */\n\n");
    3935                 :            :     }
    3936                 :            :   else
    3937                 :            :     {
    3938                 :         12 :       int i;
    3939                 :         12 :       local *var = NULL;
    3940                 :         12 :       block *b;
    3941                 :         12 :       d.write ("\n{\n");
    3942                 :            : 
    3943                 :            :       /* Write locals: */
    3944                 :         40 :       FOR_EACH_VEC_ELT (m_locals, i, var)
    3945                 :         16 :         var->write_to_dump (d);
    3946                 :         12 :       if (m_locals.length ())
    3947                 :          8 :         d.write ("\n");
    3948                 :            : 
    3949                 :            :       /* Write each block: */
    3950                 :         56 :       FOR_EACH_VEC_ELT (m_blocks, i, b)
    3951                 :            :         {
    3952                 :         44 :           if (i > 0)
    3953                 :         32 :             d.write ("\n");
    3954                 :         44 :           b->write_to_dump (d);
    3955                 :            :         }
    3956                 :            : 
    3957                 :         12 :       d.write ("}\n\n");
    3958                 :            :     }
    3959                 :         14 : }
    3960                 :            : 
    3961                 :            : /* Pre-compilation validation of a function, for those things we can't
    3962                 :            :    check until the context is (supposedly) fully-populated.  */
    3963                 :            : 
    3964                 :            : void
    3965                 :       3595 : recording::function::validate ()
    3966                 :            : {
    3967                 :            :   /* Complain about empty functions with non-void return type.  */
    3968                 :       3595 :   if (m_kind != GCC_JIT_FUNCTION_IMPORTED
    3969                 :       3595 :       && m_return_type != m_ctxt->get_type (GCC_JIT_TYPE_VOID))
    3970                 :       2579 :     if (m_blocks.length () == 0)
    3971                 :          5 :       m_ctxt->add_error (m_loc,
    3972                 :            :                          "function %s returns non-void (type: %s)"
    3973                 :            :                          " but has no blocks",
    3974                 :            :                          get_debug_string (),
    3975                 :          5 :                          m_return_type->get_debug_string ());
    3976                 :            : 
    3977                 :            :   /* Check that all blocks are terminated.  */
    3978                 :            :   int num_invalid_blocks = 0;
    3979                 :            :   {
    3980                 :            :     int i;
    3981                 :            :     block *b;
    3982                 :            : 
    3983                 :       9176 :     FOR_EACH_VEC_ELT (m_blocks, i, b)
    3984                 :       5581 :       if (!b->validate ())
    3985                 :        455 :         num_invalid_blocks++;
    3986                 :            :   }
    3987                 :            : 
    3988                 :            :   /* Check that all blocks are reachable.  */
    3989                 :       3595 :   if (!m_ctxt->get_inner_bool_option
    3990                 :       3595 :         (INNER_BOOL_OPTION_ALLOW_UNREACHABLE_BLOCKS)
    3991                 :       3595 :       && m_blocks.length () > 0 && num_invalid_blocks == 0)
    3992                 :            :     {
    3993                 :            :       /* Iteratively walk the graph of blocks, marking their "m_is_reachable"
    3994                 :            :          flag, starting at the initial block.  */
    3995                 :       2699 :       auto_vec<block *> worklist (m_blocks.length ());
    3996                 :       2699 :       worklist.safe_push (m_blocks[0]);
    3997                 :      10458 :       while (worklist.length () > 0)
    3998                 :            :         {
    3999                 :       5060 :           block *b = worklist.pop ();
    4000                 :       5060 :           b->m_is_reachable = true;
    4001                 :            : 
    4002                 :            :           /* Add successor blocks that aren't yet marked to the worklist.  */
    4003                 :            :           /* We checked that each block has a terminating statement above .  */
    4004                 :       5060 :           vec <block *> successors = b->get_successor_blocks ();
    4005                 :       5060 :           int i;
    4006                 :       5060 :           block *succ;
    4007                 :      13025 :           FOR_EACH_VEC_ELT (successors, i, succ)
    4008                 :       2905 :             if (!succ->m_is_reachable)
    4009                 :       2361 :               worklist.safe_push (succ);
    4010                 :       5060 :           successors.release ();
    4011                 :            :         }
    4012                 :            : 
    4013                 :            :       /* Now complain about any blocks that haven't been marked.  */
    4014                 :            :       {
    4015                 :            :         int i;
    4016                 :            :         block *b;
    4017                 :      10459 :         FOR_EACH_VEC_ELT (m_blocks, i, b)
    4018                 :       5061 :           if (!b->m_is_reachable)
    4019                 :          5 :             m_ctxt->add_error (b->get_loc (),
    4020                 :            :                                "unreachable block: %s",
    4021                 :            :                                b->get_debug_string ());
    4022                 :            :       }
    4023                 :       2699 :     }
    4024                 :       3595 : }
    4025                 :            : 
    4026                 :            : /* Implements the post-error-checking part of
    4027                 :            :    gcc_jit_function_dump_to_dot.  */
    4028                 :            : 
    4029                 :            : void
    4030                 :          0 : recording::function::dump_to_dot (const char *path)
    4031                 :            : {
    4032                 :          0 :   FILE *fp  = fopen (path, "w");
    4033                 :          0 :   if (!fp)
    4034                 :          0 :     return;
    4035                 :            : 
    4036                 :          0 :   pretty_printer the_pp;
    4037                 :          0 :   the_pp.buffer->stream = fp;
    4038                 :            : 
    4039                 :          0 :   pretty_printer *pp = &the_pp;
    4040                 :            : 
    4041                 :          0 :   pp_printf (pp, "digraph %s", get_debug_string ());
    4042                 :          0 :   pp_string (pp, " {\n");
    4043                 :            : 
    4044                 :            :   /* Blocks: */
    4045                 :          0 :   {
    4046                 :          0 :     int i;
    4047                 :          0 :     block *b;
    4048                 :          0 :     FOR_EACH_VEC_ELT (m_blocks, i, b)
    4049                 :          0 :       b->dump_to_dot (pp);
    4050                 :            :   }
    4051                 :            : 
    4052                 :            :   /* Edges: */
    4053                 :            :   {
    4054                 :            :     int i;
    4055                 :            :     block *b;
    4056                 :          0 :     FOR_EACH_VEC_ELT (m_blocks, i, b)
    4057                 :          0 :       b->dump_edges_to_dot (pp);
    4058                 :            :   }
    4059                 :            : 
    4060                 :          0 :   pp_string (pp, "}\n");
    4061                 :          0 :   pp_flush (pp);
    4062                 :          0 :   fclose (fp);
    4063                 :          0 : }
    4064                 :            : 
    4065                 :            : /* Implements the post-error-checking part of
    4066                 :            :    gcc_jit_function_get_address.  */
    4067                 :            : 
    4068                 :            : recording::rvalue *
    4069                 :         15 : recording::function::get_address (recording::location *loc)
    4070                 :            : {
    4071                 :            :   /* Lazily create and cache the function pointer type.  */
    4072                 :         15 :   if (!m_fn_ptr_type)
    4073                 :            :     {
    4074                 :            :       /* Make a recording::function_type for this function.  */
    4075                 :         30 :       auto_vec <recording::type *> param_types (m_params.length ());
    4076                 :         15 :       unsigned i;
    4077                 :         15 :       recording::param *param;
    4078                 :         45 :       FOR_EACH_VEC_ELT (m_params, i, param)
    4079                 :         15 :         param_types.safe_push (param->get_type ());
    4080                 :         15 :       recording::function_type *fn_type
    4081                 :         15 :         = m_ctxt->new_function_type (m_return_type,
    4082                 :         30 :                                      m_params.length (),
    4083                 :            :                                      param_types.address (),
    4084                 :            :                                      m_is_variadic);
    4085                 :         15 :       m_fn_ptr_type = fn_type->get_pointer ();
    4086                 :         15 :     }
    4087                 :         15 :   gcc_assert (m_fn_ptr_type);
    4088                 :            : 
    4089                 :         15 :   rvalue *result = new function_pointer (get_context (), loc, this, m_fn_ptr_type);
    4090                 :         15 :   m_ctxt->record (result);
    4091                 :         15 :   return result;
    4092                 :            : }
    4093                 :            : 
    4094                 :            : /* Implementation of recording::memento::make_debug_string for
    4095                 :            :    functions.  */
    4096                 :            : 
    4097                 :            : recording::string *
    4098                 :       2654 : recording::function::make_debug_string ()
    4099                 :            : {
    4100                 :       2654 :   return m_name;
    4101                 :            : }
    4102                 :            : 
    4103                 :            : /* A table of enum gcc_jit_function_kind values expressed in string
    4104                 :            :    form.  */
    4105                 :            : 
    4106                 :            : static const char * const names_of_function_kinds[] = {
    4107                 :            :   "GCC_JIT_FUNCTION_EXPORTED",
    4108                 :            :   "GCC_JIT_FUNCTION_INTERNAL",
    4109                 :            :   "GCC_JIT_FUNCTION_IMPORTED",
    4110                 :            :   "GCC_JIT_FUNCTION_ALWAYS_INLINE"
    4111                 :            : };
    4112                 :            : 
    4113                 :            : /* Implementation of recording::memento::write_reproducer for functions. */
    4114                 :            : 
    4115                 :            : void
    4116                 :       2655 : recording::function::write_reproducer (reproducer &r)
    4117                 :            : {
    4118                 :       2655 :   const char *id = r.make_identifier (this, "func");
    4119                 :            : 
    4120                 :       2655 :   if (m_builtin_id)
    4121                 :            :     {
    4122                 :        128 :       r.write ("  gcc_jit_function *%s =\n"
    4123                 :            :                "    gcc_jit_context_get_builtin_function (%s,\n"
    4124                 :            :                "                                          %s);\n",
    4125                 :            :                id,
    4126                 :            :                r.get_identifier (get_context ()),
    4127                 :        128 :                m_name->get_debug_string ());
    4128                 :        128 :       return;
    4129                 :            :     }
    4130                 :       2527 :   const char *params_id = r.make_tmp_identifier ("params_for", this);
    4131                 :       2527 :   r.write ("  gcc_jit_param *%s[%i] = {\n",
    4132                 :            :            params_id,
    4133                 :            :            m_params.length ());
    4134                 :       2527 :   int i;
    4135                 :       2527 :   param *param;
    4136                 :      10522 :   FOR_EACH_VEC_ELT (m_params, i, param)
    4137                 :       5468 :     r.write ("    %s,\n", r.get_identifier (param));
    4138                 :       2527 :   r.write ("  };\n");
    4139                 :       7581 :   r.write ("  gcc_jit_function *%s =\n"
    4140                 :            :            "    gcc_jit_context_new_function (%s, /* gcc_jit_context *ctxt */\n"
    4141                 :            :            "                                  %s, /* gcc_jit_location *loc */\n"
    4142                 :            :            "                                  %s, /* enum gcc_jit_function_kind kind */\n"
    4143                 :            :            "                                  %s, /* gcc_jit_type *return_type */\n"
    4144                 :            :            "                                  %s, /* const char *name */\n"
    4145                 :            :            "                                  %i, /* int num_params */\n"
    4146                 :            :            "                                  %s, /* gcc_jit_param **params */\n"
    4147                 :            :            "                                  %i); /* int is_variadic */\n",
    4148                 :            :            id,
    4149                 :            :            r.get_identifier (get_context ()),
    4150                 :       2527 :            r.get_identifier (m_loc),
    4151                 :       2527 :            names_of_function_kinds[m_kind],
    4152                 :            :            r.get_identifier_as_type (m_return_type),
    4153                 :       2527 :            m_name->get_debug_string (),
    4154                 :            :            m_params.length (),
    4155                 :            :            params_id,
    4156                 :            :            m_is_variadic);
    4157                 :            : }
    4158                 :            : 
    4159                 :            : 
    4160                 :            : /* The implementation of class gcc::jit::recording::block.  */
    4161                 :            : 
    4162                 :            : /* Create a recording::eval instance and add it to
    4163                 :            :    the block's context's list of mementos, and to the block's
    4164                 :            :    list of statements.
    4165                 :            : 
    4166                 :            :    Implements the heart of gcc_jit_block_add_eval.  */
    4167                 :            : 
    4168                 :            : recording::statement *
    4169                 :       2022 : recording::block::add_eval (recording::location *loc,
    4170                 :            :                             recording::rvalue *rvalue)
    4171                 :            : {
    4172                 :       2022 :   statement *result = new eval (this, loc, rvalue);
    4173                 :       2022 :   m_ctxt->record (result);
    4174                 :       2022 :   m_statements.safe_push (result);
    4175                 :       2022 :   return result;
    4176                 :            : }
    4177                 :            : 
    4178                 :            : /* Create a recording::assignment instance and add it to
    4179                 :            :    the block's context's list of mementos, and to the block's
    4180                 :            :    list of statements.
    4181                 :            : 
    4182                 :            :    Implements the heart of gcc_jit_block_add_assignment.  */
    4183                 :            : 
    4184                 :            : recording::statement *
    4185                 :       4015 : recording::block::add_assignment (recording::location *loc,
    4186                 :            :                                   recording::lvalue *lvalue,
    4187                 :            :                                   recording::rvalue *rvalue)
    4188                 :            : {
    4189                 :       4015 :   statement *result = new assignment (this, loc, lvalue, rvalue);
    4190                 :       4015 :   m_ctxt->record (result);
    4191                 :       4015 :   m_statements.safe_push (result);
    4192                 :       4015 :   return result;
    4193                 :            : }
    4194                 :            : 
    4195                 :            : /* Create a recording::assignment_op instance and add it to
    4196                 :            :    the block's context's list of mementos, and to the block's
    4197                 :            :    list of statements.
    4198                 :            : 
    4199                 :            :    Implements the heart of gcc_jit_block_add_assignment_op.  */
    4200                 :            : 
    4201                 :            : recording::statement *
    4202                 :        369 : recording::block::add_assignment_op (recording::location *loc,
    4203                 :            :                                      recording::lvalue *lvalue,
    4204                 :            :                                      enum gcc_jit_binary_op op,
    4205                 :            :                                      recording::rvalue *rvalue)
    4206                 :            : {
    4207                 :        369 :   statement *result = new assignment_op (this, loc, lvalue, op, rvalue);
    4208                 :        369 :   m_ctxt->record (result);
    4209                 :        369 :   m_statements.safe_push (result);
    4210                 :        369 :   return result;
    4211                 :            : }
    4212                 :            : 
    4213                 :            : /* Create a recording::comment instance and add it to
    4214                 :            :    the block's context's list of mementos, and to the block's
    4215                 :            :    list of statements.
    4216                 :            : 
    4217                 :            :    Implements the heart of gcc_jit_block_add_comment.  */
    4218                 :            : 
    4219                 :            : recording::statement *
    4220                 :        420 : recording::block::add_comment (recording::location *loc,
    4221                 :            :                                const char *text)
    4222                 :            : {
    4223                 :        420 :   statement *result = new comment (this, loc, new_string (text));
    4224                 :        420 :   m_ctxt->record (result);
    4225                 :        420 :   m_statements.safe_push (result);
    4226                 :        420 :   return result;
    4227                 :            : }
    4228                 :            : 
    4229                 :            : /* Create a recording::extended_asm_simple instance and add it to
    4230                 :            :    the block's context's list of mementos, and to the block's
    4231                 :            :    list of statements.
    4232                 :            : 
    4233                 :            :    Implements the heart of gcc_jit_block_add_extended_asm.  */
    4234                 :            : 
    4235                 :            : recording::extended_asm *
    4236                 :         40 : recording::block::add_extended_asm (location *loc,
    4237                 :            :                                     const char *asm_template)
    4238                 :            : {
    4239                 :         40 :   extended_asm *result
    4240                 :         40 :     = new extended_asm_simple (this, loc, new_string (asm_template));
    4241                 :         40 :   m_ctxt->record (result);
    4242                 :         40 :   m_statements.safe_push (result);
    4243                 :         40 :   return result;
    4244                 :            : }
    4245                 :            : 
    4246                 :            : /* Create a recording::end_with_conditional instance and add it to
    4247                 :            :    the block's context's list of mementos, and to the block's
    4248                 :            :    list of statements.
    4249                 :            : 
    4250                 :            :    Implements the heart of gcc_jit_block_end_with_conditional.  */
    4251                 :            : 
    4252                 :            : recording::statement *
    4253                 :        824 : recording::block::end_with_conditional (recording::location *loc,
    4254                 :            :                                         recording::rvalue *boolval,
    4255                 :            :                                         recording::block *on_true,
    4256                 :            :                                         recording::block *on_false)
    4257                 :            : {
    4258                 :        824 :   statement *result = new conditional (this, loc, boolval, on_true, on_false);
    4259                 :        824 :   m_ctxt->record (result);
    4260                 :        824 :   m_statements.safe_push (result);
    4261                 :        824 :   m_has_been_terminated = true;
    4262                 :        824 :   return result;
    4263                 :            : }
    4264                 :            : 
    4265                 :            : /* Create a recording::end_with_jump instance and add it to
    4266                 :            :    the block's context's list of mementos, and to the block's
    4267                 :            :    list of statements.
    4268                 :            : 
    4269                 :            :    Implements the heart of gcc_jit_block_end_with_jump.  */
    4270                 :            : 
    4271                 :            : recording::statement *
    4272                 :       1117 : recording::block::end_with_jump (recording::location *loc,
    4273                 :            :                                  recording::block *target)
    4274                 :            : {
    4275                 :       1117 :   statement *result = new jump (this, loc, target);
    4276                 :       1117 :   m_ctxt->record (result);
    4277                 :       1117 :   m_statements.safe_push (result);
    4278                 :       1117 :   m_has_been_terminated = true;
    4279                 :       1117 :   return result;
    4280                 :            : }
    4281                 :            : 
    4282                 :            : /* Create a recording::end_with_return instance and add it to
    4283                 :            :    the block's context's list of mementos, and to the block's
    4284                 :            :    list of statements.
    4285                 :            : 
    4286                 :            :    Implements the post-error-checking parts of
    4287                 :            :    gcc_jit_block_end_with_return and
    4288                 :            :    gcc_jit_block_end_with_void_return.  */
    4289                 :            : 
    4290                 :            : recording::statement *
    4291                 :       3137 : recording::block::end_with_return (recording::location *loc,
    4292                 :            :                                    recording::rvalue *rvalue)
    4293                 :            : {
    4294                 :            :   /* This is used by both gcc_jit_function_add_return and
    4295                 :            :      gcc_jit_function_add_void_return; rvalue will be non-NULL for
    4296                 :            :      the former and NULL for the latter.  */
    4297                 :       3137 :   statement *result = new return_ (this, loc, rvalue);
    4298                 :       3137 :   m_ctxt->record (result);
    4299                 :       3137 :   m_statements.safe_push (result);
    4300                 :       3137 :   m_has_been_terminated = true;
    4301                 :       3137 :   return result;
    4302                 :            : }
    4303                 :            : 
    4304                 :            : /* Create a recording::switch_ instance and add it to
    4305                 :            :    the block's context's list of mementos, and to the block's
    4306                 :            :    list of statements.
    4307                 :            : 
    4308                 :            :    Implements the heart of gcc_jit_block_end_with_switch.  */
    4309                 :            : 
    4310                 :            : recording::statement *
    4311                 :         20 : recording::block::end_with_switch (recording::location *loc,
    4312                 :            :                                    recording::rvalue *expr,
    4313                 :            :                                    recording::block *default_block,
    4314                 :            :                                    int num_cases,
    4315                 :            :                                    recording::case_ **cases)
    4316                 :            : {
    4317                 :         20 :   statement *result = new switch_ (this, loc,
    4318                 :            :                                    expr,
    4319                 :            :                                    default_block,
    4320                 :            :                                    num_cases,
    4321                 :         20 :                                    cases);
    4322                 :         20 :   m_ctxt->record (result);
    4323                 :         20 :   m_statements.safe_push (result);
    4324                 :         20 :   m_has_been_terminated = true;
    4325                 :         20 :   return result;
    4326                 :            : }
    4327                 :            : 
    4328                 :            : /* Create a recording::extended_asm_goto instance and add it to
    4329                 :            :    the block's context's list of mementos, and to the block's
    4330                 :            :    list of statements.
    4331                 :            : 
    4332                 :            :    Implements the heart of gcc_jit_block_end_with_extended_asm_goto.  */
    4333                 :            : 
    4334                 :            : 
    4335                 :            : recording::extended_asm *
    4336                 :         20 : recording::block::end_with_extended_asm_goto (location *loc,
    4337                 :            :                                               const char *asm_template,
    4338                 :            :                                               int num_goto_blocks,
    4339                 :            :                                               block **goto_blocks,
    4340                 :            :                                               block *fallthrough_block)
    4341                 :            : {
    4342                 :         20 :   extended_asm *result
    4343                 :         20 :     = new extended_asm_goto (this, loc, new_string (asm_template),
    4344                 :            :                              num_goto_blocks, goto_blocks,
    4345                 :         20 :                              fallthrough_block);
    4346                 :         20 :   m_ctxt->record (result);
    4347                 :         20 :   m_statements.safe_push (result);
    4348                 :         20 :   m_has_been_terminated = true;
    4349                 :         20 :   return result;
    4350                 :            : }
    4351                 :            : 
    4352                 :            : /* Override the default implementation of
    4353                 :            :    recording::memento::write_to_dump for blocks by writing
    4354                 :            :    an unindented block name as a label, followed by the indented
    4355                 :            :    statements:
    4356                 :            : 
    4357                 :            :     BLOCK_NAME:
    4358                 :            :       STATEMENT_1;
    4359                 :            :       STATEMENT_2;
    4360                 :            :       ...
    4361                 :            :       STATEMENT_N;  */
    4362                 :            : 
    4363                 :            : void
    4364                 :         44 : recording::block::write_to_dump (dump &d)
    4365                 :            : {
    4366                 :         44 :   d.write ("%s:\n", get_debug_string ());
    4367                 :            : 
    4368                 :         44 :   int i;
    4369                 :         44 :   statement *s;
    4370                 :        244 :   FOR_EACH_VEC_ELT (m_statements, i, s)
    4371                 :        156 :     s->write_to_dump (d);
    4372                 :         44 : }
    4373                 :            : 
    4374                 :            : /* Validate a block by ensuring that it has been terminated.  */
    4375                 :            : 
    4376                 :            : bool
    4377                 :       5581 : recording::block::validate ()
    4378                 :            : {
    4379                 :            :   /* Check for termination.  */
    4380                 :       5581 :   if (!has_been_terminated ())
    4381                 :            :     {
    4382                 :        455 :       statement *stmt = get_last_statement ();
    4383                 :        455 :       location *loc = stmt ? stmt->get_loc () : NULL;
    4384                 :        455 :       m_func->get_context ()->add_error (loc,
    4385                 :            :                                          "unterminated block in %s: %s",
    4386                 :        455 :                                          m_func->get_debug_string (),
    4387                 :            :                                          get_debug_string ());
    4388                 :        455 :       return false;
    4389                 :            :     }
    4390                 :            : 
    4391                 :            :   return true;
    4392                 :            : }
    4393                 :            : 
    4394                 :            : /* Get the source-location of a block by using that of the first
    4395                 :            :    statement within it, if any.  */
    4396                 :            : 
    4397                 :            : recording::location *
    4398                 :          5 : recording::block::get_loc () const
    4399                 :            : {
    4400                 :          5 :   recording::statement *stmt = get_first_statement ();
    4401                 :          5 :   if (stmt)
    4402                 :          5 :     return stmt->get_loc ();
    4403                 :            :   else
    4404                 :            :     return NULL;
    4405                 :            : }
    4406                 :            : 
    4407                 :            : /* Get the first statement within a block, if any.  */
    4408                 :            : 
    4409                 :            : recording::statement *
    4410                 :          5 : recording::block::get_first_statement () const
    4411                 :            : {
    4412                 :          5 :   if (m_statements.length ())
    4413                 :          5 :     return m_statements[0];
    4414                 :            :   else
    4415                 :            :     return NULL;
    4416                 :            : }
    4417                 :            : 
    4418                 :            : /* Get the last statement within a block, if any.  */
    4419                 :            : 
    4420                 :            : recording::statement *
    4421                 :       5520 : recording::block::get_last_statement () const
    4422                 :            : {
    4423                 :       5520 :   if (m_statements.length ())
    4424                 :       5403 :     return m_statements[m_statements.length () - 1];
    4425                 :            :   else
    4426                 :            :     return NULL;
    4427                 :            : }
    4428                 :            : 
    4429                 :            : /* Assuming that this block has been terminated, get the successor blocks
    4430                 :            :    as a vector.  Ownership of the vector transfers to the caller, which
    4431                 :            :    must call its release () method.
    4432                 :            : 
    4433                 :            :    Used when validating functions, and when dumping dot representations
    4434                 :            :    of them.  */
    4435                 :            : 
    4436                 :            : vec <recording::block *>
    4437                 :       5060 : recording::block::get_successor_blocks () const
    4438                 :            : {
    4439                 :       5060 :   gcc_assert (m_has_been_terminated);
    4440                 :       5060 :   statement *last_statement = get_last_statement ();
    4441                 :       5060 :   gcc_assert (last_statement);
    4442                 :       5060 :   return last_statement->get_successor_blocks ();
    4443                 :            : }
    4444                 :            : 
    4445                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    4446                 :            :    for recording::block.  */
    4447                 :            : 
    4448                 :            : void
    4449                 :       4933 : recording::block::replay_into (replayer *)
    4450                 :            : {
    4451                 :       4933 :   set_playback_obj (m_func->playback_function ()
    4452                 :       4933 :                       ->new_block (playback_string (m_name)));
    4453                 :       4933 : }
    4454                 :            : 
    4455                 :            : /* Implementation of recording::memento::make_debug_string for
    4456                 :            :    blocks.  */
    4457                 :            : 
    4458                 :            : recording::string *
    4459                 :       2987 : recording::block::make_debug_string ()
    4460                 :            : {
    4461                 :       2987 :   if (m_name)
    4462                 :            :     return m_name;
    4463                 :            :   else
    4464                 :       1057 :     return string::from_printf (m_ctxt,
    4465                 :            :                                 "<UNNAMED BLOCK %p>",
    4466                 :       1057 :                                 (void *)this);
    4467                 :            : }
    4468                 :            : 
    4469                 :            : /* Implementation of recording::memento::write_reproducer for blocks. */
    4470                 :            : 
    4471                 :            : void
    4472                 :       2991 : recording::block::write_reproducer (reproducer &r)
    4473                 :            : {
    4474                 :       2991 :   const char *id = r.make_identifier (this, "block");
    4475                 :       2991 :   r.write ("  gcc_jit_block *%s =\n"
    4476                 :            :            "    gcc_jit_function_new_block (%s, %s);\n",
    4477                 :            :            id,
    4478                 :       2991 :            r.get_identifier (m_func),
    4479                 :       2991 :            m_name ? m_name->get_debug_string () : "NULL");
    4480                 :       2991 : }
    4481                 :            : 
    4482                 :            : /* Disable warnings about missing quoting in GCC diagnostics for
    4483                 :            :    the pp_printf calls.  Their format strings deliberately don't
    4484                 :            :    follow GCC diagnostic conventions.  */
    4485                 :            : #if __GNUC__ >= 10
    4486                 :            : #  pragma GCC diagnostic push
    4487                 :            : #  pragma GCC diagnostic ignored "-Wformat-diag"
    4488                 :            : #endif
    4489                 :            : 
    4490                 :            : /* Dump a block in graphviz form into PP, capturing the block name (if
    4491                 :            :    any) and the statements.  */
    4492                 :            : 
    4493                 :            : void
    4494                 :          0 : recording::block::dump_to_dot (pretty_printer *pp)
    4495                 :            : {
    4496                 :          0 :   pp_printf (pp,
    4497                 :            :              ("\tblock_%d "
    4498                 :            :               "[shape=record,style=filled,fillcolor=white,label=\"{"),
    4499                 :            :              m_index);
    4500                 :          0 :   pp_write_text_to_stream (pp);
    4501                 :          0 :   if (m_name)
    4502                 :            :     {
    4503                 :          0 :       pp_string (pp, m_name->c_str ());
    4504                 :          0 :       pp_string (pp, ":");
    4505                 :          0 :       pp_newline (pp);
    4506                 :          0 :       pp_write_text_as_dot_label_to_stream (pp, true /*for_record*/);
    4507                 :            :     }
    4508                 :            : 
    4509                 :            :   int i;
    4510                 :            :   statement *s;
    4511                 :          0 :   FOR_EACH_VEC_ELT (m_statements, i, s)
    4512                 :            :     {
    4513                 :          0 :       pp_string (pp, s->get_debug_string ());
    4514                 :          0 :       pp_newline (pp);
    4515                 :          0 :       pp_write_text_as_dot_label_to_stream (pp, true /*for_record*/);
    4516                 :            :     }
    4517                 :            : 
    4518                 :          0 :   pp_string (pp,
    4519                 :            :              "}\"];\n\n");
    4520                 :          0 :   pp_flush (pp);
    4521                 :          0 : }
    4522                 :            : 
    4523                 :            : /* Dump the out-edges of the block in graphviz form into PP.  */
    4524                 :            : 
    4525                 :            : void
    4526                 :          0 : recording::block::dump_edges_to_dot (pretty_printer *pp)
    4527                 :            : {
    4528                 :          0 :   vec <block *> successors = get_successor_blocks ();
    4529                 :          0 :   int i;
    4530                 :          0 :   block *succ;
    4531                 :          0 :   FOR_EACH_VEC_ELT (successors, i, succ)
    4532                 :          0 :     pp_printf (pp,
    4533                 :            :                "\tblock_%d:s -> block_%d:n;\n",
    4534                 :            :                m_index, succ->m_index);
    4535                 :          0 :   successors.release ();
    4536                 :          0 : }
    4537                 :            : 
    4538                 :            : #if __GNUC__ >= 10
    4539                 :            : #  pragma GCC diagnostic pop
    4540                 :            : #endif
    4541                 :            : 
    4542                 :            : /* The implementation of class gcc::jit::recording::global.  */
    4543                 :            : 
    4544                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    4545                 :            :    for recording::global.  */
    4546                 :            : 
    4547                 :            : void
    4548                 :        136 : recording::global::replay_into (replayer *r)
    4549                 :            : {
    4550                 :        272 :   set_playback_obj (
    4551                 :        136 :     m_initializer
    4552                 :         30 :     ? r->new_global_initialized (playback_location (r, m_loc),
    4553                 :            :                                  m_kind,
    4554                 :         15 :                                  m_type->playback_type (),
    4555                 :         15 :                                  m_type->dereference ()->get_size (),
    4556                 :         15 :                                  m_initializer_num_bytes
    4557                 :         15 :                                  / m_type->dereference ()->get_size (),
    4558                 :         15 :                                  m_initializer,
    4559                 :            :                                  playback_string (m_name))
    4560                 :        121 :     : r->new_global (playback_location (r, m_loc),
    4561                 :            :                      m_kind,
    4562                 :        121 :                      m_type->playback_type (),
    4563                 :            :                      playback_string (m_name)));
    4564                 :        136 : }
    4565                 :            : 
    4566                 :            : /* Override the default implementation of
    4567                 :            :    recording::memento::write_to_dump for globals.
    4568                 :            :    This will be of the form:
    4569                 :            : 
    4570                 :            :    GCC_JIT_GLOBAL_EXPORTED:
    4571                 :            :       "TYPE NAME;"
    4572                 :            :       e.g. "int foo;"
    4573                 :            : 
    4574                 :            :    GCC_JIT_GLOBAL_INTERNAL:
    4575                 :            :       "static TYPE NAME;"
    4576                 :            :       e.g. "static int foo;"
    4577                 :            : 
    4578                 :            :    GCC_JIT_GLOBAL_IMPORTED:
    4579                 :            :       "extern TYPE NAME;"
    4580                 :            :       e.g. "extern int foo;"
    4581                 :            : 
    4582                 :            :    These are written to the top of the dump by
    4583                 :            :    recording::context::dump_to_file.  */
    4584                 :            : 
    4585                 :            : void
    4586                 :          0 : recording::global::write_to_dump (dump &d)
    4587                 :            : {
    4588                 :          0 :   if (d.update_locations ())
    4589                 :          0 :     m_loc = d.make_location ();
    4590                 :            : 
    4591                 :          0 :   switch (m_kind)
    4592                 :            :     {
    4593                 :          0 :     default:
    4594                 :          0 :       gcc_unreachable ();
    4595                 :            : 
    4596                 :            :     case GCC_JIT_GLOBAL_EXPORTED:
    4597                 :            :       break;
    4598                 :            : 
    4599                 :          0 :     case GCC_JIT_GLOBAL_INTERNAL:
    4600                 :          0 :       d.write ("static ");
    4601                 :          0 :       break;
    4602                 :            : 
    4603                 :          0 :     case GCC_JIT_GLOBAL_IMPORTED:
    4604                 :          0 :       d.write ("extern ");
    4605                 :          0 :       break;
    4606                 :            :     }
    4607                 :            : 
    4608                 :          0 :   d.write ("%s %s",
    4609                 :          0 :            m_type->get_debug_string (),
    4610                 :            :            get_debug_string ());
    4611                 :            : 
    4612                 :          0 :   if (!m_initializer)
    4613                 :            :     {
    4614                 :          0 :       d.write (";\n");
    4615                 :          0 :       return;
    4616                 :            :     }
    4617                 :            : 
    4618                 :          0 :   d.write ("=\n  { ");
    4619                 :          0 :   const unsigned char *p = (const unsigned char *)m_initializer;
    4620                 :          0 :   for (size_t i = 0; i < m_initializer_num_bytes; i++)
    4621                 :            :     {
    4622                 :          0 :       d.write ("0x%x, ", p[i]);
    4623                 :          0 :       if (i && !(i % 64))
    4624                 :          0 :         d.write ("\n    ");
    4625                 :            :     }
    4626                 :          0 :   d.write ("};\n");
    4627                 :            : }
    4628                 :            : 
    4629                 :            : /* A table of enum gcc_jit_global_kind values expressed in string
    4630                 :            :    form.  */
    4631                 :            : 
    4632                 :            : static const char * const global_kind_reproducer_strings[] = {
    4633                 :            :   "GCC_JIT_GLOBAL_EXPORTED",
    4634                 :            :   "GCC_JIT_GLOBAL_INTERNAL",
    4635                 :            :   "GCC_JIT_GLOBAL_IMPORTED"
    4636                 :            : };
    4637                 :            : 
    4638                 :            : template <typename T>
    4639                 :            : void
    4640                 :         15 : recording::global::write_initializer_reproducer (const char *id, reproducer &r)
    4641                 :            : {
    4642                 :         15 :   const char *init_id = r.make_tmp_identifier ("init_for", this);
    4643                 :         15 :   r.write ("  %s %s[] =\n    {",
    4644                 :         15 :            m_type->dereference ()->get_debug_string (),
    4645                 :            :            init_id);
    4646                 :            : 
    4647                 :         15 :   const T *p = (const T *)m_initializer;
    4648                 :      20555 :   for (size_t i = 0; i < m_initializer_num_bytes / sizeof (T); i++)
    4649                 :            :     {
    4650                 :      20540 :       r.write ("%" PRIu64 ", ", (uint64_t)p[i]);
    4651                 :      20540 :       if (i && !(i % 64))
    4652                 :        315 :         r.write ("\n    ");
    4653                 :            :     }
    4654                 :         15 :   r.write ("};\n");
    4655                 :         15 :   r.write ("  gcc_jit_global_set_initializer (%s, %s, sizeof (%s));\n",
    4656                 :            :            id, init_id, init_id);
    4657                 :         15 : }
    4658                 :            : 
    4659                 :            : /* Implementation of recording::memento::write_reproducer for globals. */
    4660                 :            : 
    4661                 :            : void
    4662                 :       1491 : recording::global::write_reproducer (reproducer &r)
    4663                 :            : {
    4664                 :       1491 :   const char *id = r.make_identifier (this, "block");
    4665                 :       2982 :   r.write ("  gcc_jit_lvalue *%s =\n"
    4666                 :            :     "    gcc_jit_context_new_global (%s, /* gcc_jit_context *ctxt */\n"
    4667                 :            :     "                                %s, /* gcc_jit_location *loc */\n"
    4668                 :            :     "                                %s, /* enum gcc_jit_global_kind kind */\n"
    4669                 :            :     "                                %s, /* gcc_jit_type *type */\n"
    4670                 :            :     "                                %s); /* const char *name */\n",
    4671                 :            :     id,
    4672                 :            :     r.get_identifier (get_context ()),
    4673                 :       1491 :     r.get_identifier (m_loc),
    4674                 :       1491 :     global_kind_reproducer_strings[m_kind],
    4675                 :            :     r.get_identifier_as_type (get_type ()),
    4676                 :       1491 :     m_name->get_debug_string ());
    4677                 :            : 
    4678                 :       1491 :   if (m_initializer)
    4679                 :         15 :     switch (m_type->dereference ()->get_size ())
    4680                 :            :       {
    4681                 :         10 :       case 1:
    4682                 :         10 :         write_initializer_reproducer<uint8_t> (id, r);
    4683                 :         10 :         break;
    4684                 :          0 :       case 2:
    4685                 :          0 :         write_initializer_reproducer<uint16_t> (id, r);
    4686                 :          0 :         break;
    4687                 :          5 :       case 4:
    4688                 :          5 :         write_initializer_reproducer<uint32_t> (id, r);
    4689                 :          5 :         break;
    4690                 :          0 :       case 8:
    4691                 :          0 :         write_initializer_reproducer<uint64_t> (id, r);
    4692                 :          0 :         break;
    4693                 :          0 :       default:
    4694                 :            :         /* This function is serving on sizes returned by 'get_size',
    4695                 :            :            these are all covered by the previous cases.  */
    4696                 :          0 :         gcc_unreachable ();
    4697                 :            :       }
    4698                 :       1491 : }
    4699                 :            : 
    4700                 :            : /* The implementation of the various const-handling classes:
    4701                 :            :    gcc::jit::recording::memento_of_new_rvalue_from_const <HOST_TYPE>.  */
    4702                 :            : 
    4703                 :            : /* Explicit specialization of the various mementos we're interested in.  */
    4704                 :            : template class recording::memento_of_new_rvalue_from_const <int>;
    4705                 :            : template class recording::memento_of_new_rvalue_from_const <long>;
    4706                 :            : template class recording::memento_of_new_rvalue_from_const <double>;
    4707                 :            : template class recording::memento_of_new_rvalue_from_const <void *>;
    4708                 :            : 
    4709                 :            : /* Implementation of the pure virtual hook recording::memento::replay_into
    4710                 :            :    for recording::memento_of_new_rvalue_from_const <HOST_TYPE>.  */
    4711                 :            : 
    4712                 :            : template <typename HOST_TYPE>
    4713                 :            : void
    4714                 :       4104 : recording::
    4715                 :            : memento_of_new_rvalue_from_const <HOST_TYPE>::replay_into (replayer *r)
    4716                 :            : {
    4717                 :            :     set_playback_obj
    4718                 :       4104 :       (r->new_rvalue_from_const <HOST_TYPE> (m_type->playback_type (),
    4719                 :            :                                              m_value));
    4720                 :       4104 : }
    4721                 :            : 
    4722                 :            : /* The make_debug_string and write_reproducer methods vary between the
    4723                 :            :    various
    4724                 :            :      memento_of_new_rvalue_from_const <HOST_TYPE>
    4725                 :            :    classes, so we explicitly write specializations of them.
    4726                 :            : 
    4727                 :            :    I (dmalcolm) find the code to be clearer if the "recording" vs "playback"
    4728                 :            :    namespaces are written out explicitly, which is why most of this file
    4729                 :            :    doesn't abbreviate things by entering the "recording" namespace.
    4730                 :            : 
    4731                 :            :    However, these specializations are required to be in the same namespace
    4732                 :            :    as the template, hence we now have to enter the gcc::jit::recording
    4733                 :            :    namespace.  */
    4734                 :            : 
    4735                 :            : namespace recording
    4736                 :            : {
    4737                 :            : 
    4738                 :            : /* The make_debug_string specialization for <int>, which renders it as
    4739                 :            :      (TARGET_TYPE)LITERAL
    4740                 :            :    e.g.
    4741                 :            :      "(int)42".  */
    4742                 :            : 
    4743                 :            : template <>
    4744                 :            : string *
    4745                 :       3063 : memento_of_new_rvalue_from_const <int>::make_debug_string ()
    4746                 :            : {
    4747                 :       3063 :   return string::from_printf (m_ctxt,
    4748                 :            :                               "(%s)%i",
    4749                 :       3063 :                               m_type->get_debug_string (),
    4750                 :       3063 :                               m_value);
    4751                 :            : }
    4752                 :            : 
    4753                 :            : /* The get_wide_int specialization for <int>.  */
    4754                 :            : 
    4755                 :            : template <>
    4756                 :            : bool
    4757                 :       1470 : memento_of_new_rvalue_from_const <int>::get_wide_int (wide_int *out) const
    4758                 :            : {
    4759                 :       1470 :   *out = wi::shwi (m_value, sizeof (m_value) * 8);
    4760                 :       1470 :   return true;
    4761                 :            : }
    4762                 :            : 
    4763                 :            : /* The write_reproducer specialization for <int>.  */
    4764                 :            : 
    4765                 :            : template <>
    4766                 :            : void
    4767                 :       3028 : memento_of_new_rvalue_from_const <int>::write_reproducer (reproducer &r)
    4768                 :            : {
    4769                 :       3028 :   const char *id = r.make_identifier (this, "rvalue");
    4770                 :       3028 :   r.write ("  gcc_jit_rvalue *%s =\n"
    4771                 :            :     "    gcc_jit_context_new_rvalue_from_int (%s, /* gcc_jit_context *ctxt */\n"
    4772                 :            :     "                                         %s, /* gcc_jit_type *numeric_type */\n"
    4773                 :            :     "                                         %i); /* int value */\n",
    4774                 :            :     id,
    4775                 :            :     r.get_identifier (get_context ()),
    4776                 :            :     r.get_identifier_as_type (m_type),
    4777                 :            :     m_value);
    4778                 :       3028 : }
    4779                 :            : 
    4780                 :            : /* The make_debug_string specialization for <long>, rendering it as
    4781                 :            :      (TARGET_TYPE)LITERAL
    4782                 :            :    e.g.
    4783                 :            :      "(long)42".  */
    4784                 :            : 
    4785                 :            : template <>
    4786                 :            : string *
    4787                 :         50 : memento_of_new_rvalue_from_const <long>::make_debug_string ()
    4788                 :            : {
    4789                 :         50 :   return string::from_printf (m_ctxt,
    4790                 :            :                               "(%s)%li",
    4791                 :         50 :                               m_type->get_debug_string (),
    4792                 :         50 :                               m_value);
    4793                 :            : }
    4794                 :            : 
    4795                 :            : /* The get_wide_int specialization for <long>.  */
    4796                 :            : 
    4797                 :            : template <>
    4798                 :            : bool
    4799                 :          0 : memento_of_new_rvalue_from_const <long>::get_wide_int (wide_int *out) const
    4800                 :            : {
    4801                 :          0 :   *out = wi::shwi (m_value, sizeof (m_value) * 8);
    4802                 :          0 :   return true;
    4803                 :            : }
    4804                 :            : 
    4805                 :            : /* The write_reproducer specialization for <long>.  */
    4806                 :            : 
    4807                 :            : template <>
    4808                 :            : void
    4809                 :         35 : recording::memento_of_new_rvalue_from_const <long>::write_reproducer (reproducer &r)
    4810                 :            : {
    4811                 :         35 :   const char *id = r.make_identifier (this, "rvalue");
    4812                 :            : 
    4813                 :            :   /* We have to special-case LONG_MIN, since e.g.
    4814                 :            :        -9223372036854775808L
    4815                 :            :      is parsed as
    4816                 :            :        -(9223372036854775808L)
    4817                 :            :      and hence we'd get:
    4818                 :            :         error: integer constant is so large that it is unsigned [-Werror]
    4819                 :            :         Workaround this by writing (LONG_MIN + 1) - 1.  */
    4820                 :         35 :   if (m_value == LONG_MIN)
    4821                 :            :     {
    4822                 :         10 :       r.write ("  gcc_jit_rvalue *%s =\n"
    4823                 :            :                "    gcc_jit_context_new_rvalue_from_long (%s, /* gcc_jit_context *ctxt */\n"
    4824                 :            :                "                                          %s, /* gcc_jit_type *numeric_type */\n"
    4825                 :            :                "                                          %ldL - 1); /* long value */\n",
    4826                 :            :                id,
    4827                 :            :                r.get_identifier (get_context ()),
    4828                 :            :                r.get_identifier_as_type (m_type),
    4829                 :            :                m_value + 1);
    4830                 :         10 :       return;
    4831                 :            :     }
    4832                 :            : 
    4833                 :         25 :   r.write ("  gcc_jit_rvalue *%s =\n"
    4834                 :            :            "    gcc_jit_context_new_rvalue_from_long (%s, /* gcc_jit_context *ctxt */\n"
    4835                 :            :            "                                          %s, /* gcc_jit_type *numeric_type */\n"
    4836                 :            :            "                                          %ldL); /* long value */\n",
    4837                 :            :            id,
    4838                 :            :            r.get_identifier (get_context ()),
    4839                 :            :            r.get_identifier_as_type (m_type),
    4840                 :            :            m_value);
    4841                 :            :            }
    4842                 :            : 
    4843                 :            : /* The make_debug_string specialization for <double>, rendering it as
    4844                 :            :      (TARGET_TYPE)LITERAL
    4845                 :            :    e.g.
    4846                 :            :      "(float)42.0".  */
    4847                 :            : 
    4848                 :            : template <>
    4849                 :            : string *
    4850                 :         90 : memento_of_new_rvalue_from_const <double>::make_debug_string ()
    4851                 :            : {
    4852                 :         90 :   return string::from_printf (m_ctxt,
    4853                 :            :                               "(%s)%f",
    4854                 :         90 :                               m_type->get_debug_string (),
    4855                 :         90 :                               m_value);
    4856                 :            : }
    4857                 :            : 
    4858                 :            : /* The get_wide_int specialization for <double>.  */
    4859                 :            : 
    4860                 :            : template <>
    4861                 :            : bool
    4862                 :          0 : memento_of_new_rvalue_from_const <double>::get_wide_int (wide_int *) const
    4863                 :            : {
    4864                 :          0 :   return false;
    4865                 :            : }
    4866                 :            : 
    4867                 :            : /* The write_reproducer specialization for <double>.  */
    4868                 :            : 
    4869                 :            : template <>
    4870                 :            : void
    4871                 :         70 : recording::memento_of_new_rvalue_from_const <double>::write_reproducer (reproducer &r)
    4872                 :            : {
    4873                 :         70 :   const char *id = r.make_identifier (this, "rvalue");
    4874                 :         70 :   r.write ("  gcc_jit_rvalue *%s =\n"
    4875                 :            :     "    gcc_jit_context_new_rvalue_from_double (%s, /* gcc_jit_context *ctxt */\n"
    4876                 :            :     "                                            %s, /* gcc_jit_type *numeric_type */\n"
    4877                 :            :     "                                            %f); /* double value */\n",
    4878                 :            :     id,
    4879                 :            :     r.get_identifier (get_context ()),
    4880                 :            :     r.get_identifier_as_type (m_type),
    4881                 :            :     m_value);
    4882                 :         70 : }
    4883                 :            : 
    4884                 :            : /* The make_debug_string specialization for <void *>, rendering it as
    4885                 :            :      (TARGET_TYPE)HEX
    4886                 :            :    e.g.
    4887                 :            :      "(int *)0xdeadbeef"
    4888                 :            : 
    4889                 :            :    Zero is rendered as NULL e.g.
    4890                 :            :      "(int *)NULL".  */
    4891                 :            : 
    4892                 :            : template <>
    4893                 :            : string *
    4894                 :         90 : memento_of_new_rvalue_from_const <void *>::make_debug_string ()
    4895                 :            : {
    4896                 :         90 :   if (m_value != NULL)
    4897                 :         55 :     return string::from_printf (m_ctxt,
    4898                 :            :                                 "(%s)%p",
    4899                 :        110 :                                 m_type->get_debug_string (), m_value);
    4900                 :            :   else
    4901                 :         35 :     return string::from_printf (m_ctxt,
    4902                 :            :                                 "(%s)NULL",
    4903                 :         70 :                                 m_type->get_debug_string ());
    4904                 :            : }
    4905                 :            : 
    4906                 :            : /* The get_wide_int specialization for <void *>.  */
    4907                 :            : 
    4908                 :            : template <>
    4909                 :            : bool
    4910                 :          0 : memento_of_new_rvalue_from_const <void *>::get_wide_int (wide_int *) const
    4911                 :            : {
    4912                 :          0 :   return false;
    4913                 :            : }
    4914                 :            : 
    4915                 :            : /* Implementation of recording::memento::write_reproducer for <void *>
    4916                 :            :    values. */
    4917                 :            : 
    4918                 :            : template <>
    4919                 :            : void
    4920                 :         80 : memento_of_new_rvalue_from_const <void *>::write_reproducer (reproducer &r)
    4921                 :            : {
    4922                 :         80 :   const char *id = r.make_identifier (this, "rvalue");
    4923                 :         80 :   if (m_value)
    4924                 :         50 :     r.write ("  gcc_jit_rvalue *%s =\n"
    4925                 :            :              "    gcc_jit_context_new_rvalue_from_ptr (%s, /* gcc_jit_context *ctxt */\n"
    4926                 :            :              "                                         %s, /* gcc_jit_type *pointer_type */\n"
    4927                 :            :              "                                         (void *)%p); /* void *value */\n",
    4928                 :            :              id,
    4929                 :            :              r.get_identifier (get_context ()),
    4930                 :            :              r.get_identifier_as_type (m_type),
    4931                 :            :              m_value);
    4932                 :            :   else
    4933                 :         30 :     r.write ("  gcc_jit_rvalue *%s =\n"
    4934                 :            :              "    gcc_jit_context_null (%s, /* gcc_jit_context *ctxt */\n"
    4935                 :            :              "                          %s); /* gcc_jit_type *pointer_type */\n",
    4936                 :            :              id,
    4937                 :            :              r.get_identifier (get_context ()),
    4938                 :            :              r.get_identifier_as_type (m_type));
    4939                 :         80 : }
    4940                 :            : 
    4941                 :            : /* We're done specializing make_debug_string and write_reproducer, so we
    4942                 :            :    can exit the gcc::jit::recording namespace.  */
    4943                 :            : 
    4944                 :            : } // namespace recording
    4945                 :            : 
    4946                 :            : /* The implementation of class gcc::jit::recording::memento_of_new_string_literal.  */
    4947                 :            : 
    4948                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    4949                 :            :    for recording::memento_of_new_string_literal.  */
    4950                 :            : 
    4951                 :            : void
    4952                 :        157 : recording::memento_of_new_string_literal::replay_into (replayer *r)
    4953                 :            : {
    4954                 :        157 :   set_playback_obj (r->new_string_literal (m_value->c_str ()));
    4955                 :        157 : }
    4956                 :            : 
    4957                 :            : /* Implementation of recording::memento::make_debug_string for
    4958                 :            :    string literals.  */
    4959                 :            : 
    4960                 :            : recording::string *
    4961                 :       1836 : recording::memento_of_new_string_literal::make_debug_string ()
    4962                 :            : {
    4963                 :       1836 :   return string::from_printf (m_ctxt,
    4964                 :            :                               "%s",
    4965                 :       1836 :                               m_value->get_debug_string ());
    4966                 :            : }
    4967                 :            : 
    4968                 :            : /* Implementation of recording::memento::write_reproducer for string literal
    4969                 :            :    values. */
    4970                 :            : 
    4971                 :            : void
    4972                 :       1811 : recording::memento_of_new_string_literal::write_reproducer (reproducer &r)
    4973                 :            : {
    4974                 :       1811 :   const char *id = r.make_identifier (this, "rvalue");
    4975                 :       1811 :   r.write ("  gcc_jit_rvalue *%s =\n"
    4976                 :            :     "    gcc_jit_context_new_string_literal (%s, /* gcc_jit_context *ctxt */\n"
    4977                 :            :     "                                        %s); /* const char *value */\n",
    4978                 :            :     id,
    4979                 :            :     r.get_identifier (get_context ()),
    4980                 :       1811 :     m_value->get_debug_string ());
    4981                 :       1811 : }
    4982                 :            : 
    4983                 :            : /* The implementation of class
    4984                 :            :    gcc::jit::recording::memento_of_new_rvalue_from_vector.  */
    4985                 :            : 
    4986                 :            : /* The constructor for
    4987                 :            :    gcc::jit::recording::memento_of_new_rvalue_from_vector.  */
    4988                 :            : 
    4989                 :         75 : recording::memento_of_new_rvalue_from_vector::
    4990                 :            : memento_of_new_rvalue_from_vector (context *ctxt,
    4991                 :            :                                    location *loc,
    4992                 :            :                                    vector_type *type,
    4993                 :         75 :                                    rvalue **elements)
    4994                 :            : : rvalue (ctxt, loc, type),
    4995                 :         75 :   m_vector_type (type),
    4996                 :         75 :   m_elements ()
    4997                 :            : {
    4998                 :        375 :   for (unsigned i = 0; i < type->get_num_units (); i++)
    4999                 :        300 :     m_elements.safe_push (elements[i]);
    5000                 :         75 : }
    5001                 :            : 
    5002                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5003                 :            :    for recording::memento_of_new_rvalue_from_vector.  */
    5004                 :            : 
    5005                 :            : void
    5006                 :         75 : recording::memento_of_new_rvalue_from_vector::replay_into (replayer *r)
    5007                 :            : {
    5008                 :         75 :   auto_vec<playback::rvalue *> playback_elements;
    5009                 :         75 :   playback_elements.create (m_elements.length ());
    5010                 :        750 :   for (unsigned i = 0; i< m_elements.length (); i++)
    5011                 :        300 :     playback_elements.safe_push (m_elements[i]->playback_rvalue ());
    5012                 :            : 
    5013                 :         75 :   set_playback_obj (r->new_rvalue_from_vector (playback_location (r, m_loc),
    5014                 :         75 :                                                m_type->playback_type (),
    5015                 :            :                                                playback_elements));
    5016                 :         75 : }
    5017                 :            : 
    5018                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5019                 :            :    for recording::memento_of_new_rvalue_from_vector.  */
    5020                 :            : 
    5021                 :            : void
    5022                 :         60 : recording::memento_of_new_rvalue_from_vector::visit_children (rvalue_visitor *v)
    5023                 :            : {
    5024                 :        600 :   for (unsigned i = 0; i< m_elements.length (); i++)
    5025                 :        240 :     v->visit (m_elements[i]);
    5026                 :         60 : }
    5027                 :            : 
    5028                 :            : /* Implementation of recording::memento::make_debug_string for
    5029                 :            :    vectors.  */
    5030                 :            : 
    5031                 :            : recording::string *
    5032                 :         75 : recording::memento_of_new_rvalue_from_vector::make_debug_string ()
    5033                 :            : {
    5034                 :         75 :   comma_separated_string elements (m_elements, get_precedence ());
    5035                 :            : 
    5036                 :            :   /* Now build a string.  */
    5037                 :         75 :   string *result = string::from_printf (m_ctxt,
    5038                 :            :                                         "{%s}",
    5039                 :            :                                         elements.as_char_ptr ());
    5040                 :            : 
    5041                 :        150 :  return result;
    5042                 :            : 
    5043                 :         75 : }
    5044                 :            : 
    5045                 :            : /* Implementation of recording::memento::write_reproducer for
    5046                 :            :    vectors.  */
    5047                 :            : 
    5048                 :            : void
    5049                 :         70 : recording::memento_of_new_rvalue_from_vector::write_reproducer (reproducer &r)
    5050                 :            : {
    5051                 :         70 :   const char *id = r.make_identifier (this, "vector");
    5052                 :         70 :   const char *elements_id = r.make_tmp_identifier ("elements_for_", this);
    5053                 :         70 :   r.write ("  gcc_jit_rvalue *%s[%i] = {\n",
    5054                 :            :            elements_id,
    5055                 :            :            m_elements.length ());
    5056                 :        700 :   for (unsigned i = 0; i< m_elements.length (); i++)
    5057                 :        280 :     r.write ("    %s,\n", r.get_identifier_as_rvalue (m_elements[i]));
    5058                 :         70 :   r.write ("  };\n");
    5059                 :        140 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5060                 :            :            "    gcc_jit_context_new_rvalue_from_vector (%s, /* gcc_jit_context *ctxt */\n"
    5061                 :            :            "                                            %s, /* gcc_jit_location *loc */\n"
    5062                 :            :            "                                            %s, /* gcc_jit_type *vec_type */\n"
    5063                 :            :            "                                            %i, /* size_t num_elements  */ \n"
    5064                 :            :            "                                            %s); /* gcc_jit_rvalue **elements*/\n",
    5065                 :            :            id,
    5066                 :            :            r.get_identifier (get_context ()),
    5067                 :         70 :            r.get_identifier (m_loc),
    5068                 :         70 :            r.get_identifier (m_vector_type),
    5069                 :            :            m_elements.length (),
    5070                 :            :            elements_id);
    5071                 :         70 : }
    5072                 :            : 
    5073                 :            : /* The implementation of class gcc::jit::recording::unary_op.  */
    5074                 :            : 
    5075                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5076                 :            :    for recording::unary_op.  */
    5077                 :            : 
    5078                 :            : void
    5079                 :         93 : recording::unary_op::replay_into (replayer *r)
    5080                 :            : {
    5081                 :         93 :   set_playback_obj (r->new_unary_op (playback_location (r, m_loc),
    5082                 :            :                                      m_op,
    5083                 :            :                                      get_type ()->playback_type (),
    5084                 :         93 :                                      m_a->playback_rvalue ()));
    5085                 :         93 : }
    5086                 :            : 
    5087                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5088                 :            :    for recording::unary_op.  */
    5089                 :            : void
    5090                 :         60 : recording::unary_op::visit_children (rvalue_visitor *v)
    5091                 :            : {
    5092                 :         60 :   v->visit (m_a);
    5093                 :         60 : }
    5094                 :            : 
    5095                 :            : /* Implementation of recording::memento::make_debug_string for
    5096                 :            :    unary ops.  */
    5097                 :            : 
    5098                 :            : static const char * const unary_op_strings[] = {
    5099                 :            :   "-", /* GCC_JIT_UNARY_OP_MINUS */
    5100                 :            :   "~", /* GCC_JIT_UNARY_OP_BITWISE_NEGATE */
    5101                 :            :   "!", /* GCC_JIT_UNARY_OP_LOGICAL_NEGATE */
    5102                 :            :   "abs ", /* GCC_JIT_UNARY_OP_ABS */
    5103                 :            : };
    5104                 :            : 
    5105                 :            : recording::string *
    5106                 :         88 : recording::unary_op::make_debug_string ()
    5107                 :            : {
    5108                 :        176 :   return string::from_printf (m_ctxt,
    5109                 :            :                               "%s(%s)",
    5110                 :         88 :                               unary_op_strings[m_op],
    5111                 :         88 :                               m_a->get_debug_string ());
    5112                 :            : }
    5113                 :            : 
    5114                 :            : const char * const unary_op_reproducer_strings[] = {
    5115                 :            :   "GCC_JIT_UNARY_OP_MINUS",
    5116                 :            :   "GCC_JIT_UNARY_OP_BITWISE_NEGATE",
    5117                 :            :   "GCC_JIT_UNARY_OP_LOGICAL_NEGATE",
    5118                 :            :   "GCC_JIT_UNARY_OP_ABS"
    5119                 :            : };
    5120                 :            : 
    5121                 :            : /* Implementation of recording::memento::write_reproducer for unary ops.  */
    5122                 :            : 
    5123                 :            : void
    5124                 :         68 : recording::unary_op::write_reproducer (reproducer &r)
    5125                 :            : {
    5126                 :         68 :   const char *id = r.make_identifier (this, "rvalue");
    5127                 :        136 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5128                 :            :            "    gcc_jit_context_new_unary_op (%s,\n"
    5129                 :            :            "                                  %s, /* gcc_jit_location *loc */\n"
    5130                 :            :            "                                  %s, /* enum gcc_jit_unary_op op */\n"
    5131                 :            :            "                                  %s, /* gcc_jit_type *result_type */\n"
    5132                 :            :            "                                  %s); /* gcc_jit_rvalue *a */\n",
    5133                 :            :            id,
    5134                 :            :            r.get_identifier (get_context ()),
    5135                 :         68 :            r.get_identifier (m_loc),
    5136                 :         68 :            unary_op_reproducer_strings[m_op],
    5137                 :            :            r.get_identifier_as_type (get_type ()),
    5138                 :            :            r.get_identifier_as_rvalue (m_a));
    5139                 :         68 : }
    5140                 :            : 
    5141                 :            : /* The implementation of class gcc::jit::recording::binary_op.  */
    5142                 :            : 
    5143                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5144                 :            :    for recording::binary_op.  */
    5145                 :            : 
    5146                 :            : void
    5147                 :       3100 : recording::binary_op::replay_into (replayer *r)
    5148                 :            : {
    5149                 :       3100 :   set_playback_obj (r->new_binary_op (playback_location (r, m_loc),
    5150                 :            :                                       m_op,
    5151                 :            :                                       get_type ()->playback_type (),
    5152                 :       3100 :                                       m_a->playback_rvalue (),
    5153                 :       3100 :                                       m_b->playback_rvalue ()));
    5154                 :       3100 : }
    5155                 :            : 
    5156                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5157                 :            :    for recording::binary_op.  */
    5158                 :            : void
    5159                 :       1827 : recording::binary_op::visit_children (rvalue_visitor *v)
    5160                 :            : {
    5161                 :       1827 :   v->visit (m_a);
    5162                 :       1827 :   v->visit (m_b);
    5163                 :       1827 : }
    5164                 :            : 
    5165                 :            : /* Implementation of recording::memento::make_debug_string for
    5166                 :            :    binary ops.  */
    5167                 :            : 
    5168                 :            : static const char * const binary_op_strings[] = {
    5169                 :            :   "+", /* GCC_JIT_BINARY_OP_PLUS */
    5170                 :            :   "-", /* GCC_JIT_BINARY_OP_MINUS */
    5171                 :            :   "*", /* GCC_JIT_BINARY_OP_MULT */
    5172                 :            :   "/", /* GCC_JIT_BINARY_OP_DIVIDE */
    5173                 :            :   "%", /* GCC_JIT_BINARY_OP_MODULO */
    5174                 :            :   "&", /* GCC_JIT_BINARY_OP_BITWISE_AND */
    5175                 :            :   "^", /* GCC_JIT_BINARY_OP_BITWISE_XOR */
    5176                 :            :   "|", /* GCC_JIT_BINARY_OP_BITWISE_OR */
    5177                 :            :   "&&", /* GCC_JIT_BINARY_OP_LOGICAL_AND */
    5178                 :            :   "||", /* GCC_JIT_BINARY_OP_LOGICAL_OR */
    5179                 :            :   "<<", /* GCC_JIT_BINARY_OP_LSHIFT */
    5180                 :            :   ">>", /* GCC_JIT_BINARY_OP_RSHIFT */
    5181                 :            : };
    5182                 :            : 
    5183                 :            : recording::string *
    5184                 :       1534 : recording::binary_op::make_debug_string ()
    5185                 :            : {
    5186                 :       1534 :   enum precedence prec = get_precedence ();
    5187                 :       1534 :   return string::from_printf (m_ctxt,
    5188                 :            :                               "%s %s %s",
    5189                 :       1534 :                               m_a->get_debug_string_parens (prec),
    5190                 :       1534 :                               binary_op_strings[m_op],
    5191                 :       1534 :                               m_b->get_debug_string_parens (prec));
    5192                 :            : }
    5193                 :            : 
    5194                 :            : const char * const binary_op_reproducer_strings[] = {
    5195                 :            :   "GCC_JIT_BINARY_OP_PLUS",
    5196                 :            :   "GCC_JIT_BINARY_OP_MINUS",
    5197                 :            :   "GCC_JIT_BINARY_OP_MULT",
    5198                 :            :   "GCC_JIT_BINARY_OP_DIVIDE",
    5199                 :            :   "GCC_JIT_BINARY_OP_MODULO",
    5200                 :            :   "GCC_JIT_BINARY_OP_BITWISE_AND",
    5201                 :            :   "GCC_JIT_BINARY_OP_BITWISE_XOR",
    5202                 :            :   "GCC_JIT_BINARY_OP_BITWISE_OR",
    5203                 :            :   "GCC_JIT_BINARY_OP_LOGICAL_AND",
    5204                 :            :   "GCC_JIT_BINARY_OP_LOGICAL_OR",
    5205                 :            :   "GCC_JIT_BINARY_OP_LSHIFT",
    5206                 :            :   "GCC_JIT_BINARY_OP_RSHIFT"
    5207                 :            : };
    5208                 :            : 
    5209                 :            : /* Implementation of recording::memento::write_reproducer for binary ops.  */
    5210                 :            : 
    5211                 :            : void
    5212                 :       1370 : recording::binary_op::write_reproducer (reproducer &r)
    5213                 :            : {
    5214                 :       1370 :   const char *id = r.make_identifier (this, "rvalue");
    5215                 :       2740 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5216                 :            :            "    gcc_jit_context_new_binary_op (%s,\n"
    5217                 :            :            "                                   %s, /* gcc_jit_location *loc */\n"
    5218                 :            :            "                                   %s, /* enum gcc_jit_binary_op op */\n"
    5219                 :            :            "                                   %s, /* gcc_jit_type *result_type */\n"
    5220                 :            :            "                                   %s, /* gcc_jit_rvalue *a */\n"
    5221                 :            :            "                                   %s); /* gcc_jit_rvalue *b */\n",
    5222                 :            :            id,
    5223                 :            :            r.get_identifier (get_context ()),
    5224                 :       1370 :            r.get_identifier (m_loc),
    5225                 :       1370 :            binary_op_reproducer_strings[m_op],
    5226                 :            :            r.get_identifier_as_type (get_type ()),
    5227                 :            :            r.get_identifier_as_rvalue (m_a),
    5228                 :            :            r.get_identifier_as_rvalue (m_b));
    5229                 :       1370 : }
    5230                 :            : 
    5231                 :            : namespace recording {
    5232                 :            : static const enum precedence binary_op_precedence[] = {
    5233                 :            :   PRECEDENCE_ADDITIVE, /* GCC_JIT_BINARY_OP_PLUS */
    5234                 :            :   PRECEDENCE_ADDITIVE, /* GCC_JIT_BINARY_OP_MINUS */
    5235                 :            : 
    5236                 :            :   PRECEDENCE_MULTIPLICATIVE, /* GCC_JIT_BINARY_OP_MULT */
    5237                 :            :   PRECEDENCE_MULTIPLICATIVE, /* GCC_JIT_BINARY_OP_DIVIDE */
    5238                 :            :   PRECEDENCE_MULTIPLICATIVE, /* GCC_JIT_BINARY_OP_MODULO */
    5239                 :            : 
    5240                 :            :   PRECEDENCE_BITWISE_AND, /* GCC_JIT_BINARY_OP_BITWISE_AND */
    5241                 :            :   PRECEDENCE_BITWISE_XOR, /* GCC_JIT_BINARY_OP_BITWISE_XOR */
    5242                 :            :   PRECEDENCE_BITWISE_IOR, /* GCC_JIT_BINARY_OP_BITWISE_OR */
    5243                 :            :   PRECEDENCE_LOGICAL_AND, /* GCC_JIT_BINARY_OP_LOGICAL_AND */
    5244                 :            :   PRECEDENCE_LOGICAL_OR, /* GCC_JIT_BINARY_OP_LOGICAL_OR */
    5245                 :            :   PRECEDENCE_SHIFT, /* GCC_JIT_BINARY_OP_LSHIFT */
    5246                 :            :   PRECEDENCE_SHIFT, /* GCC_JIT_BINARY_OP_RSHIFT */
    5247                 :            : };
    5248                 :            : } /* namespace recording */
    5249                 :            : 
    5250                 :            : enum recording::precedence
    5251                 :       2436 : recording::binary_op::get_precedence () const
    5252                 :            : {
    5253                 :       2436 :   return binary_op_precedence[m_op];
    5254                 :            : }
    5255                 :            : 
    5256                 :            : /* The implementation of class gcc::jit::recording::comparison.  */
    5257                 :            : 
    5258                 :            : /* Implementation of recording::memento::make_debug_string for
    5259                 :            :    comparisons.  */
    5260                 :            : 
    5261                 :            : static const char * const comparison_strings[] =
    5262                 :            : {
    5263                 :            :   "==", /* GCC_JIT_COMPARISON_EQ */
    5264                 :            :   "!=", /* GCC_JIT_COMPARISON_NE */
    5265                 :            :   "<",  /* GCC_JIT_COMPARISON_LT */
    5266                 :            :   "<=", /* GCC_JIT_COMPARISON_LE */
    5267                 :            :   ">",  /* GCC_JIT_COMPARISON_GT */
    5268                 :            :   ">=", /* GCC_JIT_COMPARISON_GE */
    5269                 :            : };
    5270                 :            : 
    5271                 :            : recording::string *
    5272                 :        656 : recording::comparison::make_debug_string ()
    5273                 :            : {
    5274                 :        656 :   enum precedence prec = get_precedence ();
    5275                 :        656 :   return string::from_printf (m_ctxt,
    5276                 :            :                               "%s %s %s",
    5277                 :        656 :                               m_a->get_debug_string_parens (prec),
    5278                 :        656 :                               comparison_strings[m_op],
    5279                 :        656 :                               m_b->get_debug_string_parens (prec));
    5280                 :            : }
    5281                 :            : 
    5282                 :            : /* A table of enum gcc_jit_comparison values expressed in string
    5283                 :            :    form.  */
    5284                 :            : 
    5285                 :            : static const char * const comparison_reproducer_strings[] =
    5286                 :            : {
    5287                 :            :   "GCC_JIT_COMPARISON_EQ",
    5288                 :            :   "GCC_JIT_COMPARISON_NE",
    5289                 :            :   "GCC_JIT_COMPARISON_LT",
    5290                 :            :   "GCC_JIT_COMPARISON_LE",
    5291                 :            :   "GCC_JIT_COMPARISON_GT",
    5292                 :            :   "GCC_JIT_COMPARISON_GE"
    5293                 :            : };
    5294                 :            : 
    5295                 :            : /* Implementation of recording::memento::write_reproducer for comparisons.  */
    5296                 :            : 
    5297                 :            : void
    5298                 :        571 : recording::comparison::write_reproducer (reproducer &r)
    5299                 :            : {
    5300                 :        571 :   const char *id = r.make_identifier (this, "rvalue");
    5301                 :       1142 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5302                 :            :            "    gcc_jit_context_new_comparison (%s,\n"
    5303                 :            :            "                                    %s, /* gcc_jit_location *loc */\n"
    5304                 :            :            "                                    %s, /* enum gcc_jit_comparison op */\n"
    5305                 :            :            "                                    %s, /* gcc_jit_rvalue *a */\n"
    5306                 :            :            "                                    %s); /* gcc_jit_rvalue *b */\n",
    5307                 :            :            id,
    5308                 :            :            r.get_identifier (get_context ()),
    5309                 :        571 :            r.get_identifier (m_loc),
    5310                 :        571 :            comparison_reproducer_strings[m_op],
    5311                 :            :            r.get_identifier_as_rvalue (m_a),
    5312                 :            :            r.get_identifier_as_rvalue (m_b));
    5313                 :        571 : }
    5314                 :            : 
    5315                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5316                 :            :    for recording::comparison.  */
    5317                 :            : 
    5318                 :            : void
    5319                 :       1244 : recording::comparison::replay_into (replayer *r)
    5320                 :            : {
    5321                 :       1244 :   set_playback_obj (r->new_comparison (playback_location (r, m_loc),
    5322                 :            :                                        m_op,
    5323                 :       1244 :                                        m_a->playback_rvalue (),
    5324                 :       1244 :                                        m_b->playback_rvalue ()));
    5325                 :       1244 : }
    5326                 :            : 
    5327                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5328                 :            :    for recording::comparison.  */
    5329                 :            : 
    5330                 :            : void
    5331                 :       1075 : recording::comparison::visit_children (rvalue_visitor *v)
    5332                 :            : {
    5333                 :       1075 :   v->visit (m_a);
    5334                 :       1075 :   v->visit (m_b);
    5335                 :       1075 : }
    5336                 :            : 
    5337                 :            : namespace recording {
    5338                 :            : static const enum precedence comparison_precedence[] =
    5339                 :            : {
    5340                 :            :   PRECEDENCE_EQUALITY, /* GCC_JIT_COMPARISON_EQ */
    5341                 :            :   PRECEDENCE_EQUALITY, /* GCC_JIT_COMPARISON_NE */
    5342                 :            : 
    5343                 :            :   PRECEDENCE_RELATIONAL,  /* GCC_JIT_COMPARISON_LT */
    5344                 :            :   PRECEDENCE_RELATIONAL, /* GCC_JIT_COMPARISON_LE */
    5345                 :            :   PRECEDENCE_RELATIONAL,  /* GCC_JIT_COMPARISON_GT */
    5346                 :            :   PRECEDENCE_RELATIONAL, /* GCC_JIT_COMPARISON_GE */
    5347                 :            : };
    5348                 :            : } /* namespace recording */
    5349                 :            : 
    5350                 :            : enum recording::precedence
    5351                 :        806 : recording::comparison::get_precedence () const
    5352                 :            : {
    5353                 :        806 :   return comparison_precedence[m_op];
    5354                 :            : }
    5355                 :            : 
    5356                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5357                 :            :    for recording::cast.  */
    5358                 :            : 
    5359                 :            : void
    5360                 :        309 : recording::cast::replay_into (replayer *r)
    5361                 :            : {
    5362                 :        309 :   set_playback_obj (r->new_cast (playback_location (r, m_loc),
    5363                 :        309 :                                  m_rvalue->playback_rvalue (),
    5364                 :            :                                  get_type ()->playback_type ()));
    5365                 :        309 : }
    5366                 :            : 
    5367                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5368                 :            :    for recording::cast.  */
    5369                 :            : void
    5370                 :        158 : recording::cast::visit_children (rvalue_visitor *v)
    5371                 :            : {
    5372                 :        158 :   v->visit (m_rvalue);
    5373                 :        158 : }
    5374                 :            : 
    5375                 :            : /* Implementation of recording::memento::make_debug_string for
    5376                 :            :    casts.  */
    5377                 :            : 
    5378                 :            : recording::string *
    5379                 :        245 : recording::cast::make_debug_string ()
    5380                 :            : {
    5381                 :        245 :   enum precedence prec = get_precedence ();
    5382                 :        245 :   return string::from_printf (m_ctxt,
    5383                 :            :                               "(%s)%s",
    5384                 :        245 :                               get_type ()->get_debug_string (),
    5385                 :        245 :                               m_rvalue->get_debug_string_parens (prec));
    5386                 :            : }
    5387                 :            : 
    5388                 :            : /* Implementation of recording::memento::write_reproducer for casts.  */
    5389                 :            : 
    5390                 :            : void
    5391                 :        205 : recording::cast::write_reproducer (reproducer &r)
    5392                 :            : {
    5393                 :        205 :   const char *id = r.make_identifier (this, "rvalue");
    5394                 :        410 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5395                 :            :            "    gcc_jit_context_new_cast (%s,\n"
    5396                 :            :            "                              %s, /* gcc_jit_location *loc */\n"
    5397                 :            :            "                              %s, /* gcc_jit_rvalue *rvalue */\n"
    5398                 :            :            "                              %s); /* gcc_jit_type *type */\n",
    5399                 :            :            id,
    5400                 :            :            r.get_identifier (get_context ()),
    5401                 :        205 :            r.get_identifier (m_loc),
    5402                 :            :            r.get_identifier_as_rvalue (m_rvalue),
    5403                 :            :            r.get_identifier_as_type (get_type ()));
    5404                 :        205 : }
    5405                 :            : 
    5406                 :            : /* The implementation of class gcc::jit::recording::base_call.  */
    5407                 :            : 
    5408                 :            : /* The constructor for gcc::jit::recording::base_call.  */
    5409                 :            : 
    5410                 :        715 : recording::base_call::base_call (context *ctxt,
    5411                 :            :                                  location *loc,
    5412                 :            :                                  type *type_,
    5413                 :            :                                  int numargs,
    5414                 :        715 :                                  rvalue **args)
    5415                 :            : : rvalue (ctxt, loc, type_),
    5416                 :        715 :   m_args (),
    5417                 :        715 :   m_require_tail_call (0)
    5418                 :            : {
    5419                 :       1802 :   for (int i = 0; i< numargs; i++)
    5420                 :       1087 :     m_args.safe_push (args[i]);
    5421                 :        715 : }
    5422                 :            : 
    5423                 :            : /* Subroutine for use by call and call_though_ptr's write_reproducer
    5424                 :            :    methods.  */
    5425                 :            : 
    5426                 :            : void
    5427                 :        511 : recording::base_call::write_reproducer_tail_call (reproducer &r,
    5428                 :            :                                                   const char *id)
    5429                 :            : {
    5430                 :        511 :   if (m_require_tail_call)
    5431                 :            :     {
    5432                 :         15 :       r.write ("  gcc_jit_rvalue_set_bool_require_tail_call (%s,  /* gcc_jit_rvalue *call*/\n"
    5433                 :            :                "                                             %i); /* int require_tail_call*/\n",
    5434                 :            :                id,
    5435                 :            :                1);
    5436                 :            :     }
    5437                 :        511 : }
    5438                 :            : 
    5439                 :            : /* The implementation of class gcc::jit::recording::call.  */
    5440                 :            : 
    5441                 :            : /* The constructor for gcc::jit::recording::call.  */
    5442                 :            : 
    5443                 :        700 : recording::call::call (recording::context *ctxt,
    5444                 :            :                        recording::location *loc,
    5445                 :            :                        recording::function *func,
    5446                 :            :                        int numargs,
    5447                 :        700 :                        rvalue **args)
    5448                 :            : : base_call (ctxt, loc, func->get_return_type (), numargs, args),
    5449                 :        700 :   m_func (func)
    5450                 :            : {
    5451                 :        700 : }
    5452                 :            : 
    5453                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5454                 :            :    for recording::call.  */
    5455                 :            : 
    5456                 :            : void
    5457                 :        700 : recording::call::replay_into (replayer *r)
    5458                 :            : {
    5459                 :        700 :   auto_vec<playback::rvalue *> playback_args;
    5460                 :        700 :   playback_args.create (m_args.length ());
    5461                 :       3429 :   for (unsigned i = 0; i< m_args.length (); i++)
    5462                 :       1042 :     playback_args.safe_push (m_args[i]->playback_rvalue ());
    5463                 :            : 
    5464                 :        700 :   set_playback_obj (r->new_call (playback_location (r, m_loc),
    5465                 :        700 :                                  m_func->playback_function (),
    5466                 :            :                                  &playback_args,
    5467                 :        700 :                                  m_require_tail_call));
    5468                 :        700 : }
    5469                 :            : 
    5470                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5471                 :            :    for recording::call.  */
    5472                 :            : 
    5473                 :            : void
    5474                 :        605 : recording::call::visit_children (rvalue_visitor *v)
    5475                 :            : {
    5476                 :       3049 :   for (unsigned i = 0; i< m_args.length (); i++)
    5477                 :        947 :     v->visit (m_args[i]);
    5478                 :        605 : }
    5479                 :            : 
    5480                 :            : /* Implementation of recording::memento::make_debug_string for
    5481                 :            :    function calls.  */
    5482                 :            : 
    5483                 :            : recording::string *
    5484                 :        516 : recording::call::make_debug_string ()
    5485                 :            : {
    5486                 :            :   /* First, build a buffer for the arguments.  */
    5487                 :        516 :   comma_separated_string args (m_args, get_precedence ());
    5488                 :            : 
    5489                 :            :   /* ...and use it to get the string for the call as a whole.  */
    5490                 :        516 :   string *result = string::from_printf (m_ctxt,
    5491                 :            :                                         "%s (%s)",
    5492                 :        516 :                                         m_func->get_debug_string (),
    5493                 :            :                                         args.as_char_ptr ());
    5494                 :            : 
    5495                 :       1032 :   return result;
    5496                 :        516 : }
    5497                 :            : 
    5498                 :            : void
    5499                 :        501 : recording::call::write_reproducer (reproducer &r)
    5500                 :            : {
    5501                 :        501 :   const char *id = r.make_identifier (this, "call");
    5502                 :        501 :   const char *args_id = r.make_tmp_identifier ("args_for_", this);
    5503                 :        501 :   r.write ("  gcc_jit_rvalue *%s[%i] = {\n",
    5504                 :            :            args_id,
    5505                 :            :            m_args.length ());
    5506                 :       2424 :   for (unsigned i = 0; i< m_args.length (); i++)
    5507                 :        731 :     r.write ("    %s,\n", r.get_identifier_as_rvalue (m_args[i]));
    5508                 :        501 :   r.write ("  };\n");
    5509                 :       1002 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5510                 :            :            "    gcc_jit_context_new_call (%s, /* gcc_jit_context *ctxt */\n"
    5511                 :            :            "                              %s, /* gcc_jit_location *loc */\n"
    5512                 :            :            "                              %s, /* gcc_jit_function *func */\n"
    5513                 :            :            "                              %i, /* int numargs  */ \n"
    5514                 :            :            "                              %s); /* gcc_jit_rvalue **args*/\n",
    5515                 :            :            id,
    5516                 :            :            r.get_identifier (get_context ()),
    5517                 :        501 :            r.get_identifier (m_loc),
    5518                 :        501 :            r.get_identifier (m_func),
    5519                 :            :            m_args.length (),
    5520                 :            :            args_id);
    5521                 :        501 :   write_reproducer_tail_call (r, id);
    5522                 :        501 : }
    5523                 :            : 
    5524                 :            : /* The implementation of class gcc::jit::recording::call_through_ptr.  */
    5525                 :            : 
    5526                 :            : /* The constructor for recording::call_through_ptr. */
    5527                 :            : 
    5528                 :         15 : recording::call_through_ptr::call_through_ptr (recording::context *ctxt,
    5529                 :            :                                                recording::location *loc,
    5530                 :            :                                                recording::rvalue *fn_ptr,
    5531                 :            :                                                int numargs,
    5532                 :         15 :                                                rvalue **args)
    5533                 :            : : base_call (ctxt, loc,
    5534                 :         15 :              fn_ptr->get_type ()->dereference ()
    5535                 :         15 :                ->as_a_function_type ()->get_return_type (),
    5536                 :            :              numargs, args),
    5537                 :         15 :   m_fn_ptr (fn_ptr)
    5538                 :            : {
    5539                 :         15 : }
    5540                 :            : 
    5541                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5542                 :            :    for recording::call_through_ptr.  */
    5543                 :            : 
    5544                 :            : void
    5545                 :         15 : recording::call_through_ptr::replay_into (replayer *r)
    5546                 :            : {
    5547                 :         15 :   auto_vec<playback::rvalue *> playback_args;
    5548                 :         15 :   playback_args.create (m_args.length ());
    5549                 :        120 :   for (unsigned i = 0; i< m_args.length (); i++)
    5550                 :         45 :     playback_args.safe_push (m_args[i]->playback_rvalue ());
    5551                 :            : 
    5552                 :         15 :   set_playback_obj (r->new_call_through_ptr (playback_location (r, m_loc),
    5553                 :         15 :                                              m_fn_ptr->playback_rvalue (),
    5554                 :            :                                              &playback_args,
    5555                 :         15 :                                              m_require_tail_call));
    5556                 :         15 : }
    5557                 :            : 
    5558                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5559                 :            :    for recording::call_through_ptr.  */
    5560                 :            : 
    5561                 :            : void
    5562                 :         15 : recording::call_through_ptr::visit_children (rvalue_visitor *v)
    5563                 :            : {
    5564                 :         15 :   v->visit (m_fn_ptr);
    5565                 :        120 :   for (unsigned i = 0; i< m_args.length (); i++)
    5566                 :         45 :     v->visit (m_args[i]);
    5567                 :         15 : }
    5568                 :            : 
    5569                 :            : /* Implementation of recording::memento::make_debug_string for
    5570                 :            :    calls through function ptrs.  */
    5571                 :            : 
    5572                 :            : recording::string *
    5573                 :         10 : recording::call_through_ptr::make_debug_string ()
    5574                 :            : {
    5575                 :         10 :   enum precedence prec = get_precedence ();
    5576                 :            :   /* First, build a buffer for the arguments.  */
    5577                 :            :   /* Calculate length of said buffer.  */
    5578                 :         10 :   size_t sz = 1; /* nil terminator */
    5579                 :         80 :   for (unsigned i = 0; i< m_args.length (); i++)
    5580                 :            :     {
    5581                 :         30 :       sz += strlen (m_args[i]->get_debug_string_parens (prec));
    5582                 :         30 :       sz += 2; /* ", " separator */
    5583                 :            :     }
    5584                 :            : 
    5585                 :            :   /* Now allocate and populate the buffer.  */
    5586                 :         10 :   char *argbuf = new char[sz];
    5587                 :         10 :   size_t len = 0;
    5588                 :            : 
    5589                 :         80 :   for (unsigned i = 0; i< m_args.length (); i++)
    5590                 :            :     {
    5591                 :         30 :       strcpy (argbuf + len, m_args[i]->get_debug_string_parens (prec));
    5592                 :         30 :       len += strlen (m_args[i]->get_debug_string_parens (prec));
    5593                 :         60 :       if (i + 1 < m_args.length ())
    5594                 :            :         {
    5595                 :         20 :           strcpy (argbuf + len, ", ");
    5596                 :         20 :           len += 2;
    5597                 :            :         }
    5598                 :            :     }
    5599                 :         10 :   argbuf[len] = '\0';
    5600                 :            : 
    5601                 :            :   /* ...and use it to get the string for the call as a whole.  */
    5602                 :         10 :   string *result = string::from_printf (m_ctxt,
    5603                 :            :                                         "%s (%s)",
    5604                 :         10 :                                         m_fn_ptr->get_debug_string_parens (prec),
    5605                 :            :                                         argbuf);
    5606                 :            : 
    5607                 :         10 :   delete[] argbuf;
    5608                 :            : 
    5609                 :         10 :   return result;
    5610                 :            : }
    5611                 :            : 
    5612                 :            : /* Implementation of recording::memento::write_reproducer for
    5613                 :            :    call_through_ptr.  */
    5614                 :            : 
    5615                 :            : void
    5616                 :         10 : recording::call_through_ptr::write_reproducer (reproducer &r)
    5617                 :            : {
    5618                 :         10 :   const char *id = r.make_identifier (this, "call");
    5619                 :         10 :   const char *args_id = r.make_tmp_identifier ("args_for_", this);
    5620                 :         10 :   r.write ("  gcc_jit_rvalue *%s[%i] = {\n",
    5621                 :            :              args_id,
    5622                 :            :              m_args.length ());
    5623                 :         80 :   for (unsigned i = 0; i< m_args.length (); i++)
    5624                 :         30 :     r.write ("    %s,\n", r.get_identifier_as_rvalue (m_args[i]));
    5625                 :         10 :   r.write ("  };\n");
    5626                 :         30 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5627                 :            :            "    gcc_jit_context_new_call_through_ptr (%s, /* gcc_jit_context *ctxt */\n"
    5628                 :            :            "                              %s, /* gcc_jit_location *loc */\n"
    5629                 :            :            "                              %s, /* gcc_jit_rvalue *fn_ptr */\n"
    5630                 :            :            "                              %i, /* int numargs  */ \n"
    5631                 :            :            "                              %s); /* gcc_jit_rvalue **args*/\n",
    5632                 :            :            id,
    5633                 :            :            r.get_identifier (get_context ()),
    5634                 :         10 :            r.get_identifier (m_loc),
    5635                 :            :            r.get_identifier_as_rvalue (m_fn_ptr),
    5636                 :            :            m_args.length (),
    5637                 :            :            args_id);
    5638                 :         10 :   write_reproducer_tail_call (r, id);
    5639                 :         10 : }
    5640                 :            : 
    5641                 :            : /* The implementation of class gcc::jit::recording::array_access.  */
    5642                 :            : 
    5643                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5644                 :            :    for recording::array_access.  */
    5645                 :            : 
    5646                 :            : void
    5647                 :        399 : recording::array_access::replay_into (replayer *r)
    5648                 :            : {
    5649                 :        798 :   set_playback_obj (
    5650                 :        399 :     r->new_array_access (playback_location (r, m_loc),
    5651                 :        399 :                          m_ptr->playback_rvalue (),
    5652                 :        399 :                          m_index->playback_rvalue ()));
    5653                 :        399 : }
    5654                 :            : 
    5655                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5656                 :            :    for recording::array_access.  */
    5657                 :            : 
    5658                 :            : void
    5659                 :        251 : recording::array_access::visit_children (rvalue_visitor *v)
    5660                 :            : {
    5661                 :        251 :   v->visit (m_ptr);
    5662                 :        251 :   v->visit (m_index);
    5663                 :        251 : }
    5664                 :            : 
    5665                 :            : /* Implementation of recording::memento::make_debug_string for
    5666                 :            :    array accesses.  */
    5667                 :            : 
    5668                 :            : recording::string *
    5669                 :        140 : recording::array_access::make_debug_string ()
    5670                 :            : {
    5671                 :        140 :   enum precedence prec = get_precedence ();
    5672                 :        140 :   return string::from_printf (m_ctxt,
    5673                 :            :                               "%s[%s]",
    5674                 :        140 :                               m_ptr->get_debug_string_parens (prec),
    5675                 :        140 :                               m_index->get_debug_string_parens (prec));
    5676                 :            : }
    5677                 :            : 
    5678                 :            : /* Implementation of recording::memento::write_reproducer for
    5679                 :            :    array_access.  */
    5680                 :            : 
    5681                 :            : void
    5682                 :        140 : recording::array_access::write_reproducer (reproducer &r)
    5683                 :            : {
    5684                 :        140 :   const char *id = r.make_identifier (this, "lvalue");
    5685                 :        280 :   r.write ("  gcc_jit_lvalue *%s = \n"
    5686                 :            :            "    gcc_jit_context_new_array_access (%s, /* gcc_jit_context *ctxt */\n"
    5687                 :            :            "                                      %s, /*gcc_jit_location *loc */\n"
    5688                 :            :            "                                      %s, /* gcc_jit_rvalue *ptr */\n"
    5689                 :            :            "                                      %s); /* gcc_jit_rvalue *index */\n",
    5690                 :            :            id,
    5691                 :            :            r.get_identifier (get_context ()),
    5692                 :        140 :            r.get_identifier (m_loc),
    5693                 :            :            r.get_identifier_as_rvalue (m_ptr),
    5694                 :            :            r.get_identifier_as_rvalue (m_index));
    5695                 :        140 : }
    5696                 :            : 
    5697                 :            : /* The implementation of class gcc::jit::recording::access_field_of_lvalue.  */
    5698                 :            : 
    5699                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5700                 :            :    for recording::access_field_of_lvalue.  */
    5701                 :            : 
    5702                 :            : void
    5703                 :        179 : recording::access_field_of_lvalue::replay_into (replayer *r)
    5704                 :            : {
    5705                 :        358 :   set_playback_obj (
    5706                 :        179 :     m_lvalue->playback_lvalue ()
    5707                 :        179 :       ->access_field (playback_location (r, m_loc),
    5708                 :        179 :                       m_field->playback_field ()));
    5709                 :            : 
    5710                 :        179 : }
    5711                 :            : 
    5712                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5713                 :            :    for recording::access_field_of_lvalue.  */
    5714                 :            : 
    5715                 :            : void
    5716                 :        149 : recording::access_field_of_lvalue::visit_children (rvalue_visitor *v)
    5717                 :            : {
    5718                 :        149 :   v->visit (m_lvalue);
    5719                 :        149 : }
    5720                 :            : 
    5721                 :            : /* Implementation of recording::memento::make_debug_string for
    5722                 :            :    accessing a field of an lvalue.  */
    5723                 :            : 
    5724                 :            : recording::string *
    5725                 :        169 : recording::access_field_of_lvalue::make_debug_string ()
    5726                 :            : {
    5727                 :        169 :   enum precedence prec = get_precedence ();
    5728                 :        169 :   return string::from_printf (m_ctxt,
    5729                 :            :                               "%s.%s",
    5730                 :        169 :                               m_lvalue->get_debug_string_parens (prec),
    5731                 :        169 :                               m_field->get_debug_string ());
    5732                 :            : }
    5733                 :            : 
    5734                 :            : /* Implementation of recording::memento::write_reproducer for
    5735                 :            :    access_field_of_lvalue.  */
    5736                 :            : 
    5737                 :            : void
    5738                 :        169 : recording::access_field_of_lvalue::write_reproducer (reproducer &r)
    5739                 :            : {
    5740                 :        169 :   const char *id = r.make_identifier (this, "lvalue");
    5741                 :        169 :   r.write ("  gcc_jit_lvalue *%s = \n"
    5742                 :            :            "    gcc_jit_lvalue_access_field (%s, /*gcc_jit_lvalue *struct_or_union */\n"
    5743                 :            :            "                                 %s, /*gcc_jit_location *loc */\n"
    5744                 :            :            "                                 %s);\n",
    5745                 :            :            id,
    5746                 :            :            r.get_identifier_as_lvalue (m_lvalue),
    5747                 :        169 :            r.get_identifier (m_loc),
    5748                 :        169 :            r.get_identifier (m_field));
    5749                 :        169 : }
    5750                 :            : 
    5751                 :            : /* The implementation of class gcc::jit::recording::access_field_rvalue.  */
    5752                 :            : 
    5753                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5754                 :            :    for recording::access_field_rvalue.  */
    5755                 :            : 
    5756                 :            : void
    5757                 :        119 : recording::access_field_rvalue::replay_into (replayer *r)
    5758                 :            : {
    5759                 :        238 :   set_playback_obj (
    5760                 :        119 :     m_rvalue->playback_rvalue ()
    5761                 :        119 :       ->access_field (playback_location (r, m_loc),
    5762                 :        119 :                       m_field->playback_field ()));
    5763                 :        119 : }
    5764                 :            : 
    5765                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5766                 :            :    for recording::access_field_rvalue.  */
    5767                 :            : 
    5768                 :            : void
    5769                 :         50 : recording::access_field_rvalue::visit_children (rvalue_visitor *v)
    5770                 :            : {
    5771                 :         50 :   v->visit (m_rvalue);
    5772                 :         50 : }
    5773                 :            : 
    5774                 :            : /* Implementation of recording::memento::make_debug_string for
    5775                 :            :    accessing a field of an rvalue.  */
    5776                 :            : 
    5777                 :            : recording::string *
    5778                 :         89 : recording::access_field_rvalue::make_debug_string ()
    5779                 :            : {
    5780                 :         89 :   enum precedence prec = get_precedence ();
    5781                 :         89 :   return string::from_printf (m_ctxt,
    5782                 :            :                               "%s.%s",
    5783                 :         89 :                               m_rvalue->get_debug_string_parens (prec),
    5784                 :         89 :                               m_field->get_debug_string ());
    5785                 :            : }
    5786                 :            : 
    5787                 :            : /* Implementation of recording::memento::write_reproducer for
    5788                 :            :    access_field_rvalue.  */
    5789                 :            : 
    5790                 :            : void
    5791                 :         89 : recording::access_field_rvalue::write_reproducer (reproducer &r)
    5792                 :            : {
    5793                 :         89 :   const char *id = r.make_identifier (this, "rvalue");
    5794                 :         89 :   r.write ("  gcc_jit_rvalue *%s = \n"
    5795                 :            :            "    gcc_jit_rvalue_access_field (%s, /*gcc_jit_rvalue *struct_or_union */\n"
    5796                 :            :            "                                 %s, /*gcc_jit_location *loc */\n"
    5797                 :            :            "                                 %s);\n",
    5798                 :            :            id,
    5799                 :            :            r.get_identifier_as_rvalue (m_rvalue),
    5800                 :         89 :            r.get_identifier (m_loc),
    5801                 :         89 :            r.get_identifier (m_field));
    5802                 :         89 : }
    5803                 :            : 
    5804                 :            : /* The implementation of class
    5805                 :            :    gcc::jit::recording::dereference_field_rvalue.  */
    5806                 :            : 
    5807                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5808                 :            :    for recording::dereference_field_rvalue.  */
    5809                 :            : 
    5810                 :            : void
    5811                 :       1293 : recording::dereference_field_rvalue::replay_into (replayer *r)
    5812                 :            : {
    5813                 :       2586 :   set_playback_obj (
    5814                 :       1293 :     m_rvalue->playback_rvalue ()->
    5815                 :       1293 :       dereference_field (playback_location (r, m_loc),
    5816                 :       1293 :                          m_field->playback_field ()));
    5817                 :       1293 : }
    5818                 :            : 
    5819                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5820                 :            :    for recording::dereference_field_rvalue.  */
    5821                 :            : 
    5822                 :            : void
    5823                 :        699 : recording::dereference_field_rvalue::visit_children (rvalue_visitor *v)
    5824                 :            : {
    5825                 :        699 :   v->visit (m_rvalue);
    5826                 :        699 : }
    5827                 :            : 
    5828                 :            : /* Implementation of recording::memento::make_debug_string for
    5829                 :            :    dereferencing a field of an rvalue.  */
    5830                 :            : 
    5831                 :            : recording::string *
    5832                 :        936 : recording::dereference_field_rvalue::make_debug_string ()
    5833                 :            : {
    5834                 :        936 :   enum precedence prec = get_precedence ();
    5835                 :        936 :   return string::from_printf (m_ctxt,
    5836                 :            :                               "%s->%s",
    5837                 :        936 :                               m_rvalue->get_debug_string_parens (prec),
    5838                 :        936 :                               m_field->get_debug_string ());
    5839                 :            : }
    5840                 :            : 
    5841                 :            : /* Implementation of recording::memento::write_reproducer for
    5842                 :            :    dereference_field_rvalue.  */
    5843                 :            : 
    5844                 :            : void
    5845                 :        922 : recording::dereference_field_rvalue::write_reproducer (reproducer &r)
    5846                 :            : {
    5847                 :        922 :   const char *id = r.make_identifier (this, "lvalue");
    5848                 :        922 :   r.write ("  gcc_jit_lvalue *%s=\n"
    5849                 :            :            "    gcc_jit_rvalue_dereference_field (%s, /* gcc_jit_rvalue *ptr */\n"
    5850                 :            :            "                                      %s, /* gcc_jit_location *loc */\n"
    5851                 :            :            "                                      %s); /* gcc_jit_field *field */\n",
    5852                 :            :            id,
    5853                 :            :            r.get_identifier_as_rvalue (m_rvalue),
    5854                 :        922 :            r.get_identifier (m_loc),
    5855                 :        922 :            r.get_identifier (m_field));
    5856                 :        922 : }
    5857                 :            : 
    5858                 :            : /* The implementation of class gcc::jit::recording::dereference_rvalue.  */
    5859                 :            : 
    5860                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5861                 :            :    for recording::dereference_rvalue.  */
    5862                 :            : 
    5863                 :            : void
    5864                 :        599 : recording::dereference_rvalue::replay_into (replayer *r)
    5865                 :            : {
    5866                 :       1198 :   set_playback_obj (
    5867                 :        599 :     m_rvalue->playback_rvalue ()->
    5868                 :        599 :       dereference (playback_location (r, m_loc)));
    5869                 :        599 : }
    5870                 :            : 
    5871                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5872                 :            :    for recording::dereference_rvalue.  */
    5873                 :            : 
    5874                 :            : void
    5875                 :        389 : recording::dereference_rvalue::visit_children (rvalue_visitor *v)
    5876                 :            : {
    5877                 :        389 :   v->visit (m_rvalue);
    5878                 :        389 : }
    5879                 :            : 
    5880                 :            : /* Implementation of recording::memento::make_debug_string for
    5881                 :            :    dereferencing an rvalue.  */
    5882                 :            : 
    5883                 :            : recording::string *
    5884                 :        519 : recording::dereference_rvalue::make_debug_string ()
    5885                 :            : {
    5886                 :        519 :   enum precedence prec = get_precedence ();
    5887                 :        519 :   return string::from_printf (m_ctxt,
    5888                 :            :                               "*%s",
    5889                 :        519 :                               m_rvalue->get_debug_string_parens (prec));
    5890                 :            : }
    5891                 :            : 
    5892                 :            : /* Implementation of recording::memento::write_reproducer for
    5893                 :            :    dereference_rvalue.  */
    5894                 :            : 
    5895                 :            : void
    5896                 :        519 : recording::dereference_rvalue::write_reproducer (reproducer &r)
    5897                 :            : {
    5898                 :        519 :   const char *id = r.make_identifier (this, "dereference");
    5899                 :        519 :   r.write ("  gcc_jit_lvalue *%s =\n"
    5900                 :            :            "    gcc_jit_rvalue_dereference (%s, /* gcc_jit_rvalue *rvalue */\n"
    5901                 :            :            "                                %s); /* gcc_jit_location *loc */\n",
    5902                 :            :            id,
    5903                 :            :            r.get_identifier_as_rvalue (m_rvalue),
    5904                 :        519 :            r.get_identifier (m_loc));
    5905                 :        519 : }
    5906                 :            : 
    5907                 :            : /* The implementation of class gcc::jit::recording::get_address_of_lvalue.  */
    5908                 :            : 
    5909                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5910                 :            :    for recording::get_address_of_lvalue.  */
    5911                 :            : 
    5912                 :            : void
    5913                 :        248 : recording::get_address_of_lvalue::replay_into (replayer *r)
    5914                 :            : {
    5915                 :        496 :   set_playback_obj (
    5916                 :        248 :     m_lvalue->playback_lvalue ()->
    5917                 :        248 :       get_address (playback_location (r, m_loc)));
    5918                 :        248 : }
    5919                 :            : 
    5920                 :            : /* Implementation of pure virtual hook recording::rvalue::visit_children
    5921                 :            :    for recording::get_address_of_lvalue.  */
    5922                 :            : 
    5923                 :            : void
    5924                 :         45 : recording::get_address_of_lvalue::visit_children (rvalue_visitor *v)
    5925                 :            : {
    5926                 :         45 :   v->visit (m_lvalue);
    5927                 :         45 : }
    5928                 :            : 
    5929                 :            : /* Implementation of recording::memento::make_debug_string for
    5930                 :            :    getting the address of an lvalue.  */
    5931                 :            : 
    5932                 :            : recording::string *
    5933                 :        178 : recording::get_address_of_lvalue::make_debug_string ()
    5934                 :            : {
    5935                 :        178 :   enum precedence prec = get_precedence ();
    5936                 :        178 :   return string::from_printf (m_ctxt,
    5937                 :            :                               "&%s",
    5938                 :        178 :                               m_lvalue->get_debug_string_parens (prec));
    5939                 :            : }
    5940                 :            : 
    5941                 :            : /* Implementation of recording::memento::write_reproducer for
    5942                 :            :    get_address_of_lvalue.  */
    5943                 :            : 
    5944                 :            : void
    5945                 :        173 : recording::get_address_of_lvalue::write_reproducer (reproducer &r)
    5946                 :            : {
    5947                 :        173 :   const char *id = r.make_identifier (this, "address_of");
    5948                 :        173 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5949                 :            :            "    gcc_jit_lvalue_get_address (%s, /* gcc_jit_lvalue *lvalue */\n"
    5950                 :            :            "                                %s); /* gcc_jit_location *loc */\n",
    5951                 :            :            id,
    5952                 :            :            r.get_identifier_as_lvalue (m_lvalue),
    5953                 :        173 :            r.get_identifier (m_loc));
    5954                 :        173 : }
    5955                 :            : 
    5956                 :            : /* The implementation of class gcc::jit::recording::function_pointer.  */
    5957                 :            : 
    5958                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    5959                 :            :    for recording::function_pointer.  */
    5960                 :            : 
    5961                 :            : void
    5962                 :         15 : recording::function_pointer::replay_into (replayer *r)
    5963                 :            : {
    5964                 :         30 :   set_playback_obj (
    5965                 :         15 :     m_fn->playback_function ()->
    5966                 :         15 :       get_address (playback_location (r, m_loc)));
    5967                 :         15 : }
    5968                 :            : 
    5969                 :            : void
    5970                 :         15 : recording::function_pointer::visit_children (rvalue_visitor *)
    5971                 :            : {
    5972                 :            :   /* Empty.  */
    5973                 :         15 : }
    5974                 :            : 
    5975                 :            : /* Implementation of recording::memento::make_debug_string for
    5976                 :            :    getting the address of an lvalue.  */
    5977                 :            : 
    5978                 :            : recording::string *
    5979                 :         10 : recording::function_pointer::make_debug_string ()
    5980                 :            : {
    5981                 :         10 :   return string::from_printf (m_ctxt,
    5982                 :            :                               "%s",
    5983                 :         10 :                               m_fn->get_debug_string ());
    5984                 :            : }
    5985                 :            : 
    5986                 :            : /* Implementation of recording::memento::write_reproducer for
    5987                 :            :    function_pointer.  */
    5988                 :            : 
    5989                 :            : void
    5990                 :         10 : recording::function_pointer::write_reproducer (reproducer &r)
    5991                 :            : {
    5992                 :         10 :   const char *id = r.make_identifier (this, "address_of");
    5993                 :         10 :   r.write ("  gcc_jit_rvalue *%s =\n"
    5994                 :            :            "    gcc_jit_function_get_address (%s, /* gcc_jit_function *fn */\n"
    5995                 :            :            "                                  %s); /* gcc_jit_location *loc */\n",
    5996                 :            :            id,
    5997                 :         10 :            r.get_identifier (m_fn),
    5998                 :         10 :            r.get_identifier (m_loc));
    5999                 :         10 : }
    6000                 :            : 
    6001                 :            : /* The implementation of class gcc::jit::recording::local.  */
    6002                 :            : 
    6003                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6004                 :            :    for recording::local.  */
    6005                 :            : 
    6006                 :            : void
    6007                 :       1882 : recording::local::replay_into (replayer *r)
    6008                 :            : {
    6009                 :       3764 :   set_playback_obj (
    6010                 :       1882 :     m_func->playback_function ()
    6011                 :       1882 :       ->new_local (playback_location (r, m_loc),
    6012                 :       1882 :                    m_type->playback_type (),
    6013                 :            :                    playback_string (m_name)));
    6014                 :       1882 : }
    6015                 :            : 
    6016                 :            : /* Override the default implementation of
    6017                 :            :    recording::memento::write_to_dump for locals by writing
    6018                 :            :       TYPE NAME;
    6019                 :            :    for use at the top of the function body as if it were a
    6020                 :            :    declaration.  */
    6021                 :            : 
    6022                 :            : void
    6023                 :         16 : recording::local::write_to_dump (dump &d)
    6024                 :            : {
    6025                 :         16 :   if (d.update_locations ())
    6026                 :         16 :     m_loc = d.make_location ();
    6027                 :         32 :   d.write("  %s %s;\n",
    6028                 :         16 :           m_type->get_debug_string (),
    6029                 :            :           get_debug_string ());
    6030                 :         16 : }
    6031                 :            : 
    6032                 :            : void
    6033                 :       2646 : recording::local::write_reproducer (reproducer &r)
    6034                 :            : {
    6035                 :       2646 :   const char *id = r.make_identifier (this, "local");
    6036                 :       5292 :   r.write ("  gcc_jit_lvalue *%s =\n"
    6037                 :            :            "    gcc_jit_function_new_local (%s, /* gcc_jit_function *func */\n"
    6038                 :            :            "                                %s, /* gcc_jit_location *loc */\n"
    6039                 :            :            "                                %s, /* gcc_jit_type *type */\n"
    6040                 :            :            "                                %s); /* const char *name */\n",
    6041                 :            :            id,
    6042                 :       2646 :            r.get_identifier (m_func),
    6043                 :       2646 :            r.get_identifier (m_loc),
    6044                 :            :            r.get_identifier_as_type (m_type),
    6045                 :       2646 :            m_name->get_debug_string ());
    6046                 :       2646 : }
    6047                 :            : 
    6048                 :            : /* The implementation of class gcc::jit::recording::statement.  */
    6049                 :            : 
    6050                 :            : /* We poison the default implementation of
    6051                 :            :    gcc::jit::recording::statement::get_successor_blocks
    6052                 :            :    since this vfunc must only ever be called on terminator
    6053                 :            :    statements.  */
    6054                 :            : 
    6055                 :            : vec <recording::block *>
    6056                 :          0 : recording::statement::get_successor_blocks () const
    6057                 :            : {
    6058                 :            :   /* The base class implementation is for non-terminating statements,
    6059                 :            :      and thus should never be called.  */
    6060                 :          0 :   gcc_unreachable ();
    6061                 :            :   vec <block *> result;
    6062                 :            :   result.create (0);
    6063                 :            :   return result;
    6064                 :            : }
    6065                 :            : 
    6066                 :            : /* Extend the default implementation of
    6067                 :            :    recording::memento::write_to_dump for statements by (if requested)
    6068                 :            :    updating the location of the statement to the current location in
    6069                 :            :    the dumpfile.  */
    6070                 :            : 
    6071                 :            : void
    6072                 :        156 : recording::statement::write_to_dump (dump &d)
    6073                 :            : {
    6074                 :        156 :   memento::write_to_dump (d);
    6075                 :        156 :   if (d.update_locations ())
    6076                 :        156 :     m_loc = d.make_location ();
    6077                 :        156 : }
    6078                 :            : 
    6079                 :            : /* The implementation of class gcc::jit::recording::eval.  */
    6080                 :            : 
    6081                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6082                 :            :    for recording::eval.  */
    6083                 :            : 
    6084                 :            : void
    6085                 :        256 : recording::eval::replay_into (replayer *r)
    6086                 :            : {
    6087                 :        256 :   playback_block (get_block ())
    6088                 :        256 :     ->add_eval (playback_location (r),
    6089                 :        256 :                 m_rvalue->playback_rvalue ());
    6090                 :        256 : }
    6091                 :            : 
    6092                 :            : /* Implementation of recording::memento::make_debug_string for
    6093                 :            :    an eval statement.  */
    6094                 :            : 
    6095                 :            : recording::string *
    6096                 :          8 : recording::eval::make_debug_string ()
    6097                 :            : {
    6098                 :          8 :   return string::from_printf (m_ctxt,
    6099                 :            :                               "(void)%s;",
    6100                 :          8 :                               m_rvalue->get_debug_string ());
    6101                 :            : }
    6102                 :            : 
    6103                 :            : /* Implementation of recording::memento::write_reproducer for
    6104                 :            :    eval statements.  */
    6105                 :            : 
    6106                 :            : void
    6107                 :       1954 : recording::eval::write_reproducer (reproducer &r)
    6108                 :            : {
    6109                 :       1954 :   r.write ("  gcc_jit_block_add_eval (%s, /*gcc_jit_block *block */\n"
    6110                 :            :            "                          %s, /* gcc_jit_location *loc */\n"
    6111                 :            :            "                          %s); /* gcc_jit_rvalue *rvalue */\n",
    6112                 :       1954 :            r.get_identifier (get_block ()),
    6113                 :       1954 :            r.get_identifier (get_loc ()),
    6114                 :            :            r.get_identifier_as_rvalue (m_rvalue));
    6115                 :       1954 : }
    6116                 :            : 
    6117                 :            : /* The implementation of class gcc::jit::recording::assignment.  */
    6118                 :            : 
    6119                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6120                 :            :    for recording::assignment.  */
    6121                 :            : 
    6122                 :            : void
    6123                 :       3845 : recording::assignment::replay_into (replayer *r)
    6124                 :            : {
    6125                 :       3845 :   playback_block (get_block ())
    6126                 :       7690 :     ->add_assignment (playback_location (r),
    6127                 :       3845 :                       m_lvalue->playback_lvalue (),
    6128                 :       3845 :                       m_rvalue->playback_rvalue ());
    6129                 :       3845 : }
    6130                 :            : 
    6131                 :            : /* Implementation of recording::memento::make_debug_string for
    6132                 :            :    an assignment statement.  */
    6133                 :            : 
    6134                 :            : recording::string *
    6135                 :         60 : recording::assignment::make_debug_string ()
    6136                 :            : {
    6137                 :         60 :   return string::from_printf (m_ctxt,
    6138                 :            :                               "%s = %s;",
    6139                 :         60 :                               m_lvalue->get_debug_string (),
    6140                 :         60 :                               m_rvalue->get_debug_string ());
    6141                 :            : }
    6142                 :            : 
    6143                 :            : /* Implementation of recording::memento::write_reproducer for
    6144                 :            :    assignment statements.  */
    6145                 :            : 
    6146                 :            : void
    6147                 :       1732 : recording::assignment::write_reproducer (reproducer &r)
    6148                 :            : {
    6149                 :       1732 :   r.write ("  gcc_jit_block_add_assignment (%s, /*gcc_jit_block *block */\n"
    6150                 :            :            "                                %s, /* gcc_jit_location *loc */\n"
    6151                 :            :            "                                %s, /* gcc_jit_lvalue *lvalue */\n"
    6152                 :            :            "                                %s); /* gcc_jit_rvalue *rvalue */\n",
    6153                 :       1732 :            r.get_identifier (get_block ()),
    6154                 :       1732 :            r.get_identifier (get_loc ()),
    6155                 :            :            r.get_identifier_as_lvalue (m_lvalue),
    6156                 :            :            r.get_identifier_as_rvalue (m_rvalue));
    6157                 :       1732 : }
    6158                 :            : 
    6159                 :            : /* The implementation of class gcc::jit::recording::assignment_op.  */
    6160                 :            : 
    6161                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6162                 :            :    for recording::assignment_op.  */
    6163                 :            : 
    6164                 :            : void
    6165                 :        369 : recording::assignment_op::replay_into (replayer *r)
    6166                 :            : {
    6167                 :        369 :   playback::type *result_type =
    6168                 :        369 :     m_lvalue->playback_lvalue ()->get_type ();
    6169                 :            : 
    6170                 :        369 :   playback::rvalue *binary_op =
    6171                 :        369 :     r->new_binary_op (playback_location (r),
    6172                 :            :                       m_op,
    6173                 :            :                       result_type,
    6174                 :        369 :                       m_lvalue->playback_rvalue (),
    6175                 :        369 :                       m_rvalue->playback_rvalue ());
    6176                 :            : 
    6177                 :        369 :   playback_block (get_block ())
    6178                 :        369 :     ->add_assignment (playback_location (r),
    6179                 :        369 :                       m_lvalue->playback_lvalue (),
    6180                 :            :                       binary_op);
    6181                 :        369 : }
    6182                 :            : 
    6183                 :            : /* Implementation of recording::memento::make_debug_string for
    6184                 :            :    an assignment_op statement.  */
    6185                 :            : 
    6186                 :            : recording::string *
    6187                 :          0 : recording::assignment_op::make_debug_string ()
    6188                 :            : {
    6189                 :          0 :   return string::from_printf (m_ctxt,
    6190                 :            :                               "%s %s= %s;",
    6191                 :          0 :                               m_lvalue->get_debug_string (),
    6192                 :          0 :                               binary_op_strings[m_op],
    6193                 :          0 :                               m_rvalue->get_debug_string ());
    6194                 :            : }
    6195                 :            : 
    6196                 :            : /* Implementation of recording::memento::write_reproducer for
    6197                 :            :    assignment_op statements.  */
    6198                 :            : 
    6199                 :            : void
    6200                 :        110 : recording::assignment_op::write_reproducer (reproducer &r)
    6201                 :            : {
    6202                 :        220 :   r.write ("  gcc_jit_block_add_assignment_op (%s, /*gcc_jit_block *block */\n"
    6203                 :            :            "                                   %s, /* gcc_jit_location *loc */\n"
    6204                 :            :            "                                   %s, /* gcc_jit_lvalue *lvalue */\n"
    6205                 :            :            "                                   %s, /* enum gcc_jit_binary_op op */\n"
    6206                 :            :            "                                   %s); /* gcc_jit_rvalue *rvalue */\n",
    6207                 :        110 :            r.get_identifier (get_block ()),
    6208                 :        110 :            r.get_identifier (get_loc ()),
    6209                 :            :            r.get_identifier_as_lvalue (m_lvalue),
    6210                 :        110 :            binary_op_reproducer_strings[m_op],
    6211                 :            :            r.get_identifier_as_rvalue (m_rvalue));
    6212                 :        110 : }
    6213                 :            : 
    6214                 :            : /* The implementation of class gcc::jit::recording::comment.  */
    6215                 :            : 
    6216                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6217                 :            :    for recording::comment.  */
    6218                 :            : 
    6219                 :            : void
    6220                 :        428 : recording::comment::replay_into (replayer *r)
    6221                 :            : {
    6222                 :        428 :   playback_block (get_block ())
    6223                 :        428 :     ->add_comment (playback_location (r),
    6224                 :        428 :                    m_text->c_str ());
    6225                 :        428 : }
    6226                 :            : 
    6227                 :            : /* Implementation of recording::memento::make_debug_string for
    6228                 :            :    a comment "statement".  */
    6229                 :            : 
    6230                 :            : recording::string *
    6231                 :         44 : recording::comment::make_debug_string ()
    6232                 :            : {
    6233                 :         44 :   return string::from_printf (m_ctxt,
    6234                 :            :                               "/* %s */",
    6235                 :         44 :                               m_text->c_str ());
    6236                 :            : }
    6237                 :            : 
    6238                 :            : /* Implementation of recording::memento::write_reproducer for
    6239                 :            :    comments.  */
    6240                 :            : 
    6241                 :            : void
    6242                 :        228 : recording::comment::write_reproducer (reproducer &r)
    6243                 :            : {
    6244                 :        228 :   r.write ("  gcc_jit_block_add_comment (%s, /*gcc_jit_block *block */\n"
    6245                 :            :            "                             %s, /* gcc_jit_location *loc */\n"
    6246                 :            :            "                             %s); /* const char *text */\n",
    6247                 :        228 :            r.get_identifier (get_block ()),
    6248                 :        228 :            r.get_identifier (get_loc ()),
    6249                 :        228 :            m_text->get_debug_string ());
    6250                 :        228 : }
    6251                 :            : 
    6252                 :            : /* The implementation of class gcc::jit::recording::conditional.  */
    6253                 :            : 
    6254                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6255                 :            :    for recording::conditional.  */
    6256                 :            : 
    6257                 :            : void
    6258                 :        824 : recording::conditional::replay_into (replayer *r)
    6259                 :            : {
    6260                 :        824 :   playback_block (get_block ())
    6261                 :        824 :     ->add_conditional (playback_location (r),
    6262                 :        824 :                        m_boolval->playback_rvalue (),
    6263                 :            :                        playback_block (m_on_true),
    6264                 :            :                        playback_block (m_on_false));
    6265                 :        824 : }
    6266                 :            : 
    6267                 :            : /* Override the poisoned default implementation of
    6268                 :            :    gcc::jit::recording::statement::get_successor_blocks
    6269                 :            : 
    6270                 :            :    A conditional jump has 2 successor blocks.  */
    6271                 :            : 
    6272                 :            : vec <recording::block *>
    6273                 :        824 : recording::conditional::get_successor_blocks () const
    6274                 :            : {
    6275                 :        824 :   vec <block *> result;
    6276                 :        824 :   result.create (2);
    6277                 :        824 :   result.quick_push (m_on_true);
    6278                 :        824 :   result.quick_push (m_on_false);
    6279                 :        824 :   return result;
    6280                 :            : }
    6281                 :            : 
    6282                 :            : /* Implementation of recording::memento::make_debug_string for
    6283                 :            :    a conditional jump statement.  */
    6284                 :            : 
    6285                 :            : recording::string *
    6286                 :         16 : recording::conditional::make_debug_string ()
    6287                 :            : {
    6288                 :         16 :   if (m_on_false)
    6289                 :         32 :     return string::from_printf (m_ctxt,
    6290                 :            :                                 "if (%s) goto %s; else goto %s;",
    6291                 :         16 :                                 m_boolval->get_debug_string (),
    6292                 :         16 :                                 m_on_true->get_debug_string (),
    6293                 :         16 :                                 m_on_false->get_debug_string ());
    6294                 :            :   else
    6295                 :          0 :     return string::from_printf (m_ctxt,
    6296                 :            :                                 "if (%s) goto %s;",
    6297                 :          0 :                                 m_boolval->get_debug_string (),
    6298                 :          0 :                                 m_on_true->get_debug_string ());
    6299                 :            : }
    6300                 :            : 
    6301                 :            : /* Implementation of recording::memento::write_reproducer for
    6302                 :            :    conditional statements.  */
    6303                 :            : 
    6304                 :            : void
    6305                 :        291 : recording::conditional::write_reproducer (reproducer &r)
    6306                 :            : {
    6307                 :        291 :   r.write ("  gcc_jit_block_end_with_conditional (%s, /*gcc_jit_block *block */\n"
    6308                 :            :            "                                      %s, /* gcc_jit_location *loc */\n"
    6309                 :            :            "                                      %s, /* gcc_jit_rvalue *boolval */\n"
    6310                 :            :            "                                      %s, /* gcc_jit_block *on_true */\n"
    6311                 :            :            "                                      %s); /* gcc_jit_block *on_false */\n",
    6312                 :        291 :            r.get_identifier (get_block ()),
    6313                 :        291 :            r.get_identifier (get_loc ()),
    6314                 :            :            r.get_identifier_as_rvalue (m_boolval),
    6315                 :        291 :            r.get_identifier (m_on_true),
    6316                 :        291 :            r.get_identifier (m_on_false));
    6317                 :        291 : }
    6318                 :            : 
    6319                 :            : /* The implementation of class gcc::jit::recording::jump.  */
    6320                 :            : 
    6321                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6322                 :            :    for recording::jump.  */
    6323                 :            : 
    6324                 :            : void
    6325                 :       1117 : recording::jump::replay_into (replayer *r)
    6326                 :            : {
    6327                 :       1117 :   playback_block (get_block ())
    6328                 :       1117 :     ->add_jump (playback_location (r),
    6329                 :       1117 :                 m_target->playback_block ());
    6330                 :       1117 : }
    6331                 :            : 
    6332                 :            : /* Override the poisoned default implementation of
    6333                 :            :    gcc::jit::recording::statement::get_successor_blocks
    6334                 :            : 
    6335                 :            :    An unconditional jump has 1 successor block.  */
    6336                 :            : 
    6337                 :            : vec <recording::block *>
    6338                 :       1117 : recording::jump::get_successor_blocks () const
    6339                 :            : {
    6340                 :       1117 :   vec <block *> result;
    6341                 :       1117 :   result.create (1);
    6342                 :       1117 :   result.quick_push (m_target);
    6343                 :       1117 :   return result;
    6344                 :            : }
    6345                 :            : 
    6346                 :            : /* Implementation of recording::memento::make_debug_string for
    6347                 :            :    a unconditional jump statement.  */
    6348                 :            : 
    6349                 :            : recording::string *
    6350                 :          0 : recording::jump::make_debug_string ()
    6351                 :            : {
    6352                 :          0 :   return string::from_printf (m_ctxt,
    6353                 :            :                               "goto %s;",
    6354                 :          0 :                               m_target->get_debug_string ());
    6355                 :            : }
    6356                 :            : 
    6357                 :            : /* Implementation of recording::memento::write_reproducer for
    6358                 :            :    jump statements.  */
    6359                 :            : 
    6360                 :            : void
    6361                 :        180 : recording::jump::write_reproducer (reproducer &r)
    6362                 :            : {
    6363                 :        180 :   r.write ("  gcc_jit_block_end_with_jump (%s, /*gcc_jit_block *block */\n"
    6364                 :            :            "                               %s, /* gcc_jit_location *loc */\n"
    6365                 :            :            "                               %s); /* gcc_jit_block *target */\n",
    6366                 :        180 :            r.get_identifier (get_block ()),
    6367                 :        180 :            r.get_identifier (get_loc ()),
    6368                 :        180 :            r.get_identifier (m_target));
    6369                 :        180 : }
    6370                 :            : 
    6371                 :            : /* The implementation of class gcc::jit::recording::return_.  */
    6372                 :            : 
    6373                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6374                 :            :    for recording::return_.  */
    6375                 :            : 
    6376                 :            : void
    6377                 :       2952 : recording::return_::replay_into (replayer *r)
    6378                 :            : {
    6379                 :       2952 :   playback_block (get_block ())
    6380                 :       5904 :     ->add_return (playback_location (r),
    6381                 :       2952 :                   m_rvalue ? m_rvalue->playback_rvalue () : NULL);
    6382                 :       2952 : }
    6383                 :            : 
    6384                 :            : /* Override the poisoned default implementation of
    6385                 :            :    gcc::jit::recording::statement::get_successor_blocks
    6386                 :            : 
    6387                 :            :    A return statement has no successor block.  */
    6388                 :            : 
    6389                 :            : vec <recording::block *>
    6390                 :       3079 : recording::return_::get_successor_blocks () const
    6391                 :            : {
    6392                 :       3079 :   vec <block *> result;
    6393                 :       3079 :   result.create (0);
    6394                 :       3079 :   return result;
    6395                 :            : }
    6396                 :            : 
    6397                 :            : /* Implementation of recording::memento::make_debug_string for
    6398                 :            :    a return statement (covers both those with and without rvalues).  */
    6399                 :            : 
    6400                 :            : recording::string *
    6401                 :         48 : recording::return_::make_debug_string ()
    6402                 :            : {
    6403                 :         48 :   if (m_rvalue)
    6404                 :         39 :     return string::from_printf (m_ctxt,
    6405                 :            :                                 "return %s;",
    6406                 :         39 :                                 m_rvalue->get_debug_string ());
    6407                 :            :   else
    6408                 :          9 :     return string::from_printf (m_ctxt,
    6409                 :          9 :                                 "return;");
    6410                 :            : }
    6411                 :            : 
    6412                 :            : /* Implementation of recording::memento::write_reproducer for
    6413                 :            :    return statements.  */
    6414                 :            : 
    6415                 :            : void
    6416                 :       2030 : recording::return_::write_reproducer (reproducer &r)
    6417                 :            : {
    6418                 :       2030 :   if (m_rvalue)
    6419                 :       1572 :     r.write ("  gcc_jit_block_end_with_return (%s, /*gcc_jit_block *block */\n"
    6420                 :            :              "                                 %s, /* gcc_jit_location *loc */\n"
    6421                 :            :              "                                 %s); /* gcc_jit_rvalue *rvalue */\n",
    6422                 :       1572 :              r.get_identifier (get_block ()),
    6423                 :       1572 :              r.get_identifier (get_loc ()),
    6424                 :            :              r.get_identifier_as_rvalue (m_rvalue));
    6425                 :            :   else
    6426                 :        458 :     r.write ("  gcc_jit_block_end_with_void_return (%s, /*gcc_jit_block *block */\n"
    6427                 :            :              "                                      %s); /* gcc_jit_location *loc */\n",
    6428                 :        458 :              r.get_identifier (get_block ()),
    6429                 :        458 :              r.get_identifier (get_loc ()));
    6430                 :       2030 : }
    6431                 :            : 
    6432                 :            : /* The implementation of class gcc::jit::recording::case_.  */
    6433                 :            : 
    6434                 :            : void
    6435                 :         75 : recording::case_::write_reproducer (reproducer &r)
    6436                 :            : {
    6437                 :         75 :   const char *id = r.make_identifier (this, "case");
    6438                 :         75 :   const char *fmt =
    6439                 :            :     "  gcc_jit_case *%s = \n"
    6440                 :            :     "    gcc_jit_context_new_case (%s, /*gcc_jit_context *ctxt */\n"
    6441                 :            :     "                              %s, /* gcc_jit_rvalue *min_value */\n"
    6442                 :            :     "                              %s, /* gcc_jit_rvalue *max_value */\n"
    6443                 :            :     "                              %s); /* gcc_jit_block *dest_block */\n";
    6444                 :         75 :   r.write (fmt,
    6445                 :            :            id,
    6446                 :            :            r.get_identifier (get_context ()),
    6447                 :            :            r.get_identifier_as_rvalue (m_min_value),
    6448                 :            :            r.get_identifier_as_rvalue (m_max_value),
    6449                 :         75 :            r.get_identifier (m_dest_block));
    6450                 :         75 : }
    6451                 :            : 
    6452                 :            : recording::string *
    6453                 :         75 : recording::case_::make_debug_string ()
    6454                 :            : {
    6455                 :         75 :   return string::from_printf (get_context (),
    6456                 :            :                               "case %s ... %s: goto %s;",
    6457                 :         75 :                               m_min_value->get_debug_string (),
    6458                 :         75 :                               m_max_value->get_debug_string (),
    6459                 :         75 :                               m_dest_block->get_debug_string ());
    6460                 :            : }
    6461                 :            : 
    6462                 :            : /* The implementation of class gcc::jit::recording::switch_.  */
    6463                 :            : 
    6464                 :            : /* gcc::jit::recording::switch_'s constructor.  */
    6465                 :            : 
    6466                 :         20 : recording::switch_::switch_ (block *b,
    6467                 :            :                              location *loc,
    6468                 :            :                              rvalue *expr,
    6469                 :            :                              block *default_block,
    6470                 :            :                              int num_cases,
    6471                 :         20 :                              case_ **cases)
    6472                 :            : : statement (b, loc),
    6473                 :         20 :   m_expr (expr),
    6474                 :         20 :   m_default_block (default_block)
    6475                 :            : {
    6476                 :         20 :   m_cases.reserve_exact (num_cases);
    6477                 :        100 :   for (int i = 0; i< num_cases; i++)
    6478                 :         80 :     m_cases.quick_push (cases[i]);
    6479                 :         20 : }
    6480                 :            : 
    6481                 :            : /* Implementation of pure virtual hook recording::memento::replay_into
    6482                 :            :    for recording::switch_.  */
    6483                 :            : 
    6484                 :            : void
    6485                 :         20 : recording::switch_::replay_into (replayer *r)
    6486                 :            : {
    6487                 :         20 :   auto_vec <playback::case_> pcases;
    6488                 :         20 :   int i;
    6489                 :         20 :   recording::case_ *rcase;
    6490                 :         40 :   pcases.reserve_exact (m_cases.length ());
    6491                 :        100 :   FOR_EACH_VEC_ELT (m_cases, i, rcase)
    6492                 :            :     {
    6493                 :         80 :       playback::case_ pcase (rcase->get_min_value ()->playback_rvalue (),
    6494                 :            :                              rcase->get_max_value ()->playback_rvalue (),
    6495                 :         80 :                              rcase->get_dest_block ()->playback_block ());
    6496                 :         80 :       pcases.safe_push (pcase);
    6497                 :            :     }
    6498                 :         20 :   playback_block (get_block ())
    6499                 :         40 :     ->add_switch (playback_location (r),
    6500                 :         20 :                   m_expr->playback_rvalue (),
    6501                 :         20 :                   m_default_block->playback_block (),
    6502                 :            :                   &pcases);
    6503                 :         20 : }
    6504                 :            : 
    6505                 :            : /* Override the poisoned default implementation of
    6506                 :            :    gcc::jit::recording::statement::get_successor_blocks
    6507                 :            : 
    6508                 :            :    A switch statement has (NUM_CASES + 1) successor blocks.  */
    6509                 :            : 
    6510                 :            : vec <recording::block *>
    6511                 :         20 : recording::switch_::get_successor_blocks () const
    6512                 :            : {
    6513                 :         20 :   vec <block *> result;
    6514                 :         40 :   result.create (m_cases.length () + 1);
    6515                 :         20 :   result.quick_push (m_default_block);
    6516                 :         20 :   int i;
    6517                 :         20 :   case_ *c;
    6518                 :        120 :   FOR_EACH_VEC_ELT (m_cases, i, c)
    6519                 :         80 :     result.quick_push (c->get_dest_block ());
    6520                 :         20 :   return result;
    6521                 :            : }
    6522                 :            : 
    6523                 :            : /* Implementation of recording::memento::make_debug_string for
    6524                 :            :    a switch statement.  */
    6525                 :            : 
    6526                 :            : recording::string *
    6527                 :         15 : recording::switch_::make_debug_string ()
    6528                 :            : {
    6529                 :         15 :   auto_vec <char> cases_str;
    6530                 :         15 :   int i;
    6531                 :         15 :   case_ *c;
    6532                 :         75 :   FOR_EACH_VEC_ELT (m_cases, i, c)
    6533                 :            :     {
    6534                 :         60 :       size_t len = strlen (c->get_debug_string ());
    6535                 :         60 :       unsigned idx = cases_str.length ();
    6536                 :         60 :       cases_str.safe_grow (idx + 1 + len, true);
    6537                 :         60 :       cases_str[idx] = ' ';
    6538                 :         60 :       memcpy (&(cases_str[idx + 1]),
    6539                 :         60 :               c->get_debug_string (),
    6540                 :            :               len);
    6541                 :            :     }
    6542                 :         15 :   cases_str.safe_push ('\0');
    6543                 :            : 
    6544                 :         15 :   return string::from_printf (m_ctxt,
    6545                 :            :                               "switch (%s) {default: goto %s;%s}",
    6546                 :         15 :                               m_expr->get_debug_string (),
    6547                 :         15 :                               m_default_block->get_debug_string (),
    6548                 :         15 :                               &cases_str[0]);
    6549                 :         15 : }
    6550                 :            : 
    6551                 :            : /* Implementation of recording::memento::write_reproducer for
    6552                 :            :    switch statements.  */
    6553                 :            : 
    6554                 :            : void
    6555                 :         15 : recording::switch_::write_reproducer (reproducer &r)
    6556                 :            : {
    6557                 :         15 :   r.make_identifier (this, "switch");
    6558                 :         15 :   int i;
    6559                 :         15 :   case_ *c;
    6560                 :         15 :   const char *cases_id =
    6561                 :         15 :     r.make_tmp_identifier ("cases_for", this);
    6562                 :         15 :   r.write ("  gcc_jit_case *%s[%i] = {\n",
    6563                 :            :            cases_id,
    6564                 :            :            m_cases.length ());
    6565                 :         90 :   FOR_EACH_VEC_ELT (m_cases, i, c)
    6566                 :         60 :     r.write ("    %s,\n", r.get_identifier (c));
    6567                 :         15 :   r.write ("  };\n");
    6568                 :         15 :   const char *fmt =
    6569                 :            :     "  gcc_jit_block_end_with_switch (%s, /*gcc_jit_block *block */\n"
    6570                 :            :     "                                 %s, /* gcc_jit_location *loc */\n"
    6571                 :            :     "                                 %s, /* gcc_jit_rvalue *expr */\n"
    6572                 :            :     "                                 %s, /* gcc_jit_block *default_block */\n"
    6573                 :            :     "                                 %i, /* int num_cases */\n"
    6574                 :            :     "                                 %s); /* gcc_jit_case **cases */\n";
    6575                 :         30 :     r.write (fmt,
    6576                 :         15 :              r.get_identifier (get_block ()),
    6577                 :         15 :              r.get_identifier (get_loc ()),
    6578                 :            :              r.get_identifier_as_rvalue (m_expr),
    6579                 :         15 :              r.get_identifier (m_default_block),
    6580                 :            :              m_cases.length (),
    6581                 :            :              cases_id);
    6582                 :         15 : }
    6583                 :            : 
    6584                 :            : /* class asm_operand : public memento.  */
    6585                 :            : 
    6586                 :        100 : recording::asm_operand::asm_operand (extended_asm *ext_asm,
    6587                 :            :                                      string *asm_symbolic_name,
    6588                 :        100 :                                      string *constraint)
    6589                 :            : : memento (ext_asm->get_context ()),
    6590                 :        100 :   m_ext_asm (ext_asm),
    6591                 :        100 :   m_asm_symbolic_name (asm_symbolic_name),
    6592                 :        100 :   m_constraint (constraint)
    6593                 :            : {
    6594                 :        100 : }
    6595                 :            : 
    6596                 :            : void
    6597                 :        100 : recording::asm_operand::print (pretty_printer *pp) const
    6598                 :            : {
    6599                 :        100 :   if (m_asm_symbolic_name)
    6600                 :            :     {
    6601                 :         20 :       pp_character (pp, '[');
    6602                 :         20 :       pp_string (pp, m_asm_symbolic_name->c_str ());
    6603                 :         20 :       pp_character (pp, ']');
    6604                 :         20 :       pp_space (pp);
    6605                 :            :     }
    6606                 :        100 :   pp_string (pp, m_constraint->get_debug_string ());
    6607                 :            :   /* Subclass will add lvalue/rvalue.  */
    6608                 :        100 : }
    6609                 :            : 
    6610                 :            : recording::string *
    6611                 :          0 : recording::asm_operand::make_debug_string ()
    6612                 :            : {
    6613                 :          0 :   pretty_printer pp;
    6614                 :          0 :   print (&pp);
    6615                 :          0 :   return m_ctxt->new_string (pp_formatted_text (&pp), false);
    6616                 :          0 : }
    6617                 :            : 
    6618                 :            : /* class output_asm_operand : public asm_operand.  */
    6619                 :            : 
    6620                 :            : void
    6621                 :         40 : recording::output_asm_operand::write_reproducer (reproducer &r)
    6622                 :            : {
    6623                 :         40 :   const char *fmt =
    6624                 :            :     "  gcc_jit_extended_asm_add_output_operand (%s, /* gcc_jit_extended_asm *ext_asm */\n"
    6625                 :            :     "                                           %s, /* const char *asm_symbolic_name */\n"
    6626                 :            :     "                                           %s, /* const char *constraint */\n"
    6627                 :            :     "                                           %s); /* gcc_jit_lvalue *dest */\n";
    6628                 :         40 :   r.write (fmt,
    6629                 :         40 :            r.get_identifier (m_ext_asm),
    6630                 :         40 :            (m_asm_symbolic_name
    6631                 :         10 :             ? m_asm_symbolic_name->get_debug_string () : "NULL"),
    6632                 :         40 :            m_constraint->get_debug_string (),
    6633                 :         40 :            r.get_identifier (m_dest));
    6634                 :         40 : }
    6635                 :            : 
    6636                 :            : void
    6637                 :         40 : recording::output_asm_operand::print (pretty_printer *pp) const
    6638                 :            : {
    6639                 :         40 :   asm_operand::print (pp);
    6640                 :         40 :   pp_string (pp, " (");
    6641                 :         40 :   pp_string (pp, m_dest->get_debug_string ());
    6642                 :         40 :   pp_string (pp, ")");
    6643                 :         40 : }
    6644                 :            : 
    6645                 :            : /* class input_asm_operand : public asm_operand.  */
    6646                 :            : 
    6647                 :            : void
    6648                 :         60 : recording::input_asm_operand::write_reproducer (reproducer &r)
    6649                 :            : {
    6650                 :         60 :   const char *fmt =
    6651                 :            :     "  gcc_jit_extended_asm_add_input_operand (%s, /* gcc_jit_extended_asm *ext_asm */\n"
    6652                 :            :     "                                          %s, /* const char *asm_symbolic_name */\n"
    6653                 :            :     "                                          %s, /* const char *constraint */\n"
    6654                 :            :     "                                          %s); /* gcc_jit_rvalue *src */\n";
    6655                 :        120 :   r.write (fmt,
    6656                 :         60 :            r.get_identifier (m_ext_asm),
    6657                 :         60 :            (m_asm_symbolic_name
    6658                 :         10 :             ? m_asm_symbolic_name->get_debug_string () : "NULL"),
    6659                 :         60 :            m_constraint->get_debug_string (),
    6660                 :            :            r.get_identifier_as_rvalue (m_src));
    6661                 :         60 : }
    6662                 :            : 
    6663                 :            : void
    6664                 :         60 : recording::input_asm_operand::print (pretty_printer *pp) const
    6665                 :            : {
    6666                 :         60 :   asm_operand::print (pp);
    6667                 :         60 :   pp_string (pp, " (");
    6668                 :         60 :   pp_string (pp, m_src->get_debug_string ());
    6669                 :         60 :   pp_string (pp, ")");
    6670                 :         60 : }
    6671                 :            : 
    6672                 :            : /* The implementation of class gcc::jit::recording::extended_asm.  */
    6673                 :            : 
    6674                 :            : void
    6675                 :         40 : recording::extended_asm::add_output_operand (const char *asm_symbolic_name,
    6676                 :            :                                              const char *constraint,
    6677                 :            :                                              lvalue *dest)
    6678                 :            : {
    6679                 :         40 :   output_asm_operand *op
    6680                 :            :     = new output_asm_operand (this,
    6681                 :         40 :                               new_string (asm_symbolic_name),
    6682                 :         40 :                               new_string (constraint),
    6683                 :         40 :                               dest);
    6684                 :         40 :   m_ctxt->record (op);
    6685                 :         40 :   m_output_ops.safe_push (op);
    6686                 :         40 : }
    6687                 :            : 
    6688                 :            : void
    6689                 :         60 : recording::extended_asm::add_input_operand (const char *asm_symbolic_name,
    6690                 :            :                                             const char *constraint,
    6691                 :            :                                             rvalue *src)
    6692                 :            : {
    6693                 :         60 :   input_asm_operand *op
    6694                 :            :     = new input_asm_operand (this,
    6695                 :         60 :                              new_string (asm_symbolic_name),
    6696                 :         60 :                              new_string (constraint),
    6697                 :         60 :                              src);
    6698                 :         60 :   m_ctxt->record (op);
    6699                 :         60 :   m_input_ops.safe_push (op);
    6700                 :         60 : }
    6701                 :            : 
    6702                 :            : void
    6703                 :         50 : recording::extended_asm::add_clobber (const char *victim)
    6704                 :            : {
    6705                 :         50 :   m_clobbers.safe_push (new_string (victim));
    6706                 :         50 : }
    6707                 :            : 
    6708                 :            : /* Implementation of recording::memento::replay_into
    6709                 :            :    for recording::extended_asm.  */
    6710                 :            : 
    6711                 :            : void
    6712                 :         60 : recording::extended_asm::replay_into (replayer *r)
    6713                 :            : {
    6714                 :         60 :   auto_vec<playback::asm_operand> playback_output_ops;
    6715                 :         60 :   auto_vec<playback::asm_operand> playback_input_ops;
    6716                 :         60 :   auto_vec<const char *> playback_clobbers;
    6717                 :         60 :   auto_vec<playback::block *> playback_goto_blocks;
    6718                 :            : 
    6719                 :            :   /* Populate outputs.  */
    6720                 :         60 :   {
    6721                 :         60 :     output_asm_operand *rec_asm_op;
    6722                 :         60 :     unsigned i;
    6723                 :        100 :     FOR_EACH_VEC_ELT (m_output_ops, i, rec_asm_op)
    6724                 :            :       {
    6725                 :         40 :         playback::asm_operand playback_asm_op
    6726                 :            :           (rec_asm_op->get_symbolic_name (),
    6727                 :            :            rec_asm_op->get_constraint (),
    6728                 :         50 :            rec_asm_op->get_lvalue ()->playback_lvalue ()->as_tree ());
    6729                 :         40 :         playback_output_ops.safe_push (playback_asm_op);
    6730                 :            :       }
    6731                 :            :   }
    6732                 :            : 
    6733                 :            :   /* Populate inputs.  */
    6734                 :            :   {
    6735                 :            :     input_asm_operand *rec_asm_op;
    6736                 :            :     unsigned i;
    6737                 :        120 :     FOR_EACH_VEC_ELT (m_input_ops, i, rec_asm_op)
    6738                 :            :       {
    6739                 :         60 :         playback::asm_operand playback_asm_op
    6740                 :            :           (rec_asm_op->get_symbolic_name (),
    6741                 :            :            rec_asm_op->get_constraint (),
    6742                 :         70 :            rec_asm_op->get_rvalue ()->playback_rvalue ()->as_tree ());
    6743                 :         60 :         playback_input_ops.safe_push (playback_asm_op);
    6744                 :            :       }
    6745                 :            :   }
    6746                 :            : 
    6747                 :            :   /* Populate clobbers.  */
    6748                 :            :   {
    6749                 :            :     string *rec_clobber;
    6750                 :            :     unsigned i;
    6751                 :        110 :     FOR_EACH_VEC_ELT (m_clobbers, i, rec_clobber)
    6752                 :         50 :       playback_clobbers.safe_push (rec_clobber->c_str ());
    6753                 :            :   }
    6754                 :            : 
    6755                 :            :   /* Populate playback blocks if an "asm goto".  */
    6756                 :         60 :   maybe_populate_playback_blocks (&playback_goto_blocks);
    6757                 :            : 
    6758                 :         60 :   playback_block (get_block ())
    6759                 :        120 :     ->add_extended_asm (playback_location (r),
    6760                 :         60 :                         m_asm_template->c_str (),
    6761                 :         60 :                         m_is_volatile, m_is_inline,
    6762                 :            :                         &playback_output_ops,
    6763                 :            :                         &playback_input_ops,
    6764                 :            :                         &playback_clobbers,
    6765                 :            :                         &playback_goto_blocks);
    6766                 :         60 : }
    6767                 :            : 
    6768                 :            : /* Implementation of recording::memento::make_debug_string for
    6769                 :            :    an extended_asm "statement".  */
    6770                 :            : 
    6771                 :            : recording::string *
    6772                 :         60 : recording::extended_asm::make_debug_string ()
    6773                 :            : {
    6774                 :         60 :   pretty_printer pp;
    6775                 :         60 :   pp_string (&pp, "asm ");
    6776                 :         60 :   if (m_is_volatile)
    6777                 :         20 :     pp_string (&pp, "volatile ");
    6778                 :         60 :   if (m_is_inline)
    6779                 :          0 :     pp_string (&pp, "inline ");
    6780                 :         60 :   if (is_goto ())
    6781                 :         20 :     pp_string (&pp, "goto ");
    6782                 :         60 :   pp_character (&pp, '(');
    6783                 :         60 :   pp_string (&pp, m_asm_template->get_debug_string ());
    6784                 :         60 :   pp_string (&pp, " : ");
    6785                 :         60 :   unsigned i;
    6786                 :         60 :   {
    6787                 :         60 :     output_asm_operand *asm_op;
    6788                 :        160 :     FOR_EACH_VEC_ELT (m_output_ops, i, asm_op)
    6789                 :            :       {
    6790                 :         40 :         if (i > 0)
    6791                 :          0 :           pp_string (&pp, ", ");
    6792                 :         40 :         asm_op->print (&pp);
    6793                 :            :       }
    6794                 :            :   }
    6795                 :         60 :   pp_string (&pp, " : ");
    6796                 :         60 :   {
    6797                 :         60 :     input_asm_operand *asm_op;
    6798                 :        180 :     FOR_EACH_VEC_ELT (m_input_ops, i, asm_op)
    6799                 :            :       {
    6800                 :         60 :         if (i > 0)
    6801                 :         20 :           pp_string (&pp, ", ");
    6802                 :         60 :         asm_op->print (&pp);
    6803                 :            :       }
    6804                 :            :   }
    6805                 :         60 :   pp_string (&pp, " : ");
    6806                 :         60 :   string *rec_clobber;
    6807                 :        170 :   FOR_EACH_VEC_ELT (m_clobbers, i, rec_clobber)
    6808                 :            :       {
    6809                 :         50 :         if (i > 0)
    6810                 :          0 :           pp_string (&pp, ", ");
    6811                 :         50 :         pp_string (&pp, rec_clobber->get_debug_string ());
    6812                 :            :       }
    6813                 :         60 :   maybe_print_gotos (&pp);
    6814                 :         60 :   pp_character (&pp, ')');
    6815                 :         60 :   return new_string (pp_formatted_text (&pp));
    6816                 :         60 : }
    6817                 :            : 
    6818                 :            : void
    6819                 :         60 : recording::extended_asm::write_flags (reproducer &r)
    6820                 :            : {
    6821                 :         60 :   if (m_is_volatile)
    6822                 :         20 :     r.write ("  gcc_jit_extended_asm_set_volatile_flag (%s, 1);\n",
    6823                 :            :              r.get_identifier (this));
    6824                 :         60 :   if (m_is_inline)
    6825                 :          0 :     r.write ("  gcc_jit_extended_asm_set_inline_flag (%s, 1);\n",
    6826                 :            :              r.get_identifier (this));
    6827                 :         60 : }
    6828                 :            : 
    6829                 :            : void
    6830                 :         60 : recording::extended_asm::write_clobbers (reproducer &r)
    6831                 :            : {
    6832                 :         60 :   string *clobber;
    6833                 :         60 :   unsigned i;
    6834                 :        110 :   FOR_EACH_VEC_ELT (m_clobbers, i, clobber)
    6835                 :         50 :     r.write ("  gcc_jit_extended_asm_add_clobber (%s, %s);\n",
    6836                 :            :              r.get_identifier (this),
    6837                 :            :              clobber->get_debug_string ());
    6838                 :         60 : }
    6839                 :            : 
    6840                 :            : /* Implementation of recording::memento::write_reproducer for
    6841                 :            :    extended_asm_simple.  */
    6842                 :            : 
    6843                 :            : void
    6844                 :         40 : recording::extended_asm_simple::write_reproducer (reproducer &r)
    6845                 :            : {
    6846                 :         40 :   const char *id = r.make_identifier (this, "extended_asm");
    6847                 :         40 :   r.write ("  gcc_jit_extended_asm *%s =\n"
    6848                 :            :            "    gcc_jit_block_add_extended_asm (%s, /*gcc_jit_block *block */\n"
    6849                 :            :            "                                    %s, /* gcc_jit_location *loc */\n"
    6850                 :            :            "                                    %s); /* const char *asm_template */\n",
    6851                 :            :            id,
    6852                 :         40 :            r.get_identifier (get_block ()),
    6853                 :         40 :            r.get_identifier (get_loc ()),
    6854                 :         40 :            m_asm_template->get_debug_string ());
    6855                 :         40 :   write_flags (r);
    6856                 :         40 :   write_clobbers (r);
    6857                 :         40 : }
    6858                 :            : 
    6859                 :            : void
    6860                 :          0 : recording::extended_asm::
    6861                 :            : maybe_populate_playback_blocks (auto_vec <playback::block *> *)
    6862                 :            : {
    6863                 :            :   /* Do nothing; not an "asm goto".  */
    6864                 :          0 : }
    6865                 :            : 
    6866                 :            : /* The implementation of class gcc::jit::recording::extended_asm_goto.  */
    6867                 :            : 
    6868                 :            : /* recording::extended_asm_goto's ctor.  */
    6869                 :            : 
    6870                 :         20 : recording::extended_asm_goto::extended_asm_goto (block *b,
    6871                 :            :                                                  location *loc,
    6872                 :            :                                                  string *asm_template,
    6873                 :            :                                                  int num_goto_blocks,
    6874                 :            :                                                  block **goto_blocks,
    6875                 :         20 :                                                  block *fallthrough_block)
    6876                 :            : : extended_asm (b, loc, asm_template),
    6877                 :         40 :   m_goto_blocks (num_goto_blocks),
    6878                 :         20 :   m_fallthrough_block (fallthrough_block)
    6879                 :            : {
    6880                 :         40 :   for (int i = 0; i < num_goto_blocks; i++)
    6881                 :         20 :     m_goto_blocks.quick_push (goto_blocks[i]);
    6882                 :         20 : }
    6883                 :            : 
    6884                 :            : /* Implementation of recording::memento::replay_into
    6885                 :            :    for recording::extended_asm_goto.  */
    6886                 :            : 
    6887                 :            : void
    6888                 :         20 : recording::extended_asm_goto::replay_into (replayer *r)
    6889                 :            : {
    6890                 :            :   /* Chain up to base class impl.  */
    6891                 :         20 :   recording::extended_asm::replay_into (r);
    6892                 :            : 
    6893                 :            :   /* ...and potentially add a goto for the fallthrough.  */
    6894                 :         20 :   if (m_fallthrough_block)
    6895                 :         20 :     playback_block (get_block ())
    6896                 :         20 :       ->add_jump (playback_location (r),
    6897                 :         20 :                   m_fallthrough_block->playback_block ());
    6898                 :         20 : }
    6899                 :            : 
    6900                 :            : /* Implementation of recording::memento::write_reproducer for
    6901                 :            :    extended_asm_goto.  */
    6902                 :            : 
    6903                 :            : void
    6904                 :         20 : recording::extended_asm_goto::write_reproducer (reproducer &r)
    6905                 :            : {
    6906                 :         20 :   const char *id = r.make_identifier (this, "extended_asm");
    6907                 :         20 :   const char *blocks_id = r.make_tmp_identifier ("blocks_for", this);
    6908                 :         20 :   r.write ("  gcc_jit_block *%s[%i] = {\n",
    6909                 :            :            blocks_id,
    6910                 :            :            m_goto_blocks.length ());
    6911                 :         20 :   int i;
    6912                 :         20 :   block *b;
    6913                 :         60 :   FOR_EACH_VEC_ELT (m_goto_blocks, i, b)
    6914                 :         20 :     r.write ("    %s,\n", r.get_identifier (b));
    6915                 :         20 :   r.write ("  };\n");
    6916                 :         40 :   r.write ("  gcc_jit_extended_asm *%s =\n"
    6917                 :            :            "    gcc_jit_block_end_with_extended_asm_goto (%s, /*gcc_jit_block *block */\n"
    6918                 :            :            "                                              %s, /* gcc_jit_location *loc */\n"
    6919                 :            :            "                                              %s, /* const char *asm_template */\n"
    6920                 :            :            "                                              %i, /* int num_goto_blocks */\n"
    6921                 :            :            "                                              %s, /* gcc_jit_block **goto_blocks */\n"
    6922                 :            :            "                                              %s); /* gcc_jit_block *fallthrough_block */\n",
    6923                 :            :            id,
    6924                 :         20 :            r.get_identifier (get_block ()),
    6925                 :         20 :            r.get_identifier (get_loc ()),
    6926                 :         20 :            m_asm_template->get_debug_string (),
    6927                 :            :            m_goto_blocks.length (),
    6928                 :            :            blocks_id,
    6929                 :         20 :            (m_fallthrough_block
    6930                 :         20 :             ? r.get_identifier (m_fallthrough_block)
    6931                 :            :             : "NULL"));
    6932                 :         20 :   write_flags (r);
    6933                 :         20 :   write_clobbers (r);
    6934                 :         20 : }
    6935                 :            : 
    6936                 :            : /* Override the poisoned default implementation of
    6937                 :            :    gcc::jit::recording::statement::get_successor_blocks
    6938                 :            : 
    6939                 :            :    An extended_asm_goto can jump to the m_goto_blocks, and to
    6940                 :            :    the (optional) m_fallthrough_block.  */
    6941                 :            : 
    6942                 :            : vec <recording::block *>
    6943                 :         20 : recording::extended_asm_goto::get_successor_blocks () const
    6944                 :            : {
    6945                 :         20 :   vec <block *> result;
    6946                 :         40 :   result.create (m_goto_blocks.length () + 1);
    6947                 :         20 :   if (m_fallthrough_block)
    6948                 :         20 :     result.quick_push (m_fallthrough_block);
    6949                 :         20 :   result.splice (m_goto_blocks);
    6950                 :         20 :   return result;
    6951                 :            : }
    6952                 :            : 
    6953                 :            : /* Vfunc for use by recording::extended_asm::make_debug_string.  */
    6954                 :            : 
    6955                 :            : void
    6956                 :         20 : recording::extended_asm_goto::maybe_print_gotos (pretty_printer *pp) const
    6957                 :            : {
    6958                 :         20 :   pp_string (pp, " : ");
    6959                 :         20 :   unsigned i;
    6960                 :         20 :   block *b;
    6961                 :         60 :   FOR_EACH_VEC_ELT (m_goto_blocks, i, b)
    6962                 :            :     {
    6963                 :         20 :       if (i > 0)
    6964                 :          0 :         pp_string (pp, ", ");
    6965                 :         20 :       pp_string (pp, b->get_debug_string ());
    6966                 :            :     }
    6967                 :            :   /* Non-C syntax here.  */
    6968                 :         20 :   if (m_fallthrough_block)
    6969                 :         20 :     pp_printf (pp, " [fallthrough: %s]",
    6970                 :            :                m_fallthrough_block->get_debug_string ());
    6971                 :         20 : }
    6972                 :            : 
    6973                 :            : /* Vfunc for use by recording::extended_asm::replay_into.  */
    6974                 :            : 
    6975                 :            : void
    6976                 :         20 : recording::extended_asm_goto::
    6977                 :            : maybe_populate_playback_blocks (auto_vec <playback::block *> *out)
    6978                 :            : {
    6979                 :         20 :   unsigned i;
    6980                 :         20 :   block *b;
    6981                 :         40 :   FOR_EACH_VEC_ELT (m_goto_blocks, i, b)
    6982                 :         20 :     out->safe_push (b->playback_block ());
    6983                 :         20 : }
    6984                 :            : 
    6985                 :            : /* class top_level_asm : public memento.  */
    6986                 :            : 
    6987                 :         10 : recording::top_level_asm::top_level_asm (context *ctxt,
    6988                 :            :                                          location *loc,
    6989                 :         10 :                                          string *asm_stmts)
    6990                 :            : : memento (ctxt),
    6991                 :         10 :   m_loc (loc),
    6992                 :         10 :   m_asm_stmts (asm_stmts)
    6993                 :            : {
    6994                 :         10 : }
    6995                 :            : 
    6996                 :            : /* Implementation of recording::memento::replay_into for top-level asm.  */
    6997                 :            : 
    6998                 :            : void
    6999                 :         10 : recording::top_level_asm::replay_into (replayer *r)
    7000                 :            : {
    7001                 :         10 :   r->add_top_level_asm (m_asm_stmts->c_str ());
    7002                 :         10 : }
    7003                 :            : 
    7004                 :            : /* Implementation of recording::memento::make_debug_string for
    7005                 :            :    top-level asm.  */
    7006                 :            : 
    7007                 :            : recording::string *
    7008                 :          0 : recording::top_level_asm::make_debug_string ()
    7009                 :            : {
    7010                 :          0 :   return string::from_printf (m_ctxt, "asm (%s)",
    7011                 :          0 :                               m_asm_stmts->get_debug_string ());
    7012                 :            : }
    7013                 :            : 
    7014                 :            : /* Override the default implementation of
    7015                 :            :    recording::memento::write_to_dump.
    7016                 :            :    Don't indent the string.  */
    7017                 :            : 
    7018                 :            : void
    7019                 :          0 : recording::top_level_asm::write_to_dump (dump &d)
    7020                 :            : {
    7021                 :          0 :   d.write ("%s;\n", get_debug_string ());
    7022                 :          0 : }
    7023                 :            : 
    7024                 :            : /* Implementation of recording::memento::write_reproducer for top-level asm. */
    7025                 :            : 
    7026                 :            : void
    7027                 :         10 : recording::top_level_asm::write_reproducer (reproducer &r)
    7028                 :            : {
    7029                 :         10 :   r.write ("  gcc_jit_context_add_top_level_asm (%s, /* gcc_jit_context *ctxt */\n"
    7030                 :            :            "                                     %s, /* gcc_jit_location *loc */\n"
    7031                 :            :            "                                     %s); /* const char *asm_stmts */\n",
    7032                 :            :            r.get_identifier (get_context ()),
    7033                 :         10 :            r.get_identifier (m_loc),
    7034                 :         10 :            m_asm_stmts->get_debug_string ());
    7035                 :         10 : }
    7036                 :            : 
    7037                 :            : } // namespace gcc::jit
    7038                 :            : 
    7039                 :            : } // namespace gcc

Generated by: LCOV version 1.15+git.20200812.d100e6c

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.