mirror of
https://github.com/autc04/Retro68.git
synced 2024-08-17 04:29:51 +00:00
531 lines
13 KiB
C++
531 lines
13 KiB
C++
// New abi Support -*- C++ -*-
|
|
|
|
// Copyright (C) 2000-2019 Free Software Foundation, Inc.
|
|
//
|
|
// This file is part of GCC.
|
|
//
|
|
// GCC 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 3, or (at your option)
|
|
// any later version.
|
|
|
|
// GCC 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.
|
|
|
|
// Under Section 7 of GPL version 3, you are granted additional
|
|
// permissions described in the GCC Runtime Library Exception, version
|
|
// 3.1, as published by the Free Software Foundation.
|
|
|
|
// You should have received a copy of the GNU General Public License and
|
|
// a copy of the GCC Runtime Library Exception along with this program;
|
|
// see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|
// <http://www.gnu.org/licenses/>.
|
|
|
|
// Written by Nathan Sidwell, Codesourcery LLC, <nathan@codesourcery.com>
|
|
|
|
#include <cxxabi.h>
|
|
#include <new>
|
|
#include <exception>
|
|
#include <bits/exception_defines.h>
|
|
#include "unwind-cxx.h"
|
|
|
|
namespace __cxxabiv1
|
|
{
|
|
namespace
|
|
{
|
|
struct uncatch_exception
|
|
{
|
|
uncatch_exception();
|
|
~uncatch_exception () { __cxa_begin_catch (&p->unwindHeader); }
|
|
|
|
__cxa_exception* p;
|
|
|
|
private:
|
|
uncatch_exception&
|
|
operator=(const uncatch_exception&);
|
|
|
|
uncatch_exception(const uncatch_exception&);
|
|
};
|
|
|
|
uncatch_exception::uncatch_exception() : p(0)
|
|
{
|
|
__cxa_eh_globals *globals = __cxa_get_globals_fast ();
|
|
|
|
p = globals->caughtExceptions;
|
|
p->handlerCount -= 1;
|
|
globals->caughtExceptions = p->nextException;
|
|
globals->uncaughtExceptions += 1;
|
|
}
|
|
|
|
// Compute the total size with overflow checking.
|
|
std::size_t compute_size(std::size_t element_count,
|
|
std::size_t element_size,
|
|
std::size_t padding_size)
|
|
{
|
|
if (element_size && element_count > std::size_t(-1) / element_size)
|
|
_GLIBCXX_THROW_OR_ABORT(std::bad_alloc());
|
|
std::size_t size = element_count * element_size;
|
|
if (size + padding_size < size)
|
|
_GLIBCXX_THROW_OR_ABORT(std::bad_alloc());
|
|
return size + padding_size;
|
|
}
|
|
}
|
|
|
|
// Allocate and construct array.
|
|
extern "C" void *
|
|
__cxa_vec_new(std::size_t element_count,
|
|
std::size_t element_size,
|
|
std::size_t padding_size,
|
|
__cxa_cdtor_type constructor,
|
|
__cxa_cdtor_type destructor)
|
|
{
|
|
return __cxa_vec_new2(element_count, element_size, padding_size,
|
|
constructor, destructor,
|
|
&operator new[], &operator delete []);
|
|
}
|
|
|
|
extern "C" void *
|
|
__cxa_vec_new2(std::size_t element_count,
|
|
std::size_t element_size,
|
|
std::size_t padding_size,
|
|
__cxa_cdtor_type constructor,
|
|
__cxa_cdtor_type destructor,
|
|
void *(*alloc) (std::size_t),
|
|
void (*dealloc) (void *))
|
|
{
|
|
std::size_t size
|
|
= compute_size(element_count, element_size, padding_size);
|
|
char *base = static_cast <char *> (alloc (size));
|
|
if (!base)
|
|
return base;
|
|
|
|
if (padding_size)
|
|
{
|
|
base += padding_size;
|
|
reinterpret_cast <std::size_t *> (base)[-1] = element_count;
|
|
#ifdef _GLIBCXX_ELTSIZE_IN_COOKIE
|
|
reinterpret_cast <std::size_t *> (base)[-2] = element_size;
|
|
#endif
|
|
}
|
|
__try
|
|
{
|
|
__cxa_vec_ctor(base, element_count, element_size,
|
|
constructor, destructor);
|
|
}
|
|
__catch(...)
|
|
{
|
|
{
|
|
uncatch_exception ue;
|
|
// Core issue 901 will probably be resolved such that a
|
|
// deleted operator delete means not freeing memory here.
|
|
if (dealloc)
|
|
dealloc(base - padding_size);
|
|
}
|
|
__throw_exception_again;
|
|
}
|
|
return base;
|
|
}
|
|
|
|
extern "C" void *
|
|
__cxa_vec_new3(std::size_t element_count,
|
|
std::size_t element_size,
|
|
std::size_t padding_size,
|
|
__cxa_cdtor_type constructor,
|
|
__cxa_cdtor_type destructor,
|
|
void *(*alloc) (std::size_t),
|
|
void (*dealloc) (void *, std::size_t))
|
|
{
|
|
std::size_t size
|
|
= compute_size(element_count, element_size, padding_size);
|
|
char *base = static_cast<char *>(alloc (size));
|
|
if (!base)
|
|
return base;
|
|
|
|
if (padding_size)
|
|
{
|
|
base += padding_size;
|
|
reinterpret_cast<std::size_t *>(base)[-1] = element_count;
|
|
#ifdef _GLIBCXX_ELTSIZE_IN_COOKIE
|
|
reinterpret_cast <std::size_t *> (base)[-2] = element_size;
|
|
#endif
|
|
}
|
|
__try
|
|
{
|
|
__cxa_vec_ctor(base, element_count, element_size,
|
|
constructor, destructor);
|
|
}
|
|
__catch(...)
|
|
{
|
|
{
|
|
uncatch_exception ue;
|
|
if (dealloc)
|
|
dealloc(base - padding_size, size);
|
|
}
|
|
__throw_exception_again;
|
|
}
|
|
return base;
|
|
}
|
|
|
|
// Construct array.
|
|
extern "C" __cxa_vec_ctor_return_type
|
|
__cxa_vec_ctor(void *array_address,
|
|
std::size_t element_count,
|
|
std::size_t element_size,
|
|
__cxa_cdtor_type constructor,
|
|
__cxa_cdtor_type destructor)
|
|
{
|
|
std::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 ue;
|
|
__cxa_vec_cleanup(array_address, ix, element_size, destructor);
|
|
}
|
|
__throw_exception_again;
|
|
}
|
|
_GLIBCXX_CXA_VEC_CTOR_RETURN (array_address);
|
|
}
|
|
|
|
// Construct an array by copying.
|
|
extern "C" __cxa_vec_ctor_return_type
|
|
__cxa_vec_cctor(void *dest_array,
|
|
void *src_array,
|
|
std::size_t element_count,
|
|
std::size_t element_size,
|
|
__cxa_cdtor_return_type (*constructor) (void *, void *),
|
|
__cxa_cdtor_type destructor)
|
|
{
|
|
std::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 ue;
|
|
__cxa_vec_cleanup(dest_array, ix, element_size, destructor);
|
|
}
|
|
__throw_exception_again;
|
|
}
|
|
_GLIBCXX_CXA_VEC_CTOR_RETURN (dest_array);
|
|
}
|
|
|
|
// Destruct array.
|
|
extern "C" void
|
|
__cxa_vec_dtor(void *array_address,
|
|
std::size_t element_count,
|
|
std::size_t element_size,
|
|
__cxa_cdtor_type destructor)
|
|
{
|
|
if (destructor)
|
|
{
|
|
char *ptr = static_cast<char *>(array_address);
|
|
std::size_t ix = element_count;
|
|
|
|
ptr += element_count * element_size;
|
|
|
|
__try
|
|
{
|
|
while (ix--)
|
|
{
|
|
ptr -= element_size;
|
|
destructor(ptr);
|
|
}
|
|
}
|
|
__catch(...)
|
|
{
|
|
{
|
|
uncatch_exception ue;
|
|
__cxa_vec_cleanup(array_address, ix, element_size, destructor);
|
|
}
|
|
__throw_exception_again;
|
|
}
|
|
}
|
|
}
|
|
|
|
// Destruct array as a result of throwing an exception.
|
|
// [except.ctor]/3 If a destructor called during stack unwinding
|
|
// exits with an exception, terminate is called.
|
|
extern "C" void
|
|
__cxa_vec_cleanup(void *array_address,
|
|
std::size_t element_count,
|
|
std::size_t element_size,
|
|
__cxa_cdtor_type destructor) throw()
|
|
{
|
|
if (destructor)
|
|
{
|
|
char *ptr = static_cast <char *> (array_address);
|
|
std::size_t ix = element_count;
|
|
|
|
ptr += element_count * element_size;
|
|
|
|
__try
|
|
{
|
|
while (ix--)
|
|
{
|
|
ptr -= element_size;
|
|
destructor(ptr);
|
|
}
|
|
}
|
|
__catch(...)
|
|
{
|
|
std::terminate();
|
|
}
|
|
}
|
|
}
|
|
|
|
// Destruct and release array.
|
|
extern "C" void
|
|
__cxa_vec_delete(void *array_address,
|
|
std::size_t element_size,
|
|
std::size_t padding_size,
|
|
__cxa_cdtor_type destructor)
|
|
{
|
|
__cxa_vec_delete2(array_address, element_size, padding_size,
|
|
destructor,
|
|
&operator delete []);
|
|
}
|
|
|
|
extern "C" void
|
|
__cxa_vec_delete2(void *array_address,
|
|
std::size_t element_size,
|
|
std::size_t padding_size,
|
|
__cxa_cdtor_type destructor,
|
|
void (*dealloc) (void *))
|
|
{
|
|
if (!array_address)
|
|
return;
|
|
|
|
char* base = static_cast<char *>(array_address);
|
|
|
|
if (padding_size)
|
|
{
|
|
std::size_t element_count = reinterpret_cast<std::size_t *>(base)[-1];
|
|
base -= padding_size;
|
|
__try
|
|
{
|
|
__cxa_vec_dtor(array_address, element_count, element_size,
|
|
destructor);
|
|
}
|
|
__catch(...)
|
|
{
|
|
{
|
|
uncatch_exception ue;
|
|
dealloc(base);
|
|
}
|
|
__throw_exception_again;
|
|
}
|
|
}
|
|
dealloc(base);
|
|
}
|
|
|
|
extern "C" void
|
|
__cxa_vec_delete3(void *array_address,
|
|
std::size_t element_size,
|
|
std::size_t padding_size,
|
|
__cxa_cdtor_type destructor,
|
|
void (*dealloc) (void *, std::size_t))
|
|
{
|
|
if (!array_address)
|
|
return;
|
|
|
|
char* base = static_cast <char *> (array_address);
|
|
std::size_t size = 0;
|
|
|
|
if (padding_size)
|
|
{
|
|
std::size_t element_count = reinterpret_cast<std::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 ue;
|
|
dealloc(base, size);
|
|
}
|
|
__throw_exception_again;
|
|
}
|
|
}
|
|
dealloc(base, size);
|
|
}
|
|
} // namespace __cxxabiv1
|
|
|
|
#if defined(__arm__) && defined(__ARM_EABI__)
|
|
|
|
// The ARM C++ ABI requires that the library provide these additional
|
|
// helper functions. There are placed in this file, despite being
|
|
// architecture-specifier, so that the compiler can inline the __cxa
|
|
// functions into these functions as appropriate.
|
|
|
|
namespace __aeabiv1
|
|
{
|
|
extern "C" void *
|
|
__aeabi_vec_ctor_nocookie_nodtor (void *array_address,
|
|
abi::__cxa_cdtor_type constructor,
|
|
std::size_t element_size,
|
|
std::size_t element_count)
|
|
{
|
|
return abi::__cxa_vec_ctor (array_address, element_count, element_size,
|
|
constructor, /*destructor=*/NULL);
|
|
}
|
|
|
|
extern "C" void *
|
|
__aeabi_vec_ctor_cookie_nodtor (void *array_address,
|
|
abi::__cxa_cdtor_type constructor,
|
|
std::size_t element_size,
|
|
std::size_t element_count)
|
|
{
|
|
if (array_address == NULL)
|
|
return NULL;
|
|
|
|
array_address = reinterpret_cast<std::size_t *>(array_address) + 2;
|
|
reinterpret_cast<std::size_t *>(array_address)[-2] = element_size;
|
|
reinterpret_cast<std::size_t *>(array_address)[-1] = element_count;
|
|
return abi::__cxa_vec_ctor (array_address,
|
|
element_count, element_size,
|
|
constructor, /*destructor=*/NULL);
|
|
}
|
|
|
|
extern "C" void *
|
|
__aeabi_vec_cctor_nocookie_nodtor (void *dest_array,
|
|
void *src_array,
|
|
std::size_t element_size,
|
|
std::size_t element_count,
|
|
void *(*constructor) (void *, void *))
|
|
{
|
|
return abi::__cxa_vec_cctor (dest_array, src_array,
|
|
element_count, element_size,
|
|
constructor, NULL);
|
|
}
|
|
|
|
extern "C" void *
|
|
__aeabi_vec_new_cookie_noctor (std::size_t element_size,
|
|
std::size_t element_count)
|
|
{
|
|
return abi::__cxa_vec_new(element_count, element_size,
|
|
2 * sizeof (std::size_t),
|
|
/*constructor=*/NULL, /*destructor=*/NULL);
|
|
}
|
|
|
|
extern "C" void *
|
|
__aeabi_vec_new_nocookie (std::size_t element_size,
|
|
std::size_t element_count,
|
|
abi::__cxa_cdtor_type constructor)
|
|
{
|
|
return abi::__cxa_vec_new (element_count, element_size, 0, constructor,
|
|
NULL);
|
|
}
|
|
|
|
extern "C" void *
|
|
__aeabi_vec_new_cookie_nodtor (std::size_t element_size,
|
|
std::size_t element_count,
|
|
abi::__cxa_cdtor_type constructor)
|
|
{
|
|
return abi::__cxa_vec_new(element_count, element_size,
|
|
2 * sizeof (std::size_t),
|
|
constructor, NULL);
|
|
}
|
|
|
|
extern "C" void *
|
|
__aeabi_vec_new_cookie(std::size_t element_size,
|
|
std::size_t element_count,
|
|
abi::__cxa_cdtor_type constructor,
|
|
abi::__cxa_cdtor_type destructor)
|
|
{
|
|
return abi::__cxa_vec_new (element_count, element_size,
|
|
2 * sizeof (std::size_t),
|
|
constructor, destructor);
|
|
}
|
|
|
|
|
|
extern "C" void *
|
|
__aeabi_vec_dtor (void *array_address,
|
|
abi::__cxa_cdtor_type destructor,
|
|
std::size_t element_size,
|
|
std::size_t element_count)
|
|
{
|
|
abi::__cxa_vec_dtor (array_address, element_count, element_size,
|
|
destructor);
|
|
return reinterpret_cast<std::size_t*> (array_address) - 2;
|
|
}
|
|
|
|
extern "C" void *
|
|
__aeabi_vec_dtor_cookie (void *array_address,
|
|
abi::__cxa_cdtor_type destructor)
|
|
{
|
|
if (!array_address)
|
|
return NULL;
|
|
|
|
abi::__cxa_vec_dtor (array_address,
|
|
reinterpret_cast<std::size_t *>(array_address)[-1],
|
|
reinterpret_cast<std::size_t *>(array_address)[-2],
|
|
destructor);
|
|
return reinterpret_cast<std::size_t*> (array_address) - 2;
|
|
}
|
|
|
|
|
|
extern "C" void
|
|
__aeabi_vec_delete (void *array_address,
|
|
abi::__cxa_cdtor_type destructor)
|
|
{
|
|
if (!array_address)
|
|
return;
|
|
|
|
abi::__cxa_vec_delete (array_address,
|
|
reinterpret_cast<std::size_t *>(array_address)[-2],
|
|
2 * sizeof (std::size_t),
|
|
destructor);
|
|
}
|
|
|
|
extern "C" void
|
|
__aeabi_vec_delete3 (void *array_address,
|
|
abi::__cxa_cdtor_type destructor,
|
|
void (*dealloc) (void *, std::size_t))
|
|
{
|
|
if (!array_address)
|
|
return;
|
|
|
|
abi::__cxa_vec_delete3 (array_address,
|
|
reinterpret_cast<std::size_t *>(array_address)[-2],
|
|
2 * sizeof (std::size_t),
|
|
destructor, dealloc);
|
|
}
|
|
|
|
extern "C" void
|
|
__aeabi_vec_delete3_nodtor (void *array_address,
|
|
void (*dealloc) (void *, std::size_t))
|
|
{
|
|
if (!array_address)
|
|
return;
|
|
|
|
abi::__cxa_vec_delete3 (array_address,
|
|
reinterpret_cast<std::size_t *>(array_address)[-2],
|
|
2 * sizeof (std::size_t),
|
|
/*destructor=*/NULL, dealloc);
|
|
}
|
|
} // namespace __aeabiv1
|
|
|
|
#endif // defined(__arm__) && defined(__ARM_EABI__)
|