diff options
Diffstat (limited to 'libstdc++/vec.cc')
| -rw-r--r-- | libstdc++/vec.cc | 279 |
1 files changed, 279 insertions, 0 deletions
diff --git a/libstdc++/vec.cc b/libstdc++/vec.cc new file mode 100644 index 00000000000..966feb486de --- /dev/null +++ b/libstdc++/vec.cc @@ -0,0 +1,279 @@ +// 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 |
