contrib/gcc-4.0/libstdc++-v3/libsupc++/eh_alloc.cc

   1 // -*- C++ -*- Allocate exception objects.
   2 // Copyright (C) 2001, 2004 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 2, 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 // You should have received a copy of the GNU General Public License
  17 // along with GCC; see the file COPYING.  If not, write to
  18 // the Free Software Foundation, 59 Temple Place - Suite 330,
  19 // Boston, MA 02111-1307, USA.
  20
  21 // As a special exception, you may use this file as part of a free software
  22 // library without restriction.  Specifically, if other files instantiate
  23 // templates or use macros or inline functions from this file, or you compile
  24 // this file and link it with other files to produce an executable, this
  25 // file does not by itself cause the resulting executable to be covered by
  26 // the GNU General Public License.  This exception does not however
  27 // invalidate any other reasons why the executable file might be covered by
  28 // the GNU General Public License.
  29
  30 // This is derived from the C++ ABI for IA-64.  Where we diverge
  31 // for cross-architecture compatibility are noted with "@@@".
  32
  33 #include <cstdlib>
  34 #if _GLIBCXX_HOSTED
  35 #include <cstring>
  36 #endif
  37 #include <climits>
  38 #include <exception>
  39 #include "unwind-cxx.h"
  40 #include "bits/c++config.h"
  41 #include "bits/gthr.h"
  42
  43 #if _GLIBCXX_HOSTED
  44 using std::free;
  45 using std::malloc;
  46 using std::memcpy;
  47 #else
  48 // In a freestanding environment, these functions may not be
  49 // available -- but for now, we assume that they are.
  50 extern "C" void *malloc (std::size_t);
  51 extern "C" void free(void *);
  52 extern "C" int memset (void *, int, std::size_t);
  53 #endif
  54
  55 using namespace __cxxabiv1;
  56
  57 // ??? How to control these parameters.
  58
  59 // Guess from the size of basic types how large a buffer is reasonable.
  60 // Note that the basic c++ exception header has 13 pointers and 2 ints,
  61 // so on a system with PSImode pointers we're talking about 56 bytes
  62 // just for overhead.
  63
  64 #if INT_MAX == 32767
  65 # define EMERGENCY_OBJ_SIZE     128
  66 # define EMERGENCY_OBJ_COUNT    16
  67 #elif LONG_MAX == 2147483647
  68 # define EMERGENCY_OBJ_SIZE     512
  69 # define EMERGENCY_OBJ_COUNT    32
  70 #else
  71 # define EMERGENCY_OBJ_SIZE     1024
  72 # define EMERGENCY_OBJ_COUNT    64
  73 #endif
  74
  75 #ifndef __GTHREADS
  76 # undef EMERGENCY_OBJ_COUNT
  77 # define EMERGENCY_OBJ_COUNT    4
  78 #endif
  79
  80 #if INT_MAX == 32767 || EMERGENCY_OBJ_COUNT <= 32
  81 typedef unsigned int bitmask_type;
  82 #else
  83 typedef unsigned long bitmask_type;
  84 #endif
  85
  86
  87 typedef char one_buffer[EMERGENCY_OBJ_SIZE] __attribute__((aligned));
  88 static one_buffer emergency_buffer[EMERGENCY_OBJ_COUNT];
  89 static bitmask_type emergency_used;
  90
  91
  92 #ifdef __GTHREADS
  93 #ifdef __GTHREAD_MUTEX_INIT
  94 static __gthread_mutex_t emergency_mutex =__GTHREAD_MUTEX_INIT;
  95 #else
  96 static __gthread_mutex_t emergency_mutex;
  97 #endif
  98
  99 #ifdef __GTHREAD_MUTEX_INIT_FUNCTION
 100 static void
 101 emergency_mutex_init ()
 102 {
 103   __GTHREAD_MUTEX_INIT_FUNCTION (&emergency_mutex);
 104 }
 105 #endif
 106 #endif
 107
 108
 109 extern "C" void *
 110 __cxxabiv1::__cxa_allocate_exception(std::size_t thrown_size) throw()
 111 {
 112   void *ret;
 113
 114   thrown_size += sizeof (__cxa_exception);
 115   ret = malloc (thrown_size);
 116
 117   if (! ret)
 118     {
 119 #ifdef __GTHREADS
 120 #ifdef __GTHREAD_MUTEX_INIT_FUNCTION
 121       static __gthread_once_t once = __GTHREAD_ONCE_INIT;
 122       __gthread_once (&once, emergency_mutex_init);
 123 #endif
 124       __gthread_mutex_lock (&emergency_mutex);
 125 #endif
 126
 127       bitmask_type used = emergency_used;
 128       unsigned int which = 0;
 129
 130       if (thrown_size > EMERGENCY_OBJ_SIZE)
 131         goto failed;
 132       while (used & 1)
 133         {
 134           used >>= 1;
 135           if (++which >= EMERGENCY_OBJ_COUNT)
 136             goto failed;
 137         }
 138
 139       emergency_used |= (bitmask_type)1 << which;
 140       ret = &emergency_buffer[which][0];
 141
 142     failed:;
 143 #ifdef __GTHREADS
 144       __gthread_mutex_unlock (&emergency_mutex);
 145 #endif
 146       if (!ret)
 147         std::terminate ();
 148     }
 149
 150   // We have an uncaught exception as soon as we allocate memory.  This
 151   // yields uncaught_exception() true during the copy-constructor that
 152   // initializes the exception object.  See Issue 475.
 153   __cxa_eh_globals *globals = __cxa_get_globals ();
 154   globals->uncaughtExceptions += 1;
 155
 156   memset (ret, 0, sizeof (__cxa_exception));
 157
 158   return (void *)((char *)ret + sizeof (__cxa_exception));
 159 }
 160
 161
 162 extern "C" void
 163 __cxxabiv1::__cxa_free_exception(void *vptr) throw()
 164 {
 165   char *ptr = (char *) vptr;
 166   if (ptr >= &emergency_buffer[0][0]
 167       && ptr < &emergency_buffer[0][0] + sizeof (emergency_buffer))
 168     {
 169       unsigned int which
 170         = (unsigned)(ptr - &emergency_buffer[0][0]) / EMERGENCY_OBJ_SIZE;
 171
 172 #ifdef __GTHREADS
 173       __gthread_mutex_lock (&emergency_mutex);
 174       emergency_used &= ~((bitmask_type)1 << which);
 175       __gthread_mutex_unlock (&emergency_mutex);
 176 #else
 177       emergency_used &= ~((bitmask_type)1 << which);
 178 #endif
 179     }
 180   else
 181     free (ptr - sizeof (__cxa_exception));
 182 }