static tree
do_allocate_exception (tree type)
{
tree fn;
fn = get_identifier ("__cxa_allocate_exception");
if (!get_global_value_if_present (fn, &fn))
{
/* Declare void *__cxa_allocate_exception(size_t) throw(). */
fn = declare_library_fn (fn, ptr_type_node, size_type_node,
ECF_NOTHROW | ECF_MALLOC);
if (flag_tm)
{
tree fn2 = get_identifier ("_ITM_cxa_allocate_exception");
if (!get_global_value_if_present (fn2, &fn2))
fn2 = declare_library_fn (fn2, ptr_type_node,
size_type_node,
ECF_NOTHROW | ECF_MALLOC | ECF_TM_PURE);
record_tm_replacement (fn, fn2);
}
}
return cp_build_function_call_nary (fn, tf_warning_or_error,
size_in_bytes (type), NULL_TREE);
}
static tree
do_begin_catch (void)
{
tree fn;
fn = get_identifier ("__cxa_begin_catch");
if (!get_global_value_if_present (fn, &fn))
{
/* Declare void* __cxa_begin_catch (void *) throw(). */
fn = declare_library_fn (fn, ptr_type_node, ptr_type_node, ECF_NOTHROW);
/* Create its transactional-memory equivalent. */
if (flag_tm)
{
tree fn2 = get_identifier ("_ITM_cxa_begin_catch");
if (!get_global_value_if_present (fn2, &fn2))
fn2 = declare_library_fn (fn2, ptr_type_node,
ptr_type_node, ECF_NOTHROW | ECF_TM_PURE);
record_tm_replacement (fn, fn2);
}
}
return cp_build_function_call_nary (fn, tf_warning_or_error,
build_exc_ptr (), NULL_TREE);
}
static tree
do_free_exception (tree ptr)
{
tree fn;
fn = get_identifier ("__cxa_free_exception");
if (!get_global_value_if_present (fn, &fn))
{
/* Declare void __cxa_free_exception (void *) throw(). */
fn = declare_library_fn (fn, void_type_node, ptr_type_node,
ECF_NOTHROW | ECF_LEAF);
if (flag_tm)
{
tree fn2 = get_identifier ("_ITM_cxa_free_exception");
if (!get_global_value_if_present (fn2, &fn2))
fn2 = declare_library_fn (fn2, void_type_node,
ptr_type_node,
ECF_NOTHROW | ECF_LEAF | ECF_TM_PURE);
record_tm_replacement (fn, fn2);
}
}
return cp_build_function_call_nary (fn, tf_warning_or_error, ptr, NULL_TREE);
}
static tree
do_free_exception (tree ptr)
{
if (!free_exception_fn)
/* Declare void __cxa_free_exception (void *) throw(). */
free_exception_fn
= declare_library_fn ("__cxa_free_exception",
void_type_node, ptr_type_node,
ECF_NOTHROW | ECF_LEAF, ECF_TM_PURE);
return cp_build_function_call_nary (free_exception_fn,
tf_warning_or_error, ptr, NULL_TREE);
}
static tree
do_begin_catch (void)
{
if (!begin_catch_fn)
/* Declare void* __cxa_begin_catch (void *) throw(). */
begin_catch_fn
= declare_library_fn ("__cxa_begin_catch",
ptr_type_node, ptr_type_node, ECF_NOTHROW,
ECF_TM_PURE);
return cp_build_function_call_nary (begin_catch_fn, tf_warning_or_error,
build_exc_ptr (), NULL_TREE);
}
static tree
do_allocate_exception (tree type)
{
if (!allocate_exception_fn)
/* Declare void *__cxa_allocate_exception(size_t) throw(). */
allocate_exception_fn
= declare_library_fn ("__cxa_allocate_exception",
ptr_type_node, size_type_node,
ECF_NOTHROW | ECF_MALLOC, ECF_TM_PURE);
return cp_build_function_call_nary (allocate_exception_fn,
tf_warning_or_error,
size_in_bytes (type), NULL_TREE);
}
static tree
do_get_exception_ptr (void)
{
if (!get_exception_ptr_fn)
/* Declare void* __cxa_get_exception_ptr (void *) throw(). */
get_exception_ptr_fn
= declare_library_fn ("__cxa_get_exception_ptr",
ptr_type_node, ptr_type_node,
ECF_NOTHROW | ECF_PURE | ECF_LEAF | ECF_TM_PURE,
0);
return cp_build_function_call_nary (get_exception_ptr_fn,
tf_warning_or_error,
build_exc_ptr (), NULL_TREE);
}
static tree
do_end_catch (tree type)
{
if (!end_catch_fn)
/* Declare void __cxa_end_catch ().
This can throw if the destructor for the exception throws. */
end_catch_fn
= declare_library_fn ("__cxa_end_catch", void_type_node,
NULL_TREE, 0, ECF_TM_PURE);
tree cleanup = cp_build_function_call_vec (end_catch_fn,
NULL, tf_warning_or_error);
TREE_NOTHROW (cleanup) = dtor_nothrow (type);
return cleanup;
}
static tree
do_get_exception_ptr (void)
{
tree fn;
fn = get_identifier ("__cxa_get_exception_ptr");
if (!get_global_value_if_present (fn, &fn))
{
/* Declare void* __cxa_get_exception_ptr (void *) throw(). */
fn = declare_library_fn (fn, ptr_type_node, ptr_type_node,
ECF_NOTHROW | ECF_PURE | ECF_LEAF | ECF_TM_PURE);
}
return cp_build_function_call_nary (fn, tf_warning_or_error,
build_exc_ptr (), NULL_TREE);
}
