// new abi support -*- C++ -*-
// Copyright (C) 2000
// Free Software Foundation, Inc.
// Written by Nathan Sidwell, Codesourcery LLC, <nathan@codesourcery.com>
// 
// GNU CC is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2, or (at your option)
// any later version.

// GNU CC is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.

// You should have received a copy of the GNU General Public License
// along with GNU CC; see the file COPYING.  If not, write to
// the Free Software Foundation, 59 Temple Place - Suite 330,
// Boston, MA 02111-1307, USA. 

// As a special exception, you may use this file as part of a free software
// library without restriction.  Specifically, if other files instantiate
// templates or use macros or inline functions from this file, or you compile
// this file and link it with other files to produce an executable, this
// file does not by itself cause the resulting executable to be covered by
// the GNU General Public License.  This exception does not however
// invalidate any other reasons why the executable file might be covered by
// the GNU General Public License.

#if defined(__GXX_ABI_VERSION) && __GXX_ABI_VERSION >= 100
#include <cxxabi.h>
#include <new>
#include <exception>

// Exception handling hook, to mark current exception as not caught --
// generally because we're about to rethrow it after some cleanup.
extern "C" void __uncatch_exception (void);

namespace __cxxabiv1
{

/* allocate and construct array */
extern "C" void *
__cxa_vec_new (size_t element_count,
               size_t element_size,
               size_t padding_size,
               void (*constructor) (void *),
               void (*destructor) (void *))
{
  return __cxa_vec_new2 (element_count, element_size, padding_size,
                         constructor, destructor,
                         &operator new[], &operator delete []);
}

extern "C" void *
__cxa_vec_new2 (size_t element_count,
                size_t element_size,
                size_t padding_size,
                void (*constructor) (void *),
                void (*destructor) (void *),
                void *(*alloc) (size_t),
                void (*dealloc) (void *))
{
  size_t size = element_count * element_size + padding_size;
  char *base = static_cast <char *> (alloc (size));
  
  if (padding_size)
    {
      base += padding_size;
      reinterpret_cast <size_t *> (base)[-1] = element_count;
    }
  try
    {
      __cxa_vec_ctor (base, element_count, element_size,
                      constructor, destructor);
    }
  catch (...)
    {
      __uncatch_exception ();
      dealloc (base - padding_size);
      throw;
    }
  return base;
}

extern "C" void *
__cxa_vec_new3 (size_t element_count,
                size_t element_size,
                size_t padding_size,
                void (*constructor) (void *),
                void (*destructor) (void *),
                void *(*alloc) (size_t),
                void (*dealloc) (void *, size_t))
{
  size_t size = element_count * element_size + padding_size;
  char *base = static_cast <char *> (alloc (size));
  
  if (padding_size)
    {
      base += padding_size;
      reinterpret_cast <size_t *> (base)[-1] = element_count;
    }
  try
    {
      __cxa_vec_ctor (base, element_count, element_size,
                      constructor, destructor);
    }
  catch (...)
    {
      __uncatch_exception ();
      dealloc (base - padding_size, size);
      throw;
    }
  return base;
}

/* construct array */
extern "C" void
__cxa_vec_ctor (void *array_address,
                size_t element_count,
                size_t element_size,
                void (*constructor) (void *),
                void (*destructor) (void *))
{
  size_t ix = 0;
  char *ptr = static_cast <char *> (array_address);
  
  try
    {
      if (constructor)
        for (; ix != element_count; ix++, ptr += element_size)
          constructor (ptr);
    }
  catch (...)
    {
      __uncatch_exception ();
      __cxa_vec_dtor (array_address, ix, element_size, destructor);
      throw;
    }
}

/* construct an array by copying */

extern "C" void
__cxa_vec_cctor (void *dest_array,
		 void *src_array,
		 size_t element_count,
		 size_t element_size,
		 void (*constructor) (void *, void *),
		 void (*destructor) (void *))
{
  size_t ix = 0;
  char *dest_ptr = static_cast <char *> (dest_array);
  char *src_ptr = static_cast <char *> (src_array);

  try
    {
      if (constructor)
	for (; ix != element_count; 
	     ix++, src_ptr += element_size, dest_ptr += element_size)
	  constructor (dest_ptr, src_ptr);
    }
  catch (...)
    {
      __uncatch_exception ();
      __cxa_vec_dtor (dest_array, ix, element_size, destructor);
      throw;
    }
}

/* destruct array */
extern "C" void
__cxa_vec_dtor (void *array_address,
                size_t element_count,
                size_t element_size,
                void (*destructor) (void *))
{
  if (destructor)
    {
      char *ptr = static_cast <char *> (array_address);
      size_t ix = element_count;
      bool unwinding = std::uncaught_exception ();
      
      ptr += element_count * element_size;
      
      try
        {
          while (ix--)
            {
              ptr -= element_size;
              destructor (ptr);
            }
        }
      catch (...)
        {
          if (unwinding)
            // [except.ctor]/3 If a destructor called during stack unwinding
            // exits with an exception, terminate is called.
            std::terminate ();
          __uncatch_exception ();
          __cxa_vec_dtor (array_address, ix, element_size, destructor);
          throw;
        }
    }
}

/* destruct and release array */
extern "C" void
__cxa_vec_delete (void *array_address,
                  size_t element_size,
                  size_t padding_size,
                  void (*destructor) (void *))
{
  __cxa_vec_delete2 (array_address, element_size, padding_size,
                     destructor,
                     &operator delete []);
}

extern "C" void
__cxa_vec_delete2 (void *array_address,
                  size_t element_size,
                  size_t padding_size,
                  void (*destructor) (void *),
                  void (*dealloc) (void *))
{
  char *base = static_cast <char *> (array_address);
  
  if (padding_size)
    {
      size_t element_count = reinterpret_cast <size_t *> (base)[-1];
      base -= padding_size;
      try
        {
          __cxa_vec_dtor (array_address, element_count, element_size,
                          destructor);
        }
      catch (...)
        {
          __uncatch_exception ();
          dealloc (base);
          throw;
        }
    }
  dealloc (base);
}

extern "C" void
__cxa_vec_delete3 (void *array_address,
                  size_t element_size,
                  size_t padding_size,
                  void (*destructor) (void *),
                  void (*dealloc) (void *, size_t))
{
  char *base = static_cast <char *> (array_address);
  size_t size = 0;
  
  if (padding_size)
    {
      size_t element_count = reinterpret_cast <size_t *> (base)[-1];
      base -= padding_size;
      size = element_count * element_size + padding_size;
      try
        {
          __cxa_vec_dtor (array_address, element_count, element_size,
                          destructor);
        }
      catch (...)
        {
          __uncatch_exception ();
          dealloc (base, size);
          throw;
        }
    }
  dealloc (base, size);
}

} // namespace __cxxabiv1

#endif // defined(__GXX_ABI_VERSION) && __GXX_ABI_VERSION >= 100