libstdc++-v3/libsupc++/eh_alloc.cc

   1 // -*- C++ -*- Allocate exception objects.
   2 // Copyright (C) 2001-2014 Free Software Foundation, Inc.
   3 //
   4 // This file is part of GCC.
   5 //
   6 // GCC is free software; you can redistribute it and/or modify
   7 // it under the terms of the GNU General Public License as published by
   8 // the Free Software Foundation; either version 3, or (at your option)
   9 // any later version.
  10 //
  11 // GCC is distributed in the hope that it will be useful,
  12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 // GNU General Public License for more details.
  15 //
  16 // Under Section 7 of GPL version 3, you are granted additional
  17 // permissions described in the GCC Runtime Library Exception, version
  18 // 3.1, as published by the Free Software Foundation.
  19
  20 // You should have received a copy of the GNU General Public License and
  21 // a copy of the GCC Runtime Library Exception along with this program;
  22 // see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  23 // <http://www.gnu.org/licenses/>.
  24
  25 // This is derived from the C++ ABI for IA-64.  Where we diverge
  26 // for cross-architecture compatibility are noted with "@@@".
  27
  28 #include <bits/c++config.h>
  29 #include <cstdlib>
  30 #if _GLIBCXX_HOSTED
  31 #include <cstring>
  32 #endif
  33 #include <climits>
  34 #include <exception>
  35 #include "unwind-cxx.h"
  36 #include <ext/concurrence.h>
  37
  38 #if _GLIBCXX_HOSTED
  39 using std::free;
  40 using std::malloc;
  41 using std::memset;
  42 #else
  43 // In a freestanding environment, these functions may not be available
  44 // -- but for now, we assume that they are.
  45 extern "C" void *malloc (std::size_t);
  46 extern "C" void free(void *);
  47 extern "C" void *memset (void *, int, std::size_t);
  48 #endif
  49
  50 using namespace __cxxabiv1;
  51
  52 // ??? How to control these parameters.
  53
  54 // Guess from the size of basic types how large a buffer is reasonable.
  55 // Note that the basic c++ exception header has 13 pointers and 2 ints,
  56 // so on a system with PSImode pointers we're talking about 56 bytes
  57 // just for overhead.
  58
  59 #if INT_MAX == 32767
  60 # define EMERGENCY_OBJ_SIZE     128
  61 # define EMERGENCY_OBJ_COUNT    16
  62 #elif !defined (_GLIBCXX_LLP64) && LONG_MAX == 2147483647
  63 # define EMERGENCY_OBJ_SIZE     512
  64 # define EMERGENCY_OBJ_COUNT    32
  65 #else
  66 # define EMERGENCY_OBJ_SIZE     1024
  67 # define EMERGENCY_OBJ_COUNT    64
  68 #endif
  69
  70 #ifndef __GTHREADS
  71 # undef EMERGENCY_OBJ_COUNT
  72 # define EMERGENCY_OBJ_COUNT    4
  73 #endif
  74
  75 #if INT_MAX == 32767 || EMERGENCY_OBJ_COUNT <= 32
  76 typedef unsigned int bitmask_type;
  77 #else
  78 #if defined (_GLIBCXX_LLP64)
  79 typedef unsigned long long bitmask_type;
  80 #else
  81 typedef unsigned long bitmask_type;
  82 #endif
  83 #endif
  84
  85
  86 typedef char one_buffer[EMERGENCY_OBJ_SIZE] __attribute__((aligned));
  87 static one_buffer emergency_buffer[EMERGENCY_OBJ_COUNT];
  88 static bitmask_type emergency_used;
  89
  90 static __cxa_dependent_exception dependents_buffer[EMERGENCY_OBJ_COUNT];
  91 static bitmask_type dependents_used;
  92
  93 namespace
  94 {
  95   // A single mutex controlling emergency allocations.
  96   __gnu_cxx::__mutex emergency_mutex;
  97 }
  98
  99 extern "C" void *
 100 __cxxabiv1::__cxa_allocate_exception(std::size_t thrown_size) _GLIBCXX_NOTHROW
 101 {
 102   void *ret;
 103
 104   thrown_size += sizeof (__cxa_refcounted_exception);
 105   ret = malloc (thrown_size);
 106
 107   if (! ret)
 108     {
 109       __gnu_cxx::__scoped_lock sentry(emergency_mutex);
 110
 111       bitmask_type used = emergency_used;
 112       unsigned int which = 0;
 113
 114       if (thrown_size > EMERGENCY_OBJ_SIZE)
 115         goto failed;
 116       while (used & 1)
 117         {
 118           used >>= 1;
 119           if (++which >= EMERGENCY_OBJ_COUNT)
 120             goto failed;
 121         }
 122
 123       emergency_used |= (bitmask_type)1 << which;
 124       ret = &emergency_buffer[which][0];
 125
 126     failed:;
 127
 128       if (!ret)
 129         std::terminate ();
 130     }
 131
 132   // We have an uncaught exception as soon as we allocate memory.  This
 133   // yields uncaught_exception() true during the copy-constructor that
 134   // initializes the exception object.  See Issue 475.
 135   __cxa_eh_globals *globals = __cxa_get_globals ();
 136   globals->uncaughtExceptions += 1;
 137
 138   memset (ret, 0, sizeof (__cxa_refcounted_exception));
 139
 140   return (void *)((char *)ret + sizeof (__cxa_refcounted_exception));
 141 }
 142
 143
 144 extern "C" void
 145 __cxxabiv1::__cxa_free_exception(void *vptr) _GLIBCXX_NOTHROW
 146 {
 147   char *base = (char *) emergency_buffer;
 148   char *ptr = (char *) vptr;
 149   if (ptr >= base
 150       && ptr < base + sizeof (emergency_buffer))
 151     {
 152       const unsigned int which
 153         = (unsigned) (ptr - base) / EMERGENCY_OBJ_SIZE;
 154
 155       __gnu_cxx::__scoped_lock sentry(emergency_mutex);
 156       emergency_used &= ~((bitmask_type)1 << which);
 157     }
 158   else
 159     free (ptr - sizeof (__cxa_refcounted_exception));
 160 }
 161
 162
 163 extern "C" __cxa_dependent_exception*
 164 __cxxabiv1::__cxa_allocate_dependent_exception() _GLIBCXX_NOTHROW
 165 {
 166   __cxa_dependent_exception *ret;
 167
 168   ret = static_cast<__cxa_dependent_exception*>
 169     (malloc (sizeof (__cxa_dependent_exception)));
 170
 171   if (!ret)
 172     {
 173       __gnu_cxx::__scoped_lock sentry(emergency_mutex);
 174
 175       bitmask_type used = dependents_used;
 176       unsigned int which = 0;
 177
 178       while (used & 1)
 179         {
 180           used >>= 1;
 181           if (++which >= EMERGENCY_OBJ_COUNT)
 182             goto failed;
 183         }
 184
 185       dependents_used |= (bitmask_type)1 << which;
 186       ret = &dependents_buffer[which];
 187
 188     failed:;
 189
 190       if (!ret)
 191         std::terminate ();
 192     }
 193
 194   // We have an uncaught exception as soon as we allocate memory.  This
 195   // yields uncaught_exception() true during the copy-constructor that
 196   // initializes the exception object.  See Issue 475.
 197   __cxa_eh_globals *globals = __cxa_get_globals ();
 198   globals->uncaughtExceptions += 1;
 199
 200   memset (ret, 0, sizeof (__cxa_dependent_exception));
 201
 202   return ret;
 203 }
 204
 205
 206 extern "C" void
 207 __cxxabiv1::__cxa_free_dependent_exception
 208   (__cxa_dependent_exception *vptr) _GLIBCXX_NOTHROW
 209 {
 210   char *base = (char *) dependents_buffer;
 211   char *ptr = (char *) vptr;
 212   if (ptr >= base
 213       && ptr < base + sizeof (dependents_buffer))
 214     {
 215       const unsigned int which
 216         = (unsigned) (ptr - base) / sizeof (__cxa_dependent_exception);
 217
 218       __gnu_cxx::__scoped_lock sentry(emergency_mutex);
 219       dependents_used &= ~((bitmask_type)1 << which);
 220     }
 221   else
 222     free (vptr);
 223 }